Excel VBA質問箱 IV

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

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


45578 / 76732 ←次へ | 前へ→

【36146】Re:合計の式を入力したいが、範囲を検索...
質問  もりもり  - 06/3/22(水) 16:56 -

引用なし
パスワード
   Statisさん初めまして。
ご指摘のとおりです。補足させていただきます。
やろうとしていることは、CSVのデータをEXCELに読み込んで、VBAで編集しようとしています。
何列目の何行目に目的のセルがあるのか分からない状態を想定しておりますので、検索場所も、シート全体を指定するものとして、記述したいと思っています。
読み込む表は下のようなイメージです。

−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
|年月日  |支出目的|1 月|2 月|3 月|4 月|5 月| ∫ | 11月| 12月|合計 |
−−−−−−−−−−−−−−−−−−−−−−−   −−−−−−−−
|16.01.02| 食糧費 | 1200|2000| 3000|2300| 1000| 略 |15000| 20000|    |
−−−−−−−−−−−−−−−−−−−−−−−   −−−−−−−−
|16.01.02| 活動費 | 1200|2000| 3000|1300| 1000| ∫ |35000| 20000|    |
−−−−−−−−−−−−−−−−−−−−−−−   −−−−−−−−
|16.01.02|高熱水費 | 1000|1000|    |    | 5000| ∫ | 5000|     |    |
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−

雑ぱくですが、よろしくお願い致します。


> 全くのVBA初心者です。
> "合計"の次行(直下)のセルを指定して、その左側の列(1月〜12月)までの
>値の合計を出したい場合、
>(1)「1月を検索」→「次行(直下)のセルに移動」→「1〜12月の値のセル番地を取得」
>
>  Selection.Find(What:="1月").Select
>  Selection.Offset(1, 0).Select
>  ActiveCell.Resize(1, 12).Select
>  Dim cellbanchi As String
>  cellbanchi = Selection.Address
>
>(2)「合計を検索」→「次行(直下)のセルに移動」→「合計のセル番地を取得」
>  Selection.Find(What:="合計").Select
>  Selection.Offset(1, 0).Select
>  Dim goukei As String
>  goukei = Selection.Address
>
>そして、(1)で求めた値の合計を、(2)のセルに求めたいとき、どのようにすればいいか分かりません。
>よろしくお願いします。
9 hits

【36137】合計の式を入力したいが、範囲を検索したい時は? もりもり 06/3/22(水) 10:39 質問
【36140】Re:合計の式を入力したいが、範囲を検索し... Statis 06/3/22(水) 13:18 発言
【36146】Re:合計の式を入力したいが、範囲を検索... もりもり 06/3/22(水) 16:56 質問
【36147】Re:合計の式を入力したいが、範囲を検索... Statis 06/3/22(水) 17:05 回答
【36153】Re:合計の式を入力したいが、範囲を検索... もりもり 06/3/22(水) 20:04 お礼
【36154】Re:合計の式を入力したいが、範囲を検索... Statis 06/3/22(水) 20:36 回答
【36156】Re:合計の式を入力したいが、範囲を検索... もりもり 06/3/22(水) 21:32 お礼
【36168】Re:合計の式を入力したいが、範囲を検索... Statis 06/3/23(木) 13:47 回答
【36171】Re:合計の式を入力したいが、範囲を検索... もりもり 06/3/23(木) 16:50 お礼

45578 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free