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

セルの範囲内の数値のみを許可するために、このチュートリアルでは、簡単にそれを達成するのに役立ついくつかの方法を提供します。

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

データ検証を適用して、Excelでのみ数値を許可する

カスタム数式でデータ検証を使用して、Excelのセル範囲内の数値のみを許可できます。 次のようにしてください。

1.数字のみを入力できるセルの範囲を選択します。

2。 クリック 且つ > データ検証 > データ検証。 スクリーンショットを参照してください：

3。 の中に データ検証 ダイアログボックスで、次の操作を構成してください。

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

注： 数式では、A2は選択した範囲の最初のセルです。

これ以降、指定した範囲に入力できるのは数字のみです。

VBAコードを適用して、Excelでのみ数値を許可する

さらに、以下のVBAコードを適用して、セルの範囲内でのみ数値を許可できます。

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

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウで、以下の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。 プレス 他の + Q を閉じるためのキー アプリケーション向け Microsoft Visual Basic 窓。

これ以降、指定した範囲に入力できるのは数字のみです。

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

より簡単な方法を試したい場合は、ここでを使用することをお勧めします 入力を防ぐ の特徴 Kutools for Excel.

1.数字の入力のみを許可するセルの範囲を選択し、をクリックします クツール > 入力を防ぐ > 入力を防ぎます。

2。 の中に 入力を防ぐ ダイアログボックスをお願いします：

• 2.1チェック 入力を許可する これらの文字で オプション;
• 2.2入力 0123456789 テキストボックスに;
• 2.3 OK ボタン。 スクリーンショットを参照してください：

3。 クリック OK 次のポップアップで Kutools for Excel 先に進むためのダイアログボックス。

注： 選択した範囲でデータ検証がある場合は、をクリックします 有り それらを削除するか、クリックすることができます いいえ 操作をキャンセルします。

4.別の Kutools for Excel ダイアログボックスがポップアップし、指定した範囲で入力できる番号を通知します。 クリック OK 設定全体を終了します。

今後、これらの指定された範囲に入力できるのは数字のみです。

関連記事

最高のオフィス生産性向上ツール

🤖	Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。 インテリジェントな実行   |  コードを生成  |  カスタム数式の作成  |  データを分析してグラフを生成する  |  Kutools関数を呼び出す...
	人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
	スーパールックアップ: 複数の基準の VLookup  |   複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
	詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
	列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
	注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー   |  ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化   |  リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
	上位 15 のツールセット:  12 テキスト ツール (テキストを追加, 文字を削除する、...）   |   50+ チャート 種類 (ガントチャート、...）   |   40+ 実用的 式 (誕生日に基づいて年齢を計算する、...）   |   19 挿入 ツール (QRコードを挿入, パスから画像を挿入、...）   |   12 変換 ツール (数字から言葉へ, 通貨の換算、...）   |   7 マージ＆スプリット ツール (高度な結合行, 分割セル、...）   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

続きを読みます... 無料ダウンロード...

---

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

• Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
• 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
• 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!

続きを読みます... 無料ダウンロード...