全く理解できていない初心者です。
あるサイトで見つけたマクロです。
「検索結果のセルをすべて選択する」
Sub SelectTargets()
Dim Target As String
Dim FoundCell As Range, SearchArea As Range
Dim Addr As String
Dim FoundAddr() As String
Dim i As Long
Target = Application.InputBox("検索文字列入力", "検索", Type:=2)
If Target = "False" Then Exit Sub
Set SearchArea = ActiveSheet.UsedRange
* Set FoundCell = SearchArea.Find(what:=Target, LookIn:=xlValues, _
LookAt:=xlPart, MatchCase:=False, MatchByte:=False)
If FoundCell Is Nothing Then Exit Sub
Addr = FoundCell.Address
Do
ReDim Preserve FoundAddr(i) '配列の内容を維持したまま再宣言
FoundAddr(i) = FoundCell.Address '検索結果のアドレスを配列に格納
Set FoundCell = SearchArea.FindNext(After:=FoundCell)
i = i + 1
If FoundCell Is Nothing Then Exit Do
Loop Until FoundCell.Address = Addr
'配列に格納されたアドレスをカンマ区切りで結合し、セル範囲を一括選択
Range(Join(FoundAddr, ",")).Select '---(1)
End Sub
↑家のエクセル(2010)では完璧でできるのですが、会社のエクセル(2003)では、「実行時424 オブジェクトが必要です」とエラーメッセージが出ます。
コードの入力ミスがありました。
上から2行目 Dim foundcell As Range, sercharea( 正 seacharea)As Range
後は、入力ミスはなさそうなのですが、実行キーを押すと
「実行時424 オブジェクトが必要で」と出ます。
黄色のマーカーが出るのが、*印を置いた
↓に出ます。
Set FoundCell = SearchArea.Find(what:=Target, LookIn:=xlValues, _
LookAt:=xlPart, MatchCase:=False, MatchByte:=False)
後、気になるのがコードを入力して
「target」「searcharea」「foundcell」「foundaddr」「addr」などが頭文字が大文字になりません。
無理やり大文字にしてみたりしましたが…
「オブジェクトが必要です」に関係あるのかないのかも分かりませんが、なぜ、エラーが出てしまうのか?
入力ミスが原因なのか?
何が足りないのか?何か不要なコードがあるのか?
どの用意すればいいのか教えていただけませんか?
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
>黄色のマーカーが出るのが、*印を置いた
その黄色い行にも「SearchArea」の誤記がありますね。または、間違いを直したつもりのDimの宣言の方が、まだ間違ってるのかもしれません。
あなたが手で書いた今回のご相談の情報提供文章の中で、どの部分が「今回ご相談を書いたときの更に誤記」で「どれが会社で失敗している実際のマクロの内容」なのか、判別できません。
しっかり見直して、正しいマクロを書けるように更によくチェックしましょう。
#参考
VBE画面でツールメニューのオプションの編集タブ、「変数の宣言を強制する」他の全てのチェックをチェックしてマクロの練習をするようにしてみましょう。少なくとも今回のような誤記等のミスは、イミフメイの実行エラーになる前に別の分かりやすいエラーで教えてくれます。
ありがとうございます。
やはり、完全なカードの入力ミスでした。
何度も見直して、確認したつもりなのですが…
ご指摘いただいたところを修整したら、できました(#^.^#)
アドバイスありがとうございます。
お恥ずかしい質問にご回答いただき感謝します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
中学生です。 チ○コを小さくす...
-
料、代、費の使い分けについて
-
自分で処女膜を破ってしまいま...
-
エクセルの折れ線グラフの折れ...
-
マウスの使用時の汚れ
-
マークシート用紙に鉛筆で書く...
-
バイトの研修は何分前に行けば...
-
会社に仕事ができない新人事務...
-
CD-Rに油性ペンで書くのはやめ...
-
電卓は持参するもの?会社が買...
-
印鑑の跡(朱肉)の消し方
-
複写で写った文字をキレイに消...
-
公式文書や書類等、鉛筆書き不...
-
英語の文書で「社外秘」「丸秘...
-
胸ポケットがない服で、筆記具...
-
ボールペンのキャップを紛失し...
-
コインに付いた粘着テープのネ...
-
ガムを噛みながら、打ち合わせ...
-
ノートPCで常に「シュー」と言...
-
建設業退職金共済(建退共)に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
中学生です。 チ○コを小さくす...
-
自分で処女膜を破ってしまいま...
-
料、代、費の使い分けについて
-
バイトの研修は何分前に行けば...
-
エクセルの折れ線グラフの折れ...
-
鉛筆の囲いは消すべきですか?
-
コンビニでエアダスターは、売...
-
なぜなら~で始まった文章の終...
-
修正ペン・修正テープが利用で...
-
複写で写った文字をキレイに消...
-
テーブルに張り付いた印刷物・・・
-
自分で刺青の方法は?
-
ワイシャツについたボールペン...
-
ノートPCで常に「シュー」と言...
-
鉛筆の汚れについて
-
英語の文書で「社外秘」「丸秘...
-
どろぼうけずりの語源
-
マクロ F8が効かない
-
ノートの余分なページをキレイ...
-
学術論文と研究ノートの違い
おすすめ情報