|
▼りん さん:
みなさんすみませんsheet1で確認したところ
マクロの記録で記入されているのは
下記の通りです
なぜマクロ記録ではみんな
"=Calendar!R[-20]C[3]"不思議です。
sheet1はきちんと下記H5〜H18まで入っていました
お騒がせしましたこのうえでまとめかた
お願いします。
Sub 転記()
Sheets("sheet1").Select
ActiveCell.FormulaR1C1 = "=Calendar!H5"
Range("F13:G13").Select
ActiveCell.FormulaR1C1 = "=Calendar!H6"
Range("F16:G16").Select
ActiveCell.FormulaR1C1 = "=Calendar!H7"
Range("F19:G19").Select
ActiveCell.FormulaR1C1 = "=Calendar!H8"
Range("F22:G22").Select
ActiveCell.FormulaR1C1 = "=Calendar!H9"
Range("F25:G25").Select
ActiveCell.FormulaR1C1 = "=Calendar!H10"
Range("F28:G28").Select
ActiveCell.FormulaR1C1 = "=Calendar!H11"
Range("H28").Select
Range("E32:F32").Select
ActiveCell.FormulaR1C1 = "=Calendar!H12"
Range("E33:F33").Select
ActiveCell.FormulaR1C1 = "=Calendar!H13"
Range("E34:F34").Select
ActiveCell.FormulaR1C1 = "=Calendar!H14"
Range("E35:F35").Select
ActiveCell.FormulaR1C1 = "=Calendar!H15"
Range("E36:F36").Select
ActiveCell.FormulaR1C1 = "=Calendar!H16"
Range("E37:F37").Select
ActiveCell.FormulaR1C1 = "=Calendar!H17"
Range("E38:F38").Select
ActiveCell.FormulaR1C1 = "=Calendar!H18"
Range("G38:I38").Select
End Sub
|
|