Snasui Excel Forum

แบบแรกนี้ผ่านครับ โค้ดใช้ได้
Sub ShowAbout()
' Activate About sheet
Worksheets("About").Activate
ActiveSheet.ScrollArea = "A1:C39"
Range("b2").Select
End Sub

------------------
แบบสอง error ครับ คือผมอยาก multi range area

Sub ShowAbout()
' Activate About sheet
Worksheets("About").Activate
ActiveSheet.ScrollArea = "A1:C39,e1:F39" -> error 1004
Range("b2").Select
End Sub

ScrollArea เป็นการให้ผู้ใช้สามารถเลื่อนดูตาราง Excel เพียงขอบเขตในช่วงที่กำหนด ปกติต้องกำหนดให้ติดกัน การกำหนดช่วงไม่ติดกันจะผิดหลักการกำหนด Properties ของ ScrollArea ครับ

ครับ งั้นแบบติดกันแก้ขัดไปก่อน อิอิ