Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

49109 / 76732

←次へ　｜　前へ→


	【32545】コードの記述について（急ぎません）

NK - 05/12/17(土) 1:53 -


	引用なし

	パスワード

いつも参考にさせて頂いております。同じようなコードを複数行書く場合、FORステートメント等の繰り返しや WITHステートメント等を使って書く事が多いと思います。次のような場合、コードをスッキリ纏める記述の仕方、あるいはステートメント等を使ってうまく纏めるような事はできますか？処理は正常に動いているので見た目だけの問題なのですが・・・くだらない質問でスミマセン。。。 SUB 日付判定() 　Dim a As String 　a = "OK" 　If Not IsDate(Range("B2")) Then GoTo Error_Step 　If Not IsDate(Range("B8")) Then GoTo Error_Step 　If Not IsDate(Range("B10")) Then GoTo Error_Step 　If Not IsDate(Range("B12")) Then GoTo Error_Step GoTo End_Step Error_Step: 　a = "NG" End_Step: 　Msgbox "チェック結果：" & a END SUB