|
▼のこのん さん:
>
>ただ、実際に作っているものは、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文
If taxtA = "a" Then .Range("a2").Activate Else .Range("a3").Activate
とすれば一行で収まりますけど、どっちがわかりやすいですか?
|
|