將excel vba中的短數字分割成長數

Question

我想在textbox中將數字從短到長拆分。 當我把這樣的號碼236.23.6329.5在textbox1，號碼轉換爲這個23623006329005。
e.g

 
236.23.6329.5 to 23623006329005 
369.2.326.6  to 36902000369006 
123.23.365236.0 to 12323365236000 
256.36.36598.4 to 25636036598004 

我用這個代碼/編碼通過 「عبداللهبقشير」 Officena.net

Dim sp 
Dim iNum As String 
Dim i As Integer 
For Each sp In Split(Me.Textbox1, ".") 
    i = i + 1 
    iNum = iNum & Format(sp, IIf(i = 3, "0000", "000")) 
    Next 
Me.Textbox1= iNum 

但362.36.236將此轉換爲3620360236如果該號碼包含兩個 「」

Answer 1

試試這個：

Dim mylen, mynum, x, mylong 
Dim i As Integer 

mylen = Array(3,2,6,3) 
mynum = Split(Textbox1,".") 

For i = Lbound(mynum) to Ubound(mynum) 
    x = mynum(i) 
    Do While Len(x) < mylen(i) 
     x = "0" & x 
    Loop 
    mylong = mylong & x 
Next 

我宣佈大部分的變量變異。
您可以通過將其直接聲明爲具有相應數據類型的數組來改進它。
希望這會有所幫助。