コマンドボタン（）は、特定のシートが利用可能な場合にのみクリックする必要があります。

Question

日常的にデータを取得しています。そのために私は、データをファイリングし、異なるシートからデータを収集するために、異なるコマンドボタンを使用します。すでに25枚のコマンドボタンを1枚目のシートに作成しています。私の問題はコマンドボタンは、シート番号が20の場合を除き、20が動作しないようにするか、クリックするべきではないと言います。 20が利用可能です。現在使用中です

Dim j As Integer, k As Integer 
j = Worksheets.Count 
For k = 20 To 20 
With Worksheets(k) 

誤って特定のシートが使用できず、コードがデータを生成しないコマンドボタンをクリックすることがあります。

Answer 1

あなたは以下のようにできますか？ 明らかにあなたのシート名が何であれで「20」と を交換する必要があるとブックを開くと、シート20は、ボタンを提示されていない

Dim isWorlsheetAvailable 
isWorlsheetAvailable = False 
For i = 1 To ActiveWorkbook.Worksheets.Count 
    If ActiveWorkbook.Worksheets(i).Name = "20" Then 
     isWorlsheetAvailable = True 
    End If 
Next i 

If Not isWorlsheetAvailable Then 
    MsgBox ("sdffd") 
    Exit Sub 
End If 
Do your work here......