06 2014 档案
摘要:判断“正浮点数”:preg_match('/^(([0-9]+\.[0-9]*[1-9][0-9]*)|([0-9]*[1-9][0-9]*\.[0-9]+)|([0-9]*[1-9][0-9]*))$/', $var) ? true : false;数字正则过滤if(preg_match("/^\...
阅读全文
摘要:1.将 互换 Excel 列号(数字/字母)Public Function excelColumn_numLetter_interchange(numOrLetter) As String Dim i, j, idx As Integer Dim letterArray ...
阅读全文
摘要:Option Explicit'==================================== 声明属性 =================================Private Con As ADODB.Connection' ==========================...
阅读全文
摘要:1. 引用 API 函数' API函数Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindow...
阅读全文
摘要:1.设置 页边距、打印区域With .PageSetup .HeaderMargin = Application.CentimetersToPoints(0.5) .LeftMargin = Application.CentimetersToPoints(1.5) .RightMargin =...
阅读全文
摘要:1. 设置单元格边框:.Range("A3:M" & l + 1).SelectWith Selection.Borders() .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlHairline'...
阅读全文