ต้องการให้ขีดฆ่าตัวเลขและลบขีดฆ่าออกอัตโนมัติ

[akung]

ความต้องการคือถ้า User คีย์ข้อมูลที่ Column B ข้อมูลในช่องของ Column A จะต้องถูกขีดฆ่า ผมพยายามเขียนด้วย VBA ผลออกมาก็เป็นไปอย่างที่คิด แต่ยังไม่สมบูรณ์ คือ เวลาผมคีย์ช่อง B1 ช่อง A1 จะขีดฆ่า แต่ถ้าผมลบช่อง B1 เป็น ว่าง ช่อง A1 ก็ควรจะลบขีดฆ่าออก แต่ผมทำอย่างไรก็ไม่ได้สักทีครับ รบกวนด้วยครับ

[tupthai]

ย้าย rCheck.Select ไปไว้ต่อจาก Else
ตาม รูปครับ

[akung]

ขอบคุณมากครับ งมอยู่นานเลย

[akung]

รบกวนอีกครั้งครับ ถ้าผมใส่ข้อมูลที่ B1 กับ B2 แล้วลบข้อมูลที่ ฺB2 ตัวขีดฆ่าที่ A2 ไม่หายครับ รบกวนอีกครั้งครับ

[tupthai]

ลองทดสอบดูครับ

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
        Dim rCheck As Range
        If Target.Column = 2 Then
            Set rCheck = Target.Offset(0, -1)
            If Target.Value <> "" Then
                rCheck.Font.Strikethrough = True
            Else
                rCheck.Font.Strikethrough = False
            End If
        End If
End Sub

[akung]

Code ใช้ได้ดีครับแถมยังสั้นด้วย ขอบคุณมากครับ