![](https://img-blog.csdnimg.cn/20201014180756916.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VBA
zhanglei1371
学校技术型教师
展开
-
合并文档时让第一页为奇数
目的:实现打印时自动将第一页排在奇数页,以防出现两份资料不独立的情况。因为是双面打印,故必须让文档的第一页位于奇数页,可以获取页码,插入空白页,可以插入奇数页分页符Sub 合并文档时让第一页为奇数() 'ThisDocument.BuiltInDocumentProperties(wdPropertyPages)Rem Selection.Information(wdNumberOfPa原创 2016-12-11 17:14:56 · 350 阅读 · 0 评论 -
VBA改写VBA代码
Sub df()Dim pa As Paragraph, re As Object ActiveDocument.Range.Find.Execute "_^13", , , 2, , , , 0, 0, "", 2 '第一个2决定是否通配,第二个决定是否全部替换 Set re = CreateObject("vbscript.regexp") re.Global =原创 2017-04-24 20:28:59 · 788 阅读 · 0 评论 -
Office对话框大全
Excel对话框大全序号名称描述1Application.Dialogs(1).Show是调用打开对话框 2Application.Dialogs(5或145).Show是调用另存为对话框, 3Application.Dialogs(6).Show是删除文档转载 2017-04-16 13:05:00 · 703 阅读 · 0 评论 -
Excel数组排序+图片调整大小
Sub 图片调整合适大小()' Debug.Print ActiveWorkbook.Name 图片显示比例 = 0.9 '1为顶满单元格 Dim wb As Workbook, sh As Worksheet, ce As Range, shp As Shape Dim dic As Object, re As Object, shel As Object,转载 2017-04-05 06:55:21 · 585 阅读 · 0 评论 -
VBA判断按键的api
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Private Declare Function MapVirtualKey Lib "user32" Alias "MapVi转载 2017-04-11 20:58:51 · 2143 阅读 · 0 评论 -
Excel图片调整大小
Sub 图片调整合适大小()' Debug.Print ActiveWorkbook.Name 图片显示比例 = 0.9 '1为顶满单元格 Dim wb As Workbook, sh As Worksheet, ce As Range, shp As Shape Dim dic As Object, re As Object, shel As Object,原创 2017-03-31 19:36:43 · 489 阅读 · 0 评论 -
Excel信息提取二
Sub 订单归纳()Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As WorksheetDim dic1 As Object, dic2 As ObjectDim arr, brr, crrDim wb As WorkbookSet wb = ActiveWorkbookSet sh1 = wb.Sheets("订单")Set sh2 =原创 2017-03-30 00:41:41 · 392 阅读 · 0 评论 -
Excel VBA 找出选定范围不重复值和重复值
找出不重复值Sub 找出选定范围内不重复的值() On Error Resume Next Dim d As Object Set d = CreateObject("scripting.dictionary") For c_i = 1 To selection.Columns.Count For Each ce In selection.Column原创 2017-03-07 22:05:28 · 3930 阅读 · 0 评论 -
7种文档遍历法
Sub 在选定文档最后加入一句话() '遍历文件 Dim MyDialog As FileDialog On Error Resume NextApplication.ScreenUpdating = False Set MyDialog = Application.FileDialog(msoFileDialogFilePicker) With MyDialog原创 2017-03-06 10:45:43 · 921 阅读 · 0 评论 -
word遍历方法大全
CMD,FSO+双字典,堆栈(最快),DIRSub 单个文档处理(F) Dim pa As Paragraph, c As RangeWith Documents.Open(F)For Each pa In ActiveDocument.Paragraphs For Each c In pa.Range.Characters If c.Font.N转载 2017-03-05 21:23:21 · 1499 阅读 · 0 评论 -
Excel信息提取
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Sub 信息汇总() Dim wb1 As Workbook, wb2 As Workbook, wb3 As Workbook, wb0 As Workbook Dim sh0 As Worksheet, sh1 As Workshee原创 2017-02-25 17:12:51 · 340 阅读 · 0 评论 -
递归的感悟
双重递归,计算阶乘之和原创 2016-12-26 23:26:31 · 225 阅读 · 0 评论 -
判定word中是否存在欲购买的耗材
用途:判断Excel中的关键词是否存在于word文档中 Sub 判定word中是否存在欲购买的耗材()Dim ce As RangeDim wd As ObjectDim sh As WorksheetDim wb As WorkbookDim doc As Object Set wd = GetObject(, "word.application") '获取word对象...原创 2018-10-21 09:30:16 · 199 阅读 · 1 评论