จะเพิ่ม 1 ลงในค่าเซลล์โดยการดับเบิลคลิกใน Excel ได้อย่างไร?

บทความนี้จะแสดงวิธีการเพิ่ม 1 ลงในค่าเซลล์โดยอัตโนมัติด้วยการดับเบิลคลิกใน Excel

ใช้การดับเบิลคลิกเพื่อเพิ่มค่าเซลล์ทีละ 1 ด้วยโค้ด VBA

ใช้การดับเบิลคลิกเพื่อเพิ่มค่าเซลล์ทีละ 1 ด้วยโค้ด VBA

โค้ด VBA ต่อไปนี้จะแนะนำคุณเกี่ยวกับขั้นตอนต่างๆ ในการเพิ่ม 1 ลงในค่าในเซลล์ A1 โดยดับเบิลคลิก โปรดปฏิบัติตามคำแนะนำเหล่านี้

1. คลิกขวาที่แท็บแผ่นงานที่คุณต้องการเพิ่ม 1 ลงในค่าในเซลล์ A1 โดยดับเบิลคลิก จากนั้นคลิก ดูรหัส จากเมนูคลิกขวา

2. ในการโผล่ขึ้นมา Microsoft Visual Basic สำหรับแอปพลิเคชัน คัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่าง Code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    If Not Intersect(Target, Range("A1")) Is Nothing Then
      Range("A1").Value = Range("A1").Value + 1
      Cancel = True
    End If
End Sub

หมายเหตุ: ในรหัส A1 คือเซลล์ที่จะเพิ่มเลข 1 ทุกครั้งที่คุณดับเบิลคลิก คุณสามารถปรับเปลี่ยนได้ตามต้องการ

3 กด อื่น ๆ + Q พร้อมกันเพื่อปิดหน้าต่าง Microsoft Visual Basic for Applications

ตอนนี้ การคลิกสองครั้งที่เซลล์ A1 จะเพิ่ม 1 ลงในค่าที่มีอยู่ ดังที่แสดงในภาพหน้าจอด้านล่าง

บทความที่เกี่ยวข้อง:

• วิธีเพิ่ม / ป้อนวันที่ / เวลาปัจจุบันในเซลล์โดยอัตโนมัติด้วยการดับเบิลคลิกใน Excel
• วิธีเพิ่มเครื่องหมายถูกในเซลล์ด้วยการดับเบิลคลิกใน Excel