|
かみちゃんさんへ
出来ました。ありがとうございます。
更にこれを拡張しようと考えているのですが、詰まってしまいました(・。・;
実は、名前付き範囲があ〜わまで44個(使用、不使用をすべて含めて)あり、
これに該当するCommandbutton (以下cob〜)として設定している場合、
配列変数を利用して、その範囲名が使われていれば、ボタンが使える。
その範囲名が使われていなければ、ボタンが使えなくなるというVBAを組んでいる途中です。
難点はcobの次にある数字も0〜43の番号があり、この番号を1動作終了後に可変できるように組み立てているのですが、どうしても分かりません。
Dim Nam(43) As Name
For a = 0 To 43
With ActiveWorkbook
On Error Resume Next
Set Nam(a) = .Names(Range("E4").Offset(a, 0))
If Not Nam(a) Is Nothing Then
cob0.Enabled = True →この部分のcobの次の数字に0〜43までの数字がある
Else
cob0.Enabled = False →この部分のcobの次の数字に0〜43までの数字がある
End If
End With
Next a
この0の値を変えるには、どうすればいいのでしょうか???(・。・;
▼かみちゃん さん:
>以下のような感じでできると思います。
>
>Sub Macro1()
> Dim Nam As Name
>
> With ActiveWorkbook
> On Error Resume Next
> Set Nam = .Names("あ")
> If Not Nam Is Nothing Then
> MsgBox Nam.Name & " は、定義済みです"
> Else
> MsgBox "定義されていません"
> End If
> End With
>End Sub
|
|