エクセルで特定の色のデータにマイナスをつける方法

Question

添付図の赤色のデータにマイナスをつけたいと考えています。
エクセルで特定の色のデータのセルにマイナスをつける方法をご存知の方がいらっしゃいましたらご教授をしていただきたいです。
よろしくお願いします。

Comments

[xail2222]

赤色にはどうやってしているのでしょうか？
ただ単に、色を変えているだけですか？
それとも書式設定でマイナス値を赤色にしているのでしょうか？

[LuiNy7tiNYEfg3A]

株取引の収支を算出してくれるページがあるので、そちらの算出結果をRPAのようにPythonのpyautoguiライブラリでコピペして、エクセルのシートに貼り付けています。
そのページのスクレイピングは出来ないので、僕のpython知識では対応できず、エクセル側で何とか赤いデータだけマイナスをつけられればと考えているのですが、、、

Answer 1

もし、外部から取り込んだデータについて、一時的な変換作業が必要なら
フィルター機能で「色フィルター」を使われてみてはいかがでしょうか？

フィルターをかけたあと、対象のセルに対して一括で " -1 " を乗算するといいです。

一定値を、一括で乗算させるには、”形式を指定してコピー”の機能が使えます。

Comments

[LuiNy7tiNYEfg3A]

確かにその方法でもいけますね。
ご回答ありがとうございました。

Answer 2

こんな感じでどうでしょうか。

Sub Sample()
    Dim ws As Worksheet, c As Range
    Set ws = ActiveSheet
    For Each c In Intersect(ws.UsedRange, ws.Columns("AJ"))
        c.Value = IIf(c.Font.ColorIndex = 3, -1, 1) * Abs(c.Value)
    Next
End Sub

Comments

[LuiNy7tiNYEfg3A]

マクロで対応する考えがありませんでした。
ご回答ありがとうございました。

Answer 3

選んだ範囲をそうする場合の一例です。

Sub AddMinusIfRed()
    Const 特定の色 = vbRed 'vbRedは例
    Dim cell As Range
    
    For Each cell In Selection
        If cell.Font.Color = 特定の色 Then
            cell = "-" & cell
        End If
    Next
End Sub

Comments

[LuiNy7tiNYEfg3A]

そんなマクロがあるんですね。
解決出来ました。
ご回答ありがとうございました。