工作簿中任意两工作表数据比对

碣石山人

各位老师，大神们，我上午浏览帖子时看到一个数据比较然后标色的帖子，找不到了，因此开帖求助。

关于指定的两个工作表数据比对标色我已经差不多搞清楚了，那么我想实现的是如下功能：
1、打开工作表弹出窗体（已经实现）
2、窗体中显示要对比的两个工作表（已经实现）
3、选择任意两个工作表进行比对（需要大家帮忙解决）
4、将来的功能：把文件做成加载宏...
PS：我将老师的比较代码放在模块中了。数据借用了原来楼主的，请见谅。
我已经做好了窗体，但无法实现选择任意工作表比对。希望能达到大家的帮助，谢谢！

附件如下：

约定的童话

万一两个工作表格式内容大不一样怎么办？这个对比局限性很大，目前比较好用的有Compare byond软件，可以了解下

碣石山人

约定的童话 发表于 2019-2-21 14:04
万一两个工作表格式内容大不一样怎么办？这个对比局限性很大，目前比较好用的有Compare byond软件，可以了 ...

Beyond compare用过，不适合这个。我这就是用在相同表格的工作簿中。

约定的童话

碣石山人 发表于 2019-2-21 14:09
Beyond compare用过，不适合这个。我这就是用在相同表格的工作簿中。

比较哪些内容？比较后结果展示在哪里？

碣石山人

约定的童话 发表于 2019-2-21 14:24
比较哪些内容？比较后结果展示在哪里？

比较工作表中的内容，比较后把不同数据用颜色标识，比如：2月份数据比对1月份数据，在2月份数据中用颜色标识和1月份位置对应的不同的数据。
以此类推，也可以比对3月和1月，4月和2月，1月和2月...
效果见2月表格中，运行该宏即可展示效果。
我现在搞不懂两个工作表名称变量如何赋值。要是一个还将就可以。

小小鸟前滚翻

比较部分这么写就行吧
for each sht in worksheets(表1).usedrange
if sht<>worksheets(表2).range(sht.address) then
'sht涂色
endif
next

碣石山人

不用窗体临时解决一下，请参考附件。
解决方法是利用数据验证制作下拉框，然后把工作表名称赋值，然后...居然能用了。
还是希望高手能帮我写个用窗体的代码，先谢啦！

碣石山人

小小鸟前滚翻 发表于 2019-2-21 15:49
比较部分这么写就行吧
for each sht in worksheets(表1).usedrange
if shtworksheets(表2).range(sht.add ...

多谢！比较部分已经会了，关键在于窗体赋值不会。

小小鸟前滚翻

窗体赋值?worksheets(userform1.textbox1.value)

碣石山人

小小鸟前滚翻 发表于 2019-2-21 22:56
窗体赋值?worksheets(userform1.textbox1.value)

按照你的思路成功了，多谢！