

数日前マクロをはじめた初心者です。
"・・・Findプロパティを取得できません"というエラーの解決方法がわかりません。シートには以下の内容が記述されています。
-------------------------------------------------(以下シート)
A列 B列 C列
空白 田中 北海道札幌市中央区宮の森12345
・ 鈴木 北海道札幌市中央区宮の森45678
・ 佐藤 北海道札幌市北区あいの里78956
AA列 AB列
1 北海道札幌市中央区
2 北海道札幌市北区
3 北海道札幌市東区
-------------------------------------------------(以上シート)
B列(人名)のC列(住所)をAB列(地域)に対応したAA列(番号)で割り振りたいのです。
そこで以下のマクロを作りました。
-------------------------------------------------(以下マクロ)
Sub macro1()
Dim i As Integer, j As Integer
i = 1
j = 1
Do While Cells(i, "B").Value <> ""
If Application.WorksheetFunction.Find(Cells(j, "AB"), Cells(i, "C"), 1) = 1 Then
Cells(i, "A") = Cells(j, "AA").Value
i = i + 1
j = 1
Else
j = j + 1
End If
Loop
End Sub
-------------------------------------------------(以下マクロ)
A列
1
1
2
と入る予定でつくったのですが、最期の 2 が入らずエラーとなります。
どこが間違いかわかりません。
ご教授願います。
No.2ベストアンサー
- 回答日時:
Application.WorksheetFunction.findは見つからない場合はエラーを返すので、on error などを使って見つからない場合の処理が必要だと思います。
またはApplication.WorksheetFunction.findの代わりにinstrで処理すれば見つからなくてもエラーは起きないので、
>If Application.WorksheetFunction.find(Cells(j, "AB"), Cells(i, "C"), 1) = 1 Then
を
If InStr(Cells(i, "C"), Cells(j, "AB")) = 1 Then
に変更してはどうでしょうか?
ご指摘の InStr で出来ました。こんな関数あったんですね。ありがとうございます。
ところで修正前のコードは何故エラーが出るのでしょうか。
findが見つからなかった場合のコードは後で付記するつもりだったのですが、本件のコードは問題無いとおもっていたのですが・・・。
No.3
- 回答日時:
>ところで修正前のコードは何故エラーが出るのでしょうか。
>本件のコードは問題無いとおもっていたのですが
すっきりしないと何でしょうから。。
3番目の佐藤さんの場合。
(1)Find("北海道札幌市中央区", "北海道札幌市北区あいの里78956", 1)
(2)Find("北海道札幌市北区", "北海道札幌市北区あいの里78956", 1)
質問者は上記のように、(1)(2)の順に実行され、
(2)でヒットするからエラーは出ないはずと思われたのでしょうが、
先に実行される(1)ではヒットしないですよね。
ワークシート関数Findはヒットしないとエラーを返すので
その(1)を実行したところでエラーが出てしまうわけです。
因みに、田中、鈴木は、最初のAB1の値でヒットするのでエラーが出ない。
以上。
No.1
- 回答日時:
この記述ではループするたびFindの検索範囲が変更されているため、エラーが発生しているでは?通常であれば検索範囲は不変ですよね。
質問文しか見ずに回答しています。あしからず。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
数式は残し値をクリアするマク...
-
UserForm1.Showでエラーになり...
-
HTMLソースが表示のページのも...
-
ACCESS VBAのSplit()関数の使用...
-
mailstorehomeのエクスポートで...
-
objectタグを使用してEXCEL出力
-
ISNAとISERRORの使い方の違い
-
コンボボックスの特定項目だけ...
-
LaTeXのエラーについて(コンパ...
-
VBAのエラーについて
-
CSV出力時、件数によりエラーと...
-
スクリプト エンジンの例外が発...
-
MDBへレコード挿入中にエラーが...
-
教えて下さい
-
配列数式の解除
-
Libre office マクロ
-
マクロを組んで作業するのは実...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
【マクロ】【画像あり】4つの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
【VBA】ワークブックを開く時に...
-
お助けください!VBAのファイル...
-
VBAでfunctionを利用しようとし...
-
On ErrorでエラーNoが0
-
VBA データ(特定値)のある最...
-
インポート時のエラー「データ...
-
マクロで"#N/A"のエラー行を削...
-
VBAのリストボックスで、横スク...
-
ApplicationとWorksheetFunctio...
-
Excel vbaについての質問
-
「実行時エラー '3167' レコー...
-
実行時エラー 438 の解決策をお...
-
【VBAエラー】Nextに対するFor...
-
ACCESSで値を代入できないとは?
-
Filter関数を用いた結果、何も...
-
文字列内で括弧を使うには
-
【VB.NET】 パワポ操作を非表示で
-
レコード登録時に「演算子があ...
おすすめ情報