|
▼ichinose さん:
>CallbyName を使う方法もありそうですが、
>これは CallbyName関数調べて試してみてください
返信ありがとうございます。
結果的にはCallbyNameで通りました。
dim Obj as object
set obj=xxxx
if Application.Version == 10 Then
obj.method ○○○, ○○○
Else
obj.method ○○○, ○○○,○○○, ○○○
End If
上記方法の場合、バージョンによっては存在しないメソッドがきた場合対応できるかが不明だったため、
CallbyNameの方で行いました。
Sub ボタン1_Click()
If (Application.Version >= 10) Then
CallByName Assistant, "Attention", _
"ご利用のバージョンは2002以上です。", _
msoAlertButtonYesAllNoCancel, _
msoAlertIconCritical, _
msoAlertDefaultSecond, _
msoAlertCancelFirst, _
False
Else
Worksheets("Sheet1").Range("A1:F1").Value = "EXCEL VBA"
End Sub
簡単ではありますが、このような形です。
ありがとうございました。
|
|