質問編集履歴
2
追加説明文を入力
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -27,7 +27,7 @@
|
|
|
27
27
|
こうやって、チェックボックスの値がちゃんと取得されているかを
|
|
28
28
|
debug.print出力しながら確認したいのです。
|
|
29
29
|
|
|
30
|
-
でも、ここで
|
|
30
|
+
でも、ここでエラーが出てしまいます。
|
|
31
31
|
|
|
32
32
|
|
|
33
33
|
それで、書き方がいけないのかなと思い、
|
|
@@ -42,6 +42,11 @@
|
|
|
42
42
|
|
|
43
43
|
というふうにして取得しています。
|
|
44
44
|
|
|
45
|
+
なので、wbactiveがちゃんと引き継がれていないのかな？と思って、試しに
|
|
46
|
+
チェックボックスの数を調べるコードを入れてみましたが、そちらはちゃんと取れていました。
|
|
47
|
+
また、E4セルに「ああああ」と入力し、それを取得するコードを入れてもちゃんと取得できました。
|
|
48
|
+
なので、wbActiveが引き継がれていないわけではなさそうです。
|
|
49
|
+
|
|
45
50
|
また、今回の件がきっかけで色々と調べたのですが、
|
|
46
51
|
チェックボックスにはフォームコントロールとActiveXコントロールがあり
|
|
47
52
|
それぞれ書き方が違う・・とのことでしたので、それも頭に入れて色々と調べてみたのですが、
|
1
画像ではなくコードを直接書いた＆コードの綴りが間違っていた＆それによってエラーが変わったのでエラー画面キャプチャを差し替えた
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -11,15 +11,26 @@
|
|
|
11
11
|
チェックボックスの値は「Chk_1」です。
|
|
12
12
|
この値を取得するため、コードではこのように書きました。
|
|
13
13
|
|
|
14
|
+
```VBA
|
|
14
|
-
|
|
15
|
+
Private Function chkbox_chk(ByVal wbactive As Workbook)
|
|
16
|
+
Dim cnt As Integer
|
|
15
17
|
|
|
18
|
+
Debug.Print wbactive.Worksheets("Main").CheckBoxes(Chk_1).Value
|
|
19
|
+
Debug.Print wbactive.Worksheets("Main").CheckBoxes(Chk_2).Value
|
|
20
|
+
Debug.Print wbactive.Worksheets("Main").CheckBoxes(Chk_3).Value
|
|
21
|
+
Debug.Print wbactive.Worksheets("Main").CheckBoxes(Chk_4).Value
|
|
22
|
+
Debug.Print wbactive.Worksheets("Main").CheckBoxes(Chk_5).Value
|
|
23
|
+
|
|
24
|
+
End Function
|
|
25
|
+
```
|
|
26
|
+
|
|
16
27
|
こうやって、チェックボックスの値がちゃんと取得されているかを
|
|
17
28
|
debug.print出力しながら確認したいのです。
|
|
18
29
|
|
|
19
30
|
でも、ここでオブジェクトエラーが出てしまいます。
|
|
20
|
-
|
|
21
32
|
|
|
22
|
-
それで、書き方が
|
|
33
|
+
それで、書き方がいけないのかなと思い、
|
|
23
34
|
例えばCheckboxs(1)に変えたりしてみたのですが、どれもダメでした。
|
|
24
35
|
|
|
25
36
|
ちなみに、wbActiveは
|