
エクセルのマクロで、標準モジュール1に下記のようなコードを記述し、
各シートから「call 住所等自動分割()」を呼び出してみましたが、
実行時に「オブジェクトが必要です。」とエラーが出てしまい、
デバッグを実行ボタンを押したところ「If Intersect(Target, ActiveSheet.Range("AD3:AD303")) Is Nothing Then」部分でエラーが出ていました。
調べてみましたが、解決用法がわかりません。
お力をお貸しください。
シートは1月から12月までの、12シートあります。
--------------------------------------------------
Public Sub 住所等自動分割()
Dim tmp() As String
Dim d As Integer
If Intersect(Target, ActiveSheet.Range("AD3:AD303")) Is Nothing Then
'Exit Sub
Else
For d = 3 To 303
If Cells(d, "AD") = "" Then
Exit For
Else
tmp = Split(Cells(d, "AD"), vbLf)
If UBound(tmp) >= 6 Then
Application.EnableEvents = False
'Cells(行, 列)
Cells(d, "AD") = Mid(tmp(5), 2, 7) '郵便番号
Cells(d, "AE") = tmp(6) '住所
Cells(d, "AG") = tmp(2) '氏名
Application.EnableEvents = True
End If
End If
Next d
End If
End Sub
--------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Call 住所等自動分割
End Sub
No.1ベストアンサー
- 回答日時:
こんにちは
>実行時に「オブジェクトが必要です。」とエラーが出てしまい、
直接の原因は、変数 Target がいきなり未定義で使用されているからです。
(それぞれのプロシージャは、基本的に独立していますので、共通変数を宣言していない限りは明示的に受け渡す必要があります。)
ChangeイベントのTargetを受け渡したいのではないかと想像しますので、
・「住所等自動分割側」は引数を受け取れる形式にする。
・呼び出し側からは、引数を渡すようにする。
のようにすれば宜しいと思います。
なお、ご質問には直接関係がありませんけれど・・
もしも、各シートで同じ処理を行いたいのであるなら、それぞれのシートに記述しなくても、ThisWorkbookモジュールの SheetChange イベントに記述することで、全シートに対しての処理をまとめて記述することが可能です。
(除外するシートがあるような場合には、その内容を追記する必要はありますけれど)
そうすることで、各シートモジュールに同じ内容を何度も記述しなくても済むようになるでしょう。
無事解決しました。
標準モジュールの呼び出される側に
Public Sub 住所等自動分割(ByVal Target As Range)と記述し
呼び出す側に
Private Sub Worksheet_Change(ByVal Target As Range)
Call 住所等自動分割(Target)
End Sub
と記述したところ無事に動きました。
ありがとうございます!
No.2
- 回答日時:
Intersectの使い方は、下記のサイトに分かりやすく書かれています。
http://officetanaka.net/excel/vba/tips/tips118.htm
エラーが出ている箇所ですと、TargetとActiveSheet.Range("AD3:AD303")の重なるセルが無いとき、Nothingを返します。
しかし、住所等自動分割マクロでは、Targetに何も入れていないため、エラーになっています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) vba 重複データ合算 5 2023/07/05 18:55
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) [Excel VBA] このコードでは行の挿入や行の消去をすると13のエラーが出てしまう。 3 2022/12/09 00:29
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) excel2021で実行できないマクロ。どこを直したらいいのか 2 2022/03/28 03:40
このQ&Aを見た人はこんなQ&Aも見ています
-
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
VBAでEmpty値って何ですか?
Excel(エクセル)
-
VBAで実行時エラー'424' オブジェクトが必要ですと出る
Visual Basic(VBA)
-
-
4
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
5
ブック名、シート名を他のモジュールからも参照可能にする方法
Access(アクセス)
-
6
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
7
エクセルVBAでシートモジュールでのパブリック変数
Excel(エクセル)
-
8
マクロ 実行ボタンを押さずに常に実行
Excel(エクセル)
-
9
UserForm1.Showでエラーになります。
工学
-
10
エラー内容が分かりません
Access(アクセス)
-
11
VBAでオブジェクトがありません、となってしまう
Visual Basic(VBA)
-
12
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
13
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
-
14
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
15
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
16
エクセルVBA intersect columnsの複数列のやり方
Visual Basic(VBA)
-
17
VBAのエラーについて、”実行時エラー424オブジェクトが必要です”
Excel(エクセル)
-
18
エクセルVBAで、MsgBox やInputBox は、画面の中央以外に表示させたい。
Excel(エクセル)
-
19
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
20
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAでオブジェクトが必...
-
エクセル マクロについて、 Inp...
-
エクセルマクロ(超初心者)
-
複数シートを一括で保護を掛け...
-
エクセルのVBAについて教えてく...
-
エクセルで品番を入れると、そ...
-
マクロのコマンドボタン《Activ...
-
Excelで、あるセルの値に応じて...
-
「段」と「行」の違いがよくわ...
-
VBAマクロ実行時エラーの修正に...
-
エクセルで離れた列を選択して...
-
Worksheets メソッドは失敗しま...
-
B列の最終行までA列をオート...
-
EXCELのSheet番号って変更でき...
-
マクロ1があります。 A1のセル...
-
別ブックをダイアログボックス...
-
vba 2つの条件が一致したら...
-
【VBA】写真の貼り付けコードが...
-
【VBA】【ユーザーフォーム_Lis...
-
エクセルで特定の文字列が入っ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBAでオブジェクトが必...
-
エクセルのVBAについて教えてく...
-
コンボボックスへ降順に表示す...
-
エクセルを共有にすると、シー...
-
エクセルマクロ(超初心者)
-
Access-VBAでExcelファイ...
-
複数シートを一括で保護を掛け...
-
エクセルマクロ 変数をワーク...
-
Excell VBA にて配列に定数を代...
-
マクロのコマンドボタン《Activ...
-
マクロ実行後、画面がちかちか...
-
エクセル2013
-
エクセルのマクロ(大量データ...
-
エクセルで品番を入れると、そ...
-
エクセルVBAを勉強中なのですが...
-
EXCEL【VBE】 範囲別にその...
-
エクセルVBA 別シートの最終セ...
-
excelのvbaでのシート指定が時...
-
VBAでVlookup機能を使うときに...
-
エクセル2007 複数のワークシ...
おすすめ情報