質問編集履歴
1
エラー状態を追記いたしました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -7,3 +7,27 @@
|
|
|
7
7
|
自宅のPC（win10 excel2016）ではまともに動きました。
|
|
8
8
|
|
|
9
9
|
この原因を教えていただきたく、よろしくお願いします。
|
|
10
|
+
|
|
11
|
+
|
|
12
|
+
|
|
13
|
+
わがままな記述ですみませんでした。
|
|
14
|
+
|
|
15
|
+
先ず フォームコントロールのオプションボタンを配置したシートがあり10個のボタンのどれかを選択しようとしても選択できませんでした。オプションボタンが認識されていないように感じました。
|
|
16
|
+
|
|
17
|
+
マクロの一部は以下です。
|
|
18
|
+
|
|
19
|
+
'オプションボタンの選択が正しいかをチェックする
|
|
20
|
+
|
|
21
|
+
If Worksheets("メイン").OptionButton1.Value = True And Worksheets("メイン").Cells(19, 11) <> "" Then xxxx
|
|
22
|
+
|
|
23
|
+
|
|
24
|
+
|
|
25
|
+
on error goto 文でエラーとなることからシングルステップで確認しましたら上のオプションボタン１の箇所でエラーとなっておりました。
|
|
26
|
+
|
|
27
|
+
|
|
28
|
+
|
|
29
|
+
叉、他のOS等同環境のPCでネット上の元PCからドラッグして動きを観ましたらこちらはon error goto の前にエクセル事態が終了するエラーとなってしまいました。
|
|
30
|
+
|
|
31
|
+
|
|
32
|
+
|
|
33
|
+
以上です、よろしくお願いいたします。
|