Excel VBA質問箱 IV

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

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


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

51706 / 76732

←次へ　｜　前へ→


	【29888】Re:行数が決まっていない列の合計を計算するには？

hi-lite - 05/10/15(土) 15:56 -


	引用なし

	パスワード

▼Kein さん：
>Sub MyTotal()
>　 With Range("S65536").End(xlUp)
>　　　If Left$(.Formula, 4) = "=SUM" Then
>　　　　 .Offset(1).FormulaR1C1 = _
>　　　　 "=SUBTOTAL(9,R1C:R" & .Row & "C)"
>　　　End If
>　 End With
>End Sub
>
>で、どうでしょーか ?

！！！！！！！！！！！！！！！！
どうも何も…コピーさせていただいただけで
実行できました。
…意味が解らなくて、窒息死しそうですが…
Kein様、本当にありがとうございます！！！！！！！
これで作業が進みます。助かりました。

…申し訳ないんですが、“凄く暇”なら…で結構なんですが
後学のために
>　　　　　Left$(.Formula, 4) = "=SUM" Then
>　　　　 .Offset(1).FormulaR1C1 = _
>　　　　 "=SUBTOTAL(9,R1C:R" & .Row & "C)"

とはどの様な状況なのか教えていただけないでしょうか？
本当に“凄く暇”ならで結構ですので…

0 hits

▼

【29877】行数が決まっていない列の合計を計算するには？ hi-lite 05/10/15(土) 12:30