คำสั่งเปิดชีทตามชื่อที่กำหนด

[cannoi]

เข้าไม้ได้หลายวัน วันนี้เข้าได้ ก็รบกวนเลยครับ

Code: Select all

Sub opennew()
Dim Name As String
       Name = Sheets("MAIN").Range("E17")
       If Name = ActiveCell.Value Then
      Sheets(Name).Select
    ActiveWindow.SelectedSheets.PrintPreview
    Sheets("main").Select
    Else
         MsgBox " No.. sheetName´"
         End If
End Su

ผมต้องการเปิดชีทตามชื่อที่กำหนดใน("main") ("E17") ถ้าไม่มีชีทตามชื่อให้แสดง"ข้อความ"แล้วกลับชีท"Main"ครับ ถ้ามีก็ให้เปิดแสดงตัวอย่าง
ผมทดลองหลายแบบ เข้าไปหาข้อมูลเรื่อง IF..Then. และ MsgBox ยังทำไม่ได้เลยต้องรบกวนคำแนะนำให้หน่อยครับ("E17" เปลี่ยนตามรายชั้น)

[bank9597]

เดี๋ยวรอผู้รู้ท่านอื่นๆมาช่วยดูน่ะครับ พอดีผมไม่ค่อยเป็น vba เท่าไหร่

[cannoi]

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

[niwat2811]

Code: Select all

Sub LoopSheets()
Dim WSName As String, Found As Boolean
Found = False
WSName = Sheets("MAIN").Range("E17").Value
For i = 1 To ActiveWorkbook.Sheets.Count
    If UCase(WSName) = UCase(ActiveWorkbook.Sheets(i).Name) Then
        Sheets(i).Activate
        ActiveSheet.PrintPreview
        Found = True
        Exit For
        Else
        Found = False
    End If
Next i
If Found = False Then
    MsgBox "No Found: " & Sheets("MAIN").Range("E17")
    'Else
    'MsgBox "Found: " & Sheets("MAIN").Range("E17")
End If
End Sub

ผมลองค้นจากเนตดู แบบนี้ได้ตามต้องการไหมครับ

[cannoi]

ขอบคุณ niwat2811 และท่าน bank9597มากครับ ทดสอบกับไฟล์ตัวอย่างใช้ได้แล้วครับ
จะนำไปใช้กับไฟล์จริงอีกครั้งแล้วค่อยรายงานครับ