Excel数据稽核校验，准备拿来主义，自己才疏学浅，请各位帮忙看看

zuocloud

有Excel表簿有多个sheet需要逻辑校验单元格数据，看到该论坛帖子，有个附件”数据校验练习“，受到启发，准备用枚举的方法来校验，可是不会编写

Sub 校验()
    Dim i%, j%, brr(), n%, m%, k%
    Sheets("校验报告").Range("A:A").Clear      
            Select Case Sheets("N201").Cells(9, 5) <> Sheets("N501").Cells(9, 27) - Sheets("N501").Cells(9, 26) + Sheets("N507").Cells(9, 18)
            brr(k) = "N201表4栏=N501表26栏-N501表25栏+N507表17栏"
            End Select        
    Next
    Sheets("校验报告").Range("A1").Resize(k, 1) = Application.Transpose(brr)
End Sub

上面是举例（代码是由附件强行修改的，不准确），列了一种情形 （” N201表4栏=N501表26栏-N501表25栏+N507表17栏”），来核对数据，不符合的话，输出校验规则；
实际是工作簿中所有sheet校验有很多种情形，希望能帮我编写vba，受到”数据校验练习“这个示例的启发，什么case、while、loop不会用，工作簿格式是固定的，需要校验的单元格也是固定的，本人想得到大家帮助




补充内容 (2022-11-29 21:27):
请大神针对3个校验规则，编写代码

582766

你好像在说天书

3190496160

刚刚呗隔离半个月出来，深知防疫的辛苦，本想为防疫做点啥，但是，没有附件，只能是遗憾

少如

3190496160 发表于 2022-11-26 21:22
刚刚呗隔离半个月出来，深知防疫的辛苦，本想为防疫做点啥，但是，没有附件，只能是遗憾

请参阅下贴；
https://club.excelhome.net/thread-1640747-1-1.html
https://club.excelhome.net/thread-1595832-1-1.html
https://club.excelhome.net/forum ... ;page=1#pid11076098

zuocloud

582766 发表于 2022-11-26 20:44
你好像在说天书

附件已上传

盼盼198310

..............

zuocloud

请大家帮忙

zuocloud

大家帮帮我

zuocloud

大家帮帮忙