[已解决]A1没有变成红体字？

lingyuncelia1

为什么运行如下代码，A1没有变成红体字？哪位大神可以赐教？
Sub celia()
For j = 1 To 5
If Cells(1, j).Font.Size = 20 Then x = x & "," & Cells(1, j).Address
Next
If Range(Mid(x, 2)).Text Like "*" & "1" & "*" Then
Range(Mid(x, 2)).Font.Color = RGB(255, 0, 0)
End If
End Sub

最佳答案

月排行榜 / 总排行榜

yorkchenshunan

2016-3-17 09:01

你想要实现什么效果？字体为20且含1的单元格，字体变为红？

你的程序问题在于你的Range(Mid(x, 2)).Text结果是NULL，IF 语句永远是FALSE

跳转到最佳答案楼层

n520

Sub turnred()
For j = 1 To 5
If Cells(1, j).Text Like "*" & "1" & "*" Then
Cells(1, j).Font.ColorIndex = 3    '这个就可以变成红色
End If
Next
End Sub

yorkchenshunan

你想要实现什么效果？字体为20且含1的单元格，字体变为红？

你的程序问题在于你的Range(Mid(x, 2)).Text结果是NULL，IF 语句永远是FALSE

grf1973

Sub celia()
    For j = 1 To 5
        If Cells(1, j).Font.Size = 20 Then x = x & "," & Cells(1, j).Address: y = y & Cells(1, j)
    Next
    If y Like "*1*" Then Range(Mid(x, 2)).Font.Color = RGB(255, 0, 0)
End Sub
还提这个问题，说明上次改的那个你没理解。

lingyuncelia1

n520 发表于 2016-3-16 22:47
Sub turnred()
For j = 1 To 5
If Cells(1, j).Text Like "*" & "1" & "*" Then

Sub turnred()
For j = 1 To 5
If Cells(1, j).Text Like "*" & "1" & "*" Then
Cells(1, j).Font.Color = RGB(255, 0, 0)
End If
Next
End Sub

这个也是可以变红体字的

lingyuncelia1

yorkchenshunan 发表于 2016-3-17 09:01
你想要实现什么效果？字体为20且含1的单元格，字体变为红？

你的程序问题在于你的Range(Mid(x, 2)).Te ...

我想要的效果就是 ：字体为20且含1的单元格，字体变为红。不明白为什么TEXT会无效，将它改为VALUE，A1\C1\E1都变红。

lingyuncelia1

grf1973 发表于 2016-3-17 15:49
Sub celia()
    For j = 1 To 5
        If Cells(1, j).Font.Size = 20 Then x = x & "," & Cells(1, j ...

阁下是比较明白我的意思的，因为我也是关于你提供的代码而提问的。我知道x = x & "," & Cells(1, j).Address是将几个符合要求的地址串起来，而y = y & Cells(1, j)是将符合要求的地址的文本串起来。可惜我还要将符合要求的各个单元格分类处理。比如，Range(Mid(x, 2))是A1\C1\E1，但是这三个单元格中含有1的单元格要变红色，含有3的要变绿色，含有5的要变蓝色。即A1红色，C1绿色，E1蓝色。

yorkchenshunan

lingyuncelia1 发表于 2016-3-17 20:35
我想要的效果就是 ：字体为20且含1的单元格，字体变为红。不明白为什么TEXT会无效，将它改为VALUE，A1\C1 ...

那很简单，我就不优化你的代码了，直接在你原代码上做小小调整：

Sub celia()
For j = 1 To 5
If Cells(1, j).Font.Size = 20 Then x = x & "," & Cells(1, j).Address
Next
For Each Rg In Range(Mid(x, 2))
    If Rg Like "*" & "1" & "*" Then
        Rg.Font.Color = RGB(255, 0, 0)
    End If
Next
End Sub

lingyuncelia1

yorkchenshunan 发表于 2016-3-17 21:28
那很简单，我就不优化你的代码了，直接在你原代码上做小小调整：

Sub celia()

阁下这个代码在这一行数据里是可以的。阁下可否看我最新的分享吗？其实我就是想尽可能精简那些代码。要想达到我自己的要求，我勉强可以办到，可惜那个代码写得太麻烦。你那个可以，但我套进去使用，觉得太难用了。有好几位大神给过我建议，可惜我套进去觉得跟我想的很有出入。