ExcelVBAの質問なんですけど、usereform1のcheckboxがTrueだったら、userform2のcommandbuttonを押すと、sheetのA1からA26のセルに入ってる文章をランダムで一つ、userform2のlabelに表示する、というプログラムを見よう見まねでかいてみたのですが、上手く行きません。エラーは出てこないのですが、commandbuttonを押しても何も起こりません。何が間違っているのでしょうか?
Private Sub CommandButton10_Click()
Dim i As Long
Dim x As Long
Dim y As Long
If UserForm1.CheckBox4.Value Then
With Worksheets("Sheet2").Range("A1:A26")
i = Application.RandBetween(1, .Count)
UserForm2.Label6.Caption = .Cells(i).Value
Label7.Caption = "危険物に関する法令"
End With
End If
If UserForm1.CheckBox5.Value Then
With Worksheets("Sheet2").Range("A27:A40")
x = Application.RandBetween(1, .Count)
UserForm2.Label6.Caption = .Cells(x).Value
Label7.Caption = "基礎的な物理及び基礎的な化学"
End With
End If
If UserForm1.CheckBox6.Value Then
With Worksheets("Sheet2").Range("A41:A50")
y = Application.RandBetween(1, .Count)
UserForm2.Label6.Caption = .Cells(y).Value
Label7.Caption = "危険物の性質並びにその火災予防及び消火の方法"
End With
End If
End Sub
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/12/09 11:30
2017/12/09 11:36
2017/12/09 11:44
2017/12/09 11:46
2017/12/09 11:57
2017/12/09 16:08