Excelのセルの空白または欠落したエントリを防ぐ方法は？

ワークシートの範囲A1：B10にテーブルを作成していて、このテーブル範囲に空白のセルが表示されないようにする必要がある場合、どのように実現しますか？ この記事では、編集中に特定のテーブル範囲に空白のエントリが表示された場合にプロンプ​​トボックスを自動的にポップアップする方法を紹介します。 記事の方法をステップバイステップで実行してください。

VBAコードを使用して、セル内の空白または欠落したエントリを防止します

VBAコードを使用して、セル内の空白または欠落したエントリを防止します

A1：B10は、内部にテーブルを作成する必要がある範囲です。A1、B1には、以下のスクリーンショットに示すように、テーブルのヘッダーが含まれています。 テーブルの作成中にA2：B10の範囲に空白または欠落したエントリが表示されないようにするには、次のようにしてください。

1.特定の範囲で空白のエントリを許可しないワークシートで、[シート]タブを右クリックし、[ コードを表示 右クリックメニューから。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウで、以下のVBAコードをコピーしてコードウィンドウに貼り付けます。 スクリーンショットを参照してください：

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

Note：VBAコードでは、A2：B10は、空のセルを内部に残したくないセルの範囲です。 必要に応じて範囲を変更してください。

これ以降、空白のセルをスキップして、指定した範囲の次のセルに直接入力すると、次のようになります。 Kutools for Excel 以下のスクリーンショットのようなダイアログボックスが表示されます。

関連記事:

• Excelでワークシートの特定のセルにデータが入力されないようにするにはどうすればよいですか？
• Excelで複数のワークシートが選択されないようにするにはどうすればよいですか？
• 特定のワークシートがExcelで削除されないようにするにはどうすればよいですか？
• 特定のセルの内容がExcelで削除されないようにするにはどうすればよいですか？