Page 1 of 1
การเปลี่ยนค่า Drop down List
Posted: Mon Sep 14, 2020 1:16 pm
by pro602
ขอคำแนะนำการใช้งาน Drop down list แบบ 2 ชั้นหน่อยครับ
เมื่อเรามีการเลือกค่าใน Drop down list ชั้นที่ 1 และ 2 ได้ตามต้องการแล้ว แต่ถ้าเราต้องการเปลี่ยนค่า Drop down list ชั้นที่ 1 ใหม่
และให้ค่าในช่องถัดไปซึ่งเป็นค่า Drop down list ชั้น 2 เป็นค่าว่างจนกว่าจะมีการเข้าไปเลือกค่าใหม่ สามารถทำได้ไหมครับและต้องปรับสูตรอย่างไร
Re: การเปลี่ยนค่า Drop down List
Posted: Mon Sep 14, 2020 2:41 pm
by puriwutpokin
การทำแบบนั้นเมื่อมีการเปลี่ยนค่าใน Dropdown แล้วให้เป็นค่าว่าง ต้อง อาศัย VBA มาช่วยครับ
ลองบันทึก Macro ดูแล้วแก้ไข ติดตรงไหนมาถามต่อครับ
Re: การเปลี่ยนค่า Drop down List
Posted: Mon Sep 14, 2020 3:40 pm
by pro602
puriwutpokin wrote: Mon Sep 14, 2020 2:41 pm
การทำแบบนั้นเมื่อมีการเปลี่ยนค่าใน Dropdown แล้วให้เป็นค่าว่าง ต้อง อาศัย VBA มาช่วยครับ
ลองบันทึก Macro ดูแล้วแก้ไข ติดตรงไหนมาถามต่อครับ
ผมลองใช้ VBA แล้ว ถ้าจะให้ Drop down list ชั้นที่ 2 เป็นค่าว่างก็ต่อเมื่อมีการเปลี่ยนค่า Drop down list ชั้นที่1 ต้องปรับ VBA Code อย่างไรครับ
Code: Select all
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
activecell.Offset(0, 1).Value = ""
End Sub
Re: การเปลี่ยนค่า Drop down List
Posted: Mon Sep 14, 2020 4:00 pm
by puriwutpokin
ปรับเป็น
Code: Select all
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a2:a10")) Is Nothing Then
Target.Offset(0, 1).Value = ""
End If
End Sub
Re: การเปลี่ยนค่า Drop down List
Posted: Mon Sep 14, 2020 9:30 pm
by pro602
puriwutpokin wrote: Mon Sep 14, 2020 4:00 pm
ปรับเป็น
Code: Select all
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a2:a10")) Is Nothing Then
Target.Offset(0, 1).Value = ""
End If
End Sub
-ขอบคุณครับ