VBA 计算差值

On_fire

VBA 计算差值

*

Sheet1是源数据,

Range(“G26:T27”)是要判断的区域

区域中, 第26行左到右, 顺序是分组号 ( *有合并格, 是变量* )

区域中, 第27行左到右, 顺序是位值号 ( 单一格 )

*

代码逻辑如下,

1.      左到右先取第27行的位值号

2.      再取对应同列的第26行分组号 (*需判断合并格, 是变量)

3.      将位值号,减去, 分组号,输出结果到同列的第12行,加粗变红

*

模拟过程在Sheet1(2)

*

有点难度,

恳请大神, 老师出手帮忙…谢谢!!!

鄂龙蒙

模拟结果表不详细呀

鄂龙蒙

最好将12行得到的结果，加个运算过程

On_fire

鄂龙蒙 发表于 2022-12-19 14:55
最好将12行得到的结果，加个运算过程

谢谢老师关注,

比如K列,

27行的9的位值 = 5 ( 标绿红字 )

26行的9的分组号 = 3 ( 合并格 )

5 – 3 = 2 ( 12行: +2 )

gwjkkkkk

看了几遍，硬是没理解这个结果与描述的关系

liulang0808

楼主附件中模拟的结果是不是全的？如果不全的话，请模拟全一些，便于其他人理解
楼主的很多帖子，都有对应的固化解题思路，这个很有特点，

但是每个人对问题的处理思路不一定相同，还是建议把需求描述清楚先。

On_fire

liulang0808 发表于 2022-12-19 15:20
楼主附件中模拟的结果是不是全的？如果不全的话，请模拟全一些，便于其他人理解
楼主的很多帖子，都有对应 ...

谢谢版主关注, 已经重新上传模拟文件

liulang0808

Sub 按钮1_Click()
    Application.ScreenUpdating = False
    For j = 1 To 14
        Cells(26, j + 6).Select
        x = Selection(1).Value
        If Len(x) > 0 Then
            y = j - x
            If y > 0 Then
                Cells(11, j + 6) = "'+" & y
                Cells(11, j + 6).Font.Bold = True
                Cells(11, j + 6).Font.ColorIndex = 3
            End If
        End If
    Next j
    Application.ScreenUpdating = True
End Sub

liulang0808

按照模拟结果猜的，代码结果再11行

On_fire

gwjkkkkk 发表于 2022-12-19 15:19
看了几遍，硬是没理解这个结果与描述的关系

老师好,

比如 :K列,

27行的9的位值 = 5 ( 标绿红字 )

26行的9的分组号 = 3 ( 合并格 )

5 – 3 = 2 ( K列9的第12行: +2 )

*

再比如: R列,

27行的8的位值 = 12 ( 标绿红字 )

26行的8的分组号 = 8 ( 合并格 )

12 – 8 = 4 ( R列8的第12行: +4 )

*

这样说明, 清楚吗?