質問編集履歴
3
追加姉妹sた
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -4,16 +4,17 @@
|
|
|
4
4
|
Dim z As String
|
|
5
5
|
|
|
6
6
|
If UserForm1.CheckBox4.Value And UserForm1.CheckBox5.Value Then
|
|
7
|
-
With Worksheets("Sheet2").Range("A2:A41")
|
|
7
|
+
With Worksheets("Sheet2").Range("A2:A41")
|
|
8
|
-
z = Application.RandBetween(A1, .Count)
|
|
8
|
+
z = Application.RandBetween(A1, .Count)
|
|
9
|
-
UserForm2.Label6.Caption = .Cells(i).Value
|
|
9
|
+
UserForm2.Label6.Caption = .Cells(i).Value
|
|
10
|
-
If z = ("1:26") Then
|
|
10
|
+
If z = ("1:26") Then
|
|
11
|
-
Label7.Caption = "法令"
|
|
11
|
+
Label7.Caption = "法令"
|
|
12
|
-
Else: z = ("27:40")
|
|
12
|
+
Else: z = ("27:40")
|
|
13
|
-
Label7.Caption = "化学"
|
|
13
|
+
Label7.Caption = "化学"
|
|
14
|
-
End If
|
|
14
|
+
End If
|
|
15
15
|
End With
|
|
16
16
|
End If
|
|
17
|
+
End Sub
|
|
17
18
|
```ExcelVBAを使ってクイズソフトを作成しようとしているのですが、userform２のボタンを押すとラベルにuserform１のいくつかあるcheckboxがチェックされているかどうかで、
|
|
18
19
|
ラベルにセルに入ってる文章をランダムで一つ表示させるプログラムを見よう見まねで作成しようとしているのですが、checkboxが一つだけチェックされているときはうまく動作するのですが、２つや３つチェックされると上手く動作しないのですが、何処が悪いのでしょうか？
|
|
19
20
|
２つチェックされたときのプログラムを載せます。
|
2
読みやすくしました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,7 +1,4 @@
|
|
|
1
|
-
ExcelVBAを使ってクイズソフトを作成しようとしているのですが、userform２のボタンを押すとラベルにuserform１のいくつかあるcheckboxがチェックされているかどうかで、
|
|
2
|
-
ラベルにセルに入ってる文章をランダムで一つ表示させるプログラムを見よう見まねで作成しようとしているのですが、checkboxが一つだけチェックされているときはうまく動作するのですが、２つや３つチェックされると上手く動作しないのですが、何処が悪いのでしょうか？
|
|
3
|
-
|
|
1
|
+
```ここに言語を入力
|
|
4
|
-
|
|
5
2
|
Private Sub CommandButton10_Click()
|
|
6
3
|
|
|
7
4
|
Dim z As String
|
|
@@ -11,11 +8,16 @@
|
|
|
11
8
|
z = Application.RandBetween(A1, .Count)
|
|
12
9
|
UserForm2.Label6.Caption = .Cells(i).Value
|
|
13
10
|
If z = ("1:26") Then
|
|
14
|
-
Label7.Caption = "
|
|
11
|
+
Label7.Caption = "法令"
|
|
15
12
|
Else: z = ("27:40")
|
|
16
|
-
Label7.Caption = "
|
|
13
|
+
Label7.Caption = "化学"
|
|
17
14
|
End If
|
|
18
15
|
End With
|
|
19
16
|
End If
|
|
17
|
+
```ExcelVBAを使ってクイズソフトを作成しようとしているのですが、userform２のボタンを押すとラベルにuserform１のいくつかあるcheckboxがチェックされているかどうかで、
|
|
18
|
+
ラベルにセルに入ってる文章をランダムで一つ表示させるプログラムを見よう見まねで作成しようとしているのですが、checkboxが一つだけチェックされているときはうまく動作するのですが、２つや３つチェックされると上手く動作しないのですが、何処が悪いのでしょうか？
|
|
19
|
+
２つチェックされたときのプログラムを載せます。
|
|
20
20
|
|
|
21
|
+
|
|
22
|
+
|
|
21
23
|
チェックボックス４と５をチェックしているときになぜか、A1からA26までのセルの文章は問題なく表示するのですが、A２７からA４０までのセルの表示が一切おこらないんです。
|
1
追加isた。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -16,4 +16,6 @@
|
|
|
16
16
|
Label7.Caption = "基礎的な物理及び基礎的な化学"
|
|
17
17
|
End If
|
|
18
18
|
End With
|
|
19
|
-
End If
|
|
19
|
+
End If
|
|
20
|
+
|
|
21
|
+
チェックボックス４と５をチェックしているときになぜか、A1からA26までのセルの文章は問題なく表示するのですが、A２７からA４０までのセルの表示が一切おこらないんです。
|