摘要:
判断“正浮点数”: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("/^\... 阅读全文
posted @ 2014-06-21 16:43
ssfie
阅读(178)
评论(0)
推荐(0)
摘要:
1.将 互换 Excel 列号(数字/字母)Public Function excelColumn_numLetter_interchange(numOrLetter) As String Dim i, j, idx As Integer Dim letterArray ... 阅读全文
posted @ 2014-06-21 15:40
ssfie
阅读(1435)
评论(0)
推荐(0)
摘要:
Option Explicit'==================================== 声明属性 =================================Private Con As ADODB.Connection' ==========================... 阅读全文
posted @ 2014-06-21 15:35
ssfie
阅读(470)
评论(0)
推荐(0)
摘要:
1. 引用 API 函数' API函数Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _ ByVal lpClassName As String, _ ByVal lpWindow... 阅读全文
posted @ 2014-06-21 15:23
ssfie
阅读(1475)
评论(0)
推荐(0)
摘要:
1.设置 页边距、打印区域With .PageSetup .HeaderMargin = Application.CentimetersToPoints(0.5) .LeftMargin = Application.CentimetersToPoints(1.5) .RightMargin =... 阅读全文
posted @ 2014-06-21 15:14
ssfie
阅读(1004)
评论(0)
推荐(0)
摘要:
1. 设置单元格边框:.Range("A3:M" & l + 1).SelectWith Selection.Borders() .LineStyle = xlContinuous .ColorIndex = 0 .TintAndShade = 0 .Weight = xlHairline'... 阅读全文
posted @ 2014-06-21 14:37
ssfie
阅读(510)
评论(0)
推荐(0)
浙公网安备 33010602011771号