同一儲存格要怎麼正負數值自動變色？

您好，安 安4

很高興能回答您的問題。您可以在我之前的回覆下方標記「是」，這將有助於其他有類似需求的使用者更快速地找到參考解決方案，並大大協助我繼續在社群中提供技術支援。

感謝您的合作，祝您愉快。

致以誠摯地問候，
Jonathan Z |Microsoft 社區支持專員

有你真好，真心感謝你！

您好，安 安4

在 Excel 的 PC 應用程式中，用滑鼠右鍵按一下正在輸入資料的工作表左下角的工作表名 稱，選擇 「檢視代碼」，然後將以下代碼貼入其中。

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim cell As Range

    Dim parts As Variant

    Dim i As Integer

    If Target.Count > 1 Then Exit Sub

    For Each cell In Target

        If InStr(cell.Value, vbLf) > 0 Then

            parts = Split(cell.Value, vbLf)

            cell.Font.ColorIndex = xlAutomatic

            If IsNumeric(parts(0)) And CDbl(parts(0)) < 0 Then

                cell.Characters(Start:=1, Length:=Len(parts(0))).Font.Color = vbRed

            End If

            If UBound(parts) > 0 Then

                If IsNumeric(parts(1)) And CDbl(parts(1)) < 0 Then

                    cell.Characters(Start:=Len(parts(0)) + 2, Length:=Len(parts(1))).Font.Color = vbRed

                End If

            End If

        End If

    Next cell

End Sub

此代碼的功能是在工作表中的儲存格輸入完成後，以換行符分割內容，如果有負數，則將此字元的字型設定為紅色。

這是否符合要求？

致以誠摯地問候，
Jonathan Z |Microsoft 社區支持專員

參考格式範例如下圖

您好，安 安4
歡迎來到 Microsoft 社區。

在Excel中，如果同一單元格包含多行數字，而想要根據數字的正負調整對應的字體顏色，條件格式無法實現這個需求，需要編寫專門的VBA代碼。

如果需要，可以在回覆中提供一張您的數據的截圖，顯示您的數據的具體情況。另外請確認您的單元格中數字之間是否是通过Alt+Enter插入換行符的，

在確認更多信息後，我可以幫助您編寫代碼。期待您的回覆。

致以誠摯地問候，
Jonathan Z |Microsoft 社區支持專員