ExcelVBAの選択型クイズソフトを作成しようとしているのですが、userform2のボタンを押すとラベルにuserform1のいくつかあるcheckboxがチェックされているかどうかで、
ラベルにsheet2のセルに入ってる文章をランダムで一つ表示させるプログラムを見よう見まねで作成したのですが(問題文を表示)、それはできたのですが、問題文を表示すると同時に、そのときに参照したセルの行にあるセルの文章(問題文をいれてるセルの隣です。5つ選択肢を作りたいです。)をOptionButtonに同時に表示させたいのですが、どうすればいいのでしょうか。
問題文を表示させるときのプログラムです。
Private Sub CommandButton10_Click()
Dim i As String
If UserForm1.CheckBox4.Value Then
With Worksheets("Sheet2").Range("A2:A26")
i = Application.RandBetween(A1, .Count)
UserForm2.Label6.Caption = .Cells(i).Value
Label7.Caption = "危険物に関する法令"
End With
End If
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。