|
▼とし さん:
>Sub 転記()
>
> Sheets("sheet1").Select
> ActiveCell.FormulaR1C1 = "=Calendar!R[-5]C[2]"
ActiveCellが分からないので、相対位置であるR[-5]C[2]がわかりません。
> Range("F13:G13").Select
> ActiveCell.FormulaR1C1 = "=Calendar!R[-7]C[2]"
F13:G13を選んでいるようですが、Selection.FormulaR1C1 ではなく、
ActiveCell.FormulaR1C1 =となっていますが、
ActiveCellは、一つしかないので
F13だけに"=Calendar!R[-7]C[2]"を入力するのですか?
以下同じ・・・
> Range("F16:G16").Select
> ActiveCell.FormulaR1C1 = "=Calendar!R[-9]C[2]"
> Range("F19:G19").Select
> ActiveCell.FormulaR1C1 = "=Calendar!R[-11]C[2]"
> Range("F22:G22").Select
> ActiveCell.FormulaR1C1 = "=Calendar!R[-13]C[2]"
> Range("F25:G25").Select
> ActiveCell.FormulaR1C1 = "=Calendar!R[-15]C[2]"
> Range("F28:G28").Select
> ActiveCell.FormulaR1C1 = "=Calendar!R[-17]C[2]"
> Range("H28").Select
> Range("E32:F32").Select
> ActiveCell.FormulaR1C1 = "=Calendar!R[-20]C[3]"
> Range("E33:F33").Select
> ActiveCell.FormulaR1C1 = "=Calendar!R[-20]C[3]"
> Range("E34:F34").Select
> ActiveCell.FormulaR1C1 = "=Calendar!R[-20]C[3]"
> Range("E35:F35").Select
> ActiveCell.FormulaR1C1 = "=Calendar!R[-20]C[3]"
> Range("E36:F36").Select
> ActiveCell.FormulaR1C1 = "=Calendar!R[-20]C[3]"
> Range("E37:F37").Select
> ActiveCell.FormulaR1C1 = "=Calendar!R[-20]C[3]"
> Range("E38:F38").Select
> ActiveCell.FormulaR1C1 = "=Calendar!R[-20]C[3]"
> Range("G38:I38").Select
>End Sub
|
|