Board logo

標題: 我想將sheet1 的所有公式最後一個字改為") 巨集如何寫? [打印本頁]
作者: t8899    時間: 2013-7-31 20:23     標題: 我想將sheet1 的所有公式最後一個字改為") 巨集如何寫?

我想將sheet1 的所有公式最後一個字改為") 巨集如何寫?
最後一個字為'
即 '改為")
作者: t8899    時間: 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   ' 改為 ")
作者: luhpro    時間: 2013-7-31 23:36

本帖最後由 luhpro 於 2013-7-31 23:42 編輯

回復 2# t8899
  1. Sub nn()
  2.   Dim iI%
  3.   Dim sStr$
  4.   Dim rTar As Range
  5.   
  6.   With Sheets("Sheet1")
  7.     For Each rTar In .Cells.SpecialCells(xlCellTypeFormulas)
  8.       With rTar
  9.         sStr = .Formula
  10.         iI = InStr(1, sStr, "=XQKGIAP|Quote!'")
  11.         if iI > 0 then
  12.           sStr = "=RTD(" & Chr(34) & "XQRTD.RtdServerKGIAP" & Chr(34) & ",," & Chr(34) & "" & Mid(sStr, 17)
  13.           iI = InStr(1, sStr, "'")
  14.           If iI > 0 Then sStr = Left(sStr, iI - 1) & Chr(34) & ")"
  15.           .Formula = sStr
  16.         End If
  17.       End With
  18.     Next
  19.   End With
  20. End Sub
複製代碼
[attach]15656[/attach]
作者: t8899    時間: 2013-8-1 06:54

回復  t8899
luhpro 發表於 2013-7-31 23:36


使用沒問題，謝謝指導!



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)