数日前マクロをはじめた初心者です。
"・・・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で質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【Excel】住所に郵便番号を付記する方法 3 2022/05/07 17:15
- 郵便・宅配 北海道版の日刊スポーツとスポーツ報知を購入しましたが1週間以上たっても届きません。 1 2023/02/28 21:34
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/03/25 08:33
- 新幹線 北海道新幹線の速達列車の名前を予想してください。 私は、 速達型は、ぴりか号(上野、大宮、仙台、盛岡 4 2023/02/11 19:22
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- PHP ファイルの書き込みについて教えて下さい。 1 2023/03/20 12:01
- Visual Basic(VBA) マクロ実行時、自動で背景色を変えたい。 C列にあるチェックボックスをチェックするとB列に「TRUE」 4 2022/11/08 11:14
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
-
4
VBAでの Replace関数で、ワイルドカードは使えないのでしょうか?
Visual Basic(VBA)
-
5
バックグラウンドのプロセスのエクセルを閉じる方法
Visual Basic(VBA)
-
6
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
7
Excel マクロ VBA プロシージャが大きすぎます のエラー対処方法
Visual Basic(VBA)
-
8
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
9
エクセルでエラーが出て困っています。
Excel(エクセル)
-
10
【Excel VBA】マクロでExcel自体を終了させたい
Excel(エクセル)
-
11
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
12
VBAで「致命的なエラー」が出ました。どのくらい致命的なんでしょうか?
Access(アクセス)
-
13
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
14
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
15
EXCEL2013 VBA ListBox 未選択
Excel(エクセル)
-
16
エクセル マクロ名にブック名が付いた場合の修正方法
Excel(エクセル)
-
17
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
18
テキストボックスのvalueとtextの違い
Visual Basic(VBA)
-
19
Worksheets メソッドは失敗しました。のエラー処理のやり方
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
【Access】Excelインポート時に...
-
Excel vbs AppActivate エラー
-
マクロの「SaveAs」でエラーが...
-
数式は残し値をクリアするマク...
-
【VB.NET】 パワポ操作を非表示で
-
文字列内で括弧を使うには
-
VBでSQL文のUPDATE構文を使った...
-
実行時エラー '8021'とはどんな...
-
VB.net 重複チェックがしたいです
-
【VBA】findの検索条件における...
-
UBoundに配列がありませんとエ...
-
演算子が DBnull 及び integer...
-
エクセルVBAで埋め込みグラフ(C...
-
実行時エラー'-2147467259(8000...
-
ActiveCell.FormulaR1C1の変数
-
ADO 「認証に失敗しました」
-
【VBA】ワークブックを開く時に...
-
エクセル関数式=ABSで#VALUE!...
-
VBAでfunctionを利用しようとし...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
UserForm1.Showでエラーになり...
-
String""から型'Double'への変...
-
マクロで"#N/A"のエラー行を削...
-
VBAでfunctionを利用しようとし...
-
文字列内で括弧を使うには
-
実行時エラー 438 の解決策をお...
-
エクセル関数を教えてください
-
On ErrorでエラーNoが0
-
お助けください!VBAのファイル...
-
VBA データ(特定値)のある最...
-
【VBA】ワークブックを開く時に...
-
インポート時のエラー「データ...
-
実行時エラー'-2147467259(8000...
-
マクロの「SaveAs」でエラーが...
-
WindowsでのPythonの挙動について
-
ApplicationとWorksheetFunctio...
-
Excel vbaについての質問
-
エクセルVBA 「On Error GoTo...
-
Filter関数を用いた結果、何も...
-
ACCESSで値を代入できないとは?
おすすめ情報