Excel VBA質問箱 IV

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

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


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

55148 / 76738

←次へ　｜　前へ→


	【26369】Re:売上の一覧を販売者単位でシートに集...

yasu - 05/7/3(日) 9:30 -


	引用なし

	パスワード

▼kobasan さん：
おはようございます。
Subtotalのコードありがとうございました。無事、やりたい内容が出来たように思います。

今回kobasanさんから沢山のことを学びました。ありがとうございました。
これからもよろしくお願いします。
大変喜んでおります。特に上書きができることに関してはマクロが実用化にぐっと近づいた事を実感できました。

>これを動くようにしたのが、下記コードです。
>呼び出し方は、いままでの本体のプロージャの中に、呼び出したいところに
>
>　　小計 ST_Name
>
>を入れて呼び出します。
>
>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

このようなマクロは個別に処理した方が良いのでしょうか。
動作が分かりやすいと理解しましたが、思いつきません。これから少しずつ学んで生きます。
本当にお忙しいところ、ずっと最後までありがとうございました。

0 hits

▼

【26342】売上の一覧を販売者単位でシートに集計する yasu 05/7/2(土) 8:32