返回列表 上一主題 發帖

[發問] TEXT問題請教

rouber590324

帖子
560 
主題
159 
精華
0 
積分
723 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2023-10-31 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-1-28 14:09 | 只看該作者

[發問] TEXT問題請教

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

帖子
37 
主題
7 
精華
0 
積分
93 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE2010 
閱讀權限
20 
性別
男 
註冊時間
2018-10-18 
最後登錄
2021-7-21 
2#
發表於 2019-1-29 09:24 | 只看該作者
1.儲存格要帶入公式，要用Formula，才不會變成文字格式
2.注意""要用2次
3.Formula後面的公式就是儲存格要填入的公式，不要用VBA寫法

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

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

∼熊貓界第一美男子∼

TOP

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
16  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2024-3-28 

2016猴年全勤獎章
3#
發表於 2019-1-29 09:59 | 只看該作者
  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
複製代碼

TOP

rouber590324

帖子
560 
主題
159 
精華
0 
積分
723 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2023-10-31 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
4#
發表於 2019-1-29 11:59 | 只看該作者
DEAR  luckeyfly 大大 & ikboy 大大
感謝指導   THANKS*10000
羅

TOP

        靜思自在 : 做好事不能少我一人，做壞事不能多我一人。
返回列表 上一主題