อาจารย์ครับขอคำแนะนำตามไฟล์ที่แนบ

[thuang]

อาจารย์ครับขอคำแนะนำตามไฟล์ที่แนบ ขอบคุณมาก

[snasui]

ที่ D 2 ทำList เพื่อ
เมื่อเลือก 1 ให้ลิงค์ไป Sheet =ชื่อ 1
เมื่อเลือก 2 ให้ลิงค์ไป Sheet =ชื่อ 2

ขอให้ช่วยอธิบายคำถามหรือปัญหาไว้ในกระทู้คร่าว ๆ ด้วยครับ ทั้งนี้เพื่อความสะดวกในการค้นหา หากอธิบายไว้ในไฟล์แนบเพียงที่เดียวตัวค้นหาของฟอรัมไม่สามารถค้นหาได้ ทำให้เพื่อน ๆ อาจจะพลาดโอกาสที่จะรับรู้ไปด้วยครับ

สำหรับการทำ Validation ให้เลือกแล้ววิ่งไปยัง Sheet ในรายการที่เลือกทันทีต้องพึ่ง VBA ครับ ผมเขียน Code มาให้ดูเป็นตัวอย่างตามด้านล่าง ซึ่งได้แนบไฟล์ตัวอย่างมาให้ด้วยแล้วครับ

Code ใน Sheet1

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$2" Then
    Call SelectSheet
End If
End Sub

Code ใน Module1

Code: Select all

Sub SelectSheet()
If ActiveCell = "" Then Exit Sub
    Sheets(CStr(ActiveCell.Value)).Select
End Sub

[thuang]

ขอบคุณมากครับอาจารย์