全く理解できていない初心者です。
あるサイトで見つけたマクロです。
「検索結果のセルをすべて選択する」
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ランキング
-
中学生です。 チ○コを小さくす...
-
自分で処女膜を破ってしまいま...
-
バイトの研修は何分前に行けば...
-
なぜなら~で始まった文章の終...
-
料、代、費の使い分けについて
-
紙に写った筆圧の跡で、文字を...
-
字が汚い人って頭悪いんですか?
-
鉛筆の汚れについて
-
ノートパソコン 扇風機で冷や...
-
コンビニでエアダスターは、売...
-
鉛筆を半分に切る方法。 女です...
-
色鉛筆の落書き
-
机の上の透明のビニールシート...
-
シャー芯が足の裏に刺さりまし...
-
ふたが開かない・・・
-
生保レディ辞めたいのですが引...
-
残った筆圧で、メモを読み取れ...
-
ビニール製のバックについたセ...
-
コルクボードに押しピンを刺し...
-
接尾助数詞、点と個の違いは何...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
中学生です。 チ○コを小さくす...
-
自分で処女膜を破ってしまいま...
-
料、代、費の使い分けについて
-
バイトの研修は何分前に行けば...
-
エクセルの折れ線グラフの折れ...
-
コンビニでエアダスターは、売...
-
マクロ F8が効かない
-
なぜなら~で始まった文章の終...
-
ワイシャツについたボールペン...
-
鉛筆の囲いは消すべきですか?
-
ノートPCで常に「シュー」と言...
-
ノートの余分なページをキレイ...
-
パワーポイント2016で蛍光...
-
複写で写った文字をキレイに消...
-
どろぼうけずりの語源
-
修正ペン・修正テープが利用で...
-
鉛筆の汚れについて
-
学術論文と研究ノートの違い
-
ふたが開かない・・・
-
建退共の証紙について
おすすめ情報