zhanglei1371

摘要： #NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases. ; #Warn ; Enable warnings to assist with detecting common errors. SendMode Input ; Recommended for new s... 阅读全文

摘要： OnMessage(0x404, "AHK_NOTIFYICON") AHK_NOTIFYICON(wParam, lParam) { if (lParam = 0x202) ; WM_LBUTTONUP { Suspend return 1 } ... 阅读全文

摘要： Sub 在选定文档最后加入一句话() '遍历文件 Dim MyDialog As FileDialog On Error Resume Next Application.ScreenUpdating = False Set MyDialog = Application.FileDialog(msoFileDialogFilePicker) Wi... 阅读全文

摘要： 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.C... 阅读全文

摘要： 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 Ob... 阅读全文

摘要： Sub 订单归纳() Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As Worksheet Dim dic1 As Object, dic2 As Object Dim arr, brr, crr Dim wb As Workbook Set wb = ActiveWorkbook Set sh1 = wb.Sheets("订... 阅读全文

摘要： Sub 不同工作簿间提取信息() '用于单个字段信息的提取； Dim w As Workbook, wb1 As Workbook, wb2 As Workbook, wb3 As Workbook Dim sh As Worksheet, sh1 As Worksheet, sh2 As Work 阅读全文

摘要： Sub 在选定文档最后加入一句话() '遍历文件 Dim MyDialog As FileDialog On Error Resume NextApplication.ScreenUpdating = False Set MyDialog = Application.FileDialog(msoFi 阅读全文

摘要： Exce信息提取 阅读全文