snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
Private Sub ComboBox1_Click()
'ComboBox for YTD
Application.EnableEvents = False
With Sheets("YTD Performance").ChartObjects("YTD 1").Select
If ComboBox1.Text = "1 Status" Then
Call YTD1
ElseIf ComboBox1.Text = "2 Status" Then
Call YTD2
ElseIf ComboBox1.Text = "3 Status" Then
Call YTD3
End If
End With
Application.EnableEvents = True
End Sub