原创 道路養護信息統計中可用的一些代碼
1、清除數字格式 Sub ClearNumFormat() Dim i As Integer For i = 1 To Sheets.Count Sheets(i).Ac
2018-08-27 07:31:05
5
原创 彎沉盆修正
作用：修正彎沉盆值，使其保持遞減趨勢。 Sub XiuZheng()'按公式修正 Application.ScreenUpdating = False Dim RowsCount As Long '總行數 Dim n As Intege
2018-08-27 07:31:05
3
原创 多工作表Excel文檔模版的前處理
1、功能簡介 在向多工作表（幾十上百個）Excel文檔模版輸入數據時，進行包括清理內容、凍結標題行和定義名稱等前處理操作。 2、代碼 Option Explicit Sub PreTreatment() ' ' PreTreatment
2018-08-27 07:31:05
4
原创 四則運算的實現
c++版 #include <iostream> #include <string> #include <cmath> #include <deque> using namespace std; #define LENGTH 61440
2018-08-27 07:31:05
原创 Excel VBA真正的動態數組實例
一、動態數組的定義 動態數組的定義，一開始不需要給數組標明上界和下界。直接定義即可，如下面的代碼： Dim MyStr() As String 這樣，就定義了一個動態數組及其名稱：MyStr()，現在，該數組的上界下界都是個未知數，也就是
2018-08-27 07:31:05
3
原创 宣蕪高速公路取樣點指標信息統計
目的：按方向、按路段、按指標統計宣蕪高速公路取樣點指標值中優、良、中、次、差所佔的比例 Sub Rank() '按方向、路段統計行車道各路段在優、良、中、次、差中的比例 Dim SheetName(14) '存儲所有工作表的名稱 Dim
2018-08-27 07:31:04
3
原创 鼠標連續點擊
代碼： #z::suspend LButton:: Loop { SetMouseDelay 10 Click If(GetKeyState("LButton","P")=0) break } 第1行：Win+z快捷鍵控制腳本是
2018-08-27 07:31:04
2
原创 常用正則表達式寫法
列舉了常用的正則表達式規則寫法 "^\d+$" //非負整數（正整數 + 0） "^[0-9]*[1-9][0-9]*$" //正整數 "^((-\d+)|(0+))$" //非正整數（負整數 + 0） "^-[0-9]*[
2018-08-27 07:31:04
2