Page 1 of 1
ต้องการให้ขีดฆ่าตัวเลขและลบขีดฆ่าออกอัตโนมัติ
Posted: Tue Mar 26, 2013 9:54 pm
by akung
ความต้องการคือถ้า User คีย์ข้อมูลที่ Column B ข้อมูลในช่องของ Column A จะต้องถูกขีดฆ่า ผมพยายามเขียนด้วย VBA ผลออกมาก็เป็นไปอย่างที่คิด แต่ยังไม่สมบูรณ์ คือ เวลาผมคีย์ช่อง B1 ช่อง A1 จะขีดฆ่า แต่ถ้าผมลบช่อง B1 เป็น ว่าง ช่อง A1 ก็ควรจะลบขีดฆ่าออก แต่ผมทำอย่างไรก็ไม่ได้สักทีครับ รบกวนด้วยครับ
Re: ต้องการให้ขีดฆ่าตัวเลขและลบขีดฆ่าออกอัตโนมัติ
Posted: Tue Mar 26, 2013 10:12 pm
by tupthai
ย้าย rCheck.Select ไปไว้ต่อจาก Else
ตาม รูปครับ
Re: ต้องการให้ขีดฆ่าตัวเลขและลบขีดฆ่าออกอัตโนมัติ
Posted: Tue Mar 26, 2013 11:12 pm
by akung
ขอบคุณมากครับ งมอยู่นานเลย
Re: ต้องการให้ขีดฆ่าตัวเลขและลบขีดฆ่าออกอัตโนมัติ
Posted: Tue Mar 26, 2013 11:24 pm
by akung
รบกวนอีกครั้งครับ ถ้าผมใส่ข้อมูลที่ B1 กับ B2 แล้วลบข้อมูลที่ ฺB2 ตัวขีดฆ่าที่ A2 ไม่หายครับ รบกวนอีกครั้งครับ
Re: ต้องการให้ขีดฆ่าตัวเลขและลบขีดฆ่าออกอัตโนมัติ
Posted: Wed Mar 27, 2013 8:49 am
by 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
Re: ต้องการให้ขีดฆ่าตัวเลขและลบขีดฆ่าออกอัตโนมัติ
Posted: Wed Mar 27, 2013 10:21 pm
by akung
Code ใช้ได้ดีครับแถมยังสั้นด้วย ขอบคุณมากครับ