| Sub セルをアクティブにする() 'A1〜A10までアクティブに ActiveSheet.Cells(1, 1).Activate ActiveSheet.Cells(1 + 1, 1).Activate ActiveSheet.Cells(513).Activate Cells(256 * 3 + 1).Activate Cells(1025).Activate Worksheets("sheet1").Range("A6").Activate Sheet1.Range("A7").Activate Range("A8").Activate Range("A" + "9").Activate Range("A" & 10).Activate End Sub |
|
値を入れる例 Sub セルへ入力1() For i = 1 To 10 Cells(i, 1).Activate ’Cellsを使う ActiveCell.Value = i Next End Sub Sub セルへ入力2() For i = 1 To 10 Range("A" & i).Activate ’Rangeを使う ActiveCell.Value = i Next End Sub Sub セルへ入力3() For i = 1 To 10 ’Selectを使う sheet1.Range("A" & i).Select ActiveCell.Value = i Next End Sub Sub セルへ入力4() For i = 1 To 10 Cells(i, 1).Value = i ’Valueを使う Next End Sub Sub セルへ入力5() For i = 1 To 10 Cells(i, 1) = i ’Valueを使わない Next End Sub |