VBA 循环数据组的两个判断及标示 ( 高难度 )

On_fire

VBA 循环数据组的两个判断及标示 ( 高难度 )

*

Sheet1的[AF4:CW17]是要判断的(最大)数据范围, 更多的情况会少一些数据.

左到右, 每5列是一组数据, 1到3行是标题行,

每组数据的行数是变量, 有多少组数据也是变量!

(注 : 不参加计算的数据, 暂时删掉 )

*

代码的逻辑如下,

1.      取单元格括号内( )的左值为关键值做比较 ( 比如:[AF4] = 162, [AF5]= 74 )

2.      第一个判断, 对比每列数据,

由上至下, 第5行开始, 如本行的值比上一行小, 本格数据要” 加粗 “

3.      第二个判断, 对比每组(共5列)数据,

由左到右, 每组内的同行每两列做比较,

比如: 第2比1列, 第3比2列, 第4比3列, 第5比4列, 当右比左值小, 右格要” 斜体 “

*

部分模拟结果在Sheet1(2),

只模拟第1个数据组[AF:AJ]列, 数据组是变量

第一个判断, 比如:

[AF4] = 162, [AF5] = 74,

因74比162小 = [AF5]加粗

*

第二个判断, 比如:

[AF6] = 110, [AG6] = 98,

因98比110小 = [AG6] 斜体

*

这题有难度, 也有点繁琐...

恳请大神, 老师出手帮忙...祝您新年吉祥, 万事如意, 龙马精神!

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, br(), cr, i&, j&, r&, k&, regEx As Object
   
    Application.ScreenUpdating = False
   
    Set regEx = CreateObject("VBScript.RegExp")
    regEx.Pattern = " \((.+?)\)"
   
    With [AF4:CW17]
        For j = 1 To .Columns.Count Step 5
            r = r + 1
            ReDim Preserve br(1 To 2, 1 To r)
            Set br(1, r) = .Cells(1, j).Resize(.Rows.Count, 5)
            br(2, r) = br(1, r).Value
        Next j
    End With
    For k = 1 To UBound(br, 2)
        For j = 1 To UBound(br(2, k), 2)
            For i = 2 To UBound(br(2, k))
                ar = Split(regEx.Execute(br(2, k)(i - 1, j))(0).submatches(0), ",")
                cr = Split(regEx.Execute(br(2, k)(i, j))(0).submatches(0), ",")
                If Val(cr(0)) < Val(ar(0)) Then br(1, k).Cells(i, j).Font.Bold = True
            Next i
        Next j
        For i = 1 To UBound(br(2, k))
            For j = 2 To UBound(br(2, k), 2)
                ar = Split(regEx.Execute(br(2, k)(i, j - 1))(0).submatches(0), ",")
                cr = Split(regEx.Execute(br(2, k)(i, j))(0).submatches(0), ",")
                If Val(cr(0)) < Val(ar(0)) Then br(1, k).Cells(i, j).Font.Italic = True
            Next j
        Next i
    Next k
   
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考附件。。。

On_fire

gwjkkkkk 发表于 2024-2-14 19:53
请参考附件。。。

感谢老师…祝您新年大吉大利!

On_fire

gwjkkkkk 发表于 2024-2-14 19:53
请参考附件。。。

老师好,

有个小问题,

请看文件, 如果源数据少一些, 代码会报错?

请问如何完善?

*

1. 左到右的数据组多少是变量

2. 每5列一组的行数多少也是变量

yynrzwh

by selection.zip (38.04 KB, 下载次数: 3)

2024-2-14 22:43 上传

点击文件名下载附件

On_fire

yynrzwh 发表于 2024-2-14 22:43

感谢老师,
祝您心想事成, 富贵吉祥!

gwjkkkkk

On_fire 发表于 2024-2-14 22:00
老师好, 有个小问题, 请看文件, 如果源数据少一些, 代码会报错? 请问如何完善?*1. 左到右的数据组多少是 ...

这是数值取值范围的问题、、、

gwjkkkkk

On_fire 发表于 2024-2-14 22:00
老师好, 有个小问题, 请看文件, 如果源数据少一些, 代码会报错? 请问如何完善?*1. 左到右的数据组多少是 ...

请参考附件。。。

On_fire

gwjkkkkk 发表于 2024-2-15 10:51
请参考附件。。。

老师好,
现在的数据格式有变,
但要求比较及判断结果的加粗及斜体不变,
想修改您的代码, 改为TEST3, 但是报错失败了,
请您帮忙看看文件, 如何优化呢?