★すっきりしたプログラム!
Sub 文字や数字の入力()
  Range("B2").Select
  ActiveCell.FormulaR1C1 = "No"
  Range("C2").Select
  ActiveCell.FormulaR1C1 = "品名"
  Range("D2").Select
  ActiveCell.FormulaR1C1 = "数量"
  Range("B3").Select
  ActiveCell.FormulaR1C1 = "1"
  Range("B4").Select
  ActiveCell.FormulaR1C1 = "2"
  Range("B5").Select
  ActiveCell.FormulaR1C1 = "3"
  Range("B6").Select
  ActiveCell.FormulaR1C1 = "4"
  Range("B7").Select
  ActiveCell.FormulaR1C1 = "5"
  Range("C3").Select
  ActiveCell.FormulaR1C1 = "りんご"
  Range("C4").Select
  ActiveCell.FormulaR1C1 = "みかん"
  Range("C5").Select
  ActiveCell.FormulaR1C1 = "イチゴ"
  Range("C6").Select
  ActiveCell.FormulaR1C1 = "バナナ"
  Range("C7").Select
  ActiveCell.FormulaR1C1 = "ぶどう"
  Range("D3").Select
  ActiveCell.FormulaR1C1 = "4"
  Range("D4").Select
  ActiveCell.FormulaR1C1 = "5"
  Range("D5").Select
  ActiveCell.FormulaR1C1 = "2"
  Range("D6").Select
  ActiveCell.FormulaR1C1 = "7"
  Range("D7").Select
  ActiveCell.FormulaR1C1 = "3"
  Range("D8").Select
End Sub
 じゃーん!コメントも不要なプログラムも消しちゃったぞ!
かなりすっきりしました。
本当に動くかどうかやってみましょう!!

[トップ][前へ][VBAとVBEの起動 / 作ったマクロのコード][次へ]