Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

50197 / 76732

←次へ　｜　前へ→


	【31429】プログラムを完成するには？

yuu - 05/11/20(日) 19:41 -


	引用なし

	パスワード

釈をすこしやってみたのですが、あってもすか？
それとこのプログラムでは、すべてyesだけエラーがでるんです。
たぶん間違っているのは、↓
　　　　　Message = mes1(4) & vbCrLf & mes2(4) & vbCrLf & mes3(4)
のところだと思うんですが、どうでしょうか？
デバックを押すと黄色くなるところです。
どなたか、お願いします。
　 Dim Message As String
　 Dim Yes As Integer
　 Dim Mondai As String
　 Dim n As Integer
　 Dim Ans As Integer
　 Dim mes1(3) As String
　 Dim mes2(3) As String
　 Dim mes3(3) As String
　 Dim mes4(3) As String
　　

　 For n = 1 To 3
　　 mes1(n) = Sheet3.Cells(n, 2).Value
　　 mes2(n) = Sheet3.Cells(n, 3).Value
　　 mes3(n) = Sheet3.Cells(n, 4).Value
　　 Next n
　　 Yes = 0
　　　
　　 For n = 1 To 9 Step 1　'7回問題を出題
　　 Mondai = Sheet2.Cells(n, 1).Value
　　 Ans = MsgBox(Mondai, vbYesNo, "問題")
　　　
　　　If Ans = vbYes Then 'yesの数だけ表示
　　　Yes = Yes + 1
　　　End If
　　　Next n
　 Select Case Yes 'yesの数だけ変化させる
　　　Case 0, 1
　　　　　Message = mes1(1) & vbCrLf & mes2(1) & vbCrLf & mes3(1)
　　　Case 2 To 4
　　　　　Message = mes1(2) & vbCrLf & mes2(2) & vbCrLf & mes3(2)
　　　Case 5 To 7
　　　　　Message = mes1(3) & vbCrLf & mes2(3) & vbCrLf & mes3(3)
　　　Case 8, 9
　　　　　Message = mes1(4) & vbCrLf & mes2(4) & vbCrLf & mes3(4)
　 End Select
　　
　 Message = "yesは" & Yes & vbCrLf & Message '三行で構成する

　 MsgBox Message, vbInformation 'メッセージにiのマークをだす
　　
End Sub

1 hits

▼

【31429】プログラムを完成するには？ yuu 05/11/20(日) 19:41

≪