Re: [VBA ] 用變數去做sheets.select

看板Visual_Basic作者 (流雲)時間12年前 (2011/08/29 23:08), 編輯推噓3(304)
留言7則, 4人參與, 最新討論串2/2 (看更多)
※ 引述《hungcheh (流雲)》之銘言: : 各位大大 : 小弟有個excel檔約十來個工作表 : 想做一些資料的移動, : 在切換資料表的時候想用變數去做切換 : 例如 workname = 工作表a 的時候 : sheets(workname).select : 但是會出現錯誤,有大大可以教偶一下怎麼用嗎? : 感謝!! 我說明清楚一些好了... excel檔中的第一個sheet a 1 工作表1 2 工作表2 3 工作表3 我用vba 寫了 for i = 1 to 10 workname = range("a"&i).value sheets(workname).select '錯誤訊息一直卡在這 while workname <> "" . . . next i 希望有大大能幫忙了...thx~~~ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 203.67.185.87

08/30 00:36, , 1F
在錯誤前面加個 msgbox(workname)看有沒有出現預期的文字
08/30 00:36, 1F

08/30 08:09, , 2F
你的vba是寫在哪裡?在sheet1嗎?還是獨立的巨集?
08/30 08:09, 2F

08/30 08:11, , 3F
如果不是寫在sheet1裡,那range那邊讀不到值喔
08/30 08:11, 3F

08/30 08:12, , 4F
worksheets(1).range("a"&i).value才能在獨立的巨集使用
08/30 08:12, 4F

08/30 19:41, , 5F
要碼要寫在獨立巨集裏...要碼要一直activate其他sheets
08/30 19:41, 5F

09/04 19:09, , 6F
我是寫在巨集裡 而一直activate sheet 是怎樣寫法??
09/04 19:09, 6F

09/04 19:10, , 7F
workname的變數值沒有錯...感謝大大們的協助囉..:D
09/04 19:10, 7F
文章代碼(AID): #1EMwjvF6 (Visual_Basic)
文章代碼(AID): #1EMwjvF6 (Visual_Basic)