標題: VBA 儲存格 會把0削掉 [打印本頁]

---

作者: ag324    時間: 2011-12-9 15:31     標題: VBA 儲存格 會把0削掉

今天 要把資料整理
資料庫上面不7位數 會自動補0
我把數字的改成7位數

可是當我用VBA cells 選擇這資料時
出來的東西 0又不見了

還有用EXCEL  = a1 & b1 & c1
有數字的是b1
他也會自動把0消除
不知道有什麼好方法 可以處理的呢

感謝

---

作者: ag324    時間: 2011-12-9 17:40

Sub Macro3()
Dim b As String
For i = 2 To 204
b = 0
a = 7 - Len(Cells(i, 1))
If a > 0 Then
For k = 1 To a - 1
b = b & "0"
Next
Cells(i, 10) = "LTRIM(publn_nr) = '" & b & Cells(i, 1) & "' or "

End If

Next
End Sub


寫出來了 分享一下

---

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