範例_字串切割與Do_While迴圈不定數量結果

0 views
Skip to first unread message

吳老師

unread,
Sep 19, 2019, 1:16:42 PM9/19/19
to AUTOCAD2008教學論壇
範例_字串切割與Do_While迴圈不定數量結果

這個範例是學員工作上的問題,
每天都需要將儲存格中的超連結取出到B欄中,
若儲存格中只有一個超連結還好解決,
可以用Find函數找中括弧位置,再用Mid函數切割,
剛好這個範例裡面不只一個超連結,
可能有兩個、三個甚至更多,
也就是數量不定,如果要用For迴圈,也要知道數量範圍,
所以只能用 Do While 迴圈了,
從第一個字找起,之後再從找到的位置加一再找了,該如何做。
一、函數
如果用VBA撰寫的程式
一、階段一,先撰寫只取一個超連結
外面的For迴圈是跑每一列,用 Instr函數找"【<"和">】",
分別放在將找到位置的值放在 a和b 中,
如果a或b為0,表示找不到。
如果多個超連結,可以先多產生 a1和b1變數,預設值為 1,
即從頭找起,找到之後再把  a1和b1 加1之後繼續找,
直到找不到為止,Do While 後面就是邏輯,為 True 就繼續找,
反之就離開迴圈了。
教學影音與練習檔(完整版在論壇):

教學影音完整版在論壇與練習檔:

吳老師 2019/9/20
Reply all
Reply to author
Forward
0 new messages