VBAの本を買ってきて、勉強をしているのですが、テキストに書いてある通り入力しても「Sub または Function が定義されていません。」となってしまいます。
Sub IfSample()
Dim intData As Integer
intData = clntInputbox("数値を入力して下さい", ("データ入力"))
Select Case ingData
Case 1 To 10
MsgBox "入力された値は1以上、10以下です"
Case 10 To 100
MsgBox "入力された値は10より大きくて、100以下です"
Case Else
MsgBox "入力された値は100より大きいです。"
End Select
End Sub
実行すると、エラーがでて、Sub IfSample()が黄色く、
clntInputboxが反転された状態になります。
テキスト通りに入力できているか、なんども確認したのですが、特に間違っていないと思います。どこが悪いのでしょうか?
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
intData = CInt(InputBox("数値を入力して下さい", ("データ入力")))
だと思います。
InputBox関数で入力された数字を、int型に変換して、intData変数に格納します。
(数字以外の文字を入力するとエラーとなります。)
No.3
- 回答日時:
>intData = clntInputbox("数値を入力して下さい", ("データ入力"))
ですが、clntInputbox() という関数はありませんので、先のようなエラーが表示されます。
もしテキストに誤りが無いのであれば、テキストに同じ関数(clntInputbox)が定義されているはずなので、同じモジュールなどに記述しないと動作しません。
通常は Inputbox() を使います。
>Select Case ingData
はタイプミスですね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) vbaでセルに入力したときに,その横にあるセルを保護し入力不可にするマクロを作りたいです。 2 2022/04/24 20:59
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) マクロについて教えてください。 4 2023/06/06 09:06
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
SubまたはFunctionが定義されていません。
Excel(エクセル)
-
エクセルでマクロを実行するとコンパイルエラー
Excel(エクセル)
-
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
マクロの「Rangeメソッドは失敗しました’Globalオブジェクト」エラーの解決方法について
Excel(エクセル)
-
6
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
7
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
8
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
9
VBAで配列の計算
Excel(エクセル)
-
10
SubまたはFunctionが定義されていません
その他(Microsoft Office)
-
11
【Excel VBA】CSV取込時、数字の先頭の0を消えないようにするには?
Excel(エクセル)
-
12
Excel VABについて 下記記述が『SubまたはFunctionが定義されていません』とエラーメ
Visual Basic(VBA)
-
13
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
14
エクセルでエラーが出て困っています。
Excel(エクセル)
-
15
VBAで「セルに何か入っている場合」
Windows Me・NT・2000
-
16
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
17
'Range'メソッドは失敗しました
Excel(エクセル)
-
18
ExcelVBAで「SubまたはFunctionが定義されてません。」と表示されるのどうしてですか。
Visual Basic(VBA)
-
19
subまたはfunctionが定義されていません。
Visual Basic(VBA)
-
20
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Windowsのアプリ開発ってなんの...
-
テキストボックスの番号を使っ...
-
教えて!全角文字「μ」の半角
-
エクセルVBA テキストボックス...
-
VBAの質問になります メッセー...
-
入力フォームの値をQRコードで...
-
DataGridView 列ごとの入力制限
-
VBA エクセル 条件の設定
-
DataGridViewの桁数制限に関して
-
エディットボックスの入力制限...
-
携帯サイト作成 半角数字(半角...
-
VBA R1C1形式で変数の入力について
-
TextBoxから数字が文字...
-
EXCEL VBA のユーザーフォーム...
-
ExcelVBAのユーザーフォームで...
-
登録フォームで入力制限(コピペ...
-
VS2019を利用したC#プログラミ...
-
TEXTAREA に入力時の位置
-
TextBoxに特定の文字のみ入力を...
-
入力フォームに入力した情報を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA テキストボックス...
-
テキストボックスの番号を使っ...
-
初歩的な事だと思います。 Sub...
-
数字以外の入力をエラーにする...
-
EXCEL VBA で指定した範囲に入...
-
Excel-VBAでInputBox+Pulldown...
-
入力フォームの値をQRコードで...
-
VBAの質問になります メッセー...
-
c#でTextBoxの入力制限
-
VBAで質問があります
-
教えて!全角文字「μ」の半角
-
VBAでInputBoxの再入力をさせる...
-
excel vba でユーザーフォーム...
-
TextBoxから数字が文字...
-
エディットボックスの入力制限...
-
accessで該当するレコードがな...
-
DataGridViewの桁数制限に関して
-
VBA R1C1形式で変数の入力について
-
「イ分」・・・フンという文字...
-
Windowsのアプリ開発ってなんの...
おすすめ情報