vba校对不同工作薄中的内容

Option ExplicitSub Find()
Dim myWorkbook As Workbook
Dim ws As Worksheet
Dim rg As Range, rg2 As Range
Dim rgFirst As Range
Dim nLength As Integer, i As Integer
Dim strTmp As String
Dim strFilePath As String '第三方2文件夹中导入xml文件名
Dim nNum As Integer  '销售件数
'nLength = 0
strTmp = ""
On Error GoTo errExSet rgFirst = Cells(ActiveCell.Row, ActiveCell.Column)Do While rgFirst.Value <> ""  '*************循环**********************************nLength = 0
strTmp = rgFirst.ValueIf Right(strTmp, 1) > 9 ThenMsgBox (strTmp & "的发货单据号有误！")Exit Sub
End IfSet ws = ThisWorkbook.Sheets(3)
ws.Columns("A:A").NumberFormatLocal = "yyyy-m-d"
ws.Columns("H:H").NumberFormatLocal = "yyyy-m-d"
Set rg2 = ws.Cells(rgFirst.Row, 1)
rg2 = rgFirst.Offset(0, -1)
rg2.Offset(0, 1) = rgFirst.Offset(0, -4)
rg2.Offset(0, 4) = rgFirst.Offset(0, 7)
'rg2.Offset(0, 7) = rgFirst.Offset(0, 1)
'rg2.Offset(0, 8) = rgFirst.Offset(0, 0)
'rg2.Offset(0, 9) = rgFirst.Offset(0, -2)'strFilePath = ThisWorkbook.Path & "/四川科伦每天销售发货明细.xls"
nNum = rgFirst.Offset(0, 2)Set myWorkbook = Workbooks.Item("四川科伦每天销售发货明细.xls")
'Set myWorkbook = ActiveWorkbookFor i = 2 To myWorkbook.Sheets.Count '''''''''''Set ws = myWorkbook.Worksheets(i)
Set rg = ws.Cells(1, 2)
Do While rg.Row <> ws.UsedRange.Rows.Count + ws.UsedRange.Row - 1 + 1If rg.Value = rgFirst.Value Thenrg2.Offset(0, 7) = rg.Offset(0, -1)rg2.Offset(0, 8) = rg.Offset(0, 0)rg2.Offset(0, 9) = rg.Offset(0, 2)If nNum <> rg.Offset(0, 4).Value ThenMsgBox strTmp & "的件数" & rg.Offset(0, 4).Value & "不对！可能错误！"rg2.EntireRow.Interior.Color = 65535rg2.Offset(0, 3) = rg.Offset(0, 4).Valuerg2.Offset(0, 3).Font.Color = -16776961Exit SubElserg2.Offset(0, 3) = nNumEnd IfExit ForEnd IfSet rg = rg.Offset(1, 0)
LoopNext ''''''''''''''''''''''''''If rg.Row = ws.UsedRange.Rows.Count + ws.UsedRange.Row ThenMsgBox strTmp & "销售单不对！可能错误！"rg2.EntireRow.Interior.Color = 65535Exit SubEnd IfSet rgFirst = rgFirst.Offset(1, 0)rgFirst.SelectLoop          ' *************循环**********************************Exit Sub
errEx:MsgBox (strTmp & "的执行有错误，请检查！")
End SubSub Macro1()
Application.OnKey "^+g", "Find"
End Sub

vba校对不同工作薄中的内容相关推荐

excel合并多个工作表_如何将多个Excel工作薄中工作表批量合并到一个工作薄
编辑:哈雷 | 来源:巨盒创意 | 欢迎转发到朋友圈日常工作中,我们可能有这样的需求,我们的数据分别存放在N个工作簿里,我们需要把这些零散的数据都移动到一个工作簿里面,而且每张工作表分别存 ...
C# 获取Excel工作薄中Sheet页(工作表)名集合
#region 获取Excel工作薄中Sheet页(工作表)名集合/// <summary> /// 获取Excel工作薄中Sheet页(工作表)名集合/// </summary&g ...
Excel文件中核对两个工作表中不同内容
两份相同的销售报表,要从里面找出不同的数据要怎么做呢?数据少的话,一看就能找出不同的:数据多的话,那要自己一个个看就没那么容易找出来了.今天就来跟大家分享在Excel文件中两个工作表如何快高效快速的核 ...
Python+Excel系列：案例三：批量重命名一个工作薄中的所有工作表、批量重命名一个工作簿中的部分工作表
文章目录批量重命名一个工作薄中的所有工作表批量重命名一个工作簿中的部分工作表批量重命名一个工作薄中的所有工作表例:把table文件夹下一个工作簿中所有工作表名中的"销售"二 ...
C# 获取Excel工作薄中Sheet页(工作表)名集合
#region 获取Excel工作薄中Sheet页(工作表)名集合/// <summary> /// 获取Excel工作薄中Sheet页(工作表)名集合/// </summary&g ...
Excel学习系列(2)--不能在隐藏工作薄中编辑宏
系列文章目录文章目录系列文章目录前言一.不能在隐藏工作薄中编辑宏? 二.解决方式 1.菜单栏-视图-取消隐藏: 2.原因分析总结前言一.不能在隐藏工作薄中编辑宏? 问题描述:刚录制的宏无 ...
vba ado返回集合_利用VBA代码导出工作表中的图片
蓝字关注,加微信NZ9668获资料信息 VBA解决方案系列丛书作者头条百家平台 VBA资深创作者 _______________________________ 大家好,世界各地,疫情施虐 ...
如何使用VBA实现将工作簿中全部表格转换为区域
工作表中的表格(有时也被称为超级表格)具备自动扩展等诸多功能,有时需要将表格转换为普通单元格区域,在Excel中操作很简单. 步骤1 选中表格中的任意单元格. 步骤2 依次单击[表设计]>> ...
如何把一个excel工作薄中N个工作表复制到另一个工作薄中
一般遇到标题这样的情况,许多人可能会一个一个的复制粘贴,其实完全不必那么麻烦. 你可以按以下步骤来操作: 第一步:打开所有要操作的excel工作薄\n 第二步:按住Shift键,选择所有要复制的工作表 ...

vba校对不同工作薄中的内容

vba校对不同工作薄中的内容相关推荐

最新文章

热门文章