標題:
[發問]
如何把A2:A65536的數據,不足四位補滿四位的VBA程式?
[打印本頁]
作者:
metrostar
時間:
2011-3-3 12:43
標題:
如何把A2:A65536的數據,不足四位補滿四位的VBA程式?
學妹又來麻煩大家了
請帥哥/美女版主 帥哥/美女學長跟學姐
幫忙學妹完成
作者:
GBKEE
時間:
2011-3-3 14:48
回復
1#
metrostar
A欄的數值格式自訂設定為"0000"即可
Sub Ex()
Range("A:A").NumberFormatLocal = "0000"
End Sub
複製代碼
作者:
metrostar
時間:
2011-3-4 08:49
帥哥版主,謝謝您!
還是不行耶,看起來是四位數
例如 A2 0012
實際轉出到 記事本仍然是 12
作者:
Hsieh
時間:
2011-3-4 09:18
回復
3#
metrostar
Sub nn()
For Each a In Range("A:A").SpecialCells(xlCellTypeConstants)
s = Format(a, "0000")
a.NumberFormat = "@"
a.Value = s
Next
End Sub
複製代碼
作者:
metrostar
時間:
2011-3-4 09:34
回復 metrostar
Hsieh 發表於 2011-3-4 09:18
棒極了,可以用了
多謝帥哥版主
學妹非常感動呢
您真是太強太強了
感謝您並祝賀您
幸福好運永遠降臨您身上
作者:
Hsieh
時間:
2011-3-4 10:20
回復
5#
metrostar
何不試試基本操作[attach]4909[/attach]
作者:
brabus
時間:
2011-3-11 23:11
哦哦有沒有可能不用vba來完成這個事啊
用儲存格的格式來完成就好了
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
