เคลียร์ค่า Drop down
Posted: Wed Apr 04, 2018 11:10 am
ต้องการเคลียร์ค่าใน drop down ที่ทำการเลือกไว้ ต้องการให้เลือกใหม่ทุกครั้งค่ะ ต้องทำอย่างไรหรอคะ
Code: Select all
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