Excelで数字のみを許可するデータ検証を適用するにはどうすればよいですか？

セル範囲に数字のみを許可するため、このチュートリアルではいくつかの方法を提供し、簡単に実現できるようにします。

Excelで数字のみを許可するデータ検証を適用
Excelで数字のみを許可するVBAコードを適用
驚くべきツールを使用して、セル範囲に数字のみを簡単に許可
データ検証に関するその他のチュートリアル...

Excelで数字のみを許可するデータ検証を適用

カスタム数式を使用して、Excelのセル範囲に数字のみを許可するデータ検証を設定できます。以下の手順に従ってください。

1. 数字のみを入力することを許可するセル範囲を選択します。

2. [データ] > [データの検証] > [データの検証] をクリックします。スクリーンショットをご覧ください:

3. [データの検証] ダイアログボックスで、次の操作を設定してください:

• 3.1 [許可] のドロップダウンリストから [カスタム] を選択します;
• 3.2 下記の数式を [数式] ボックスにコピーします;
• =ISNUMBER(A2)
• 3.3 [OK] ボタンをクリックします。

注: 数式内の A2 は、選択された範囲の最初のセルです。

これで、指定された範囲には数字のみが入力可能になります。

Excelで数字のみを許可するVBAコードを適用

さらに、下記のVBAコードを使用して、セル範囲に数字のみを許可することもできます。

1. 入力を制限したいワークシートで、シートタブを右クリックし、コンテキストメニューから [コードの表示] をクリックします。

2. [Microsoft Visual Basic for Applications] ウィンドウで、下記のVBAコードを [コード] ウィンドウにコピーします。

VBAコード: セル範囲に数字のみを許可

Public mBol As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20191120
Dim xStrV As String
Dim xRg As Range
Dim xIRg As Range
Dim xFNum As Integer
On Error Resume Next
If Not mBol Then
Application.ScreenUpdating = False
Set xRg = Range("A2:A12")
If Not Intersect(xRg, Target) Is Nothing Then
    xStrV = Target.Value
    If Not IsNumeric(xStrV) Then
         mBol = True
        Target.Value = vbNullString
        MsgBox "Only numbers are allowed in this range", , "Kutools"
    End If
Application.ScreenUpdating = True
End If
Else
  mBol = False
End If
End Sub

注: コード内の A2:A12 は、数字のみを入力することを許可するセル範囲です。必要に応じて変更してください。

3. [Alt] + [Q] キーを押して、[Microsoft Visual Basic for Applications] ウィンドウを閉じます。

これで、指定された範囲には数字のみが入力可能になります。

驚くべきツールを使用して、セル範囲に数字のみを簡単に許可

より簡単な方法をお望みの場合、ここでは Kutools for Excel の「入力を制限する」機能をお勧めします。

1. 数字のみを入力することを許可するセル範囲を選択し、[Kutools] > [入力を制限する] > [入力を制限する] をクリックします。

2. [入力を制限する] ダイアログボックスで、以下のように設定してください:

• 2.1 [指定された文字のみの入力を許可する] オプションをチェックします;
• 2.2 テキストボックスに 0123456789 を入力します;
• 2.3 [OK] ボタンをクリックします。スクリーンショットをご覧ください:

3. 次に表示される Kutools for Excel ダイアログボックスで [OK] をクリックして続行します。

注: 選択した範囲にデータ検証がある場合、[はい] をクリックすると削除されますが、[いいえ] をクリックして操作をキャンセルすることもできます。

4. 別の Kutools for Excel ダイアログボックスが表示され、指定された範囲に入力可能な数字について通知されます。[OK] をクリックして設定を完了します。

これで、指定された範囲には数字のみが入力可能になります。

関連記事