Excel VBA質問箱 IV

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

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


48938 / 76732 ←次へ | 前へ→

【32720】Re:シートのコピー
回答  Jaka  - 05/12/21(水) 11:56 -

引用なし
パスワード
   消す場所が決まっているなら、コピーした時でなくコピー後に消したらどうですか?
消すマクロをボタン等に登録しておけば1プッシュで済むし。
コピーした時にこだわるなら、コピーイベントが用意されていないから自分で作るしかないと思います。

他、原本を非表示にしておき非表示にしておく、コピーはその原本をコピーして表示。
これだとこんな感じになります。

Dim Ws As Worksheet, CopSh As String
CopSh = "Sheet3"
Sheets(CopSh).Copy After:=Sheets(Sheets.Count)
For Each Ws In ThisWorkbook.Worksheets
  If Ws.Visible <> True And Ws.Name <> CopSh Then
    Ws.Visible = True
    Exit For
  End If
Next

1 hits

【32715】シートのコピー toshi 05/12/21(水) 10:43 質問
【32718】Re:シートのコピー Statis 05/12/21(水) 11:24 発言
【32720】Re:シートのコピー Jaka 05/12/21(水) 11:56 回答
【32729】Re:シートのコピー Kein 05/12/21(水) 13:31 回答

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