[解決済み】エクセルVBA。一致しない、エラー "WorksheetFunctionクラスのMatchプロパティを取得できない"
2022-01-27 19:35:25
質問
どうしても、これがうまくいきません。上記のようなエラーが出てしまいます。
このテーブルがあり、コードが他の列のどこかにある自分のサブコードと一致するかどうかを調べようとしているのですが、エラーになります。あなたの助けは非常に感謝されています。
Sub testing()
Dim m1 As long
Dim myrange As Range
Set myrange = Worksheets("Sheet1").Range("B2:B23")
For e = 2 To 23
m1= Application.WorksheetFunction.Match(Cells(e, 1).Value, myrange, 0)
If m1 > 0 Then
Cells(e, 3).Value = "Yes"
Else
Cells(e, 3).Value = "No"
End If
Next e
MsgBox "Complete!"
End Sub
解決方法は?
を使用します。
Application.Match
関数を使用すると、エラーをトラップする機能が向上します。この関数を使用した場合
WorksheetFunction.Match
マッチしない場合はエラーが返され、今回のようになります。
If Not IsError(Application.Match(Cells(e, 1).Value, myrange, 0)) Then
'Do stuff when the match is found
Cells(e, 3).Value = "Yes"
Else:
Cells(e, 3).Value = "No"
End If
を使用することも可能です。
CountIf
関数を使用します。
If Application.WorksheetFunction.CountIf(myRange, Cells(e,1).Value) > 0 Then
Cells(e,3).Value = "Yes"
Else:
Cells(e,3).Value = "No"
End If
どちらのアプローチも
m1
変数の中でこの変数を代入することができます。
True
の部分は
If/Then
ステートメントを識別する必要がある場合
ここで
にマッチします。
関連
-
[解決済み] Excel VBA "レンジクラスのオートフィルメソッドに失敗しました"
-
[解決済み] Redimを使用して配列のデータ型を設定する
-
[解決済み] エクセルVBAです。エラー1004 WorkSheetFunction 'Unable to get Vlookup property'
-
[解決済み] ワークシートを1枚飛ばし、残りのワークシートを処理する
-
[解決済み] VBAのコードに「Label Not define」がありますが、これは何ですか?
-
[解決済み] エクセルVBAの検索文字列 : エラー2015
-
[解決済み] コンパイルエラーです。Forがない場合は次へ|VBA
-
[解決済み] <>とはどういう意味ですか?
-
[解決済み] Excel VBA Projectのパスワードを解読する方法はありますか?
-
[解決済み】VBAは辞書構造を持っていますか?
最新
-
nginxです。[emerg] 0.0.0.0:80 への bind() に失敗しました (98: アドレスは既に使用中です)
-
htmlページでギリシャ文字を使うには
-
ピュアhtml+cssでの要素読み込み効果
-
純粋なhtml + cssで五輪を実現するサンプルコード
-
ナビゲーションバー・ドロップダウンメニューのHTML+CSSサンプルコード
-
タイピング効果を実現するピュアhtml+css
-
htmlの選択ボックスのプレースホルダー作成に関する質問
-
html css3 伸縮しない 画像表示効果
-
トップナビゲーションバーメニュー作成用HTML+CSS
-
html+css 実装 サイバーパンク風ボタン
おすすめ
-
[解決済み] OutlookでVBAスクリプトを実行しようとすると、「SubまたはFunction not defined」と表示される。
-
[解決済み] コンパイルエラーです。End If without block If
-
[解決済み] ワークシートを1枚飛ばし、残りのワークシートを処理する
-
[解決済み] Access VBAで "Duplicate declaration in current scope "というエラーが発生する。
-
[解決済み] VBAを使用してExcelシートの空白でない列の数を求めることができます。
-
[解決済み] VBAを使用してtxtファイルを作成し、書き込む方法
-
[解決済み] FormulaR1C1 の機能は何ですか?
-
[解決済み] どのようにvbaコードCells.FindによってExcelの列で値を見つけるために
-
[解決済み] VBAでIFERRORを使用する
-
[解決済み] VBAで関数から配列を返す