ホームページ >ソフトウェアチュートリアル >オフィスソフトウェア >Excel VBA の列をループする
vlookup 生成の背後に式があり、iserror に指定されたパラメーターが間違っているため、これが原因で発生します。
数値形式に変換して iserror を適用したところ、問題ありませんでした。
私のコードは次のとおりです:
For i = 2 To module_number - 1
Range("C" & i).Select: ActiveCell.Value = ActiveCell.Value: If IsError(ActiveCell.Value) then ActiveCell.Value = 0: Module_wrong = 1: iublink = Cells(ActiveCell.Row, 1) : 終了サブ
###次###
つまり、コードを分割して数値に変換するだけです。「ソフトウェアが人生を変えるなら」グループへようこそ。一緒に作業効率を向上させましょう。
VBA vlookup アプリケーション
パブリックサブ aaaa()
Dim z As Long
x = "Y"
w = "N"
z = 2から10000の場合
If Cells(z, 1) "" then
Cells(z, 2).FormulaR1C1 = "=IF(ISNUMBER(VLOOKUP(RC[-1],C[1],1,0)),""" & x & """,""" & w & """)"
セル(z, 2).値 = セル(z, 2).値
終了の場合
###次###
エンドサブ----------------
vlookup はデータが見つからない場合にエラー値を返すため、直接使用することはできません
vlookup を使用する必要がある場合は、次のコードを参照してください:
-------------------------------------
パブリックサブ dsadsa()
Dim x を文字列として、w を文字列として
Dim z As Long、u As Variant
Dim o As Range: Set o = Worksheets("Sheet1").Range("c:c")
x = "Y"
w = "N"
z = 2 ~ 6の場合
If Cells(z, 1) "" then
エラー時は次へ再開
u = Application.WorksheetFunction.VLookup(Sheets("sheet1").Cells(z, 1), o, 1, False)
If Err.Number = 0 then
セル(z, 2) = x
###それ以外###
セル(z, 2) = w終了の場合
エラークリア
終了の場合
###次###
エンドサブ以上がExcel VBA の列をループするの詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。