Excel VBA セルの指定方法について

質問

Excell2013です。
次のような表(一部）があります。

　　日　　　項目　　　　　　額　　　　　　　分類
　　12 ノート 250 3

この、２５０を、別表の分類３の列（H列）の１２日の行（１５行）のセルに、そこにすでに値があれば２５０との合計値として入力したいのです。
データによって日付も分類も違いますので、マクロで自動的に入力したいのですが、どうもよくわかりません。
このような場合のVBAでの入力先セルの指定のしかたをどうすればよいのかどなたかご教示ください。

回答No.1

keithin · ベストアンサー

具体的に。
たとえばSheet1のＡ，Ｂ，Ｃ，Ｄ列に日、項目、額、分類と記入してあって
たとえばSheet1の１行目がタイトル行で、２行目以下Ａ列にデータが記入してあるセル範囲全体を対象に転記していきたいのだとして

たとえばSheet2に別表があるとして
たとえば分類１，２，３はそれぞれ具体的にＦ，Ｇ，Ｈ列が対応しているとして
たとえばSheet2は１，２，３行はタイトル行だとかで４行目から実データを記入してるとして
たとえばSheet2の４行目以下は、１，２，３…日と毎日１行ずつ（土日も１行使って）表を作成してあるとして。

sub macro1()
　dim r as long　
　dim myDay as integer
　dim myCol as integer
　dim myVal as double

　for r = 2 to worksheets("Sheet1").range("A65536").end(xlup).row
　myday = worksheets("Sheet1").cells(r, "A").value + 3　’１日が４行目
　mycol = worksheets("Sheet1").cells(r, "D").value + 5　’分類１が６列目
　myval = worksheets("Sheet1").cells(r, "C").value

　worksheets("Sheet2").cells(myday, mycol).value = myval + worksheets("Sheet2").cells(myday, mycol).value
　next r
end sub

「具体的な」マクロを書くときは、それぞれの行や列が具体的なエクセルの何行何列なのか、そもそもそれぞれの表や別表は具体的になんていうシートのどこのセル範囲にあるのか、正しいネタが無いと何も進みません。

次に、マクロと書くときは、具体的にどこのセル範囲を対象に操作をしたいのかも、しっかり決めてかないといけません。
たとえば「今選んでるセル（セル範囲）の行のデータを転記したい」とか「この列がこうなってる行を処理したい」とか、実際にヤリタイ事は何なのですか？ということです。

こういった具合に、マクロはイチイチいちいち手取り足取り何をしたらいいのかプログラムに書き込んでやらないと、何一つ自分ではやってくれないあなた以上の教えてチャンなので、そういう段取りをしっかり考えて進めるようにしてください。

お礼

すごいですね。
初心者の私には魔法のように見えます。
熟練するとあまり難しいこともないのでしょうか。

ともあれ、これで出来そうに思われますので、早速試してみます。

ありがとうございました。