วิธีป้องกันไม่ให้รายการว่างหรือขาดหายไปในเซลล์ใน Excel
สมมติว่าคุณกำลังสร้างตารางในช่วง A1: B10 ของแผ่นงานและต้องการป้องกันไม่ให้เซลล์ว่างปรากฏในช่วงตารางนี้จะทำอย่างไรให้สำเร็จ บทความนี้แนะนำวิธีการป๊อปอัพกล่องพร้อมต์โดยอัตโนมัติหากรายการว่างปรากฏในช่วงตารางบางช่วงขณะแก้ไข โปรดทำตามวิธีการทีละขั้นตอนในบทความ
ป้องกันไม่ให้รายการว่างหรือขาดหายไปในเซลล์โดยใช้รหัส VBA
ป้องกันไม่ให้รายการว่างหรือขาดหายไปในเซลล์โดยใช้รหัส VBA
A1: B10 คือช่วงที่คุณต้องสร้างตารางภายในและ A1, B1 มีส่วนหัวของตารางตามภาพด้านล่างที่แสดง โปรดทำดังนี้เพื่อป้องกันไม่ให้รายการว่างหรือขาดหายไปปรากฏในช่วง A2: B10 ในขณะที่สร้างตาราง
1. ในแผ่นงานที่คุณไม่อนุญาตให้มีรายการว่างในบางช่วงให้คลิกขวาที่แท็บแผ่นงานจากนั้นคลิก ดูรหัส จากเมนูคลิกขวา
2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน คัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่าง Code ดูภาพหน้าจอ:
รหัส VBA: ป้องกันไม่ให้รายการว่างหรือขาดหายไปในช่วงของเซลล์
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
Dim isect As Range
On Error Resume Next
Set isect = Application.Intersect(Target, Range("A2:B10"))
If Not (isect Is Nothing) Then
If Target.Column = 1 Then
If Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0 Then
MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
Target.ClearContents
End If
Else
If (Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0) Or (Len(Target.Value) > 0 And Len(Target.Offset(0, -1).Value) = 0) Then
MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
Target.ClearContents
End If
End If
End If
End Sub
หมายเหตุ: ในรหัส VBA A2: B10 คือช่วงของเซลล์ที่คุณไม่ต้องการปล่อยให้เซลล์ว่างภายใน โปรดเปลี่ยนช่วงตามที่คุณต้องการ
จากนี้ไปเมื่อคุณข้ามเซลล์ว่างและกรอกข้อมูลในเซลล์ถัดไปในช่วงที่ระบุโดยตรงคุณจะได้รับไฟล์ Kutools สำหรับ Excel กล่องโต้ตอบด้านล่างภาพหน้าจอที่แสดง
บทความที่เกี่ยวข้อง:
- วิธีป้องกันการป้อนข้อมูลลงในเซลล์เฉพาะของแผ่นงานใน Excel
- วิธีป้องกันการเลือกแผ่นงานหลายแผ่นใน Excel
- วิธีป้องกันไม่ให้แผ่นงานบางแผ่นถูกลบใน Excel
- วิธีป้องกันไม่ให้ลบเนื้อหาของเซลล์ใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!