返回列表 上一主題 發帖

把1 變成'001

把1 變成'001

師兄們

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

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

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

把1 變成'001.rar (20.27 KB)

TOP

本帖最後由 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
複製代碼
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

回復 3# n7822123


    或者
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. Target.NumberFormatLocal = "000"
  3. End Sub
複製代碼
程式是依需求寫的,需求表達不清楚
或者沒有上傳附件,愛莫能助

TOP

        靜思自在 : 犯錯出懺悔心,才能清淨無煩惱。
返回列表 上一主題