質問編集履歴
1
二つ目と３つめのiをxとyに変えました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -32,7 +32,7 @@
|
|
|
32
32
|
|
|
33
33
|
x = Application.RandBetween(1, .Count)
|
|
34
34
|
|
|
35
|
-
UserForm2.Label6.Caption = .Cells(
|
|
35
|
+
UserForm2.Label6.Caption = .Cells(x).Value
|
|
36
36
|
|
|
37
37
|
Label7.Caption = "基礎的な物理及び基礎的な化学"
|
|
38
38
|
|
|
@@ -46,7 +46,7 @@
|
|
|
46
46
|
|
|
47
47
|
y = Application.RandBetween(1, .Count)
|
|
48
48
|
|
|
49
|
-
UserForm2.Label6.Caption = .Cells(
|
|
49
|
+
UserForm2.Label6.Caption = .Cells(y).Value
|
|
50
50
|
|
|
51
51
|
Label7.Caption = "危険物の性質並びにその火災予防及び消火の方法"
|
|
52
52
|
|