vba校对统计不同工作薄（2）

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  '销售件数
Dim s() As String
'nLength = 0
strTmp = ""
On Error GoTo errExSet rgFirst = Cells(ActiveCell.Row, ActiveCell.Column)Do While rgFirst.Value <> ""  '*************循环**********************************nLength = 0
strTmp = rgFirst.Values() = Split(strTmp, ".")
If UBound(s) <> 1 ThenMsgBox (strTmp & "选择有误！")Exit Sub
End If
strTmp = "2013-" & s(0) & "-" & s(1)Set ws = ThisWorkbook.Sheets(3)
ws.Columns("E:E").NumberFormatLocal = "yyyy-m-d"
ws.Columns("G:G").NumberFormatLocal = "yyyy-m-d"
Set rg2 = ws.Cells(rgFirst.Row, 1)
rg2 = s(0)
rg2.Offset(0, 1) = rgFirst.Offset(0, 1)  '发货地
rg2.Offset(0, 4) = strTmp                '发货日期
rg2.Offset(0, 7) = rgFirst.Offset(0, 3)  '发货件数
rg2.Offset(0, 12) = rgFirst.Offset(0, 4)'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, 1)
Do While rg.Row <> ws.UsedRange.Rows.Count + ws.UsedRange.Row - 1 + 1If InStr(rg.Offset(0, 4).Value, rg2.Offset(0, 1)) > 0 And _rg.Offset(0, 8).Value = rg2.Offset(0, 4) And _rg.Offset(0, 5).Value = rg2.Offset(0, 7) Thenrg2.Offset(0, 2) = rg.Offset(0, 4) '收货地详细地址rg2.Offset(0, 3) = rg.Offset(0, 3)  '收货单位rg2.Offset(0, 5) = rg.Offset(0, 1)  '发货单号rg2.Offset(0, 6) = rg.Offset(0, 0)  '单据日期Exit 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校对统计不同工作薄（2）相关推荐

用VBA宏从一个工作薄复制内容到另一个工作薄
我们项目管理有两个工作薄,一个里面有多个表,每天建一个,记录当天项目,另一个工作薄,有多个表,其中一个是所有项目汇总. 以前都是第一个工作薄一个表做完,再复制粘贴到第二个工作薄的汇总表中. 写了个VB ...
vba 跳到下一个循环_遍历工作薄和工作表(For Each循环的利用)
今日的内容是"VBA之EXCEL应用"的第三章"工作簿(Workbook)和工作表(Worksheet)对象(Object)"中第三节"遍历工作薄和工 ...
vue 前台文本修改触发事件_利用VBA代码禁用触发事件及对工作薄修改的保存方案...
分享成果,随喜真能量.大家好,今日内容仍是和大家分享VBA编程中常用的简单"积木"过程代码,这些内容多是取至我的"VBA代码解决方案"教程中内容.NO.143- ...
excelvba怎么设置不打开文件自动保存_Excel VBA之工作薄 5.5批量工作薄标准数据的汇总...
前景提要通过之前的学习,我们现在已经学会了如何批量打开工作薄,判断工作薄是否打开等操作,批量汇总工作薄的基本操作基本上都已经学了一遍了,相信聪明的你已经能够明白这些操作的方法了,那么今天我们就开始进 ...
Excel VBA小程序01-将多个sheet表另存为单独的工作薄文件并清除原表数据
具体步骤: 按Alt+F11,打开VBA编辑器,在代码窗口中粘贴代码. 然后关闭VBA编辑器,返回Excel界面,然后按Alt+F8打开"宏"对话框,选择对应宏执行即可. 这四段 ...
会计税务一键式统计2.0_按照内容锁定动态锁定工作薄，待更新
from openpyxl import load_workbook''' @File : @Author : william @Time : 2020/09/29 @notice : null @c ...
Python让Excel飞起来—批量处理工作薄和工作表
目录案例01 批量新建并保存工作薄举一反三批量新建并关闭工作薄案例02 批量打开一个文件夹下的所有工作薄举一反三列出文件夹下所有文件和子文件夹的名称案例03 批量重命名一个工作薄中的所有 ...
字段对应数组_字段不同的多个工作薄汇总？还要固定字段位置！难不倒我！...
前景提要在昨天的学习中,我们也是分享了升级版的工作薄汇总,当字段的顺序不同的时候要如何汇总,我们巧妙的利用了数组的方式来判断数据的位置,从而实现相应的字段的汇总,当然这仅仅是工作中可能碰到的众多情况 ...
个人永久性免费-Excel催化剂功能第28波-工作薄瘦身，安全地减少非必要冗余
Excel催化剂在完善了数据分析场景的插件需求后,决定再补充一些日常绝大多数Excel用户同样可以使用到的小功能,欢迎小白入场,在不违背太多Excel最佳实践的前提下,Excel催化剂乐意为广大Exc ...

vba校对统计不同工作薄（2）

vba校对统计不同工作薄（2）相关推荐

最新文章

热门文章