อยากให้ active work sheet ตาม ค่า ใน เซลล์ a1 ของsheet 1

[apinomon]

อยากให้active work sheet ตาม ค่า ใน เซลล์ a1 ของsheet 1
สมมติว่าไฟล์นี้มีชีท 4 ชีท ชื่อ sheet1, sheet2 ,sheet3 และ sheet4
ถ้าพิมพ์คำว่าsheet2ที่เซลล์ a1 ของ sheet1ก็ไป activeที่ sheet2
ถ้าพิมพ์คำว่าsheet3ที่เซลล์ a1 ของ sheet1ก็ไป activeที่ sheet3
ถ้าพิมพ์คำว่าsheet4ที่เซลล์ a1 ของ sheet1ก็ไป activeที่ sheet4

ขอบคุณครับ

[apinomon]

ผมทำได้แล้วครับ ตามนี้ครับ
Sub SelectSheet()
Dim sh As String
On Error Resume Next
sh = Format(Sheets("Sheet1").Range("A1").Value)
Sheets(sh).Activate
End Sub

ผมขอสอบถามเพิ่มเติมครับ
ถ้ามีชื่อชีทเป็นเดือนปี เช่น Jan15 แล้วพิมพ์ที่เซลล์ A1 ของชีทSheet1 เป็น 1/1/2015 แล้วฟอร์แมทให้อยู่ในรูป mmmyy ซึ่งจะเท่ากับ Jan15 แต่พอรันแล้วไม่เกิดอะไรขึ้นครบ หรือใช้ =today()แล้วฟอร์แมทให้อยู่ในรูป mmmyy ก็ไม่ได้เช่นกันครับ
รบกวนช่วยชีแนะด้วยครับ

ขอบคุณมากครับ

[snasui]

แนบไฟล์ตัวอย่างมาด้วยครับ

สำหรับการโพสต์ Code ในช่องความเห็นนี้ควรโพสต์ให้แสดงเป็น Code ดูตัวอย่างได้จาก link นี้ครับ viewtopic.php?f=6&t=1187

[apinomon]

ผมได้แนบไฟล์ตัวอย่างมาแล้ว ชื่อไฟล์ BOOK1 ครับ โดยให้ระบุชื่อชีทที่ต้องการให้ Active ที่ เซลล์ A1 และ A3 ของชีทชื่อ Sheet1 และทำปุ่มเพื่อให้คลิก RUN คำสั่ง ครับ
ที่เซลล์ A1 ผมยกตัวอย่างการระบุชื่อชีท เช่น A และ B อันนี้ทำได้
แต่ที่เซลล์ A1 ผมยกตัวอย่างการระบุชื่อชีท เป็น 1/1/2015 แล้วฟอร์แมทให้อยู่ในรูป mmmyy ซึ่งจะเท่ากับ Jan15 และ Feb15 อันนี้ไม่Active ตามคำสั่งครับ

โพสต์ Code ใหม่ตามตัวอย่างรูปแบบการโพสครับ

Code: Select all

Sub SelectSheet()
Dim sh As String
On Error Resume Next
sh = Format(Sheets("Sheet1").Range("A1").Value)
Sheets(sh).Activate
End Sub

ขอบคุณครับ

[snasui]

ตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Sub SelectSheet2()
    Dim sh As String
    On Error Resume Next
    sh = Application.Text(Sheets("Sheet1").Range("A3").Value, "[$- ]mmmyy")
    Sheets(sh).Activate
End Sub

[apinomon]

การปรับ Code ตามแล้ว
ใช้ได้เลยครับ
รวมทั้งฟังก์TODAYก็ใช้ได้ครับ

ขอบคุณมากครับ