第21回定数

マクロを作成した後も、マクロの修正作業は起こりえます。

マクロの作成時には、
後々の修正作業についても考慮すべきです。

今回はマクロの修正を簡単にする為、定数を使ってみます。

下記マクロは第５回のマクロと全く同じ処理内容ですが、
定数を使っています。

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2007/12/30 ユーザー名 :
'

'*********** 環境設定 ***********
'合格基準点
Const hantei As Integer = 70
'合格時のメッセージ
Const ok_word As String = "合格"
'不合格時のメッセージ
Const ng_word As String = "不合格"
'***********************************

'判定処理
If hantei <= Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 1) Then
Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 2) = ok_word
Else
Workbooks("book1.xls").Worksheets("sheet1").Cells(1, 2) = ng_word
End If


End Sub

マクロを実行し、第５回と同じ処理内容である事を
確認して下さい。

ソースコードについては、次回説明します。

ではまた・・・