ベストアンサー

エクセルVBAで

2005/02/14 17:57

CommandButton2がクリックされた時に、すでに表示されているUserForm1を消したいのですが、 Private Sub CommandButton2_Click() UserForm1.（　　） End Sub （　　）にくる言葉は何でしょうか？

noname#10631

オフィス系ソフト
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

taocat
ベストアンサー率61% (191/310)

2005/02/14 18:02 回答No.1

こんにちは。 UserForm1.Hide 以上です。

質問者

お礼 2005/02/14 18:07

ありがとうございました。大変助かりました。

関連するQ&A

VBAのCallステートメントについて

ExcelのSheet1にCommandButton1（表示）があります。 -------------------------------------------------- Private Sub 表示_Click() （DBより表示処理） End Sub -------------------------------------------------- UserForm1にCommandButton1（登録）があります。 -------------------------------------------------- Private Sub 登録_Click() （DBへの登録処理） UserForm1.Hide Call WorkSheets("Sheet1").表示_Click() ・・・☆ Exit Sub End Sub -------------------------------------------------- 表記のようなプログラムにしたところ、☆印のところで、下記エラーが表示されてしまいます。【エラー】--------------------------------------------------- 実行時エラー'91'：オブジェクト変数またはWithブロック変数が設定されていません。 ------------------------------------------------------------- どのようにしたらCallステートメントで表示_Clickを呼び出すことができるのでしょうか。
Excel-VBA マルチページ内の指定ページ表示

UserForm1に作成したマルチページ内の指定ページを直接表示する方法を教えて下さい。 ↓例えば１ページ目のCommandButton1をクリックしたら、 Private Sub CommandButton1_Click() ' ▽３ページ目を表示するコードを教えて下さい End Sub
Excel-VBA [X]クリックベント取得

UserFormで、通常の「CommandButton」ならClickイベントを次のコードで取得できるのですが、 Private Sub CommandButton1_Click() CommandButton1.Value = Date End Sub 質問:UserForm左上の[X]ボタンをクリックした時のイベントを取得したいのですが、誰かサンプルコードを提供いただければ幸いです。宜しくお願いいたします。
複数のユーザーフォームをコマンドボタンにて表示・非表示させるには

VBA勉強中のものです。複数のユーザーフォームをコマンドボタンを使用して画面への表示切替を考えております。例）ユーザーフォーム1,ユーザーフォーム2,ユーザーフォーム3のそれぞれにコマンドボタン1,コマンドボタン2,コマンドボタン3を作成し、　　コマンドボタン1→ユーザーフォーム1を表示　　コマンドボタン2→ユーザーフォーム2を表示　　コマンドボタン3→ユーザーフォーム3を表示とするようなことを考えおります。　そこで、下記のようにコードを作成したのでですが，一度表示させたユーザーフォームを再度表示させようとコマンドボタンをクリックしたら、「フォームはすでに表示させているのでモーダル表示はできません」とエラーがでてしまいます。　　どなたか、どのようにしたらいいかご教授ねがいます。サンプルコード） --------------------------------------------------- 'UserForm1のコード Private Sub CommandButton2_Click() Call UserForm2_show UserForm1.Hide End Sub Private Sub CommandButton3_Click() Call UserForm3_show UserForm1.Hide End Sub ---------------------------------------------------- 'UserForm2のコード Private Sub CommandButton1_Click() Call UserForm1_show UserForm2.Hide End Sub Private Sub CommandButton3_Click() Call UserForm3_show UserForm2.Hide End Sub ------------------------------------------------------- 'UserForm3のコード Private Sub CommandButton1_Click() Call UserForm1_show UserForm3.Hide End Sub Private Sub CommandButton2_Click() Call UserForm2_show UserForm3.Hide End Sub ------------------------------------------------------------ '標準モジュール　コード Sub UserForm1_show() UserForm1.Show End Sub Sub UserForm2_show() UserForm2.Show End Sub Sub UserForm3_show() UserForm3.Show End Sub
Excel VBAについて

Excel VBAにおいて、Sheetの選択した行によって値を表示するUserFormを変更したいと思っています。現在以下のようにしたのですが、実行すると「SubまたはFunctionが定義されていません」というエラーが表示されます。「Controls("UserForm" & x).Label1.Caption =」のところをどのようにしたらよいのでしょうか。 Private Sub CommandButton1_Click() 　　If ActiveCell.Row = 5 Then 　　　　UserForm1.Show 　　　　x = 1 　　ElseIf ActiveCell.Row = 6 Then 　　　　UserForm2.Show 　　　　x = 2 　　End If End Sub Private Sub Worksheet_Selection Change(Byval Target As Range) 　　Controls("UserForm" & x).Label1.Caption = ・・・
VBA　コマンドボタン　頭に0がでない

各ボタンに以下を入れる Private Sub CommandButton1_Click() Selection.Value = Selection.Value & "1" End Sub Private Sub CommandButton2_Click() Selection.Value = Selection.Value & "2" End Sub . . Private Sub CommandButton10_Click() Selection.Value = Selection.Value & "0" End Sub Private Sub CommandButton11_Click() Selection.Value = Selection.Value & "." End Sub 0.1と入力しても0.1が表示できなく、1となってしまいます。また.1と入力しても0.1でなく、1になってしまいます。どうすれば良いでしょうか？
VBA:助けてください。呼び出してもいないのに独立なプロシージャへ、処理が飛んでしまう。アドバイスお願い致します。

Useform1のコマンドボタンをクリックすると Private Sub CommandButton1_Click() Call 処理 End Sub というように、「処理」を呼び出し。これで終わるようにしていました。しかし、不具合が出てしまい、ステップインで見てみると「処理」からEndSubに行き、その後Useform2のコマンドボタンイベントのEnd Withへ Private Sub CommandButton1_Click() With Userform1 .... End With ← 　　　・・・ End Sub 上のように矢印の部分へ飛んでしまいます。全く、独立な、コマンドイベントへ飛んで処理されているのです。それも、飛んだ箇所がEnd Withからです。こんなことがあるのでしょうか？ Private Sub CommandButton1_Click() Call 処理 Exit Sub End Sub 上のようにExit Subを追加してもやはりそこから飛んでしまいます。なぜでしょうか？詳しい方アドバイスお願い致します。
ユーザーフォームの切り替えについて・・・

UserForm1とUserForm2の２つのユーザーフォームがあります。 UserForm1の中にあるcommandButton1をクリックすると、UserForm2が表示される仕組みになっています。（ちなみに、UserForm2にもコマンドボタンがあり、クリックするとUserForm1に戻るようになっています） UserForm1の方に、 Private Sub CommandButton1_Click() UserForm2.Show 0 Unload UserForm1 End Sub UserForm2の方に、 Private Sub CommandButton1_Click() UserForm1.Show 0 Unload UserForm2 End Sub と記述してあります。ところが、それぞれのユーザーフォームには、閉じると同時にブックが閉じるように Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) ActiveWorkbook.Save 'ブックを保存 ActiveWorkbook.Close 'ブックを閉じる Application.Quit 'excelを終了 End If End Sub というコードを記述しているため、UserForm1からUserForm2へ移るときにブックが閉じてしまいます。右上の「×」を押したときだけブックを閉じるようにしたいのですが、どういうコードを書いたらいいのですか？宜しくお願いします。(*´Д｀人)
Excel VBA　ブックが閉じれない

Excel2016を使用してVBAを使用しています。 VBA初心者ですが、よろしくお願いします。質問内容は以下になります。 EXCEL起動と同時にUserFormを表示させ、UserForm上のコマンドボタンからダイアログボックスを表示し、他ブックを開く処理なのですが、他ブックを開くまでは問題ないのですが、他ブックが閉じれない状態になります。 Private Sub Workbook_Open() UserForm1.Show End Sub Private Sub UserForm_Initialize() 　各種処理 End Sub Private Sub CommandButton1_Click() Dim OpenFileName As String SetCurrentDirectory (Worksheets(1).Cells(11, 3)) OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?") Workbooks.Open OpenFileName End Sub UserFormを閉じると開いたブックも閉じることが可能です。タスクマネージャーから強制的に終了しようとすると、以下メッセージが出ます。 ”開いているダイアログボックスがあるため、Microsoft Excel を終了できません。[OK]をクリックしてから、Microsoft Excelに切り替えてダイアログを閉じて下さい。" UserFormを閉じないで他ブックを閉じるには、どうすれば宜しいでしょうか。申し訳ございませんがご教授下さい、よろしくお願いいたします。
エクセルVBA　テキストボックス

いつもお世話になっております。エクセルでVBAを使いユーザーフォームのテキストボックスで文章入力をしようと思っているのですが、少しトラブルがありましたのでお教え願います。エクセルシートの横がa～k、縦を9～34までのシートを結合してその中にテキストボックスで入力した文章を入れるように作っています。 MultiLineとEnterKeyBehaviorをTrueにして Private Sub CommandButton1_Click() Unload Me End Sub Private Sub TextBox1_Change() Sheets("sheet1").Range("a9") = UserForm1.TextBox1 End Sub Private Sub UserForm_Initialize() TextBox1.Value = Range("a9").Value End Sub Private Sub UserForm_Activate() With Me .Left = Application.Left .Top = Application.Top .Left = .Left + 350 .Top = .Top + 80 End With End Sub という状態になっているのですが、文章を入力して16行目で改行するとシートの方で「＃VALUE！」と出てきてしまうので一旦ユーザーフォームを閉じてもう一度フォームを立ち上げると「実行時エラー’-2147352571(80020005)　Valueプロパティが設定できません。種類が一致しません。」と出てきます。デバッグすると　Private Sub CommandButton1_Click() → UserForm1.Show 　End Sub と出てきます。なにがおかしいのでしょうか？今回初めてVBAを作っているので初歩的な間違いかもしれませんがよろしくお願いします
Excel VBA ユーザフォーム

Excel VBAのユーザフォームについて質問です。 UserForm1の枠の中に、CommandButton1とCommandButton２を追加し　Private Sub CommandButton1_Click() 　Range("AA3").Select 　Range("AA3").Activate 　End Sub とし、AA3のセルへデータ入力をしたいと試みましたが、CommandButton1からカーソルが移動しますが、データ入力ができません。また、この他にも、CommandButton2をクリックすると、AB4のセルへ移動してデータを入力したいのですが・・・どなたか、ご教授をお願いいたします。
エクセルＶＢＡ

ユーザーフォームがあり、コマンドボタンが準備されていますそのコマンドボタンをクリックした場合、処理1～処理3を実行するようにしています Sub CommandButton1_Click() CommandButton1処理1 CommandButton1処理2 CommandButton1処理3 End Sub Private Sub CommandButton1処理1() ・・・ End Sub Private Sub CommandButton1処理2() ・・・ End Sub Private Sub CommandButton1処理3() ・・・ End Sub 処理1→処理2→処理3という流れが進むかと思います処理1の中にＩｆ～End ifがあり、Ifに合致する場合はメッセージボックスが表示するようになっています処理3の中に、「ユーザーフォームを閉じる」記載がされています処理1のIfに合致する場合、メッセージボックスを表示させユーザーフォームを閉じることなく終了したいですつまりIfに合致した場合、その後の処理2、処理3をさせず処理1で終了させればいいのかと思ったのですが、そのようなことはできるのでしょうか？処理1でIfに合致する場合、Exit Subとすると処理1は終了するかもしれませんが、その後処理2、処理3に進んでしまうので困っていますよろしくお願いします
VBA　標準モジュールとフォーム (続き)

先ほど、同じ質問タイトルで質問させていただいたものです。この場合どうなりますか？モジュールでの変数file_nameをフォームのボタンをクリックしたら"text.xls"が表示されるようにしたいです。 (イメージとしては、エクセルのsheet1にコマンドボタンがあってクリックするとフォームが立ち上がってフォームのコマンドボタンをクリックすると"test.xls"が表示される) モジュール Private Sub CommandButton1_Click()　←エクセルsheet1にボタンがある　　dim file_name as string file_name="test.xls" 　　UserForm1.Show End Sub フォーム(UserForm1) Sub CommandButton1_Click()　←フォームにボタンがある MsgBox file_name End Sub
EXCEL VBAのユーザーフォームに引数を渡す方法について

すいません、ＥＸＣＥＬＶＢＡのユーザーフォームに引数を渡す方法についてご質問があります。シート上にコマンドボタンを２つ用意する。コマンドボタン１を押すと変数mは1 コマンドボタン２を押すと変数mは2 としてユーザーフォームを呼び出す。 Public m As Integer Private Sub CommandButton1_Click() 　m = 1 　Call フォーム呼び出し(m) End Sub Private Sub CommandButton2_Click() 　m = 2 　Call フォーム呼び出し(m) End Sub Sub フォーム呼び出し(m As Integer) 　UserForm1.Show End Sub 次にユーザフォームにコマンドボタンを１個置き、ボタンを押したとき、mが1であれば「ボタン１」 mが2であれば「ボタン２」とメッセージボックスを出し、ユーザーフォームを閉じる。 Private Sub CommandButton1_Click() 　　If m = 1 Then 　　 MsgBox "ボタン2" 　　ElseIf m = 2 Then 　　 MsgBox "ボタン2" 　　End If 　Unload UserForm1 End Sub プロシージャ間の引数渡しは色々なテキストに載っているのですがユーザーフォームに引数を渡す方法はどうも見つからず、 Private Sub CommandButton1_Click(m) としても、コンパイルエラーとなってしまいます。よろしくご教示をお願いいたします。
エクセルVBAでマルチページの切り替え方法の件で

エクセルVBAを使用してフォームを作成しているのですがマルチページを利用してpage1上にコマンドボタンを配置しそのボタンをクリックすることでpage2に切り替わる仕組みを作りたいと思っているのですがなかなかうまくいきません Private Sub CommandButton102_Click() userform1.page2.Show End Sub ↑のように考えてはみたのですがエクセルに間違ってるといわれてしまいましたご存知の方がいらっしゃいましたらよろしくお願いします
複数のコマンドボタン（VBAで）を一つにまとめたい。

複数のコマンドボタン（VBAで）を一つにまとめたい。 Private Sub CommandButton1_Click() Application.Goto Reference:=Range("A7"), Scroll:=True End Sub Private Sub CommandButton2_Click() Application.Goto Reference:=Range("A29"), Scroll:=True End Sub Private Sub CommandButton3_Click() Application.Goto Reference:=Range("A51"), Scroll:=True End Sub Private Sub CommandButton4_Click() Application.Goto Reference:=Range("A73"), Scroll:=True End Sub Private Sub CommandButton5_Click() Application.Goto Reference:=Range("A95"), Scroll:=True End Sub Private Sub CommandButton6_Click() Application.Goto Reference:=Range("A117"), Scroll:=True End Sub Private Sub CommandButton7_Click() Application.Goto Reference:=Range("A139"), Scroll:=True End Sub Private Sub CommandButton8_Click() Application.Goto Reference:=Range("A161"), Scroll:=True End Sub Private Sub CommandButton9_Click() Application.Goto Reference:=Range("A183"), Scroll:=True End Sub Private Sub CommandButton10_Click() Application.Goto Reference:=Range("A205"), Scroll:=True End Sub Private Sub CommandButton11_Click() Application.Goto Reference:=Range("A227"), Scroll:=True End Sub 上記のように複数のコマンドボタンを関数化して一つにすることは出来るでしょうか？
ユーザーフォームに入力したデーターが転記できない

いつもお世話になります。 Windows7 excell2010 です。いろんなものに勉強してここまでに作成したユーザーフォームですが、データーは入力できるのですがコマンドボタンをクリックしても各セルに反映されません。色々と試行錯誤していますがうまくゆきません。どこに不具合があるかわからず恐れ入りますがどなたかご指導いただけませんか。参考にコードは参考に下記にします。ユーザフォームのVBAは下記ですコード ※Module1 Sub 売上() Do UserForm1.Show Loop End Sub Sub 入金() Do UserForm2.Show Loop End Sub ※UserForm1 Private Sub UserForm_Initialize() With ComboBox1 .AddItem "1" .AddItem "2" .AddItem "3" End With End Sub Private Sub CommandButton1_Click() n = Cells(Rows.Count, 1).End(xlUp).Row + 1 Cells(n, 2) = UserForm1.TextBox1.Text Cells(n, 3) = UserForm1.TextBox2.Text Cells(n, 4) = UserForm1.TextBox3.Text Cells(n, 11) = UserForm1.ComboBox1.Text Unload Me End Sub Private Sub CommandButton2_Click() Unload Me End End Sub ※UserForm2 Private Sub CommandButton1_Click() n = Cells(Rows.Count, 1).End(xlUp).Row + 1 Cells(n, 2) = UserForm2.TextBox1.Text Cells(n, 3) = UserForm2.TextBox2.Text Cells(n, 4) = UserForm2.TextBox3.Text Unload Me End Sub Private Sub CommandButton2_Click() Unload Me End End Sub
VBA controlsouce の使い方

エクセル2002使用です。個人情報リストのようなものを作ってます。ユーザーフォームにTextBox1とCommandButton1をつくり、そこにセルに既に入力されているデーターを入力したいのですが、うまくいきません。 Private Sub CommandButton1_Click() UserForm1.TextBox1.ControlSource =　_ Worksheets(1).Range("B5").Value End Sub どこか悪いのか全くわからず困ってます。よろしくお願いします。
エクセル2010のユーザーフォーム記述について。

エクセル2010でセルのコピーペーストの質問です。次のような記述がユーザーフォームにあります。これだと、なぜか貼り付け先のセルのすぐ上のセルの条件付き書式まで貼り付け先に貼り付けられてしまいます。どのような記述をすれば不具合を解消できますか。 Private Sub CommandButton1_Click() Selection.PasteSpecial Paste:=xlPasteAllExceptBorders Selection.PasteSpecial Paste:=xlPasteValues UserForm1.Hide End Sub Private Sub CommandButton2_Click() UserForm1.Hide End Sub
Userform内のFrameのCaptionが印刷できないのですが

VBAでUserFormを印刷しようとしたのですが、UserForm内のFrameのCaptionのみ印刷されません。その他Frameの枠とかUserForm内のLabelとかは印刷できるのですが、何か設定等あるのでしょうか？一応UserForm内にCommandButtonを作りクリックで印刷させようと考えているのですが、ちなみにコードは Private Sub CommandButton1_Click() Userform1.Printform End Sub としています。なにか方法があれば教えてもらえないでしょうか。よろしくお願いします。

エクセルVBAで

質問者が選んだベストアンサー

お礼 2005/02/14 18:07

関連するQ&A

VBAのCallステートメントについて

Excel-VBA マルチページ内の指定ページ表示

Excel-VBA [X]クリックベント取得

複数のユーザーフォームをコマンドボタンにて表示・非表示させるには

Excel VBAについて

VBA　コマンドボタン　頭に0がでない

VBA:助けてください。呼び出してもいないのに独立なプロシージャへ、処理が飛んでしまう。アドバイスお願い致します。

ユーザーフォームの切り替えについて・・・

Excel VBA　ブックが閉じれない

エクセルVBA　テキストボックス

Excel VBA ユーザフォーム

エクセルＶＢＡ

VBA　標準モジュールとフォーム (続き)

EXCEL VBAのユーザーフォームに引数を渡す方法について

エクセルVBAでマルチページの切り替え方法の件で

複数のコマンドボタン（VBAで）を一つにまとめたい。

ユーザーフォームに入力したデーターが転記できない

VBA controlsouce の使い方

エクセル2010のユーザーフォーム記述について。

Userform内のFrameのCaptionが印刷できないのですが

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

エクセルVBAで

質問者が選んだベストアンサー

お礼 2005/02/14 18:07

関連するQ&A

VBAのCallステートメントについて

Excel-VBA マルチページ内の指定ページ表示

Excel-VBA [X]クリックベント取得

複数のユーザーフォームをコマンドボタンにて表示・非表示させるには

Excel VBAについて

VBA コマンドボタン 頭に0がでない

VBA:助けてください。呼び出してもいないのに独立なプロシージャへ、処理が飛んでしまう。アドバイスお願い致します。

ユーザーフォームの切り替えについて・・・

Excel VBA ブックが閉じれない

エクセルVBA テキストボックス

Excel VBA ユーザフォーム

エクセルＶＢＡ

VBA 標準モジュールとフォーム (続き)

EXCEL VBAのユーザーフォームに引数を渡す方法について

エクセルVBAでマルチページの切り替え方法の件で

複数のコマンドボタン（VBAで）を一つにまとめたい。

ユーザーフォームに入力したデーターが転記できない

VBA controlsouce の使い方

エクセル2010のユーザーフォーム記述について。

Userform内のFrameのCaptionが印刷できないのですが

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

VBA　コマンドボタン　頭に0がでない

Excel VBA　ブックが閉じれない

エクセルVBA　テキストボックス

VBA　標準モジュールとフォーム (続き)

カテゴリ
一覧

専門家に質問してみよう
専門家登録