ขอคำชี้แนะเรื่องการใช้ Combo Box กับ Option Button ค่ะ

[nanthaporn9]

สอบถามเรื่องการใช้ Combo Box กับ Option Button ค่ะ ตามเอกสารที่แนบมาต้องการสร้าง Combo Box เดียวแต่ให้ตัว Option Button เป็นตัวกำหนดให้ Combo Box เปลี่ยนปีของการเพาะปลูก โดยแบ่งเป็นปี 56 กับ 57 เช่นหากเลือก Option Button = 2556 ในช่องของ Combo Box ก็ให้เป็น ช่วงเวลาสัปดาห์ ปี 2556 โดยเริ่มต้นที่ 3 ม.ค ไล่ไปเรื่อยๆ (sheet สัปดาห์)
และถ้าเลือก Option Button = 2557 ในช่องของ Combo Box ก็ให้เปลี่ยนเป็น 2 ม.ค ไลไล่ไปเรื่อยๆ จะทำอย่างไรได้บ้างค่ะ

[snasui]

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

Code: Select all

Private Sub ComboBox1_Change()
    With userForm1.ComboBox1
        .Text = Application.Text(.Text, "[$-1070000] dd mmm")
    End With
End Sub

Private Sub OptionButton1_Click()
    With Sheets(3)
        userForm1.ComboBox1.RowSource = .Range("b3", .Range("b" & Rows.Count).End(xlUp)).Address
    End With
End Sub

Private Sub OptionButton2_Click()
    With Sheets(3)
        userForm1.ComboBox1.RowSource = .Range("d3", .Range("d" & Rows.Count).End(xlUp)).Address
    End With
End Sub