|
▼RIK さん、IROCさん、おはようございます。
>定義済みの名前付き範囲に値を入力する処理を考えているのですが、
>名前が未定義かどうかを判断する方法が判らず、つまづいています。
>
>If <objExcel.RangeNameが定義済み> Then
> objExcel.Range(RangeName) = Str
>Else
> <未定義の場合の処理>
>End If
on error ステートメントを使う方法です。
'===================================================
Sub test()
On Error Resume Next
nm = ThisWorkbook.Names("aaa").Name
If Err.Number <> 0 Then
MsgBox "not found"
Else
MsgBox "done"
End If
On Error GoTo 0
End Sub
他には・・・と考えると、
'=====================================================
Sub test2()
nm = Evaluate("aaa")
If IsError(nm) Then
MsgBox "not found"
Else
MsgBox "done"
End If
End Sub
こんな方法でもいけそうですが、私は、testの方を使うと思います。
|
|