我想將sheet1 的所有公式最後一個字改為") 巨集如何寫?
- 帖子
- 759
- 主題
- 249
- 精華
- 0
- 積分
- 1021
- 點名
- 0
- 作業系統
- windows 11
- 軟體版本
- OFFICE2021
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-5-30
- 最後登錄
- 2024-11-12
|
我想將sheet1 的所有公式最後一個字改為") 巨集如何寫?
我想將sheet1 的所有公式最後一個字改為") 巨集如何寫?
最後一個字為'
即 '改為") |
|
|
|
|
|
|
|
- 帖子
- 759
- 主題
- 249
- 精華
- 0
- 積分
- 1021
- 點名
- 0
- 作業系統
- windows 11
- 軟體版本
- OFFICE2021
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-5-30
- 最後登錄
- 2024-11-12
|
2#
發表於 2013-7-31 20:54
| 只看該作者
本帖最後由 t8899 於 2013-7-31 20:58 編輯
應該說是修改sheet1所有公式裡的字串
此公式=XQKGIAP|Quote!'3416.TW-BestBidSize'
改為 =RTD("XQRTD.RtdServerKGIAP",,"3416.TW-BestBidSize")
即
1 =XQKGIAP|Quote!' 改為 =RTD("XQRTD.RtdServerKGIAP",,"
2 ' 改為 ") |
|
|
|
|
|
|
|
- 帖子
- 835
- 主題
- 6
- 精華
- 0
- 積分
- 915
- 點名
- 15
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2024-11-12
|
3#
發表於 2013-7-31 23:36
| 只看該作者
本帖最後由 luhpro 於 2013-7-31 23:42 編輯
回復 2# t8899 - Sub nn()
- Dim iI%
- Dim sStr$
- Dim rTar As Range
-
- With Sheets("Sheet1")
- For Each rTar In .Cells.SpecialCells(xlCellTypeFormulas)
- With rTar
- sStr = .Formula
- iI = InStr(1, sStr, "=XQKGIAP|Quote!'")
- if iI > 0 then
- sStr = "=RTD(" & Chr(34) & "XQRTD.RtdServerKGIAP" & Chr(34) & ",," & Chr(34) & "" & Mid(sStr, 17)
- iI = InStr(1, sStr, "'")
- If iI > 0 Then sStr = Left(sStr, iI - 1) & Chr(34) & ")"
- .Formula = sStr
- End If
- End With
- Next
- End With
- End Sub
 ans.zip (5.67 KB)
|
|
|
|
|
|
|
|
- 帖子
- 759
- 主題
- 249
- 精華
- 0
- 積分
- 1021
- 點名
- 0
- 作業系統
- windows 11
- 軟體版本
- OFFICE2021
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-5-30
- 最後登錄
- 2024-11-12
|
4#
發表於 2013-8-1 06:54
| 只看該作者
回復 t8899
luhpro 發表於 2013-7-31 23:36 
使用沒問題，謝謝指導! |
|
|
|
|
|
|
|
