Excel VBA質問箱 IV

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

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


16271 / 76732 ←次へ | 前へ→

【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

2 hits

【65880】マクロ以外の他のファイルを開いていて、閉じるボタンを押したとき あや 10/7/5(月) 11:39 質問
【65882】Re:マクロ以外の他のファイルを開いていて... Abebobo@リハビリ中 10/7/5(月) 12:33 発言
【65887】Re:マクロ以外の他のファイルを開いていて... あや 10/7/5(月) 16:39 お礼
【65924】Re:マクロ以外の他のファイルを開いていて... あや 10/7/8(木) 12:37 質問
【65925】Re:マクロ以外の他のファイルを開いていて... Jaka 10/7/8(木) 13:32 発言
【65926】Re:マクロ以外の他のファイルを開いていて... あや 10/7/8(木) 13:53 質問
【65927】Re:マクロ以外の他のファイルを開いていて... Jaka 10/7/8(木) 14:31 発言
【65929】Re:マクロ以外の他のファイルを開いていて... mura 10/7/8(木) 15:37 発言
【65930】Re:マクロ以外の他のファイルを開いていて... あや 10/7/8(木) 16:27 発言
【65933】Re:マクロ以外の他のファイルを開いていて... mura 10/7/8(木) 19:06 お礼
【65937】Re:マクロ以外の他のファイルを開いていて... あや 10/7/9(金) 8:55 お礼
【65941】Re:マクロ以外の他のファイルを開いていて... mura 10/7/9(金) 11:08 発言
【65943】Re:マクロ以外の他のファイルを開いていて... あや 10/7/9(金) 13:55 お礼

16271 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free