ExcelVBAを使ってクイズソフトを作成しようとしているのですが、userform2のボタンを押すとラベルにuserform1のいくつかあるcheckboxがチェックされているかどうかで、
ラベルにセルに入ってる文章をランダムで一つ表示させるプログラムを見よう見まねで作成しようとしているのですが、checkboxが一つだけチェックされているときはうまく動作するのですが、2つや3つチェックされると上手く動作しないのですが、何処が悪いのでしょうか?
2つチェックされたときのプログラムを載せます。
Private Sub CommandButton10_Click()
Dim z As String
If UserForm1.CheckBox4.Value And UserForm1.CheckBox5.Value Then
With Worksheets("Sheet2").Range("A2:A41")
z = Application.RandBetween(A1, .Count)
UserForm2.Label6.Caption = .Cells(i).Value
If z = ("1:26") Then
Label7.Caption = "法令"
Else: z = ("27:40")
Label7.Caption = "化学"
End If
End With
End If
補足
チェックボックス4と5をチェックしているときになぜか、A1からA26までのセルの文章は問題なく表示するのですが、A27からA40までのセルの表示が一切おこらないんです。
回答1件
あなたの回答
tips
プレビュー