Page 1 of 1
VBA หรือ Function Excel ที่สลับเลข 1 กับ เซลว่าง
Posted: Wed Jun 28, 2023 3:40 pm
by Jirawat namrach
มี VBA หรือ Function Excel ที่สลับเลข 1 กับ เซลว่าง มั้ยครับ ประมาณว่า เซลนี้เป็นเลข 1 อีกเซล จะว่างเปล่า สามารถสลับไปมาได้ โดยไม่ต้องลบก่อนค่อยพิมพ์ ทดลอง VBA แบบ Worksheet_Change แล้ว ต้องลบเลข 1 ก่อน จุดประสงค์คือจะทำเซลให้เป็นสีดำ โดยใช้เลข 1 เพื่อรับค่าทาง VBA ต้องการให้เป็น Worksheet_Change เท่านั้น ไม่ต้องทำปุ่มกด จะได้มั้ยครับ หรือมีวิธีไหนพอแนะนำได้มั้ยครับ
Re: VBA หรือ Function Excel ที่สลับเลข 1 กับ เซลว่าง
Posted: Thu Jun 29, 2023 6:13 pm
by snasui
ตัวอย่างการปรับ Code ครับ
Code: Select all
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "D6" Then
If Target.Value = 1 Then
Target.Offset(0, 1).ClearContents
End If
ElseIf Target.Address(0, 0) = "E6" Then
If Target.Value = 1 Then
Target.Offset(0, -1).ClearContents
End If
End If
End Sub
Re: VBA หรือ Function Excel ที่สลับเลข 1 กับ เซลว่าง
Posted: Fri Jun 30, 2023 9:15 am
by Jirawat namrach
ขอบคุณครับอาจารย์