求助大师20200102（难度大）

qwedef

求助大师：要求D3单元格内数字与B3单元格内数字中与之相同的数字显示红色，如B3内数字是1，D3内数字是2467901358，2467901358里与1相同的数字是在第7位的1，则1显示红色（我这里写不出1是红色）。谢谢大师！祝新年快乐！

凌空一羽

Sub lkyy()
[d3] = "'" & [d3]
For i = 1 To Len([d3])
    If Mid([d3], i, 1) - [b3] = 0 Then Range("d3").Characters(i, 1).Font.Color = vbRed
Next
End Sub

jiangxiaoyun

这有什么难度的,都是烂大街的问题.一搜论坛一大堆代码.....

qwedef

凌空一羽 发表于 2020-1-20 10:49
Sub lkyy()
[d3] = "'" & [d3]
For i = 1 To Len([d3])

大师如果是D3-D25连续列，B3-B25连续列，该如何写，谢谢！

lsdongjh

1. Sub Test()
   
2.     Dim rg As Range
   
3.     Dim strFind As String, intStart As Integer, intLen As Integer
   
4.    
   
5.     Set rg = Sheet1.Range("D3")
   
6.     strFind = Sheet1.Range("B3").Value
   
7.    
   
8.     intLen = Len(strFind)
   
9.    
   
10.     rg.NumberFormatLocal = "@"
    
11.     If IsNumeric(rg.Value) Then rg.Value = "'" & rg.Value
    
12.    
    
13.     intStart = InStr(rg.Value, strFind)
    
14.    
    
15.     If intStart > 0 Then
    
16.         rg.Characters.Font.ColorIndex = xlColorIndexAutomatic
    
17.         rg.Characters(intStart, intLen).Font.ColorIndex = 3
    
18.         rg.Characters(intStart, intLen).Font.Bold = True
    
19.         
    
20.     End If
    
21.    
    
22.     Set rg = Nothing
    
23. End Sub

复制代码

凌空一羽

qwedef 发表于 2020-1-20 11:02
大师如果是D3-D25连续列，B3-B25连续列，该如何写，谢谢！

求助大师20200102.rar (8.76 KB, 下载次数: 5)

2020-1-20 11:11 上传

点击文件名下载附件

qwedef

lsdongjh 发表于 2020-1-20 11:08

大师今天花送完了，明天送你