[發問] 請教各位 如何split後將(文字)轉換為(數字)

cmo140497

Dear 各位大大及版主您好 :
小弟有一函數轉換問題,請問在split(string," ")(0)後,如何將實為"000"轉換為數字"0"或"001"轉換為數字"1"呢?感恩!

1. Sub 巨集2()
   
2.     Dim MyTEXT As String, ar, j As Integer
   
3.    
   
4.     MyTEXT = "AAA:000 001 002 003"
   
5.     j = 1
   
6.     If MyTEXT Like AAA & "*" Then
   
7.             Cells(1, j).Value = Split(MyTEXT, ":")(0)
   
8.             ar = Split(Split(MyTEXT, ":")(1), " ")
   
9.             Cells(1, j + 1).Resize(, UBound(ar) + 1) = ar
   
10.             'Result : Cells(1,1)=AAA , Cells(1,2)=000 , Cells(1,3)=001 , Cells(1,4)=002, Cells(1,5)=003
    
11.             '如何將000 001 002 003 轉換為數字Cells(1,2)=0 , Cells(1,3)=1 , Cells(1,4)=2, Cells(1,5)=3
    
12.     End If
    
13. End Sub

複製代碼

2013-01-16 發問字串轉數字問題.zip (10.7 KB)

下載次數: 11

2013-1-16 14:08

stillfish00

回復 1# cmo140497
CInt(expression)  函數可轉為整數資料 , expression 引數範圍須在 -32,768 至 32,767

cmo140497

回復 2# stillfish00


    不好意思,請教要加在哪?會比較適當,一直出現alarm message:型態不符,謝謝您不吝指教,感恩!

stillfish00

回復 3# cmo140497
ar = Split(Split(MyTEXT, ":")(1), " ")
'插入底下迴圈
For i = LBound(ar) To UBound(ar)
    ar(i) = CInt(ar(i))
Next

Hsieh

回復 1# cmo140497


  對於陣列元素的資料修改必須一一修改
無法利用資料型態轉換函數一次性的轉換
            ar = Split(Split(MyTEXT, ":")(1), " ")
            For i = 0 To UBound(ar)
               Cells(1, j + 1 + i) = CItn(ar(i))
            Next

cmo140497

回復 4# stillfish00


    實在感謝您的不吝指教,小弟把Cint直接冠在ar前,才會出錯,太感謝您了,感恩!

GBKEE

回復 1# cmo140497

1. Sub 巨集2()
   
2.     Dim MyTEXT As String, ar, j As Integer   
   
3.     MyTEXT = "AAA:000 001 002 003"
   
4.     j = 1
   
5.     If MyTEXT Like AAA & "*" Then
   
6.             Cells(1, j).Value = Split(MyTEXT, ":")(0)
   
7.             ar = Split(Split(MyTEXT, ":")(1), " ")
   
8.             With Cells(1, j + 1).Resize(, UBound(ar) + 1)
   
9.                 .Value = ar
   
10.                 .Value = .Value       '範圍的值=範圍的值
    
11.             End With
    
12.             'Result : Cells(1,1)=AAA , Cells(1,2)=000 , Cells(1,3)=001 , Cells(1,4)=002, Cells(1,5)=003
    
13.             '如何將000 001 002 003 轉換為數字Cells(1,2)=0 , Cells(1,3)=1 , Cells(1,4)=2, Cells(1,5)=3
    
14.     End If
    
15. End Sub

複製代碼