エクセルVBAでマクロを残したままＥ列とＧ列にデータを入力する方法

2012/01/11 12:32

このQ&Aのポイント

エクセルVBAを使用して、Ｅ列とＧ列に日付と売上のデータを入力する方法を探しています。また、Ａ列からＣ列のマクロも残したままできるようにしたいです。現在のコードを使って同様のプロシージャを下段に書くことを試していますが、うまく動作しません。
Excel VBAを使って、Ｅ列に日付を、Ｇ列に売上のデータが入力されるようにしたいです。また、Ａ列からＣ列のマクロも残したままできるようにしたいです。現在、下記のコードを使って同様のプロシージャを下段に書いてみましたが、うまく動作しません。
エクセルVBAを使用して、Ｅ列とＧ列に日付と売上のデータを入力する方法を探しています。Ａ列からＣ列のマクロも残したままできるようにしたいです。現在のコードを使用して同様のプロシージャを下段に書いてみましたが、正常に動作しません。どなたかアドバイスをいただけませんか？

jufox555
お礼率86% (13/15)

オフィス系ソフト
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

keithin
ベストアンサー率66% (5278/7941)

2012/01/11 12:59 回答No.1

同じタイプのマクロを２つ並べて書いても動きません。一つのマクロの中で，「ここに入力があったらこうする，こっちに入力があったときはこれをする」と仕分けて書きます。手順：シート名タブを右クリックしてコードの表示を選ぶ現れたシートの記載内容を「すべて」消去する下記をコピー貼り付ける＃判りやすい版 private sub worksheet_change(byval Target as excel.range) 　if target.cells(1) = "" then exit sub 　if target.address = "$A$1" then 　　Range("C10:C65536").ClearContents 　　With Range(Cells(9 + Range("A1").Value, "C"), Cells(Range("A65536").End(xlUp).Row, "C")) 　　　.FormulaR1C1 = "=MAX(RC2:R[" & -Range("A1").Value + 1 & "]C2,FALSE)" 　　　.Value = .Value 　　End With 　elseif target.address = "$E$1" then 　　Range("G10:G65536").ClearContents 　　With Range(Cells(9 + Range("E1").Value, "G"), Cells(Range("E65536").End(xlUp).Row, "G")) 　　　.FormulaR1C1 = "=MAX(RC6:R[" & -Range("A1").Value + 1 & "]C6,FALSE)" 　　　.Value = .Value 　　End With 　end if end sub -----------まずここまで--------- ＃実際に使う版（上述を試した後，マクロをまた消して差し替える） private sub Worksheet_Change(byval Target as excel.range) 　if target.address <> "$A$1" and target.address <> "$E$1" then exit sub 　if target = "" then exit sub 　target.offset(9, 2).resize(60000,1).clearcontents 　with range(cells(9 + target.value, target.column + 2), cells(65536, target.column).end(xlup).offset(0, 2)) 　　.formula = "=MAX(RC[-1]:R[" & -Range("A1").Value + 1 & "]C[-1])" 　　.value = .value 　end with end sub

質問者