根据单元格中的内容更改单元格的内容

时间:2014-05-25 10:22:09

标签: excel vba

是否有人知道如何更改电子表格中单元格的内容,具体取决于在同一单元格中找到的内容,然后使用VBA更改颜色方案

例如

  

单元格值= N / A#

     

新细胞价值将=未上一次报告

     

配色方案=黑色&黄色背景上的大胆文字

或者

  

单元格值=零或单元格中没有任何内容,所以空白

     

新单元格值=先前报告中未提供更新

     

配色方案=白色&红色背景上的大胆文字

还有其他单元格值,这些值保持不变。

提前感谢您提供任何帮助,非常感谢

http://www.mrexcel.com/forum/excel-questions/780048-how-do-you-change-contents-cell-depending-what-already-cell.html

1 个答案:

答案 0 :(得分:1)

选择单元格并运行:

Sub repair()
    Dim r As Range
    For Each r In Selection
        If r.Text = "#N/A" Then
            r.Value = "Not On Previous Report"
            r.Interior.ColorIndex = 27
            r.Font.FontStyle = "Bold"
        End If
        If r.Value = "" Or r.Value = 0 Then
            r.Value = "No Update Provided On Previous Report"
            r.Interior.ColorIndex = 3
            r.Font.FontStyle = "Bold"
            r.Font.ColorIndex = 2
        End If
    Next r
End Sub