矢印の所のようにしたら、subまたはfunctionが定義されていませんって出ます。いくら変えてみてもだめです。解決できる方助言してください。お願いします。
Const maxMONDAI = 5 '問題の最大数格納場所
Dim MONDAI_NOKORI '残り問題数格納場所
Dim MONDAI_NO As Integer '現在の問題番号格納場所
Dim SEIKAI As Integer '正解した問題数格納場所
Function GETMONDAI_NO() As Integer
Randomize
'以下の式で「1-5」までの整数を作る。
GETMONDAI_NO = Int(Rnd * maxMONDAI) + 1
End Function
'初期設定
Sub initialize()
MONDAI_NOKORI = maxMONDAI '残り問題数を初期値に戻す。
End Sub
'終了ボタンを押した時の動き
Private Sub cmdEND_Click()
Dim END_BT As Integer
END_BT = MsgBox("終了しますか?", vbYesNo + vbQuestion, "終了の確認")
If END_BT = vbYes Then
End
End If
End Sub
'開始ボタンを押した時の動き
Private Sub cmdSTART_Click()
Call initialize '初期設定呼び出し
MONDAI_NO = GETMONDAI_NO '現在の問題番号を得る。
txtRANSU.Text = Str(GETMONDAI_NO) '乱数の表示デバック用
txtNOKORI.Text = Str(MONDAI_NOKORI) '残り問題数の表示
imgHYOUJI.Picture = Pic2.Picture '←ここをimgHYOUJI.picture=pic(MONDAI_NO).pictureにしたい。
End Sub
No.1ベストアンサー
- 回答日時:
>imgHYOUJI.Picture = Pic2.Picture '←ここをimgHYOUJI.picture=pic(MONDAI_NO).pictureにしたい。
Pic2はPictureボックスですよね?
pic(MONDAI_NO)のpicとは?PictureBoxですか?変数ですか?
もしピクチャボックスであるならばpicと言う名前でコントロール配列である必要があります。
プロパティのところのIndex値には数値が入ってますか?
再度、情報をください。
この回答への補足
Pic2はPictureボックスですよね?
>そうです。ピクチャーボックスです。
プロパティのところのIndex値には数値が入ってますか?
>数字が入っていませんでした。数字を入れたら動くようになりました。
適切なお返事ありがとうございました。これからもよろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで大量のファイルをシート名...
-
Vba 実数および実数タイプの変...
-
エクセルVBAについて
-
ユーザーフォームに別シートか...
-
VB.net(VB)で、フォームにExcel...
-
Excelのマクロについて教えてく...
-
エクセルの合計を自動で表示さ...
-
Excelのマクロでワードのテキス...
-
VBAの計算で@が出てしまう件
-
VBA listBoxから
-
エクセルのマクロについて教え...
-
Excelのマクロについて教えてく...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
左右の表のキー位置を合わせたい
-
VBAの質問になります メッセー...
-
Excel マクロについての相談
-
VBA レジストリの値の読み方に...
-
2つのマクロでチェックボックス...
-
Vba SelStart、SelLen教えてく...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBA 定義されたプロージ...
-
Excel-VBAのmsgBox()の不思議
-
【VBA】マクロの入ったファイル...
-
VBA 複数条件の分岐処理の上手...
-
現在のブックを閉じないで、マ...
-
VBAで各列の"+"と"o"の合計数を...
-
VBAに詳しい方教えてください。
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
ユーザーフォームに別シートか...
-
エクセルのマクロについて教え...
-
ExcelVBA シート名を複数セルか...
-
エクセルのマクロについて教え...
-
VBA listBoxから
-
Excelのマクロについて教えてく...
-
エクセルのマクロについて教え...
おすすめ情報