Ｐａｇｅ 543 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼セルの値の合計 tom 03/1/14(火) 13:19 ┣Re:セルの値の合計 つん 03/1/14(火) 13:29 ┃ ┗Re:セルの値の合計 ポンタ 03/1/14(火) 13:31 ┃ ┗Re:セルの値の合計 tom 03/1/14(火) 13:39 ┗Re:セルの値の合計 ポンタ 03/1/14(火) 13:30 ─────────────────────────────────────── ■題名 ： セルの値の合計 ■名前 ： tom ■日付 ： 03/1/14(火) 13:19 -------------------------------------------------------------------------
| こんにちは。基本の「き」の質問で申し訳ないのですが、その時によってかわる選択されているセルの合計の値を取得したいのです。セルは必ず１列にならんでおりますが、１個だったり、１００個だったりします。その値を変数(a)に代入するにはどうしたらよろしいでしょうか。よろしくお願いします。 |
| tom さん、こんにちは こんなんでどうでしょう？ Sub test() Dim a As Double a = Application.WorksheetFunction.Sum(Selection) MsgBox a End Sub |
| かぶりました、スミマセン。 |
| つんさん、ポンタさん、ありがとうございます！！！ 思ったとおりに動きました。 やはり、先輩諸兄に聞いてみるものですね。 感謝、感謝です。 |
| これでどうでしょう？ Sub test() MsgBox (Application.WorksheetFunction.Sum(Selection.Value)) End Sub |