ExcelのマクロVBA入門②

目次

• 行の挿入
• 行の削除
• 列の挿入、削除
• 合計を入力

行の挿入

手作業だと？

1. 〇行目をクリックして、行全体を選択
2. 行の挿入(右クリック)

コードで書いてみる

Sub 札幌支店に行を挿入()

  Range("6:6").Select
  
  Selection.Insert
  
End Sub

• Selection.Insert
• 挿入＝Insert
• 選択している「行」に新たに挿入

削除

手作業だと？

1. 〇行目をクリックして、行全体を選択
2. 行の削除(右クリック)

コードで書いてみる

Sub 札幌支店に行を挿入()

  Range("6:6").Select
  
  Selection.Delete
  
End Sub

• Selection.Delete
• 削除＝Delete
• 選択している「行」を削除

3行追加したいときは？

• 3行選択してから挿入
  ⇒Range("6:8").Select
• 行を挿入
  ⇒Selection.Insert

列、行の挿入

手作業だと？

1. 〇行目を選択する
2. 行を挿入する
3. 選択されている行から、3つ下の行に移動して選択

コードで書いてみる

Sub すべてに行を挿入()
  Range("6:6").Select
  Selection.Insert
  Selection.Offset(3,0).Select
End Sub

合計という文字の入力

セルC6に「合計」を入力

手作業だと？

1. セルC6を選択
2. 選択セルに「合計」と入力

コードで書いてみる

Sub セルC6の合計を計算()
  Range("C6").Select
  Selection = "合計"
End Sub

C列に「合計」という文字を入力

手作業だと？

1. セルC6を選択
2. 選択セルに「合計」と入力
3. 下に3行移動して選択

2と3を繰り返す

コードで書いてみる

Sub セルC6の合計を計算()
  Range("C6").Select
  Selection = "合計"
  Selection.Offset(3,0).Select
End Sub