シートのコピーとMsgbox無効化

Question

VBAを使い、レポートを作成しようと考えています。
レポートを作成するに当たり、
今まで作成しておいたフォームを利用し、
新しいシートを作成していきます。
※実行するにあたり、フォームで実行される
　メッセージボックスが邪魔です…

例）　作成されたシート名
　　　出荷数
　　　累計
　　　レベル
　　　効果
　　　ランク

そして、そのシートを
新しいブックにコピーしようと考えています。
コピーしたいブックは、
レベル・効果・ランク　のみになります。

最初は、ブックをコピーして保存し、
シートを削除してく方向を考えましたが
ブックごとコピーしてしまったために、マクロまでコピーされてしまいました。
マクロは必要ありません。

シートの作成、コピーを色々考えていくうちに
良くわからなくなってしまったため、質問いたしました。
できれば、そのシートのみコピーしたいと思っています。
（新規作成したときのSheet1,Sheet2などは要らないです）

上のほうで書いた、メッセージボックスが邪魔という件ですが、
これは改善方法があれば回答いただけるとうれしいです。
（調べたところ、そういった情報はありませんでした）

回答よろしくお願いいたします！

keithin · Accepted Answer

シートコピーはすっかりどっか行っちゃって、結局「どーでもいい」方に集中しちゃってますよね。

＞全フォームに回避策（フラグを立てる）などする必要があります。

先の回答がまぁそのパターンなワケですが、他のフォームに手を入れたくないなら、これも回答の再掲になりますけど

ＮｅｗＦｏｒｍ：
Private Sub CommandButton1_Click()
UserForm1.ComboBox1.Value = Me.ComboBox1.Value
Call　UserForm1.DATA_CHANGE'データ変更
Call　UserForm1.Graph_Make'グラフ作成
Call UserForm1.Graph_Setting'グラフの目盛りなどの設定

UserForm2.ComboBox1.Value = Me.ComboBox1.Value
Call　UserForm2.DATA_EDIT
Call UserForm2.Graph_MakeUser'グラフ作成
Call UserForm2.Graph_Setting'グラフの目盛りなどの設定

MsgBox Me.ComboBox1.Value & vbCrLf & "レポート出力が完了しました。"
End Sub

といった具合に、「迂回路」で処理するだけです。

oka_me · Answer

#2です。
MsgBoxの件の詳細拝見しました。

あまりスマートな方法ではないかもしれませんが、
もし自分が同じものを作成するとしたら、クリックイベント自体をを呼び出すのではなく
Msgboxを除いたクリックイベントの「内容」を転記しますかね。。。

Private Sub CommandButton1_Click() 'NewFormクリックイベント

UserForm1.ComboBox1.Value = Me.ComboBox1.Value
Call DATA_CHANGE'データ変更
Call Graph_Make'グラフ作成
Call Graph_Setting'グラフの目盛りなどの設定

UserForm2.ComboBox1.Value = Me.ComboBox1.Value
Call DATA_EDIT
Call Graph_MakeUser'グラフ作成
Call Graph_Setting'グラフの目盛りなどの設定

～・・・

但し、元のフォームの処理内容が変更された時はNewFormの内容も同時に修正しないといけなくなりますが。。。

keithin · Answer

こーいうことですかね。

標準モジュール：
public flg as boolean
sub macro1()
　userform1.show vbmodeless
　newform.show vbmodeless
end sub

NewFormのシート：
private sub CommandButton1_Click()
　module1.flg = true
　userform1.commandbutton1_click
　module1.flg = false
end sub

UserForm1のシート：
public sub CommandButton1_Click()
　if not module1.flg then
　　msgbox "me origin"
　else
　’msgbox "from newform"
　end if
end sub

＃結局全部答えを聞かなきゃ納まらないんだから、最初っからそれぞれの質問に分けて投稿してほしいものです。

＞UserForm1で出るようにしていたMsgboxや
　：
＞等必ず出てしまいます。

どういう段取りで（UserFormをイニシャライズした時？コマンドボタンをクリックしたとき？？）msgboxを表示させているのか不明なので、「具体的にこのようなマクロにしましょう」とお話し出来るネタがありません。

＞UserForm上のMsgboxを削除すればいいかと思うのですが、
＞それでは、UserFormのみを実行したとき
＞Msgboxが表示されなくなってしまうので、困っています。

基本的な概念としては、次の二通りが考えられます。

１．「必要」な時にのみmsgboxを表示する
２．「不要」な時は迂回路を実行する

あなたのマクロが何をしているのか不明、つまり、いつが必要でどういうときが不要なのか、さっぱりお答えできません。

hallo-2007 · Answer

補足を拝見しましたが、なおさら意味が分からなくなりした。
＞ブックごとコピーしてしまったために、マクロまでコピーされてしまいました。
＞マクロは必要ありません。
これだけを手掛かりにですが、Office2007以上であれば
保存するときに　.Xlsx マクロなしのタイプを選択して保存すれば
マクロの部分は、全てなくなります。

keithin · Answer

ヤリタイ事：
目的のシートだけ複写した新しいブックを作りたい

sub macro1()
　worksheets(array("レベル","効果","ランク").copy
end sub

以上です。

＞フォームで実行されるメッセージボックス

イミフメイです。
そのメッセージボックスを「あなたのマクロが表示させてる」のなら、単にそうしないだけですからそんな事を聞いてるんじゃありませんよね。

参考：
マクロで実行するメッセージボックスとはこういう事を言います
sub macro2()
msgbox "メッセージです"
end sub

一体全体「どのタイミングで」「どんな内容の」メッセージボックスが現れるのか、必要なら具体的に目に見えるように状況を補足して「別途」ご相談として投稿してみて下さい。

oka_me · Answer

VBAでシートのみコピーすることは可能です。
http://officetanaka.net/excel/vba/sheet/sheet05.htm

新規作成時のシートが不要なのであれば、コピー後に削除する方法では駄目でしょうか。。

☆新規作成時のシートが３枚固定であれば
（こちらの方がコード的には分かりやすいかと思います）

Dim xlbook As Workbook
Application.DisplayAlerts = False 'シート削除時の警告解除

Set xlbook = Workbooks.Add
With xlbook
ThisWorkbook.Sheets("コピー元").Copy before:=.Sheets(1) 'シートのコピー
 .Sheets(4).Delete 'Sheet3を削除
 .Sheets(3).Delete 'Sheet2を削除
 .Sheets(2).Delete 'Sheet1を削除
End With

Application.DisplayAlerts = True '警告表示を元に戻す

☆新規作成時のシート数を自動判定して削除する方法

Dim xlbook As Workbook
Dim i As Long
Application.DisplayAlerts = False

Set xlbook = Workbooks.Add

With xlbook
ThisWorkbook.Sheets("コピー元").Copy before:=.Sheets(1) 'シートのコピー
For i = .Sheets.Count To 2 Step -1 '新規ブックのシート数をカウントし、後ろから順に削除
.Sheets(i).Delete
Next
End With

Application.DisplayAlerts = True

- - -
「メッセージボックスが邪魔」というくだりがよく分からなかったのですが（理解力不足ですみません 苦笑）、その部分に関してももう少し詳細に教えて頂ければもしかしたらお答えできるかもしれません。。。

usami33 · Answer

やりたいことが今一理解できていませんが
とりあえずメッセージは以下を試してください
マクロの最初にこれを実行
Application.ScreenUpdating = False
抜けるときにもとに戻します
Application.ScreenUpdating = True

シートのコピーとMsgbox無効化

シートコピーはすっかりどっか行っちゃって、結局「どーでもいい」方に集中しちゃってますよね。

#2です。

こーいうことですかね。

この回答への補足

補足を拝見しましたが、なおさら意味が分からなくなりした。

この回答への補足

ヤリタイ事：

この回答への補足

VBAでシートのみコピーすることは可能です。

この回答への補足

やりたいことが今一理解できていませんが

この回答への補足

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング