07 2017 档案

vba 常用函数
摘要：=IF(COUNTIF(B:B,A1)>0,A1,"") a列，填写内容的最后一行 endRow = Sheet24.Range("a65536").End(xlUp).Row 取sheet最后一行，包括格式， Sheet1.UsedRange.Rows.Count 弹出窗口 MsgBox shtM 阅读全文
posted @ 2017-07-25 15:31 屎壳螂 阅读(493) 评论(0) 推荐(0)
vba----调用新的excel 回填本excel的数据
摘要：Sub find() endRow = Sheet24.Range("a65536").End(xlUp).Row For rowindex = 1 To endRow keyvalue = Sheet24.Cells(rowindex, 1) FindFile = "C:\TEMP\sn.xlsx 阅读全文
posted @ 2017-07-04 00:50 屎壳螂 阅读(338) 评论(0) 推荐(0)
vba -------------vba 导出word到pdf 发邮件
摘要：Public Sub SendMail() Dim objAccount As Object Dim objApp As Object 'Outlook.Application ' If Not CheckData Then' Exit Sub' End If'' If MsgBox(shtMess 阅读全文
posted @ 2017-07-01 21:59 屎壳螂 阅读(765) 评论(0) 推荐(0)