• 締切済み

UserForm1.Showでエラーになります。

Thisworkbookのところで Option Explicit Private Sub Workbook_Open() UserForm1.Show End Sub と記述するとUserForm1.Showでエラーになります。 どうすればよいでしょうか。 Excel2013で開発しています。

みんなの回答

  • kmee
  • ベストアンサー率55% (1857/3366)
回答No.1

「エラーになります」だけでは、何が問題なのかわかりません。 具体的にどんなメッセージが出ているのですか? 何も情報が無ければ、「UserForm1」を作ってもいないのに使おうとしている、ということから、疑わなければなりません。 http://okwave.jp/qa/q8409548.html

  1. カテゴリ
  2. 学問・教育
  3. 応用科学（農工医）
  4. 情報工学

関連するQ&A

  • UserForm1.Showでエラーになります。1

    Thisworkbookのところで Option Explicit Private Sub Workbook_Open() UserForm1.Show End Sub とプログラミングすると UserForm1.Showでエラーになります。 どうすればよいでしょうか。 Excel2013でプログラミングしています。 UserForm1.Showもきちんと作成済みです。 エラーメッセージは、 実行時エラー’424’ オブジェクトが必要です。 と出ています。

  • UserForm1.Showノトコロデエラーニナ

    Excel2013でプログラムしていますが、 Thisworkbookのところで Option Explicit Private Sub Workbook_Open() UserForm1.Show End Sub と、プログラミングするとUserForm1.Showのところでエラーになります。 どうしてでしょうか？

  • UserForm1.Showでエラーになります。

    Thisworkbookのところで OptionExplicit PrivateSubWorkbook_Open() UserForm1.Show EndSub とプログラミングするとUserForm1.Showでエラーになります。 どうすればよいでしょうか。 Excel2013でプログラミングしています。 UserForm1も、きちんと作成済みです。 出ているエラーは、 実行時エラー’424’ オブジェクトが必要です。 と出ます。

  • 他のブックが開くと同時にユーザーフォームを表したい

    Ａブックから他のブックが開いた時、ユーザーフォームを表示したいので 次のコードでやってみたが、なぜか表示されません。ご教示お願いします。 ＡブックのThisworkbookに入力しました。 (1)Private Sub Workbook_Open() A表紙.Show End Sub Ａ表紙にコマンドボタンをつけました。 (2)Private Sub CommandButton96_Click() A表紙.Hide Workbooks.Open Filename:=ThisWorkbook.Path & "\2年施設\計算プログラム.xlsm" Sheets(1).Select End Sub 開いた”改善プログラム”のThisworkbookに入力しました。 Private Sub Workbook_Open() UserForm1.Show End Sub

  • バックアップするとuserformが使えない

    ユーザーフォームを設定した後で、次のプログラムを起動するとユーザーフォームを開こうとしても「パスが無効です」とでて使えなくなります。 Public Sub test() UserForm3.Show ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\バックアップ\" & ActiveWorkbook.Name UserForm2.Show Unload UserForm3 Unload UserForm2 End Sub また、プログラム中にシステムエラーとでたり、「オブジェクトが見つかりません」とでたりします。 いったいなぜなのか。どうすれば回避できるのか教えてください。お願いします ちなみにプログラムを実行するときはエクセルファイルと同じ階層に「バックアップ」というフォルダを作ってください。 このプログラムを実行した後は保存しないことをお勧めします。 ユーザーフォームが起動できなくなっても責任はとれません。 エクセルは2000 です。

  • エクセルVBAでUserFormを起動した時

    エクセルVBAでUserFormを起動した時に自動的に実行される動作を記述したいのですが、 どうすればよいでしょうか？ Private Sub UserForm1_Load() End Sub だとだめでしょうか？

  • エクセル　VBA　エクセルの表示について

    下記のプロシージャを実行し、Userform1のみ表示したじょうたいで、他のエクセルファイルを開くとエクセルが表示されません。他のエクセルファイルを開いた時に、エクセルが自動で表示されるような対処法を教えてください。どうかよろしくお願いします。 Private Sub Workbook_Open() Application.Visible = False UserForm1.Show End Sub

  • 【パワーポイント】「ファイルを開いたら」vbaの実行したい

    ファイルを開いた時にユーザーフォームを表示させたいのですが どうすればいいですか？ エクセルでいうなら Sub Workbook_Open() UserForm1.Show End Sub をしたいです。よろしくお願いします。

  • エクセルVBA　保護シート＆フィルタ実行　全シート

    VBA超初心者です。 たくさんのシートのあるエクセルで、 シート保護後もフィルタを使用できるようにＶＢＡを設定したいと思ってます。 （現在エクセル2000を使用してます） ネットで調べてVBAを設定してみました。 しかし下記のようにするとコンパイルエラーになってしまうのですが、 正しい方法を教えていただけると助かります。 Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) 　　Application.CommandBars("Cell").Reset End Sub Private Sub Workbook_Open() 　　With Application.CommandBars("Cell").Controls.Add( _ 　　　　　　　　　　 Type:=msoControlButton, Before:=1, Temporary:=True) 　　　　.Caption = "AutoFilter" 　　　　.OnAction = "ThisWorkbook.filter" 　　End With 　　With Worksheets.Select 　　　　.Unprotect 　　　　.EnableAutoFilter = True 　　　　.Protect UserInterfaceOnly:=True 　　End With End Sub Private Sub filter() 　　On Error Resume Next 　　Selection.AutoFilter End Sub

  • 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が表示され、変数が定義されていませんと出ます。 どのようにしたらいいのでしょうか。 どなたかお分かりになるかたがいらっしゃいましたら教えて下さい。 お願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する