|
▼操否 さん:
こんにちは
あるなしの判定は個人的好みとしてはこんな感じが好き。
避けられるエラーを出すのは嫌いなので。
これも、べた書きなので、確認してません。元は先にUPしたsub t です。
function t() as boolean
色々省略
dim flg as boolean
flg = false
色々省略
For Each bar In Application.CommandBars
r = r + 1
col = 1
if bar.Name = "見つけたい名前" then
flg = true
exit for
end if
Next
Set wksheet = Nothing
t=flg
End Sub
後、↓のサンプルですが、操否 さんには必要ないと思いますが、
後で見るかもしれない初心者の方の為に書いておくと、
>Public Sub ggg2()
>
>Dim wksheet As Worksheet
>Dim mnu
>
>On Error Resume Next
>
> Set wksheet = Worksheets("Sheet1")
>
> On Error Resume Next
>
> Set mnu = Application.CommandBars("Worksheet Menu Bar").Controls("JOB担当登録一覧表")
>
> If Err.Number <> 0 Then
もし他人様に使っていただくなら、の話ですが、
これも万一コントロールの無い時のエラー以外が出た時の為に、エラー番号は
限定しておく方が良いですね。慎重すぎると言われるかもしれませんが。
それくらいしておく方が安心できます。
2007持ってないので2007についてはコメントできません。
|
|