初心者オサムシがExcelのマクロと戦う戦闘ブログである
by オサムシ
タグ:IsMissing ( 1 ) タグの人気記事
試験メモ【引数渡しをもう少し詳しく】/VBAエキスパート

引数渡しをもう少し詳しく



複数の引数を渡す

Sub sample8()
Call sample9("渡します", 5)
End Sub

Sub sample9(msg As String, n As Long)
Dim i As Long, a As String
For i = 1 To n
a = a & msg & i & vbCrLf
Next
MsgBox a
End Sub

d0285354_16155013.jpg



引数を省略する

省略可能な引数前にOptionalを付ける
Sub sample9(msg As String, Optional n As Long)


省略した場合の対処

①あらかじめ初期値を設定しておく
Sub sample9(msg As String, Optional n As Long = 5)


②省略された事を調べる/IsMissing関数

Sub sample8()
Call sample9("渡します") 'nに渡す引数を省略
End Sub

Sub sample9(msg As String, Optional n) '変数nはバリアントなので型省略
Dim i As Long, a As String
If IsMissing(n) = True Then n = 5
For i = 1 To n
a = a & msg & i & vbCrLf
Next
MsgBox a
End Sub

気を付けなきゃいけないのが、IsMissing関数で判定する引数はバリアント型でなければダメ
型を宣言しないとバリアント型になるので、宣言しなければOK

オサムシじゃーなる
[PR]
by 03musi | 2013-02-10 16:15 | 試験メモ/VBAエキスパート


カテゴリ
試験メモ/VBAエキスパート
マクロ 基礎
マクロ 応用
Excel 基礎
Excel 応用
Office
日記
もくじ

ファン

フォロー中のブログ
初心者のためのOffic...
七里ヶ浜だより Lett...
はじめてのMac-Sup...
初心者のためのOffic...

検索

タグ

その他のジャンル