![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
テキストボックス3に数値を入力し
ExcelのA列にあるか検索をかける。
ある場合は、B列の同じ行に
「みーつけた!」と入力。
その設定で組んでみたのですが、
テキストボックス3にデータを6桁入力しようとすると
6桁目にオーバーフローエラーが出ます。
このプログラムの何処がおかしいのでしょうか?
Private Sub TextBox3_Change()
Dim Number As Integer
If TextBox3.Value <> "" Then '空じゃない場合
Number = TextBox3.Value
Call 検索(Number)
MsgBox TextBox3.Value
End If
End Sub
Sub 検索(ByVal Number As Variant)
Dim FoundCell As Range
Set FoundCell = Range("A:A").Cells.Find(What:=Number, lookat:=xlPart)
If FoundCell Is Nothing Then
Else
FoundCell.Activate
Range("O" & ActiveCell.Row).Value = "みーつけた!"
End If
End Sub
No.1ベストアンサー
- 回答日時:
TextBox3_Change内で、Numberという変数をIntegerで宣言していますが、
Integerは-32,768 ~ 32,767の範囲の数字しか扱えません。
なので、この範囲外の数字を代入しようとするとオーバーフローエラーが発生します。
以下のページなどを参考にして、適切な型を使用してください。
http://excelvba.pc-users.net/fol5/5_2.html
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Excel(エクセル) EXCEL マクロで行を挿入して貼り付けようとするとエラーになる。 2 2022/05/24 09:43
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) 【再々投稿】VBAのプログラムで動作しなくて困っています 8 2022/10/14 09:06
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
すべてのシートを選択してエク...
-
エクセルで時刻を自動入力する方法
-
ローマ字入力で「トゥ」を入力...
-
「未使用」と「不使用」ってど...
-
自動改札のエラーって…
-
至急お願いします!! Wordで、...
-
1点の辻の字に変換したいがエク...
-
cafe(カフェ) eの上に´を付ける...
-
チケット何回もエラーは高額請求?
-
APEXをやっていたらこんなエラ...
-
Chatgptから送られてきたリンク...
-
日本通信の当月利用データ量は...
-
VBAでユーザーフォームの表示を...
-
西暦の2桁表記に使うアポスト...
-
このような迷惑メールが一日に...
-
デジカメでライトエラー、デー...
-
インスタの設定について。 イン...
-
PCの内蔵メモリにデータは残る?
-
今更ながら小さい文字の打ち方
-
バッチファイルでキー操作を行う。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
すべてのシートを選択してエク...
-
Excelのデータが重いのはなぜで...
-
エクセルで時刻を自動入力する方法
-
Excel VBA 答えが0になってし...
-
エクセル。ブック内検索で重複...
-
エクセルの中の漢字を一度にカ...
-
EXCEL VBA 区切り位置のプログ...
-
合計が0の行を削除
-
エクセルで、「袋詰め問題」を...
-
名前順になる関数?
-
エクセル (1)行削除 (2)列追...
-
エクセルの入力規制。同じ列で...
-
スプレッドシートで、指定した...
-
excel関数orマクロ:データ入...
-
エクセルで漢字がうまく並び替...
-
エクセルのセルの表示形式(2...
-
エクセルで、まったく同じデー...
-
エクセルマクロについて データ...
-
エクセルの入力 エンターキーで...
-
エクセルで人名を50音順に表...
おすすめ情報