0

誰かがVBAExcelで私の以下の問題のアイデアを知っていますか

マクロは1行で5つのセル（続き）をチェックする必要があります。合計で500を超える行があります。行のセルの色が「赤」の場合は、一部の列で「新規」と記載する必要があります。

任意のアイデアや解決策..??

私は以下のコードを使用して、単一の（または選択された）列のセルが赤になっていることを確認します...

誰かがVBAExcelで私の以下の問題のアイデアを知っていますか

マクロは1行で5つのセル（続き）をチェックする必要があります。合計で500を超える行があります。行のセルの色が「赤」の場合は、一部の列で「新規」と記載する必要があります。

任意のアイデアや解決策..??

私は以下のコードを使用して、単一のセルが赤であるかどうかを確認します...

Sub test()

    Dim erange as range

    for each erange in selection

        if erange.interior.color = red then
            Erange.offset(0,1)="New"
        end if 

    next erange

end if
4

1 に答える 1

1

これをコメントとして入れるつもりでしたが、そこには収まりませんでした。

VBA Excelでの私の以下の問題のアイデアを知っている人はいますか

コードには 2 つの主なエラーがあります。

まず、RedExcel で有効な色に評価されません。

その行を次のように変更します

 if erange.interior.color = vbRed then

また

 If erange.Interior.ColorIndex = 3 Then

そして第二に、あなたはEnd Sub. 最後end ifをEnd Sub

今あなたの主な問題に。上記のコードは、連続する 5 つのセルにRed色があるかどうかを確認するのに役立ちません。1つの方法は、このロジックを使用することです

範囲をループしerange、5 つのセルで構成されるように設定します。たとえば、範囲が A1:C10 の場合、ループでは、最初の範囲は A1:A5、次に A2:A6、次に A3:A7 になります。範囲がある場合は、範囲内の各セルの色が赤かどうかを確認します。これがあなたの始まりになることを願っています。

于 2012-05-14T08:58:18.673 に答える