六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

对比两表相同位置的单元格数据,如果不同就在表三自动提示

Admin | 2009-8-21 23:25:13 | ReadNums | 6838 | 标签 六合开奖结果现场直播 | 打印本页
     

  本例,我们来学习一下,如何使用VBA来完成这样的一个功能:

  对比表一和表二的相同位置的单元格数据,如果发现某处的单元格的值不相同,那么,就在三表给出提示,并标出行号、列号、表一内容、表二内容!

  举个例子,比如,表一的A2单元格内容为1,表二的A2单元格内容为1,那么,说明两表的同一个单元格的内容相同,则不在三表中进行任何提示;反过来,比如,表一的B8单元格内容为“六合开奖结果现场直播”,而表二的B8单元格为空或为其它文字,说明两表的同一个单元格内容不相同,那么,则会在表三给出提示,不仅提示行列的编号,还给出两表各自的内容。

  下面我们先看实例的表一内容!

  下图为表二的内容!

  根据本文的意图,我们所要的结果就是图三的效果:注意,这是表三中自动出现的提示!

  如果要实现以上的效果,那么,必须使用VBA不可。

  以下代码就是功能代码:

 Private Sub Workbook_Open()
    MoveBoot = 1
    For RowBoot = 1 To 100
        For ColumnBoot = 1 To 100
            If (Trim(Worksheets(1).Cells(RowBoot, ColumnBoot).Value) <> Trim(Worksheets(2).Cells(RowBoot, ColumnBoot).Value)) Then
                Worksheets(3).Cells(MoveBoot, 1).Value = "行号:" & RowBoot & ";列号:" & ColumnBoot
                Worksheets(3).Cells(MoveBoot, 2).Value = "表一内容:" & Worksheets(1).Cells(RowBoot, ColumnBoot).Value
                Worksheets(3).Cells(MoveBoot, 3).Value = "表二内容:" & Worksheets(2).Cells(RowBoot, ColumnBoot).Value
                MoveBoot = MoveBoot + 1
            End If
        Next
    Next
 End Sub

  将以上代码放到您的Excel文件对应的VBA窗口并保存,即可实现!以上代码的触发触发事件是,当打开Excel文件的时候,会自动进行比较,并把结果显示在表三中。

  如果您还不知道如何使用以上的VBA代码,那么,请参阅本站的六合开奖结果现场直播的其它文章,俺已多次对此用法作过N次详细的介绍。


问题未解决:在线咨询

天空彩天免费枓大全

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日