ベストアンサー UserForm1を閉じたい 2003/12/25 15:07 UserForm1.showで開いたものをマクロで閉じたいのですがどういうコードを書いたらいいでしょうか? みんなの回答 (2) 専門家の回答 質問者が選んだベストアンサー ベストアンサー takahiro_ ベストアンサー率47% (29/61) 2003/12/25 16:35 回答No.2 Private Sub CommandButton1_Click() (実行するプログラム) Unload UserForm1 End Sub ではいかがでしょうか? 質問者 お礼 2003/12/25 16:57 出来ました。。。。 一行。。 すみません。 ありがとうございます。。。。 広告を見て全文表示する ログインすると、全ての回答が全文表示されます。 通報する ありがとう 0 その他の回答 (1) fukutora ベストアンサー率35% (6/17) 2003/12/25 15:59 回答No.1 コマンドボタンを作成し Private Sub CommandButton1_Click() IsButton1 = True Hide End Sub では、だめですか? UserFormを使用するときは、以下の2種類のコマンドボタンを作っておくと便利です。 OK ・・・入力したデータを使用する。末尾True キャンセル・・・入力したデータを使用しない。末尾False いかがでしょうか? 質問者 補足 2003/12/25 16:15 早速ありがとうございます。UserForm1の"OK"をクリックするとプログラムを実行。その後、UserForm1が自動的に閉じるようにしたいのです。また、キャンセルをクリックしたら自動的に閉じるように… 説明が足りずにすみません。 広告を見て全文表示する ログインすると、全ての回答が全文表示されます。 通報する ありがとう 0 カテゴリ [技術者向] コンピュータープログラミング・開発Visual Basic 関連するQ&A Visual BasicのUserFormが閉じづらい Excel2000,VisualBasicのUserFormの閉じ方で困っています。 マクロ起動中にUserForm1.Show,UserForm1.Hide,UserForm2.Show,UserForm2.Hideを 何度も繰り返していると、同じUserFormが重複してメモリーに残っている 状態で、閉じるために「×」を何度もクリックしています。 作業を長時間するとフリーズ状態もしくはエラーになります。 尚、Load.Unloadでも同じ結果になりました。 どなたか解決方法を教えてください、宜しくお願いします。 エクセルのマクロでUserForm1を作って下記のようなコードを実行す エクセルのマクロでUserForm1を作って下記のようなコードを実行すると UserForm1を一瞬だけ表示して消えるのかと思ったのですが、表示されたまま消えません。 Unload UserForm1のところを UserForm1.Hideにしても同じです。 表示されたUserForm1を閉じるにはどうしたらよいですか。 Sub test() UserForm1.Show Unload UserForm1 End Sub UserFormの呼出について VBAで「出退勤時間管理」のプログラムを作っています。 各種の初期値、設定値をユーザーフォームで入力するのですが、 フォームを出すとき(ツールバーにマクロを登録しています。) 「アプリケーション定義またはオブジェクト定義のエラーです。」と出ます。 ツールバーに登録したマクロは、標準モジュールに記述しています。 試しに、別のエクセルファイルで簡単なマクロを組んでみました。 フォームにテキストボックスを貼り付け、標準モジュールにこれを呼び出すマクロを記述しました。 ---- 標準モジュール------ Private sub OpenForm() UserForm1.TextBox1.Text = "No Problem !!!" UserForm1.Show End sub ------------------------- これはうまくいきました。 全くエラーはでません。 同じように書いたコードが、片方はエラーが出ることが、さっぱりわかりません。 本体のコードは、結構多くファイルサイズが647kBになっています。 コードの量の制限とか、あるのでしょうか。 どなたか詳しい方、助言をお願い致します。 ネットワークエンジニアとは?技術職の未来を考える OKWAVE コラム Personal.xlsでUserFormを開く Personal.xlsに登録したマクロでBookのUserFormを開くには? 環境:EXCEL2000 Windows7 Book1.xlsにUserForm1を作りました。 Book2.xlsにもUserForm1を作りました。 (Book1のUserForm1とBook2のUserForm1は異なるForm) Personal.xlsに次のSubを追加しました Public Sub DispForm1() ActiveWorkbook.UserForm1.Show vbModeless End Sub ツールバーに釦を追加しマクロ「DispForm1」を登録しました やりたい事 (1)Book1を開き釦を押すとBook1のUserForm1を表示する (2)Book2を開き釦を押すとBook2のUserForm1を表示する 問題点 釦を押すと 「オブジェクトは、このプロパティまたはメソッドをサポートしていません」 のエラーがでる アドバイスよろしくお願いいたします。 Excel97マクロのUserForm Excel97でUserFormを表示して 消すのにUnloadでは消えてくれません UserForm.show 処理1 処理2 unload UserForm としているのですが、なぜかUserForm.showで 止まったまま制御が流れません ちょっと教えていただけるとうれしいです Powerpoint 2003 でのVBA UserFormの表示方法 いつもPowerpoint用のマクロを一つのファイルにまとめ、ツールバーに実行用のボタンを追加して使用しています。マクロファイルは閉じたままにしています。 このたびUserFormをModalからModelessに修正し、マクロを実行しましたらFormが表示されませんでした。マクロファイルを開いたまま実行するときちんと表示されます。また、UserFormがModalの時はマクロファイルを閉じたままでもきちんと表示されていました。 マクロが保存されているファイルを閉じたままでもModelessでUserFormを表示する方法がありましたら教えてください。 ちなみに、現在はこのようなスクリプトになっています。 Load frmXXX frmXXX.Show vbModeless (frmXXX.Showだけの時はきちんと表示されていました) ご回答お待ちしております。 VBA_UserFormの初期値 毎度お世話になっております。 UserFormを開いた時に、UserForm内にあるTextBoxに初期値として 文字を入れたいのですが、表示されません。 原因が判りません。判りましたらご教授お願いします。 プロジェクトの状況 ワークシート3枚(内コード有1枚 シート名:表紙) フォーム2つ(フォーム名:UF1・UF2) 表紙にあるAボタンを押したらUF1が開くBでUF2が開くようなマクロです。 シート"表紙"コード Private Sub CommandButtonA_Click() UF1.show End Sub UF1(コード) Private Sub UF1_Initialize() TextBox.Value="文字" End Sub "文字"をUF1フォーム内に最初から出したいと考えてます。 宜しくお願いします。 エクセル UserForm 呼び出しでフリーズしてしまいます エクセルでタイムカード?退勤時間管理表を作成しています。 UserFormの使用は初めてです・・・ UserForm1が「出勤」「退勤」「休憩入り・戻り」などをボタンで作って入力させるのはうまくいきました。 ところが、UserForm2に、各従業員のタイムカード(出勤退勤休憩を記録しているシート部分)を表示したくなったのでUserForm2に、ListBox1を貼り付けてマクロでRowSourceを書き換えて表示させたかったのですが・・・ 作成中はうまく表示しているのですが、実際にUserForm2.Showとやって呼び出すとUserForm2は表示されるのですが、エクセルすべてが全く反応なくなってしまいます。UserForm2も閉じれません。 ListBox1でいじったプロパティは、RowSourceとColumnCountのみです。 RowSourceは、'名 前'!A1:H32 ColumnCountは、8 UserForm2には、ListBox1しかありません。 UserForm1にも、ListBoxはあるのですが全く問題なしです。(1行のみのものですが) 時計のリアルタイム表示マクロやUserFormに最小化ボタンを付けるマクロを付けていたのでそれが原因かとも思い削除してみたのですが、UserForm2を表示するとフリーズしてしまいます。 何が原因のでしょうか? 教えてください。よろしくお願いします。 エクセルは、2007です。 UserFormコレクション UserForm1内に配置されたコントロールを操作するのに、UserForm2を使うことは有りますか。 コレクションで指定する時に・・・UserForm1.Controls("OptionButton1").Value等。 学習教材で、画像はUserForm1だが、コードにはUserForm2と有る。 どうぞ宜しくお願いします。 UserForm1.Showでエラーになります。1 Thisworkbookのところで Option Explicit Private Sub Workbook_Open() UserForm1.Show End Sub とプログラミングすると UserForm1.Showでエラーになります。 どうすればよいでしょうか。 Excel2013でプログラミングしています。 UserForm1.Showもきちんと作成済みです。 エラーメッセージは、 実行時エラー’424’ オブジェクトが必要です。 と出ています。 UserForm1.Showでエラーになります。 Thisworkbookのところで OptionExplicit PrivateSubWorkbook_Open() UserForm1.Show EndSub とプログラミングするとUserForm1.Showでエラーになります。 どうすればよいでしょうか。 Excel2013でプログラミングしています。 UserForm1も、きちんと作成済みです。 出ているエラーは、 実行時エラー’424’ オブジェクトが必要です。 と出ます。 userform1の終了に同期を取りたい。 ユーザーフォームを勉強し始めました。 標準モジュールに、 sub oya() userform1.show end sub として、userform1を表示しています。 そしてuserform1で、諸々の設定をしています。 oyaでは、この設定を使って作業をします。 ここで質問です。 oyaの作業は、userform1で設定した内容を使うため、 処理が終わるのを待つ必要がありますが、 その書き方が分かりません。 今現在は、単純にuserform1.showの下に処理を書いているので、 設定する前に空欄を使うような状況になってしまっています。 sub oya() userform1.show 処理ロジック end sub 分かりにくいでしょうが、 宜しくご指導下さい。 AIは使う人の年齢や市場にも影響する?人工知能の可能性 OKWAVE コラム UserForm1.Showノトコロデエラーニナ Excel2013でプログラムしていますが、 Thisworkbookのところで Option Explicit Private Sub Workbook_Open() UserForm1.Show End Sub と、プログラミングするとUserForm1.Showのところでエラーになります。 どうしてでしょうか? UserForm1.Showでエラーになります。 Thisworkbookのところで Option Explicit Private Sub Workbook_Open() UserForm1.Show End Sub と記述するとUserForm1.Showでエラーになります。 どうすればよいでしょうか。 Excel2013で開発しています。 バックアップするとuserformが使えない ユーザーフォームを設定した後で、次のプログラムを起動するとユーザーフォームを開こうとしても「パスが無効です」とでて使えなくなります。 Public Sub test() UserForm3.Show ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\バックアップ\" & ActiveWorkbook.Name UserForm2.Show Unload UserForm3 Unload UserForm2 End Sub また、プログラム中にシステムエラーとでたり、「オブジェクトが見つかりません」とでたりします。 いったいなぜなのか。どうすれば回避できるのか教えてください。お願いします ちなみにプログラムを実行するときはエクセルファイルと同じ階層に「バックアップ」というフォルダを作ってください。 このプログラムを実行した後は保存しないことをお勧めします。 ユーザーフォームが起動できなくなっても責任はとれません。 エクセルは2000 です。 Userformの起動制限について シート上のコマンドボタンにより Userform1.showを実行する場合 Userform1のUserForm_Initialize() の初期設定において 特定の条件を満たした場合はUseform1を表示して、 条件を満たさない場合はUserform1を表示せず元に戻る というようなことはできないでしょうか? VBAのUserFormのイベント VBAの公式問題集の練習をしているのですが、分からないことがあるので質問致します。 UserFormのイベントを使ってコードにマクロを作成したのですが、ユーザーフォームの実行を押しても、コンパイルエラーが表示されてしまいます。 具体的なマクロの式ですが、 Option Explicit Private Sub UserForm_Initialize() Dim i As Long TextBox1.Text = "UserFormの初期化" For i = 1 To 5 Listbox1.AddItem "Sample" & i Next i Listbox1.ListIndex = 2 End Sub です。 エラーには、コンパイルエラー: TextBox1が表示され、変数が定義されていませんと出ます。 どのようにしたらいいのでしょうか。 どなたかお分かりになるかたがいらっしゃいましたら教えて下さい。 お願いします。 ExcelVBAで指定外のUserFormを閉じる 複数のUserFormを表示させた時に、 コードで指定したUserForm以外のUserFormを閉じる方法を教えてください。 Unload UserForm1、Unload UserForm2、Unload UserForm3 このような方法では、手間がかかってしまいます。 何か良い方法がありましたら教えてください。 宜しくお願いします。 EXCEL VBA UserFormで困っています。 EXCEL VBA UserFormで困っています。 VBAプログラミングで以下のような現象が起こります。 開発環境 WinXP , EXCEL2003 ブックを起動するとメニューが表示され、そこからボタンを押すとuserform1が表示されるというプログラムなんですが、そのボタンを押してuserform1を起動しようとすると『問題が発生したため、 Microsoft Excel Windowsを終了します。・・・ エラー報告を送信する 送信しない』のメッセージが出て起動できない。 UserForm1.Showのステップで一旦止めてステップモードで続行すると正常に動作します。 過去に似た質問を見つけ、そのアドバイスを元に以下を試してみました。 http://okwave.jp/qa/q2001805.html ・エラーの発生行の特定 userform1.showの前に、userform1.label.visible=falseのように、表示、非表示を切り替える命令を出しており、どうやらその表示命令の行でつまづいている事がわかりました。 表示命令を全て消去し実行したところ、現在までは問題なく起動できています。 ・on timeメソッドで時間差をつける ラベルやボタンの表示、非表示命令行をまとめて、 Application.OnTime Now + TimeValue("00:00:01"), "ラベルボタン表示設定" userform1.show といった形で時間差をつけてみました。 結果として、userform1自体は立ち上がるようになったのですが、時間差で実行される"ラベルボタン表示設定"の実行時に「オートメーションエラーです。起動されたオブジェクトはクライアントから切断されました。」と出てくるようになってしまいました。 ラベルはまだ良いのですが、コマンドボタンの表示、非表示は、誤操作を防ぐ手段として非常に重要です。なんとかエラーを出さずにコード通りに起動する方法はありませんでしょうか。 EXCEL USERFORMが自動的に起動します このサイトに出しているもう1つの質問にも絡むのですが、USERFORM1を仕組んであるBOOKを開くと、そのUSERFORM1が自動的に起動します。こちらの使い勝手としてはそれで問題ないのですが、なぜBOOKが開くと同時にUSERFORM1が起動するのか、あるいはUSERFORM1が起動するタイミングはどこで規定されているのか、気になりましたので質問させてください。ちなみに、このBOOKにはUSERFORM1以外にマクロは無く、見たところUSERFORM1の起動タイミングを規定しているような記述はどこにもありません。よろしくお願いします。 注目のQ&A 「You」や「I」が入った曲といえば? Part2 結婚について考えていない大学生の彼氏について 関東の方に聞きたいです 大阪万博について 駅の清涼飲料水自販機 不倫の慰謝料の請求について 新型コロナウイルスがもたらした功績について教えて 旧姓を使う理由。 回復メディアの保存方法 好きな人を諦める方法 小諸市(長野県)在住でスキーやスノボをする方の用具 カテゴリ [技術者向] コンピューター プログラミング・開発 Microsoft ASPC・C++・C#CGIJavaJavaScriptPerlPHPVisual BasicHTMLXMLCSSFlashAJAXRubySwiftPythonパフォーマンス・チューニングオープンソース開発SEOスマートフォンアプリ開発その他(プログラミング・開発) カテゴリ一覧を見る OKWAVE コラム 突然のトラブル?プリンター・メール・LINE編 携帯料金を賢く見直す!格安SIMと端末選びのポイントは? 友達って必要?友情って何だろう 大震災時の現実とは?私たちができる備え 「結婚相談所は恥ずかしい」は時代遅れ!負け組の誤解と出会いの掴み方 あなたにピッタリな商品が見つかる! OKWAVE セレクト コスメ化粧品 化粧水・クレンジングなど 健康食品・サプリ コンブチャなど バス用品 入浴剤・アミノ酸シャンプーなど スマホアプリ マッチングアプリなど ヘアケア 白髪染めヘアカラーなど インターネット回線 プロバイダ、光回線など
お礼
出来ました。。。。 一行。。 すみません。 ありがとうございます。。。。