Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9504 / 76732 ←次へ | 前へ→

【72790】Re:スピンボタンの表示
発言  UO3  - 12/9/19(水) 11:36 -

引用なし
パスワード
   ▼ume さん:

コードアップ、ご苦労様でした。
今から拝見させていただきますが、アップされたコードを、そのままつなぎ合わせてみますと
たとえば Private Sub UserForm_initialize() の中で、いきなり ElseIf が登場しますね。
これは、その上に If がないのでコンパイルエラーになるはずですが?

そのほか、モジュール先頭に Option Explicit の記述(変数宣言を必須にする)をしておられませんね。
絶対にダメということはないのですが、変数名や定数名を間違えていても気が付きません。
たとえば、Private Sub CommandButton1_Click() の中に
If Calendar1.Visible = Falsee Then '工事開始のお知らせ
こんなコードがありますね。

Falsee という定数値は定義されていません。False でしょうね。
でも、変数宣言が必須になっていないのでVBAは、ここで【テンポラリーのVariant型変数】として
自動生成します。(してくれます)で、その値は【空白】です。ですから正しい判定ができないわけですが
コンパイルでひっからず、エラーの認識がなされないまま、不具合が出ても、なかなか気づきません。

●モジュールの先頭には、必ず Option Explict を記述し、変数はすべて定義しましょう。
 VBE画面のツール-->オプションの編集タブで編巣の宣言を強制する(R) にチェックをつけておきますと
 モジュールを挿入したときに自動的に付加されます。

●とにかく、長いコードですから、ロジックを追いかけるのも大変ですし、不具合があった場合のデバッグも
 大変ですので、まずは、このコードを、そのまま、コンパクトにするところから、こちらの作業を開始します。

●ただし、そのためにも、Private Sub UserForm_initialize() の中で、いきなり ElseIf が登場している
 ところ等、そちらで確認の上、正しいコードがどうなっているのか、教えていただけますか?

0 hits

【72745】スピンボタンの表示 ume 12/9/14(金) 14:20 質問
【72746】Re:スピンボタンの表示 UO3 12/9/14(金) 22:06 発言
【72766】Re:スピンボタンの表示 ume 12/9/18(火) 11:07 質問
【72767】Re:スピンボタンの表示 UO3 12/9/18(火) 12:24 発言
【72771】Re:スピンボタンの表示 ume 12/9/18(火) 17:47 質問
【72772】Re:スピンボタンの表示 UO3 12/9/18(火) 19:19 発言
【72768】Re:スピンボタンの表示 UO3 12/9/18(火) 13:07 発言
【72769】Re:スピンボタンの表示 UO3 12/9/18(火) 13:29 発言
【72787】Re:スピンボタンの表示 ume 12/9/19(水) 10:31 質問
【72788】Re:スピンボタンの表示 ume 12/9/19(水) 10:34 質問
【72789】Re:スピンボタンの表示 ume 12/9/19(水) 10:37 質問
【72790】Re:スピンボタンの表示 UO3 12/9/19(水) 11:36 発言
【72791】Re:スピンボタンの表示 ume 12/9/19(水) 13:39 質問
【72792】Re:スピンボタンの表示 UO3 12/9/19(水) 14:45 発言
【72795】Re:スピンボタンの表示 ume 12/9/19(水) 15:41 発言
【72793】Re:スピンボタンの表示 UO3 12/9/19(水) 15:07 発言
【72797】Re:スピンボタンの表示 ume 12/9/19(水) 16:24 お礼
【72799】Re:スピンボタンの表示 ume 12/9/19(水) 18:07 質問
【72800】Re:スピンボタンの表示 UO3 12/9/19(水) 20:44 発言
【72801】Re:スピンボタンの表示 UO3 12/9/19(水) 20:56 発言
【72810】Re:スピンボタンの表示 ume 12/9/20(木) 17:59 質問
【72815】Re:スピンボタンの表示 UO3 12/9/20(木) 21:28 発言
【72819】Re:スピンボタンの表示 ume 12/9/21(金) 13:13 お礼

9504 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free