snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
If Sheet3.ComboBox4 = "1" And Sheet5.Range("D4").Value = 7 And Sheet5.Range("E4").Value = 30 Then
Sheet3.ComboBox4 = ("2")
End If
If Sheet3.ComboBox4 = "2" And Sheet5.Range("D4").Value = 7 And Sheet5.Range("E4").Value = 30 Then
Sheet3.ComboBox4 = ("3")
End If
If Sheet3.ComboBox4 = "3" And Sheet5.Range("D4").Value = 7 And Sheet5.Range("E4").Value = 30 Then
Sheet3.ComboBox4 = ("4")
End If
If Sheet3.ComboBox4 = "4" And Sheet5.Range("D4").Value = 7 And Sheet5.Range("E4").Value = 30 Then
Sheet3.ComboBox4 = ("5")
End If