Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

16277 / 76738

←次へ　｜　前へ→


	【65930】Re:マクロ以外の他のファイルを開いていて、閉じるボタンを押したとき

あや - 10/7/8(木) 16:27 -


	引用なし

	パスワード

よろしくおねがいします。

*作業内容が、非表示なら　シートは非表示
　　　　　　　削除なら　　シートは削除

*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

0 hits

▼

【65880】マクロ以外の他のファイルを開いていて、閉じるボタンを押したとき あや 10/7/5(月) 11:39