|
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)のセルに求めたいとき、どのようにすればいいか分かりません。
>よろしくお願いします。
|
|