返回列表 上一主題 發帖

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

cmo140497

帖子
95 
主題
29 
精華
0 
積分
150 
點名
0  
作業系統
windows2003 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
Kaoshiung 
註冊時間
2010-11-5 
最後登錄
2018-2-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-1-16 14:09 | 只看該作者

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

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)
收藏 分享

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2013-1-16 14:19 | 只看該作者
回復 1# cmo140497
CInt(expression)  函數可轉為整數資料 , expression 引數範圍須在 -32,768 至 32,767

TOP

cmo140497

帖子
95 
主題
29 
精華
0 
積分
150 
點名
0  
作業系統
windows2003 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
Kaoshiung 
註冊時間
2010-11-5 
最後登錄
2018-2-8 
3#
發表於 2013-1-16 14:32 | 只看該作者
回復 2# stillfish00


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

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
4#
發表於 2013-1-16 14:41 | 只看該作者
回復 3# cmo140497
ar = Split(Split(MyTEXT, ":")(1), " ")
'插入底下迴圈
For i = LBound(ar) To UBound(ar)
    ar(i) = CInt(ar(i))
Next

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
277  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-12-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
5#
發表於 2013-1-16 14:42 | 只看該作者
本帖最後由 Hsieh 於 2013-1-16 17:38 編輯

回復 1# cmo140497


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

TOP

cmo140497

帖子
95 
主題
29 
精華
0 
積分
150 
點名
0  
作業系統
windows2003 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
來自
Kaoshiung 
註冊時間
2010-11-5 
最後登錄
2018-2-8 
6#
發表於 2013-1-16 14:47 | 只看該作者
回復 4# stillfish00


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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
7#
發表於 2013-1-17 16:14 | 只看該作者
回復 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
複製代碼

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
返回列表 上一主題