返回列表 上一主題 發帖

字串分割與換行?

lasum

帖子
8 
主題
0 
精華
0 
積分
51 
點名
0  
作業系統
XP 
軟體版本
Office 2002 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2019-2-21 
1# 跳轉到 »
發表於 2012-6-26 02:59 | 顯示全部帖子
最近在學習VBA…上述的程式都有測試…
oobird 大的程式會出現    陣列索引超出範圍 錯誤 9
不知道是不是版本的問題…我來找到了這篇
http://forum.twbts.com/redirect. ... amp;goto=nextoldset
修改後的程式如下…
Sub Macro1()
On Error Resume Next '增加程式
t = [a1]
sp = Split(t, " ")
p1 = Split(sp(0), ",")
p2 = Split(sp(1), ",") '修改前會出現 陣列索引超出範圍 錯誤 9
For i = 1 To 4
Cells(1, 2 + i) = p1(i - 1)
Cells(2, 2 + i) = p2(i - 1)
Cells(i, 8) = p1(i - 1)
Cells(i, 9) = p2(i - 1)
Next
End Sub
爾後程式就正常了…感謝以上前輩提供的學習資料！
走急的人看不見地上的釘子， 煩惱的人享受不到幸福的日子。

TOP

lasum

帖子
8 
主題
0 
精華
0 
積分
51 
點名
0  
作業系統
XP 
軟體版本
Office 2002 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2019-2-21 
2#
發表於 2012-6-30 00:07 | 顯示全部帖子
回復 7# GBKEE

感謝 GBKEE 大的回覆及提醒…

相關的程式測試，也正如 GBKEE大 所說的一樣…

至於應用方面…小弟還要再研究、學習…
走急的人看不見地上的釘子， 煩惱的人享受不到幸福的日子。

TOP

        靜思自在 : 得理要饒人，理直要氣和。
返回列表 上一主題