文書處理 - EXCEL VBA 數字轉文字 - 電腦

前往內容


EXCEL VBA 數字轉文字

請教各位高手:
A1儲存格為0.000001,A2為0.0123 要如何在B1儲存格呈現000001,B2為0123,小弟用VBA都解不出來,麻煩各位大大,非常感謝!
yuliwei0001 wrote:
請教各位高手: ...(恕刪)


試過不把儲存格格式改文字
那個0.123的0沒有辦法顯示
所以前兩行先把格式改過
Range("B1:B2").Select
Selection.NumberFormatLocal = "@"

a1 = Worksheets(1).Cells(1, 1)
a2 = Worksheets(1).Cells(2, 1)

Worksheets(1).Cells(1, 2) = Replace(a1, ".", "") '把小數點取代
Worksheets(1).Cells(2, 2) = Replace(a2, ".", "")



yuliwei0001 wrote:
請教各位高手: ...(恕刪)


Range("B1").Value = Cstr(Split(Range("A1").Value, ".")(1))
Range("B2").Value = Cstr(Split(Range("A2").Value, ".")(1))

看看合不合用 ^_^

1頁 (共1頁)

前往