[已解决]数字相应变色如何做？

yuye1987

如图所示

最佳答案

月排行榜 / 总排行榜

qh8600

2014-12-28 12:09

yuye1987 发表于 2014-12-28 12:03
额，那如果A列和B列的数据调过来，比如A1=01234567，如果在B1中输入123，那么A1中的数据123就自动变红色， ...

Sub dome()
    Dim ar() As String, str As String, i As Long, x As Long, y As Long
    For i = 1 To Cells(Rows.Count, 1).End(3).Row                  '循环结构，从第一行循环到最后一个非空单元格所在的行
        str = Cells(i, 1)                                         '变量str等于b列的文本，比如b1,b2..循环嘛
        ReDim ar(Len(str))                                        '重新定义数组ar的长度等于变量str的字符数
        For x = 1 To Len(str)                                      '循环这个字符串
            ar(x) = Mid(str, x, 1)                                 '把每个数字装入数组
        Next
        For y = 1 To UBound(ar)                                     '循环这个数组
            If InStr(Cells(i, 2), ar(y)) Then                           '如果数字在A列中出现，就执行下面的语句
                With Cells(i, 1).Characters(Start:=y, Length:=1).Font     '满足条件的数字，设置红色
                    .ColorIndex = 3
                End With
            End If
        Next
    Next
End Sub

跳转到最佳答案楼层

qh8600

1. Sub dome()
   
2.     Dim ar() As String, str As String, i As Long, x As Long, y As Long
   
3.     For i = 1 To Cells(Rows.Count, 1).End(3).Row
   
4.         str = Cells(i, 2)
   
5.         ReDim ar(Len(str))
   
6.         For x = 1 To Len(str)
   
7.             ar(x) = Mid(str, x, 1)
   
8.         Next
   
9.         For y = 1 To UBound(ar)
   
10.             If InStr(Cells(i, 1), ar(y)) Then
    
11.                 With Cells(i, 2).Characters(Start:=y, Length:=1).Font
    
12.                     .ColorIndex = 3
    
13.                 End With
    
14.             End If
    
15.         Next
    
16.     Next
    
17. End Sub

复制代码

附件楼下

qh8600

新建 Microsoft Excel 工作表.rar (9.23 KB, 下载次数: 6)

2014-12-28 11:15 上传

点击文件名下载附件

楼主试试

yuye1987

qh8600 发表于 2014-12-28 11:11
附件楼下

这个代码翻译出来的语言是什么？该如何用，比如我现在的数据不在A列和B列中，加入我的数据在C列和D列该如何设置，具体该怎么做？谢谢了，我是个新手，不懂这些，麻烦详细点解释下

qh8600

yuye1987 发表于 2014-12-28 11:33
这个代码翻译出来的语言是什么？该如何用，比如我现在的数据不在A列和B列中，加入我的数据在C列和D列该如 ...

Sub dome()
    Dim ar() As String, str As String, i As Long, x As Long, y As Long
    For i = 1 To Cells(Rows.Count, 1).End(3).Row                  '循环结构，从第一行循环到最后一个非空单元格所在的行
        str = Cells(i, 2)                                         '变量str等于b列的文本，比如b1,b2..循环嘛
        ReDim ar(Len(str))                                        '重新定义数组ar的长度等于变量str的字符数
        For x = 1 To Len(str)                                      '循环这个字符串
            ar(x) = Mid(str, x, 1)                                 '把每个数字装入数组
        Next
        For y = 1 To UBound(ar)                                     '循环这个数组
            If InStr(Cells(i, 1), ar(y)) Then                           '如果数字在A列中出现，就执行下面的语句
                With Cells(i, 2).Characters(Start:=y, Length:=1).Font     '满足条件的数字，设置红色
                    .ColorIndex = 3
                End With
            End If
        Next
    Next
End Sub

yuye1987

qh8600 发表于 2014-12-28 11:47
Sub dome()
    Dim ar() As String, str As String, i As Long, x As Long, y As Long
    For i = 1  ...

额，那如果A列和B列的数据调过来，比如A1=01234567，如果在B1中输入123，那么A1中的数据123就自动变红色，这样的代码怎么写？拜托，谢谢了！

qh8600

yuye1987 发表于 2014-12-28 12:03
额，那如果A列和B列的数据调过来，比如A1=01234567，如果在B1中输入123，那么A1中的数据123就自动变红色， ...

Sub dome()
    Dim ar() As String, str As String, i As Long, x As Long, y As Long
    For i = 1 To Cells(Rows.Count, 1).End(3).Row                  '循环结构，从第一行循环到最后一个非空单元格所在的行
        str = Cells(i, 1)                                         '变量str等于b列的文本，比如b1,b2..循环嘛
        ReDim ar(Len(str))                                        '重新定义数组ar的长度等于变量str的字符数
        For x = 1 To Len(str)                                      '循环这个字符串
            ar(x) = Mid(str, x, 1)                                 '把每个数字装入数组
        Next
        For y = 1 To UBound(ar)                                     '循环这个数组
            If InStr(Cells(i, 2), ar(y)) Then                           '如果数字在A列中出现，就执行下面的语句
                With Cells(i, 1).Characters(Start:=y, Length:=1).Font     '满足条件的数字，设置红色
                    .ColorIndex = 3
                End With
            End If
        Next
    Next
End Sub

yuye1987

qh8600 发表于 2014-12-28 12:09
Sub dome()
    Dim ar() As String, str As String, i As Long, x As Long, y As Long
    For i = 1  ...

我想补充一个：如果数据在别的单元格，代码应该如何做？比如在C列和D列呢？我试了一下，如果数据在其他的列变不了色的？怎么回事呢？

qh8600

yuye1987 发表于 2014-12-28 16:49
我想补充一个：如果数据在别的单元格，代码应该如何做？比如在C列和D列呢？我试了一下，如果数据在其他的 ...

代码也有个区域的，不同区域，代码也是要改的，就是改那个cells（行，列）

yuye1987

qh8600 发表于 2014-12-28 16:56
代码也有个区域的，不同区域，代码也是要改的，就是改那个cells（行，列）

我是个新手，真不会弄这个，再次麻烦大神你了