请教，这2个关于数据对比的需求，代码怎么写？

vexce · 发表于 2022-9-22 14:06

请教，这2个关于数据对比的需求，代码怎么写？
请指点，谢谢！

F列数据行数变化不定。

需求1：
当 F 列单元格包含星号“*”，对比“*”左右的数值，
（请注意，只须对比“*”左右的数值，忽略非数字的字符，如：字母，φ，= 等等，也忽略加号及其后的数值。）
如果“*”左边的数值 > “*”右边的数值，则将该单元格颜色改为红色，
例 F13 单元格，20>13，因此要改单元格为红色。

需求2：
当 F 列单元格包含SQ和星号“*”时，对比“*”左右的数值是否相等，如不相等，则将该单元格颜色改为红色.
（请注意，只须对比“*”左右的数值，忽略非数字的字符，如：字母，φ，= 等等，也忽略加号及其后的数值。）

工作簿1.zip (8.31 KB, 下载次数: 8)

tiger1976 · 发表于 2022-9-22 14:40

Sub lll()

Dim rex As Object
Dim i As Integer
Dim rng As Range

Set rex = CreateObject("vbscript.regexp")
i = Cells(Rows.Count, 6).End(xlUp).Row

For Each rng In Range("f2:f" & i)
      If InStr(1, rng, "*") <> 0 Then
         With rex
            .Global = True
            .IgnoreCase = True
            .Pattern = "[0-9.]+"
            If .Execute(rng)(0) > .Execute(rng)(1) Then
                  rng.Interior.ColorIndex = 3
            End If
      End With
      End If

      If InStr(1, rng, "*") <> 0 And InStr(1, rng, "SQ") <> 0 Then
         With rex
            .Global = True
            .IgnoreCase = True
            .Pattern = "[0-9.]+"
            If .Execute(rng)(0) = .Execute(rng)(1) Then
                  rng.Interior.ColorIndex = 6
            End If
      End With
      End If
Next

End Sub

yylucke · 发表于 2022-9-22 15:42

工作簿1.zip (20.11 KB, 下载次数: 4)
试试

vexce · 发表于 2022-9-22 21:22

tiger1976 发表于 2022-9-22 14:40
Sub lll()

Dim rex As Object

有一事不明白，再请教一下：
我增加了一些数据测试，效果良好，但是对于以下数据无效，以下数据，16>5，应该标记为红色，但运行代码后没变化：
OBφ16*5
把5换成>=10的数值，测试结果则正常。

vexce · 发表于 2022-9-22 21:24

yylucke 发表于 2022-9-22 15:42
试试

效果很赞！感谢！

vexce · 发表于 2022-9-24 20:42

tiger1976 发表于 2022-9-22 14:40
Sub lll()

Dim rex As Object

估计这个正则表达式有点问题：当数值为2位数时，被用于对比的只有十位数，个位数被忽略了，例如：29*5，代码不标记为红色，它只对比 2<5，认为不用标记为红色。
但正则我实在不懂，不知道应该如何改。

vexce · 发表于 2022-12-8 12:00

yylucke 发表于 2022-9-22 15:42
试试

能否再请教一事？

我一楼的数据考虑不周，有种情况没列举，导致您这代码会误报（不是代码原因，是因为我一楼的数据样品没提供齐全）：
遇到数据末尾为 *R... 时，忽略 *R...，例如下图中的 F9, F10 单元格的数据，只处理*R前的数据，不要处理*R及后面的数据。
代码须如何更新？谢谢！

工作簿1.zip (7.86 KB, 下载次数: 0)

		自动登录	找回密码
密码			免费注册

[求助] 请教，这2个关于数据对比的需求，代码怎么写？

评分

评分