原创 Office對話框大全
Excel對話框大全 序號 名稱 描述 1 Application.Dialogs(1).Show 是調用打開對話框 2 Application.Dialogs(5或145).Sho
2018-08-30 13:04:27
2
原创 word遍歷方法大全
CMD，FSO+雙字典，堆棧（最快），DIR Sub 單個文檔處理(F) Dim pa As Paragraph, c As Range With Documents.Open(F) For Each pa In ActiveDo
2018-08-30 13:04:24
原创 瀏覽器自動跳轉
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases. ; #Warn ; Enable warnings
2018-08-30 13:04:24
19
原创 模仿VIMD的模式的簡化代碼示例
按numpad0來切換模式，按t顯示不同的結果； Numpad0:: tfmode:=!tfmode aaa:=(tfmode=1?"AAAA":"BBBB") SplashImage Off SplashImage, "",X500
2018-08-30 13:04:24
原创 7種文檔遍歷法
Sub 在選定文檔最後加入一句話() '遍歷文件 Dim MyDialog As FileDialog On Error Resume Next Application.ScreenUpdating = False
2018-08-30 13:04:23
原创 Excel圖片調整大小
Sub 圖片調整合適大小() ' Debug.Print ActiveWorkbook.Name 圖片顯示比例 = 0.9 '1爲頂滿單元格 Dim wb As Workbook, sh As Workshe
2018-08-30 13:04:23
原创 Excel信息提取二
Sub 訂單歸納() Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As Worksheet Dim dic1 As Object, dic2 As Object Dim arr, brr,
2018-08-30 13:04:23
5
原创 VBS提取文中中指定兩個字符間的內容
Dim a, b, c, fso, re, strB Set ws = CreateObject("Wscript.Shell") Set fso = CreateObject("scripting.filesys
2018-08-30 13:04:23
原创 Excel信息提取
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub 信息彙總() Dim wb1 As Workbook, wb2 As Wor
2018-08-30 13:04:23
原创 批處理提取文字到新文本
從txt文件文件內容xx-ReadLog中提取號碼後面的數字到新的文件： 09:35:5220135444 09:35:52 : 讀卡完成，送出號碼 80135448 09:35:5620135444 09:35:56 : 讀卡完
2018-08-30 13:04:23
1
原创 批處理通用測試代碼
批處理通用代碼 @echo off setlocal enabledelayedexpansion cd /d %~dp0 REM dir&pause pushd "c:\" dir/b c: dir c:\lks是j.bat&&set
2018-08-30 13:04:22
1
原创 AHK的OnMessage
OnMessage(0x404, "AHK_NOTIFYICON") AHK_NOTIFYICON(wParam, lParam) { if (lParam = 0x202) ; WM_LBUTTONUP {
2018-08-30 13:04:22
20
原创 遞歸的感悟
最簡單的遞歸求n階乘的VB函數過程。 Private Function F( byval n As Integer ) As long If n=1 Then F=1 Else: F=n*F
2018-08-30 13:04:22