把1 變成'001 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 把1 變成'001

返回列表下一主題上一主題發帖

把1 變成'001

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

1^# 跳轉到 »

發表於 2018-9-27 00:23 | 顯示全部帖子

本帖最後由 n7822123 於 2018-9-27 00:28 編輯

回復 1# boomf2

如下

Sub qqq()
A = 1
B = Format(A, "000")
MsgBox A & " 變成 " & B
End Sub

複製代碼

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

　暱稱: 阿龍

中學生 Rank: 2

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

2^#

發表於 2018-9-27 00:50 | 顯示全部帖子

回復 3# n7822123

或者

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.NumberFormatLocal = "000"
End Sub

複製代碼

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。

返回列表下一主題上一主題