สอบถามเรื่องการเลือกข้อมูลใน DropDown List

[niwat2811]

รบกวนสอบถามเรื่องการเลือกข้อมูลใน DropDown List
ตัวอย่างเช่น ที่เซล A2 เลือกข้อมูล 1 ที่เซล B2 ต้องเลือกข้อมูล 1.1-1.4 เท่านั้น
ถ้าเลือกข้อมูลอื่น ให้ขึ้นข้อความว่า "กรุณาเลือกข้อมูล 1.1-1.4 เท่านั้น หรือ
ที่เซล A3 เลือกข้อมูล 2 ที่เซล B2 ต้องเลือกข้อมูล 2.1-2.3 เท่านั้น
ถ้าเลือกข้อมูลอื่น ให้ขึ้นข้อความว่า "กรุณาเลือกข้อมูล 2.1-2.3 เท่านั้น
โดยให้แสดงกล่องข้อความขึ้นมาโดยอัตโนมัติเมื่อทำการเลือกผิด
Code อยู่ใน Module1 ชื่อ test ขอบคุณมากครับ

[snasui]

ตัวอย่าง Code ใน Sheet1 ครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x As Integer
    Application.EnableEvents = False
    With ActiveSheet
        If Not Intersect(Target, .Range("b2", _
            .Range("b" & .UsedRange.Rows.Count))) Is Nothing Then
            x = Target.Offset(0, -1)
            Select Case x
                Case 1
                    If Target.Value < 1.1 Or Target.Value > 1.4 Then
                        MsgBox "Please select number between 1.1 - 1.4 only.", vbInformation
                        Target.Value = ""
                    End If
                Case 2
                    'Your code
                Case 3
                    'Your code
                Case 4
                    'Your code
                Case 5
                    'Your code
            End Select
        End If
    End With
    Application.EnableEvents = True
End Sub

[niwat2811]

ขอบคุณท่านอาจารย์ครับ Code ที่ให้มาสามารถนำไปประยุกต์ใช้ได้ตรงตามความต้องการครับ