|
よろしくおねがいします。
*作業内容が、非表示なら シートは非表示
削除なら シートは削除
*Int明細番号は、別のシートから取得しています。
-------------------------------------------
Sub Workbook_BeforeClose(Cancel As Boolean)
call Sub作業
end sub
------------------------------------------
Sub Sub作業
With ThisWorkbook
.Activate
.Sheets("商品").Select
Int行数 = 1
Do Until Int行数 = 11
If Int行数 > Int明細番号 Then
If 作業内容 = "非表示" Then
.Sheets("商品" & Int行数).Visible = False
ElseIf 作業内容 = "削除" Then
Application.DisplayAlerts = False
.Sheets("商品" & Int行数).Delete
Application.DisplayAlerts = True
End If
End If
Int行数 = Int行数 + 1
Loop
End With
end sub
手書きで書き込んだので、大文字小文字は一定でない部分もありますm(_ _)m
|
|