• ベストアンサー

今まで使ってたユーザーフォームがいきなり使えなくなりました。

UserForm1に テキストボックスの追加やコマンドボタンの移動などを行なったところ 「実行時エラー９１ オブジェクト変数、またはwithブロック変数が設定されていません。」 となってしまいます。 デバックしてもなにもエラーが見つかりません。 何が原因なのかさっぱりわかりません。 助けてください。 補足があれば追加します。 （２００３　エクセル） よろしくお願いします。

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

  • ベストアンサー
  • cj_mover
  • ベストアンサー率76% (292/381)
回答No.1

こんにちは 状況を把握仕切れている訳ではありませんが、 似たようなトラブルでよくある原因として、、、 　Userform_Initialize プロシージャ または 　Userform_Activate プロシージャ に問題があるのではないでしょうか。 この場合、 該当するプロシージャの一行めにブレークポイントを設定 (若しくはにStopステートメントを記述)してから、 UserformをLoad(Show)して、 ステップモードで実行することで エラーの原因を特定できる筈です。 具体的な原因としては想定されるものが多様すぎるので、何とも言えませんが、 原因となる記述を特定出来れば、解決は近いと思います。 見当外れでしたらスルーして下さい。

lkhjlkhjlk
質問者

お礼

ステップモードについてよくわからないので調べてみます。 いろいろいじっていたら直りました。 ご回答ありがとうございます。

その他の回答 (1)

  • Wendy02
  • ベストアンサー率57% (3570/6232)
回答No.2

こんばんは。 >何が原因なのかさっぱりわかりません。 出来る限り、予想される部分のコードを出してほしいです。 UserForm モジュールに、コードをまったく書かなければ、エラーは出ないはずです。 >テキストボックスの追加やコマンドボタンの移動などを行なったところ これだけでは、エラーは発生しないと思います。 通常、Object を代入するはずのところに、Set ステートメントを入れないと、そのようなエラーが出ます。 デバッグで、その場所に黄色でとまることはありませんが、#1さんのプロシージャの一行目にブレークポイントを設け、ステップモードなら、その場所を特定化できます。

lkhjlkhjlk
質問者

お礼

コードが（無駄に）多すぎて書ききれない＆素人過ぎて予想できないので書けませんでした。 ステップモードを調べてみます。 ご回答ありがとうございます。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • ユーザーフォームのインスタンス

    こんにちは。 早速質問させていただきます。 ExcelVBAでプログラムを組んでいて、 そのExcelシート上に同じUserFormを動かすためのコマンドボタンが 数十個あります。 ちなみに、UserFormの中身はチェックボックスです。 数十個のコマンドボタンそれぞれを押下後、 UserFormでチェックした項目を再度表示させたいのですが、 それぞれのコマンドボタンから同じUserFormを呼んでいるため、 UserForm.Hide では、他のコマンドボタンでチェックした内容が 出力されてしまいます。 どのようにしたら、UserFormを複数作らずに UserFormの内容を保持できるでしょうか。 回答よろしくお願いします。

  • エクセルユーザーフォームで困ってます。

    エクセル初心者です。 自分のユーザーフォーム（住所、商品登録）を作りたくて大変困ってます。 下記は、ネットなどをみて貼り付けたのですが、上手くいきません。 まずＴＯＰページを作り、ユーザーフォームを呼び出すボタンを作り、クリックすると フォームが出るようにしてあります。 そこに、自分の入力したいものをユーザーフォームにテキストでつくり、シート９に 登録ボタンを作りクリックしたら、シートに反映させたいと思ってます。 登録ボタンを押したら、入力画面はクリアにしたいです。 他にいろいろやりたい事もあるのですが、入力した順番に001・002・003と顧客番号をつけたり 検索ボタンを作って、名前や、顧客番号を入れると情報を呼び出したり、請求書用のプリントシートや、封筒シートに簡単に反映できればと思っています。 しかし、まだまだそこまではいかず、最初でつまずいてます。 現状は、フォームを呼び出すときに実行時エラーがでます。 どうしても、自分の使い勝手のいいものを作りたいので どうか、助けてください。大変まいってます。 長文になりますが、どうかよろしくお願いします。 下記の入力中のものをみていただけて、いろいろ意見をいただけるとありがたいです。 Sub FormShow() UserForm1.Show End Sub 'Sheet9へ書き込む Private Sub 登録_Click() Dim i As Integer With Worksheets(9) 'テキストボックスの値を書き出し For i = 1 To 80 .Range("B" & i) = UserForm1.Controls("TextBox" & i).Text Next End With End Sub 'Formを呼び出したとき、Sheet9から読み込む Private Sub UserForm_Initialize() Dim i As Integer With Worksheets(9) 'テキストボックスの値を読み込み For i = 1 To 80 UserForm1.Controls("TextBox" & i).Text = .Range("B" & i) Next End With End Sub '終了ボタン Private Sub CommandButton2_Click() Unload Me End Sub

  • エクセル　ユーザーフォーム

    エクセルのユーザーフォームでコマンドボタンを使ってテンキーを作りたいのですが、入力するときにテキストボックス1、テキストボックス2の切り替え方がわからなく困っています。 ２つのテキストボックスに対応させるにはどのようにコードを書いたら良いでしょうか。 よろしくお願いします。

  • ユーザーフォームで教えてください。

    ユーザーフォームで教えてください。 エクセルシートで、A列に1から100までナンバーがあり、 B列～E列までデータが入っている表があります。 テキストボックスにナンバーを入力（もしくはスピンボタン）して 「検索」のコマンドボタンを押すと、B列以降のデータが各テキストボックスに表示される。 という形にしたいのですが、やり方が分からず困っています。 これまでは表の外に最初の行と最後の行を表示させて、 それを変数として扱い、「前」、「次」のコマンドボタンで1ずつ増減させて 表示していたのですが、ナンバーから直接表示させたほうが効率が良いと思いました。 （データが少ないときはよかったのですが。） 希望としては、 例としてテキストボックス１に「50」と入力する。（またはスピンボタンで50を選択） コマンドボタン「検索」でナンバー50のB列～E列のデータをテキストボックス２～５へ表示。 コマンドボタン「前」「次」を配置し、「前」でナンバー49、「次」でナンバー51のデータを表示。 1もしくは100（最後のナンバー）のときに「前」「次」を押してもデータは表示せず、 メッセージで「これが最初（最後）です」と表示。 という感じです。 できればでいいのですが、 ナンバー50のデータが表示された状態で、 B列以降のデータを直してナンバー50の行に上書きする「修正」、 表示された行を削除して1行上にずらす「削除」の コマンドボタンがあると助かります。 長くなってしまいましたが、よろしくお願いします。

  • ユーザーフォームの描画が遅れるのは？

    ExcelのVBAで簡単な処理をしているのですが、困っています。 ユーザーフォームにラベル１つとコマンドボタンを２つ用意しました。 ラベルには「・・・よろしいですか？」と質問形式の文章を 表示し、コマンドボタンにはそれぞれ「OK」と「キャンセル」を 表示してあります。 「OK」のコマンドボタンをクリックされたら、２つのコマンドボタン のvisibleプロパティをfalseにして隠し、ラベルには 「しばらくお待ちください。」と表示してセルの計算をさせます。 私の考えでは、コマンドボタンが消えラベルに「しばらく・・」が 表示されてから計算が行われセル上に計算結果が 表示されるはずなのですが、何故か計算結果が全て表示されてから コマンドボタンが消え、ラベルに「しばらく・・」と表示され 次の命令を実行してしまいます。 何がいけないのかが分かりません。 宜しくお願いいたします。 Private Sub CommandButton1_Click() 　UserForm1.CommandButton1.Visible=False 　UserForm1.CommandButton2.Visible=False 　UserForm1.Label1.Caption="しばらくお待ちください。" '計算のsubへ飛ぶ 　Call Keisan 　UserForm1.Label1.Caption="終了しました。" End Sub

  • VBAのユーザーフォーム・・

    教えてください。 ユーザーフォームのテキストボックス・コンボボックスに入力した文字列をコマンドボタンを押したら、セルC1・B1に反映させたいのですが、できません。 このコマンドボタンには他のプログラムも入っており、同時にプログラムを実行したいのですが。

  • マクロ　ユーザーフォームが表示されない

    いつも回答して頂き、ありがとうございます。 Sub UserForm1() UserForm1.Show End Sub と記述しましたが、エラーが発生し、ユーザーフォームが表示してくれません。 コンパイルエラー：Functionまたは変数が必要です フォームはコマンドボタンを一つ配置し、 Private Sub CommandButton1_Click() Unload UserForm1 End Sub と記述してあるだけです。何が悪いのでしょうか？御教授の程宜しくお願い致します。

  • EXCEL VBAのユーザーフォーム上のテキストボックスの入力方法について

    すいません教えていただきたいことがあります。 EXCEL VBAのユーザーフォームについて、 コマンドボタンにタグを設定して、これにキーボードと同じ機能を持たせて テキストボックス内に入力することは可能でしょうか。 例えばコマンドボタンを「あ」～「ん」まで作り、それぞれのボタンに「あ」～「ん」までのタグを設定する。 Private Sub UserForm_Initialize() CommandButton1.Tag = "あ" CommandButton2.Tag = "い" ・・・・「ん」までボタンを作成する。 次に、 Private Sub CommandButton1_Click() TextBox1.Value = TextBox1.Value & CommandButton1.Tag End Sub Private Sub CommandButton2_Click() TextBox1.Value = TextBox1.Value & CommandButton3.Tag 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のユーザーフォームのInitializeでｎに値を代入し Private Sub UserForm_Initialize() Dim n As Long n = 19 ・・・・・ End Sub 同じユーザーフォームのボタンコマンドが押されたら Private Sub CommandButton2_Click() MsgBox n Worksheets("AAA").Cells(n, 3).Value = Me.テキストボックスの値.Text n = n + 1 End Sub nの値を用いてセルにテキストボックスの値を入れるというプログラムです。 値をいれたら、ｎをひとつ増やして次に備えるようにしたいのですが。 そもそも最初にnの値が受け渡しできません。 ボタンコマンドの最初の行でメッセージボックスにnの値を表示して確認しても何も数字が表示されません。 nの値の受け渡しを方法を教えてください。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する