![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
以前VBAで検索フォームの質問をさせていただきました。
いただいた回答をもとに試行錯誤した結果、
期待以上のものができあがりとても役立っています。
ありがとうございました。
しかしこのVBA、機能上は申し分ないのですが、
実行した際にMicrosoft Visual Basicのエディターが勝手に起動してしまいます。
自分で使う分には構いませんが、
友人などに渡すときになんとなく格好悪いなーという感じです。
そこで、このエディタが実行時に表に出てこないようにエクセル上で設定したいのですが、
そういったことは可能でしょうか。バージョンはExcel2007、OSはVistaです。
よろしくお願いします。
No.2ベストアンサー
- 回答日時:
状況が良く分からないのですが、なぜ、VBEditor が立ち上がるのでしょうか?
エラーが発生しているのではありませんか?
通常は、きちん書かれたコードなら、VBEditor は立ち上がりません。
エラートラップ(On Error ~)で立ち上がるとしたら、設定が間違っている可能性があります。
VBEditor のツール--オプション--全般--エラートラップ
[エラー発生時に中断] というモードにする
で、エラートラップに関わらず、VBEditor が立ち上がります。
この設定は、エラートラップでエラーの発生場所が分からない時に使う試験モードの設定です。
ですから、実際に使用する時は、[エラー処理対象外のエラーで中断]などを選択しておきます。
また、参考までですが、以下のようにエラートラップは、避けられるものを、安易にトラップしないほうがよいです。ここのカテゴリでは、それが気に入らないという人が多いようですが、システムを組む時などに、一見エラーのないようにみえても、思わぬ反応を示すことがあります。
'//
Private Sub CommandButton1_Click()
Dim sFndTxt As String
Dim r As Range
sFndTxt = TextBox1.Value
If sFndTxt = "" Then Exit Sub
'検索場所が決まっているなら、Cells ではなく、Columns(1)等とします。
Set r = Cells.Find(What:=sFndTxt, LookIn:=xlValues, LookAt:=xlPart, _
SearchOrder:=xlByColumns)
If Not r Is Nothing Then
TextBox2.Value = r.Offset(0, 1).Value
Else
TextBox2.Value = ""
MsgBox sFndTxt & " は見つかりません", vbExclamation
End If
Exit Sub
End Sub
ありがとうございます。
どうやら仰る通り、表面上は動いていましたがコードエラーがあったようです。修正はまだ出来ていませんが、試行錯誤しながら完成させたいと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Visual Basic(VBA) VBAでArrayListを使う為の「mscorlib.tlb」の参照設定について 3 2022/03/23 19:45
- Excel(エクセル) マクロで謎の現象が起きていて困ってます。 エクセルで作ったボタンを押すとマクロが動いて処理をしてくれ 3 2023/06/22 17:28
- Visual Basic(VBA) tatsumaru77様 昨日回答して頂いたものです。 すみませんが、昨日の質問で1つ補足があります 1 2022/05/15 15:06
- その他(ブラウザ) Excel VBA seleniumのedge操作について 業務上、分からないことがございまして、先 1 2022/06/20 16:59
- Visual Basic(VBA) ExcelのVBAを使い、複数シートの同一箇所を、同一条件にて一括でソルバーを回す方法について 1 2022/04/23 11:49
- Visual Basic(VBA) エクセルVBA エクセルを開いた後に編集可能な状態にするには? 2 2023/06/14 11:58
- Visual Basic(VBA) モードレスでユーザーフォームが開け(表示)ません。 4 2022/09/09 11:05
- その他(Microsoft Office) VBA メール送信済で実行されるはずが、実行されない時があります。 2 2023/02/02 14:05
- Excel(エクセル) エクセルで保存時に全部のシートの最終行をコピーして数値で貼り付けたい 3 2023/08/14 15:49
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで#N/Aを含めた平均値...
-
ドメインに参加しようとするとD...
-
アウトルックで送信時に「名前...
-
.NETでActiveXコントロールを使う
-
BASIC認証エラー時の表示HTML指定
-
エクセルVBA 関数エラー箇所を...
-
/var/log/messagesエラー出力
-
android studioエラー
-
クライアントが切断されました。
-
Ocn モバイルONE の1GB 追加
-
応答を解析できません
-
Tomcat のエラーログ
-
『ゼロサブネット』という言葉...
-
eclipse 3.5 でエラーが出ます。
-
[0x800706B5]シャットダウンで...
-
shrink3.2のcssキーとは?
-
ECCメモリのエラー訂正時とイベ...
-
マクロでのエラーについて
-
これだけで分かるか微妙かもで...
-
Excel マクロ 何故か部分的に作...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで#N/Aを含めた平均値...
-
循環参照にならない方法があっ...
-
アウトルックで送信時に「名前...
-
Ocn モバイルONE の1GB 追加
-
ドメインに参加しようとするとD...
-
MACアドレス 00:E0:C3 SAKAI って
-
エクセルVBA 関数エラー箇所を...
-
.NETでActiveXコントロールを使う
-
検索をかけた時、ページを開け...
-
クライアントが切断されました。
-
プロファイルエラー
-
ロイロノートのエラーについて ...
-
android studioエラー
-
エクセル #N/Aを印刷時に表示...
-
応答を解析できません
-
BASIC認証エラー時の表示HTML指定
-
MacでKCFErrorDomainCFNetwork ...
-
cpコマンドを行うとファイルサ...
-
VBAで入力規則 エラーでも入れ...
-
マクロでのエラーについて
おすすめ情報