| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
藍薰
註冊時間: 2004-01-15
文章: 65
第 1 樓
|
 發表於: 星期一 十月 04, 2004 9:01 pm 文章主題: 將資料丟到excel後可將文字改為〞下標〞 |
 |
|
各位高手:
小女子有一個問題想請問一下
在vfp可下什麼指令將資料丟到excel後可將某個文字改成〞下標〞 |
|
| 回頂端 |
|
 |
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2158
第 2 樓
|
| 發表於: 星期二 十月 05, 2004 9:33 am 文章主題: |
|
|
VFP控制EXCEL請利用 搜尋 功能.
.Range("C5").Font.Superscript = .t. &&--上標字
.Range("C5").Font.Subscript = .T. &&--下標字
.Range("C5").Strikethrough = .T. &&--刪除線
_________________
利用>>搜尋<<的功能會比問的還要快得到答案. |
|
| 回頂端 |
|
|
藍薰
註冊時間: 2004-01-15
文章: 65
第 3 樓
|
| 發表於: 星期二 十月 05, 2004 10:38 am 文章主題: |
|
|
| garfield 寫到: | VFP控制EXCEL請利用 搜尋 功能.
.Range("C5").Font.Superscript = .t. &&--上標字
.Range("C5").Font.Subscript = .T. &&--下標字
.Range("C5").Strikethrough = .T. &&--刪除線 |
搜尋中找不到才發問的！
謝謝 Garfield 大力的提供，已解決！
但是可以指定儲存格裡某個文字嗎
例: Y6-Y12
可以指定將 6 及 12 改為下標嗎 |
|
| 回頂端 |
|
|
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2158
第 4 樓
|
| 發表於: 星期二 十月 05, 2004 11:21 am 文章主題: |
|
|
因為我看了你提問的內容像是有2個問題,1是VFP如何將資料轉到EXCEL(這當然是搜尋一下就有答案了),2才是下標字,(EXCEL下標字在以前沒有人貼過方法,所以我就給你答案), 但其實你可以自己到EXCEL錄巨集.
像你再問的某個字才改為下標, 以下是用EXCEL錄下來的, 你試看看將它改成VFP語法.
With Selection.Characters(Start:=1, Length:=5).Font
.Name = "新細明體"
.FontStyle = "標準"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
_________________
利用>>搜尋<<的功能會比問的還要快得到答案. |
|
| 回頂端 |
|
|
藍薰
註冊時間: 2004-01-15
文章: 65
第 5 樓
|
| 發表於: 星期二 十月 05, 2004 11:44 am 文章主題: |
|
|
| garfield 寫到: | 因為我看了你提問的內容像是有2個問題,1是VFP如何將資料轉到EXCEL(這當然是搜尋一下就有答案了),2才是下標字,(EXCEL下標字在以前沒有人貼過方法,所以我就給你答案), 但其實你可以自己到EXCEL錄巨集.
像你再問的某個字才改為下標, 以下是用EXCEL錄下來的, 你試看看將它改成VFP語法.
With Selection.Characters(Start:=1, Length:=5).Font
.Name = "新細明體"
.FontStyle = "標準"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With |
再次謝謝Garfield
我先試試看 |
|
| 回頂端 |
|
|
藍薰
註冊時間: 2004-01-15
文章: 65
第 6 樓
|
| 發表於: 星期二 十月 19, 2004 9:33 pm 文章主題: |
|
|
事隔好幾天終於試出來把結果分享一下
舉例：將 A1 儲存格的第二個字元設定為下標字元
OleApp.Range("A1").Characters(2,1).Font.Subscript =.T.
嘿嘿..其實是參考範例得出的結果 |
|
| 回頂端 |
|
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
