エクセルのマクロで、標準モジュール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も見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
-
4
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
5
複数のマクロボタンをまとめて一つのマクロボタンにするということ。
Excel(エクセル)
-
6
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
7
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
8
Excel マクロ VBA プロシージャが大きすぎます のエラー対処方法
Visual Basic(VBA)
-
9
別のシートから値を取得するとき
Visual Basic(VBA)
-
10
VBAで「致命的なエラー」が出ました。どのくらい致命的なんでしょうか?
Access(アクセス)
-
11
「オブジェクトが必要です。」エラーになります。
Visual Basic(VBA)
-
12
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
13
split関数で区切り文字がない場合
Visual Basic(VBA)
-
14
Cellsのかっこの中はどっちが行と列なの?
Visual Basic(VBA)
-
15
ユーザーフォームに入力したデータを保持する方法
Visual Basic(VBA)
-
16
マクロの「SaveAs」でエラーが出るのを解消したいです(再)
Visual Basic(VBA)
-
17
Excel VBAでのWorksheet_Changeが動作しない原因
Excel(エクセル)
-
18
エクセルVBAのIF文の否定の複数条件
Excel(エクセル)
-
19
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
20
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAでオブジェクトが必...
-
コンボボックスへ降順に表示す...
-
VBAでVlookup機能を使うときに...
-
エクセルマクロ 変数をワーク...
-
複数シートを一括で保護を掛け...
-
エクセルマクロ(超初心者)
-
エクセルのVBAについて教えてく...
-
ExcelVBA その回のみ...
-
エクセル マクロ オートフィ...
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
VBAマクロ実行時エラーの修正に...
-
VBA シートをコピーする際に Co...
-
マクロの「SaveAs」でエラーが...
-
LEFT関数とIF関数の組み合わせ...
-
IIF関数の使い方
-
エクセルVBAが途中で止まります
-
エクセルで特定の文字列が入っ...
-
Worksheets メソッドは失敗しま...
-
EXCELのSheet番号って変更でき...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access-VBAでExcelファイ...
-
コンボボックスへ降順に表示す...
-
エクセルVBAでオブジェクトが必...
-
複数シートを一括で保護を掛け...
-
Excell VBA にて配列に定数を代...
-
エクセルのVBAについて教えてく...
-
マクロ実行後、画面がちかちか...
-
マクロのコマンドボタン《Activ...
-
Auto_Openマクロ
-
エクセルVBA 別シートの最終セ...
-
vbaアニメーションについて
-
Excelに関数使用を調べる方法
-
エクセルのVBAの関数について
-
エクセルマクロ 変数をワーク...
-
オフィス2003VBAのスプレッドシ...
-
エクセルの全てのシート名を一...
-
エクセルを共有にすると、シー...
-
エクセルの図形(線)の情報
-
EXCELに関する質問
-
エクセル マクロについて、 Inp...
おすすめ情報