รบกวนถามเรื่องการล็อคเซล

[tigerwit]

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

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

[snasui]

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

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

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

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