Snasui Excel Forum

Posted: **Wed Dec 13, 2017 5:08 pm**

ผมต้องการเขียน macro ให้ไปเปิด sheet ที่ชื่อ "FILE" จากทุกๆ workbook ที่เปิดอยู่

Sub GotosheetX()
Dim sheetname As String
sheetname = "FILE"
For Each wb In Workbooks
wb.Activate
Worksheets(sheetname).Activate
Next wb
End Sub

พบ error

Run-time error 9
Subscript out of range

แต่ถ้าใส่กำหนด worksheets เป็น Worksheets(1).Activate จะไม่ error
แต่ถ้าเป็น Worksheets(2).Activate หรือกำหนดเป็นชื่อ sheet จะ error ครับ
รบกวนชี้แนะด้วยครับ

Posted: **Wed Dec 13, 2017 5:54 pm**

ลองใส่โค้ดนี้ใต้ DIM ดูครับ

Code: Select all

On Error Resume Next

Posted: **Wed Dec 13, 2017 11:03 pm**

ขอบคุณมากครับ ทำตามที่แนะนำแล้วใช้ได้เลยครับ

puriwutpokin wrote:ลองใส่โค้ดนี้ใต้ DIM ดูครับ
Code: Select all
On Error Resume Next

Snasui Excel Forum

Macro Active worksheet ผ่าน loop ไม่ผ่าน

Macro Active worksheet ผ่าน loop ไม่ผ่าน

Re: Macro Active worksheet ผ่าน loop ไม่ผ่าน

Re: Macro Active worksheet ผ่าน loop ไม่ผ่าน