Excel VBA質問箱 IV

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

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


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

23011 / 76807

←次へ　｜　前へ→


	【59168】Re:マクロでのオートＳＵＭ

SS - 08/12/1(月) 9:47 -


	引用なし

	パスワード

▼tantan さん：

質問通りの動きではなくActiveCellの下から全部を対象にしてですが
作ってみました。こんな感じで出来るのではないでしょうか。

Sub Macro1()
'
　　Dim i As Long, j As Long, k As Long
　　Dim txt
　　With Selection
　　　　k = .Column
　　　　i = .Row + 1
　　　　j = Cells(65536, k).End(xlUp).Row
　　　　
　　　　txt = Range(Cells(i, k).Address, Cells(j, k).Address).SpecialCells(xlCellTypeConstants, 1).Address
　　　　.Formula = "=SUM(" & txt & ")"
　　End With
End Sub

>▼Hirofumi さん：
>早い対応ありがとうございます。
>
>いただいたコード試させてもらいましたが、
>数値、数式に関係なく一番下から上までの
>総和となってしまいますよね？
>Activecell行から上の「数値のみ」の合計を出していきたい
>のですが。（Activecell行の一つ上の数値から数式が入力されて
>いるセルの下まで）
>うまくできないでしょうか？
>私もいろいろと試してみたのですが、何ぶん勉強不足
>なもので。。
>
>長くなってしまい申し訳ありませんが、もう少し
>よろしくお願いします。

0 hits

▼

【59109】マクロでのオートＳＵＭ tantan 08/11/29(土) 0:04