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