★Home ★　≪第三章 VBの基本文法≫≫

18. Withステートメント

自動登録でセルにデータを入れて適当に書式設定を変更してみてください。
要は、Withでまとめると分かりやすいし、
ヘルプによるとプログラムの実行速度も速くなるらしいです。

1. 仮にC4に
   文字は”あ”
   色は青
   サイズは24
   を、自動登録すると
   
   

2. Sub Macro2()
   　　　　ActiveCell.FormulaR1C1 = "あ"
   　　　　Range("C5").Select
   　　　　Selection.Font.ColorIndex = 5
   　　　　With Selection.Font
   　　　　　　　.Name = "ＭＳ Ｐゴシック"
   　　　　　　　.Size = 24
   　　　　　　　.Strikethrough = False
   　　　　　　　.Superscript = False
   　　　　　　　.Subscript = False
   　　　　　　　.OutlineFont = False
   　　　　　　　.Shadow = False
   　　　　　　　.Underline = xlUnderlineStyleNone
   　　　　　　　.ColorIndex = 5
   　　　　End With
   End Sub
   となります。
   
   

3. WithからEnd Withは、すべてSelection.Fontにかかっています（見にくい）
   Selection.Font.Name = "ＭＳ Ｐゴシック"
   Selection.Font.Size = 24
   Selection.Font.Strikethrough = False
   Selection.Font.Superscript = False
   Selection.Font.Subscript = False
   Selection.Font.OutlineFont = False
   Selection.Font.Shadow = False
   Selection.Font.Underline = xlUnderlineStyleNone
   Selection.Font.ColorIndex = 5
   という意味です。
   
   

4. ちなみに上記のコードはダイエットすると
   Sub Macro2()
   　　　　Range("C4").FormulaR1C1 Value= "あ"
   　　　　With Range("C4").Font
   　　　　　　　 .Name = "ＭＳ Ｐゴシック"
   　　　　　　　 .Size = 24
   　　　　　　　.ColorIndex = 5
   　　　　 End With
   End Sub
   で希望の結果がえられます！

★サンプルファイルはありませ〜ん

'----------------------------------------------------------------
Top