|
本を見ながら独学でVBAを勉強している、中年初心者です。よろしくお願いします
シート1のe12に入力された値をシート3のj3に反映するように
Sub 範囲を指定して貼り付け2()
Dim S1 As Worksheet, S2 As Worksheet, S3 As Worksheet
Set S1 = Worksheets("設計入力項目")
Set S2 = Worksheets("見積内訳")
Set S3 = Worksheets("登録データ")
S2.Range("B4:E16").Value = S1.Range("B4:E16").Value
S3.Range("j3").Value = S1.Range("e12").Value
End Sub
ボタンイベントによりマクロを操作しています
1、シート3のj3に反映した変数値Xを("j4:j12")のセルにX+1と1つずつ足す
2、j3〜j12セルは月の値なので、X>12の場合は-12をして、反映してX<=12の場合はそのまま反映する様にしたいです
自分ではIf..then..Else、For..Next等の組み合わせでするのかな?と思っていますが、どの様な構文にするかチィンプンカンプンです。
また、違う方法であれば、教えてください
|
|