- ベストアンサー
Excel2000 VBAにて、シート削除後のＯＫボタンメッセージを消したい
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
削除する前に Application.DisplayAlerts = False とします。 削除を終えたら、 Application.DisplayAlerts = True とします。
関連するQ&A
- ＶＢＡ 削除ボタン
ＶＢＡ初心者です。ユーザーフォーム上に削除ボタンを作成しました。 削除ボタンを押した時に「本当に削除していいですか？はい・いいえ」などのメッセージがでてくるようにしたいのですが、どういうコードをどこに記載したらいいか教えて頂きたいです。
- ベストアンサー
- Visual Basic
- VBA シートの削除について
VBAのコードの書き方について質問があります。 コマンドボタンをクリックした時、シート１～シート４を削除をしたいのですが、 シート１～シート４が存在するかはその時の状況で異なります。 シート１が存在し、シート２～４が存在しないのであればシート１だけ削除する場合もあれば シート１～シート４がすべて無い場合もあります。 いずれのケースにしてもボタンクリック後は”シートを削除しました”のメッセージを 表示させたいのですが、どうコードを書けばよいでしょうか？ VBA初心者なのでコードを教えていただけると助かります。 よろしくお願いします！
- ベストアンサー
- その他MS Office製品
- EXCEL VBAでシートを削除したい
こんにちは。ＥＸＣＥＬ ＶＢＡのことで質問させていただきます。 マクロでシートを削除しようと思い、 下記のように記述しました。 Sheets(1).Select ActiveWindow.SelectedSheets.Delete しかし、このように記述すると「選択したシートを削除します。～」のようなメッセージが出てきてしまうため、何度もOKボタンを押さなければなりません。これではマクロで自動実行した意味がなくなってしまいます。 このメッセージを回避する方法はないでしょうか。 宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- Excel2007 VBA シート上のオプションボタン
Excel2007のVBAで質問があります。 シート上に複数(90個)のオプションボタンが設置しているシートが有りコマンドボタンが押されたときに どのオプションボタンが選択されているか判断したいのですが、 IF文で一つ一つ下記のように書くと個数が多いたムダに長いロジックになります。 If Worksheets("Sheet1").OptionButton1.Value Then chk_f = 1 end If If Worksheets("Sheet1").OptionButton2.Value Then chk_f = 2 end If ： ： ユーザーフォームに設置しているオプションボタンは、下記のようにFor文で回せるのは判っているのですが、 For i = 1 To 90 If Me.Controls("OptionButton" & i).Value Then chk_f = i exit for End If Next シート上のオプションボタンでも同様の事は可能でしょうか？ もしなければオプションボタンとセルをリンクさせてそのセルをFor文で回して確認していく方法が出来るかなと考えています。
- 締切済み
- オフィス系ソフト
- Access VBAからExcelシートの削除
お世話になります。 Access VBA から指定したExcelシートの削除を行うプログラムを下記の通りに記載しています。 Set oApp = CreateObject("Excel.Application") oApp.Workbooks.Open FileName:="エクセル.xls" oApp.DisplayAlerts = False oApp.Sheets("シート名1").Delete oApp.DisplayAlerts = True この場合において、"シート名1"が存在していれば問題なく処理されますが、 このシートが存在していなければエラーが起きます。 指定したExcelブックにこのシートが存在するかどうかのチェックを事前に行い、 存在する場合のみ削除処理を行うにはどうすればよいでしょうか？ よろしくお願いします。 環境は、Access2007です。
- 締切済み
- オフィス系ソフト
- excel2000のVBAについて
excel2000でコマンドボタン(command1)をclickすると VBAの command1_click関数の処理をするという マクロをVBAで作成したいのですが、 (1)excelシート上にコマンドボタンの作成方法 を教えてください
- 締切済み
- オフィス系ソフト
- Excel 全シート上のボタンを削除 VBA
いつも大変お世話になっております。 Excelのシート上のボタンを削除したいと考えています。 ボタンはVBAで自動で作成してます。 Sub ButtonCreate() With ActiveSheet.Buttons.Add(Range("C1").Left, _ Range("C1").Top, _ Range("C1").Width, _ Range("C1").Height) .Characters.Text = "起動" .Characters.Font.Size = 8 End With End Sub シート上にはグラフ等もあるため、 まとめてオブジェクトを消すという方法は取れません。 ボタンのみを消したいと思っています。 Worksheets("テスト").Activate ActiveSheet.Buttons.Delete と削除する方法を取っていますが、 他に方法はありますか？ BOOKを指定し、全シート上の ボタンを削除する方法があれば、知りたいです。 回答よろしくお願い致します。
- ベストアンサー
- Excel（エクセル）
- VBAで実行押すまでExcel非表示にしたい
VBAでユーザフォームを作成しました。 Excelを立ち上げるとExcelシートの前にユーザフォームが出る状態なのですが、 ユーザフォームの実行ボタンを押すまでは非表示にしたいのですが、どのような記述をしたらよいでしょうか？ マクロ的に実行ボタンを押すと結果が、Excel上に反映されるので、実行ボタンを押すまで非表示であれば大丈夫です どうか教えてください。
- ベストアンサー
- Excel（エクセル）
- エクセルVBA シート上にあるコマンドボタンを削除するには？
VBA初心者のためよろしくお願いします。 タイトル通り、シート上にあるコマンドボタンを削除したいです。 visible,enabledなどは使用せず、コントロールごと削除したいと考えています。 私は Worksheets("sheet1").CommandButton1.Delete だけで削除できると思っていたのですが、実行してみると プロシージャの呼び出し、または引数が不正です というエラーが出てきてしまいます。 検索はしてみたのですが、中々発見できずに苦労しています。 わかる方がいましたら、よろしくお願いします。
- 締切済み
- オフィス系ソフト
