エクセル入力補助マクロ その２ （ＶＢＡ） フォントサイズを変更して！

以前、『エクセル入力補助マクロ　（ＶＢＡ）』の記事を書きました。実は親戚に依頼されて作ったものです。
今度は、『入力時のフォントサイズを変更して！』という依頼が来ました。

そこで、赤字のところを付け足すことに・・・　
一応１２ポイントにしてありますがこの数字を変更すれば好きなフォントサイズに出来ます。

ボールドにするとか色々いっぺんにするなら、With構文を使用した方がいいかも。

------　InitializeApp -----
Dim X As New EventClassModule
Public Const Input_Font_Size = 12 'フォントサイズ

Sub InitializeApp()
'リターンを押したら右に移動
Application.MoveAfterReturnDirection = xlToRight
Set X.App = Application
ActiveCell.Font.Size = Input_Font_Size
End Sub
-----　InitializeApp -----

----- EventClassModule -----
Public WithEvents App As Application
Private Const Start_Colum As Integer = 2 '開始列
Private Const End_Colum As Integer = 7 '終了列
Private Const Next_Row As Integer = 1 '次の行


Private Sub App_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveCell.Column > End_Colum Then
Application.Goto ActiveSheet.Cells(Target.Row + Next_Row, Start_Colum), False
End If
ActiveCell.Font.Size = Input_Font_Size
End Sub

----- EventClassModule -----

Microsoft Office Excel 2007

• 出版社/メーカー: マイクロソフト
• メディア: CD-ROM

タグ：Excel 入力補助 マクロ ＶＢＡ エクセル