การแก้ไข code VBA

[tutape]

พอดีผมลงบันทึกแมโคร

Code: Select all

Sub Macro1()
    Range("B3").Select
    ActiveCell.FormulaR1C1 ="สสสสส"
    Sheets("Sheet2").Select
    Range("B4:E5").Select
    Selection.ClearContents
End Sub

ที่ต้องการคือ ที่เซลล์ B3 ไม่ว่าจะคีย์ข้ดความใดๆ ในเครื่องหมาย " " จะปรับอย่างไรครับ ถึงจะทำให้ ข้อมูลใน sheet2 ช่วง B4 : B5 ลบออกทุกครั้งที่ข้อมูล B3 มีการเปลี่ยนแปลง และนำไปใช้อย่างไร จะต้องสร้างปุ่มขึ้นมาหรือเปล่าครับ

[snasui]

ในหน้าต่าง VBE ดับเบิ้ลคลิกที่ Sheet2 แล้วนำ Code ด้านล่างไปวางครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$3" Then
        Range("B4:E5").ClearContents
    End If
End Sub

[tutape]

ได้แล้วครับ แต่ผิดกับที่ต้องการนิดนึง เพราะผมถามผิดประเด็นเอง คือ B3 ที่ว่าอยู่ใน sheet1 ครับ ผมจะลองประยุกต์ก่อนถ้าไม่ได้ยังไงค่อยถามต่อครับ ขอบคุณครับ

[tutape]

ผมลองปรับโค้ดแล้วครับ ดังนี้

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$3" Then
        Sheets("Sheet2").Select
        Selects("B4:E5").ClearContents
    End If
End Sub

แต่ปรับยังไงก็ไม่ได้ สงสัยประยุกต์ผิดที่ครับ ขอคำชี้แนะจาก อ. ด้วยครับ

[snasui]

เพราะผมถามผิดประเด็นเอง คือ B3 ที่ว่าอยู่ใน sheet1

ให้นำ Code ไปวางใน Sheet1 แล้วปรับเป็นด้านล่างครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$3" Then
        Sheets("Sheet2").Range("B4:E5").ClearContents
    End If
End Sub

[tutape]

ขอคุณครับ

[tutape]

เพราะผมถามผิดประเด็นเอง คือ B3 ที่ว่าอยู่ใน sheet1

ให้นำ Code ไปวางใน Sheet1 แล้วปรับเป็นด้านล่างครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$3" Then
        Sheets("Sheet2").Range("B4:E5").ClearContents
    End If
End Sub

ผมขอถามต่ออีกนิดครับ ว่าถ้าหากต้องการกำหนดว่าเมื่อเซลล์ใดเซลล์หนึ่งเปลี่ยนแปลงนอกจากเซลล์ B3 จะเขียนเซลล์อื่นๆ ต่อจาก B3 อย่างไร ผมลองใส่แบบทั่วไปใน excel ก็ไม่ได้ครับ ผมลองใส่เป็น If Target.Address = "$B$3,$E$5$,$F$2" Then รบกวนช่วยแนะนำด้วยครับ

[snasui]

สามารถใฃ้ Or เข้ามาช่วยครับ เช่น

Code: Select all

If Target.Address = "$B$3" Or Target.Address = "$E$5" Or Target.Address = "$F$2" Then

[tutape]

ครับ ผมเข้าใจแล้วครับ ขอบคุณมากครับ