討論群組

EXCEL VBA 數字轉文字

yuliwei0001
個人積分：0分
文章編號：69287903

0分

樓主

2018-07-12 16:45

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

2018-07-12 16:45 發佈

文章關鍵字 Excel VBA 數字文字

joblyc017
個人積分：208分
文章編號：69290529

208分

2樓

2018-07-12 20:56

函數解法，公式詳解，請參考：https://goo.gl/Q7ij9c

唬唬生瘋
個人積分：7432分
文章編號：69292638

7432分

3樓

2018-07-13 0:13

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, ".", "")

qekqo

qekqo
個人積分：21分
文章編號：69305471

21分

4樓

2018-07-14 0:04

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

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

看看合不合用 ^_^

X

X