比较两个sheet页中的内容，自动切换

比较两个sheet中的内容，一般是一个长图片

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal DwMilisconds As Long)Sub 画像比較()Call compare("Sheet1", "Sheet2", 3000, 5)End SubPrivate Sub compare(sheet1Name As String, sheet2Name As String, maxLineNumber As Integer, maxCompareCount As Integer)Dim lineNumber As Integer: lineNumber = 1Dim compareCount As Integer: compareCount = 0Do While lineNumber < maxLineNumberloopcount = loopcount + 1Application.Sheets(sheet1Name).ActivateApplication.StatusBar = "シート名：" & sheet1Name & "_lineNumber:" & lineNumber & "_compareCount:" & loopcountActiveWindow.ScrollRow = lineNumberActiveWindow.ScrollColumn = 1DoEventsSleep 500Application.Sheets(sheet2Name).ActivateApplication.StatusBar = "シート名：" & sheet2Name & "_lineNumber:" & lineNumber & "_compareCount:" & loopcountActiveWindow.ScrollRow = lineNumberActiveWindow.ScrollColumn = 1DoEventsSleep 500If loopcount Mod maxCompareCount = 0 Then'位置移動lineNumber = lineNumber + 40loopcount = 0End IfLoopEnd Sub

这里面，有一个 64位系统与 32位系统需要区别的注意点。

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal DwMilisconds As Long)

64位系统时，需要使用上面的 PtrSafe

比较两个sheet页中的内容，自动切换相关推荐

excel动态获取sheet页单元格内容
1.问题描述如下图所示,名称列可能是动态赋值的,名称列的内容有对应新的sheet页,如名称为PJ1及其PJ1的sheet页,最终需要获取PJ1的sheet页的B1单元格的内容. 如下图所示,是要获取 ...
Excel文件中核对两个工作表中不同内容
两份相同的销售报表,要从里面找出不同的数据要怎么做呢?数据少的话,一看就能找出不同的:数据多的话,那要自己一个个看就没那么容易找出来了.今天就来跟大家分享在Excel文件中两个工作表如何快高效快速的核 ...
ios微信小程序中 input 输入框问题，输入的光标中的内容自动清空
ios微信小程序中 input 输入框问题,输入的光标中的内容自动清空问题描述 1.我在页面上有个倒计时的功能,每一秒都在更新时间,更新时间显示的值(view一直变) 2.我调用input输入框,准 ...
拼多多客京东客蘑菇街小程序v9.1高佣联盟无限多开版新增两个京东备用接口，故障自动切换接口小程序
拼多多客京东客蘑菇街小程序v9.1高佣联盟无限多开版新增两个京东备用接口,故障自动切换接口小程序 [后端升级新版] 1.新增两个京东备用接口,故障自动切换接口. 学习资料源码:拼多多客京东客蘑菇街 ...
Excel中两个sheet页比较不同值
问题: Excel中一个sheet1页130条数据,另一个sheet2页中有126条数据,要找出sheet2页中缺少的4条数据 sheet1数据: sheet2数据: 解决方法: sheet1页的数据 ...
WPS表格若sheet页中的数据全部是由公式计算出来的，则无法进行筛选
问题描述:若WPS表格的sheet页数据全部都是由公式生产得到,则无法进行筛选. 今天在使用WPS表格的过程中遇到了一些小问题,特意记录下来. 问题来源于一个需求人员需要做一个表格的汇总,但是目标数据 ...
如何设置使chrome新标签页中打开链接自动跳转到新标签页?
在新标签打开链接的时候这样点选 Ctrl+左键或者鼠标中键或者右键链接选择'新标签页中打开链接', 可实现出现新标签页但不自动跳转但是这个有问题, 即, 新标签只是在背景打开, 操作后并不会 ...
网页中视频内容自动播放
目前主流的浏览器中已经禁止带声音的媒体自动播放.具体内容在这里chrome自动播放策略(可能国内网络访问不了).此处重点是带声音的媒体自动播放. 里面也说明了集中播放的方式静音播放.只要将video ...
如何在浏览器中搜索内容自动过滤CSDN的相关文章，一次设置永久过滤
一个混迹于Github.Stack Overflow.开源中国.CSDN.博客园.稀土掘金.51CTO等的野生程序员. 目标:分享更多的知识,充实自己,帮助他人 GitHub公共仓库:https:/ ...

比较两个sheet页中的内容，自动切换

比较两个sheet页中的内容，自动切换相关推荐

最新文章

热门文章