標題: 把1 變成'001 [打印本頁]

---

作者: boomf2    時間: 2018-9-17 15:54     標題: 把1 變成'001

師兄們

A1= 1
A2= 2
A3= 3
A4= 1000
A999999 =999999

我想建立1個VBA, 把已選取的範圍變成 '001 '002 '100 '1000 '999999 ,沒有選取的不變.
可以指點一下嗎?

---

作者: zheng211016    時間: 2018-9-18 12:30

試試看是不是你想要的功能 我目前是設定你選擇到的單一儲存格會改變
[attach]29418[/attach]
[attach]29419[/attach]

---

作者: n7822123    時間: 2018-9-27 00:23

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

回復 1# boomf2

如下

1. Sub qqq()
   
2. A = 1
   
3. B = Format(A, "000")
   
4. MsgBox A & "  變成 " & B
   
5. End Sub

複製代碼

---

作者: n7822123    時間: 2018-9-27 00:50

回復 3# n7822123


    或者

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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)