Excel総合相談所 136 - 暇つぶし2ch

Excel総合相談所 136 ..

405:名無しさん＠そうだ選挙にいこう
19/08/26 19:35:45.82 .net
>>402です。追記です。
パスワードなしの場合は，以下のように記述しています。

Sub 転記用シート一括非表示()
Dim s As Worksheet
For Each s In Worksheets
If InStr(s.Name, "転記用") > 0 Then
s.Visible = False
End If
Next s
End Sub

Sub 転記用シート一括再表示()
Dim s As Worksheet
For Each s In Worksheets
If InStr(s.Name, "転記用") > 0 Then
s.Visible = True
End If
Next s
End Sub

次ページ

続きを表示

1を表示