อาจารย์ครับขอคำแนะนำตามไฟล์ที่แนบ
Posted: Sun Nov 28, 2010 5:37 pm
อาจารย์ครับขอคำแนะนำตามไฟล์ที่แนบ ขอบคุณมาก
ที่ 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: Select all
Sub SelectSheet()
If ActiveCell = "" Then Exit Sub
Sheets(CStr(ActiveCell.Value)).Select
End Sub
