Snasui Excel Forum

Posted: **Wed Sep 06, 2017 8:03 pm**

เรียนอาจารย์และท่านผู้รู้ช่วยปรับโค้ดค่ะ
ตัวอย่างไฟล์แนบมีตารางข้อมูลเซลล์ B3:I19 ที่ชีท Sheet1 ใช้โค้ดด้านล่างนี้

ต้องการปรับโค้ดเมื่อคลิกที่เซลล์ใด ๆ ที่อยู่นอกกรอบข้อมูลเซลล์ B3:I19 ชีทSheet1 เช่นคลิกที่คอลัมน์ K:R ก็ให้ไปวิ่งที่ Sheet2 เซลล์ F10 ค่ะ

โค้ดด้านล่างติดเมื่อคลิกเซลล์ใดก็วิ่งไปที่ชีท Sheet2 ค่ะ ควรปรับโค้ดอย่างไรคะ

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.Goto Sheets("Sheet2").Cells(10, 6)
End Sub

Posted: **Wed Sep 06, 2017 8:21 pm**

ตัวอย่างการปรับ Code ครับ

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("b3:i19")) Is Nothing Then
        Worksheets("Sheet2").Select
        ActiveSheet.Range("f10").Select
    End If
End Sub

Posted: **Thu Sep 07, 2017 10:29 am**

ขอบคุณค่ะอาจารย์ ได้ตรงตามต้องการแล้วค่ะ

Snasui Excel Forum

VBA ปรับโค้ดให้ไปชีทที่ต้องการค่ะ

VBA ปรับโค้ดให้ไปชีทที่ต้องการค่ะ

Re: VBA ปรับโค้ดให้ไปชีทที่ต้องการค่ะ

Re: VBA ปรับโค้ดให้ไปชีทที่ต้องการค่ะ