Excel VBA質問箱 IV

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

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


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

45585 / 76732

←次へ　｜　前へ→


	【36137】合計の式を入力したいが、範囲を検索したい時は？

もりもり - 06/3/22(水) 10:39 -


	引用なし

	パスワード

　全くのVBA初心者です。
　"合計"の次行（直下）のセルを指定して、その左側の列（１月～１２月）までの
値の合計を出したい場合、
（１）「１月を検索」→「次行（直下）のセルに移動」→「１～１２月の値のセル番地を取得」

　　Selection.Find(What:="１月").Select
　　Selection.Offset(1, 0).Select
　　ActiveCell.Resize(1, 12).Select
　　Dim cellbanchi As String
　　cellbanchi = Selection.Address

（２）「合計を検索」→「次行（直下）のセルに移動」→「合計のセル番地を取得」
　　Selection.Find(What:="合計").Select
　　Selection.Offset(1, 0).Select
　　Dim goukei As String
　　goukei = Selection.Address

そして、（１）で求めた値の合計を、（２）のセルに求めたいとき、どのようにすればいいか分かりません。
よろしくお願いします。

4 hits

▼

【36137】合計の式を入力したいが、範囲を検索したい時は？ もりもり 06/3/22(水) 10:39

≪