ดับเบิ้ลคลิกเซลล์ที่มีค่าว่างแล้วโชว์ userform

[kio2002]

เรียนสมาชิกทุกท่าน
ผมต้องการให้ userform โชว์ ถ้าหากมีการดับเบิ้ลคลิกเซลล์ที่มีค่าว่างเฉพาะเซลล์ที่กำหนด
เซลล์ที่ผมกำหนดอยู่ระหว่าง C13:C44 ถ้าหากมีการดับเบิ้ลคลิกในเซลล์ที่อยู่ระหว่าง C13:C44 แล้วตรวจสอบว่าพบค่าว่าง ก็ให้เปิด userform1 แต่ถ้าหากเซลล์ C13:C44 มีค่าใดๆอยู่ ก็ไม่ต้องแสดงอะไร

หากเขียนโค้ดทุกเซลล์จะค่อนข้างเยอะครับ จึงสอบถามสมาชิกมีวิธีเขียนโค้ดให้สั้นกว่านี้ไหมครับ
โค้ดอยู่ที่ sheet1 ครับ

Code: Select all

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        If Target.Address = Range("C13").Address Then
        If Range("C13").Value = "" Then
            UserForm1.Show
        Cancel = True
        End If
    End If
    If Target.Address = Range("C14").Address Then
        If Range("C14").Value = "" Then
            UserForm1.Show
        Cancel = True
        End If
    End If
    If Target.Address = Range("C15").Address Then
        If Range("C15").Value = "" Then
            UserForm1.Show
        Cancel = True
        End If
    End If
End Sub

ขอบคุณครับ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Me.Range("c13:c44")) Is Nothing Then
'        If Target.Address = Range("C13").Address Then
        If Target.Value = "" Then
            UserForm1.Show
            Cancel = True
        End If
    End If
'    If Target.Address = Range("C14").Address Then
'        If Range("C14").Value = "" Then
'            UserForm1.Show
'        Cancel = True
'        End If
'    End If
'        If Target.Address = Range("C15").Address Then
'        If Range("C15").Value = "" Then
'            UserForm1.Show
'        Cancel = True
'        End If
'    End If
End Sub

[kio2002]

code ใช้ได้ตามต้องการเลยครับอาจารย์ ขอบคุณมากๆครับ
ได้ความรู้ใหม่ด้วย