[發問] TEXT問題請教

rouber590324

DEAR ALL 大大
1.於 Sheet4.Range("U2")書寫涵數
   =TEXT(Y2,"000-00-00") 執行涵數無問題
2.改寫為 VBA 如下 無法執行.
Sub BB()
  Sheet4.Range("U2") = Text(Sheet4.Range("Y2"), "000-00-00")
End Sub
3.如何改涵數為VBA 煩不吝賜教  THANKS*10000

luckeyfly

1.儲存格要帶入公式，要用Formula，才不會變成文字格式
2.注意""要用2次
3.Formula後面的公式就是儲存格要填入的公式，不要用VBA寫法

(我的EXCEL工作表名稱是中文的，所以VBA用中文比較正常)

Sub R()
工作表4.Range("U2").Formula = "=Text(工作表4!Y2, ""000-00-00"")"
End Sub

下載 (44.81 KB)

2019-1-29 09:24

ikboy

1. Sub BB()
   
2.     Sheet4.Range("U2") = Format(Sheet4.Range("Y2"), "000-00-00")
   
3. End Sub

複製代碼

如數量多, 建議用 With 配合 For Next

1. Sub zz()
   
2. With Sheet4
   
3.     .[U2] = Format(.[Y2], "000-00-00")
   
4. End With
   
5. End Sub

複製代碼

rouber590324

DEAR  luckeyfly 大大 & ikboy 大大
感謝指導   THANKS*10000