Excel Forum

โจทย์ตามด้านล่างครับ
เริ่มต้นเมื่อเปิดชีทขึ้นมา
B2 สามารถกรอกข้อมูลได้
C2 ถูกล็อคไม่สามารถกรอกข้อมูลได้
D2 ถูกล็อคไม่สามารถกรอกข้อมูลได้
E2 ถูกล็อคไม่สามารถกรอกข้อมูลได้
เมื่อ B2 มีการกรอกข้อมูลลงไป
C2 ปลดล็อค สามารถกรอกข้อมูลลงไปได้
D2 ปลดล็อค สามารถกรอกข้อมูลลงไปได้
E2 ปลดล็อค สามารถกรอกข้อมูลลงไปได้
เมื่อลบข้อมูลใน B2
C2 ข้อมูลถูกลบ และกลับมาล็อคอีกครั้งหนึ่ง
D2 ข้อมูลถูกลบ และกลับมาล็อคอีกครั้งหนึ่ง
E2 ข้อมูลถูกลบ และกลับมาล็อคอีกครั้งหนึ่ง

ขอบพระคุณล่วงหน้าครับ

ลองดูตัวอย่างตามไฟล์แนบครับ

ขั้นตอนการทำมีดังนี้ครับ

1. กำหนด Data > Validation โดย

1. คลุมเลือกช่วงเซลล์ C3:E13 (โดยเริ่มจาก C3)
2. เข้าเมนู Data > Validation
3. ช่อง Allow: เลือก Custiom, ช่อง Formula คีย์ =1-ISBLANK($B3) อย่าลืมปลดเครื่องหมายที่ Ignor Blanks > กดปุ่ม OK

2. เขียน Code VBA

1. ที่ Sheet1 คีย์ Code

   Code: Select all

   Private Sub Worksheet_Change(ByVal Target As Range)
       If Target.Column = 2 Then
           Call macro1
       End If
   End Sub

2. ที่ Module 1 คีย์ Code

   Code: Select all

   Sub macro1()
   Dim r As Range
   Dim s As Range
   Application.EnableEvents = False
   Set s = Selection
       For Each r In s
           r.Offset(0, 1).Resize(1, 3).ClearContents
       Next r
   Application.EnableEvents = True
   End Sub

ดูไฟล์แนบประกอบครับ