如何防止Excel中的單元格中出現(xiàn)空白或丟失的條目

如何防止Excel中的單元格中出現(xiàn)空白或丟失的條目？

假設(shè)您正在工作表的A1：B10范圍內(nèi)創(chuàng)建一個表，并且需要防止空白單元格出現(xiàn)在該表范圍內(nèi)，如何實現(xiàn)？本文介紹了一種方法，如果在時某個表范圍內(nèi)出現(xiàn)空白條目，則會自動彈出提示框。請逐步按照本文中的方法。

通過使用VBA代碼防止單元格中的空白或丟失條目

通過使用VBA代碼防止單元格中的空白或丟失條目驚人的！在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！每天節(jié)省50％的時間，并減少數(shù)千次鼠標單擊！

A1：B10是您需要在其中創(chuàng)建表的范圍，而A1，B1包含表的標題，如下圖所示。請執(zhí)行以下操作，以防止在創(chuàng)建表時在A2：B10范圍內(nèi)出現(xiàn)空白或丟失的條目。

1.在不允許有一定范圍內(nèi)的空白條目的工作表中，右鍵單擊“工作表”選項卡，然后單擊“確定”。 查看代碼 從右鍵單擊菜單中。

2.在 Microsoft Visual Basic應(yīng)用程序 窗口，將下面的VBA代碼復(fù)制并粘貼到“代碼”窗口中。看截圖：

VBA代碼：防止在一系列單元格中出現(xiàn)空白或丟失的條目

Private Sub Worksheet_Change(ByVal Target As Range)If Target.Count <> 1 Then Exit SubDim isect As RangeOn Error Resume NextSet isect = Application.Intersect(Target, Range("A2:B10"))If Not (isect Is Nothing) ThenIf Target.Column = 1 ThenIf Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0 ThenMsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"Target.ClearContentsEnd IfElseIf (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) ThenMsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"Target.ClearContentsEnd IfEnd IfEnd IfEnd SubCopy

備注：在VBA代碼中，A2：B10是您不希望在其中保留任何空白單元格的單元格范圍。請根據(jù)需要更改范圍。

從現(xiàn)在開始，當(dāng)您跳過空白單元格并直接在指定范圍內(nèi)填寫下一個單元格時，您將獲得一個 Kutools for Excel 對話框如下圖所示。

相關(guān)文章:如何防止數(shù)據(jù)輸入Excel中工作表的特定單元格？如何防止在Excel中選擇多個工作表？如何防止某個工作表在Excel中被刪除？如何防止在Excel中刪除特定單元格內(nèi)容？