無法找到字符

本帖最後由 Hsieh 於 2014-6-16 09:34 編輯

[a1]=YEAR(TODAY()) - 1911&"/06/08"
替換 & 為 abc
[a1].Replace "&", "abc"
[a1].Replace chr(38), "abc"
都找不到 &
& 跟 " 替換或被替換都有問題,如何把它當成一般的字??
看以下這篇文章，還是無解.............
http://support.microsoft.com/kb/147687/zh-tw

TOP

t8899

大學生 Rank: 4

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-3-12

2^#

發表於 2014-6-16 12:09 | 顯示全部帖子

本帖最後由 t8899 於 2014-6-16 12:20 編輯

回復 t8899

儲存格的Replace方法，是對文字內容取代，並非對公式內容作取代
要讓公式改變可使用取出公 ...
Hsieh 發表於 2014-6-16 09:55

[a1]=YEAR(TODAY()) - 1911&"/06/08"
如果我改為替換 &"/06/08" (即&後面的字全替換) 為 +10  (這樣改後公式是正確的,答案為113)

[a1]=Replace([A1].Formula, "&"/06/08"", "+10")
出現語法錯誤 ??
---------------------------------------------------
原1樓我想到的另外方法是
[a1]=YEAR(TODAY()) - 1911&"/06/08"  '求替換 & 為 abc
DIM A,B,C,D,E
D = InStr([a1].Formula, Chr(38)) '&在左邊第幾字,即&左邊共幾字(含&)
A = Left([a1].Formula, D - 1) '扣掉& ，取&左邊剩下的字
B = Len([a1].Formula) ' 全部的字數
C = B - D '& 右邊的字數
E = Right([a1].Formula, C) '右邊的字
[a25].Formula = A & "ABC" & E  '<==='答案 & 失去作用((舉例不當,替換後公式錯誤,邏輯對(三個個別代入都對))

TOP

t8899

大學生 Rank: 4

帖子: 764
主題: 254
精華: 0
積分: 1031
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2025-3-12

3^#

發表於 2014-6-16 14:27 | 顯示全部帖子

本帖最後由 t8899 於 2014-6-16 14:37 編輯

回復 t8899
GBKEE 發表於 2014-6-16 13:33

            原來    =YEAR(TODAY()) - 1911&"/06/08"
.FormulaR1C1 = "=YEAR(TODAY()) - 1911&"/06/08"" <===引到公式因該是
.FormulaR1C1 = "=YEAR(TODAY()) - 1911&""/06/08"""  為何放到程式視窗會自動多加引號??

直接抓儲存格裡的值沒問題
  [A2] = Mid(Range("A1").Formula, 1, InStr(Range("A1").Formula, "&") - 1) & " + 10"

TOP

t8899