เลือก Sheet โดยใช้ ComboBox

[RoBBie]

สวัสดีครับ คืือต้องการให้ใช้ Combobox เลือก Sheet ในการทำงาน คือจะมี 4 Sheet ได้ แก่ 1.Recap 2.week1 3.week2 4.week3
โดยผมได้ลองเขียน Code แค่ week1 และ week2 ได้ แต่ ทำตั้งแต่ week 3 ไม่ได้
1.ต้องการให้Combobox แสดงข้อมมูลที่ถูกต้อง
2.ถ้าใช้Combobox เลือก Sheet แล้วจะสามารถ ใส่ข้อมูลลงไปใน Sheet นั้นๆ ได้หรือไม่ครับ (ขอคำแนะนำครับ)

Code: Select all

Private Sub CommandButton1_Click()
ActiveWorkbook.Worksheets("recap").Select

If ComboBox1 <> week1 Then
    ActiveWorkbook.Worksheets("week1").Select
   ElseIf ComboBox1 = week2 Then
   ActiveWorkbook.Worksheets("week2").Select
      ElseIf ComboBox1 = Week3 Then
   ActiveWorkbook.Worksheets("week3").Select
    End If
 
End Sub


Private Sub UserForm_Initialize()
    ComboBox1.AddItem "Week1"
    ComboBox1.AddItem "Week2"
    ComboBox1.AddItem "Week3"
End Sub

ปล.กำลังศึกษา IF ใน vba อยู่ครับ

[pongpang]

ลองตามนี้ ครับ

Code: Select all

Private Sub UserForm_Initialize()
    ComboBox1.AddItem "Week1"
    ComboBox1.AddItem "Week2"
    ComboBox1.AddItem "Week3"
    ComboBox1.AddItem "recap"
End Sub
Private Sub CommandButton1_Click()
    ActiveWorkbook.Worksheets("recap").Select
     If ComboBox1 = "Week1" Then
        Sheets("Week1").Select
     ElseIf ComboBox1 = "Week2" Then
        Sheets("Week2").Select
     ElseIf ComboBox1 = "Week3" Then
        Sheets("Week3").Select
     ElseIf ComboBox1 = "recap" Then
        Sheets("recap").Select
    End If
     
End Sub

[RoBBie]

ขอบคุณที่ให้คำแนะนำครับตอนนี้ทำได้แล้วครับ