★不要なコメントは消しちゃエ!
Sub 文字や数字の入力()
'
' Macro1 Macro
' マクロ記録日 : 2002/7/9 ユーザー名 : ☆★☆★☆★
'

'

  Range("B2").Select
  ActiveCell.FormulaR1C1 = "No"
  Range("C2").Select
  ActiveCell.FormulaR1C1 = "品名"
  ActiveCell.Characters(1, 2).PhoneticCharacters = "ヒンメイ"
  Range("D2").Select
〜 省略 〜
End Sub
 コメントは、プログラムに必要な解説を添えたりするために記述するので
上のプログラムの中にあるようなプログラムは、私には不要だ!消しちゃえ!

'
' Macro1 Macro
' マクロ記録日 : 2002/7/9 ユーザー名 : ☆★☆★☆★
'

'

 普通に削除して下さい。
削除したらこんな感じです。
Sub 文字や数字の入力()
  Range("B2").Select
  ActiveCell.FormulaR1C1 = "No"
  Range("C2").Select
  ActiveCell.FormulaR1C1 = "品名"
  ActiveCell.Characters(1, 2).PhoneticCharacters = "ヒンメイ"
  Range("D2").Select
〜 省略 〜
End Sub
 すっきりしましたね。

 ではこれからいよいよプログラムの中を見てみますよ!

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