|
▼yasu さん 今晩は。
>>Sub 小計(ST_Name As String)
>>Dim LastC As Range
>> Set LastC = Sheets(ST_Name).Range("C65536").End(xlUp)
>> LastC.Offset(1).FormulaR1C1 = "=SUBTOTAL(9,R[-" & LastC.Row & "]C:R[-1]C)"
>>End Sub
>
>このようなマクロは個別に処理した方が良いのでしょうか。
>動作が分かりやすいと理解しましたが、思いつきません。
このホームページに出ておられる方に比べれば、私は、まだま序の口みたいなものですが。
小さなプロージャを使うかどうかは、十人十色で好みだと思います。
私は、長々としたプログラムは、結構メンテナンスと後からみても分かるという点では、
あまり使いません。
小さな部品を沢山ためておいて、やりたいことが決まれば、今までに作った部品を利用して
プログラムを作っています。とくに難しそうなコードのときは役立ちます。
そのために、私は小さなプロージャを部品化して、Excelの部品フォルダに集めています。
たとえば、これなどは、
>Sub 小計(ST_Name As String)
>Dim LastC As Range
> Set LastC = Sheets(ST_Name).Range("C65536").End(xlUp)
> LastC.Offset(1).FormulaR1C1 = "=SUBTOTAL(9,R[-" & LastC.Row & "]C:R[-1]C)"
>End Sub
FormulaR1C1_SUBTOTALなどの名前を付けて部品化しています。
一つの機能ごとに部品化しておくと、後から分かりやすいし、使いやすいです。
今回のコードもためておいた部品を活用しています。
とにかく自分がやりやすいようにやればいいと思います。
では、また何かあれば、そのときということで。
|
|