Page 1 of 1

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

Posted: Sat Feb 08, 2014 1:32 am
by 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 ม.ค ไลไล่ไปเรื่อยๆ จะทำอย่างไรได้บ้างค่ะ

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

Posted: Sat Feb 08, 2014 11:37 am
by snasui
:D ตัวอย่าง 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