マクロ
0pt
選択されたセルに「日付」を入れ、その右側のセルに「OK」と入れ、カーソルを4つ下に移動する
ActiveCell.FormulaR1C1 = "10/25/2008"
Cells(ActiveCell.Row, ActiveCell.Column + 3).Value = "OK"
Cells(ActiveCell.Row + 4, ActiveCell.Column).Select
0pt
ActiveCell.FormulaR1C1 = "10/25/2008"
Cells(ActiveCell.Row, ActiveCell.Column + 3).Value = "OK"
Cells(ActiveCell.Row + 4, ActiveCell.Column).Select
コメントはまだありません