Excel VBA質問箱 IV

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

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


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

52415 / 76737

←次へ　｜　前へ→


	【29161】Re:外のシートの最下段を選択

ichinose - 05/9/26(月) 22:53 -


	引用なし

	パスワード

▼のこのんさん：
>
>ただ、実際に作っているものは、IF文を含んでおり
>
>sheet("sheet2")s.select
>iF taxtA="a"then
>range("a2").activate
>else
>range("a3").activate
>end if
>...
>のようになっているため、行数が多くなってしまいます。
>何とか業を節約するわけにはいかないのでしょうか。
一つのプロシジャーが極端に行数の長いコードは
私もなるべく作らないように心がけてはいます。
（長くならないように機能分割してプロシジャーを分けます）。

が、

上記のコードの場合、
行数をあえて節約する理由が
ないように思います。

Private Sub CommandButton1_Click()
　　With Worksheets("sheet2")
　　　 .Activate
　　　 If taxtA = "a" Then
　　　　　.Range("a2").Activate
　　　 Else
　　　　　.Range("a3").Activate
　　　　　End If
　　　 End With
End Sub

それよりもネストを行って
コードをわかりやすく記述する事を心がけたほうが
よいと思いますよ！！

　　　 If taxtA = "a" Then
　　　　　.Range("a2").Activate
　　　 Else
　　　　　.Range("a3").Activate
　　　　　End If

このＩＦ文

　　　 If taxtA = "a" Then .Range("a2").Activate Else .Range("a3").Activate

とすれば一行で収まりますけど、どっちがわかりやすいですか？

0 hits

▼

【29152】外のシートの最下段を選択 のこのん 05/9/26(月) 20:42