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("/^\... 阅读全文
posted @ 2014-06-21 16:43 ssfie 阅读(167) 评论(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 阅读(1368) 评论(0) 推荐(0) 编辑
摘要:Option Explicit'==================================== 声明属性 =================================Private Con As ADODB.Connection' ==========================... 阅读全文
posted @ 2014-06-21 15:35 ssfie 阅读(458) 评论(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 阅读(1341) 评论(0) 推荐(0) 编辑
摘要:1.设置 页边距、打印区域With .PageSetup .HeaderMargin = Application.CentimetersToPoints(0.5) .LeftMargin = Application.CentimetersToPoints(1.5) .RightMargin =... 阅读全文
posted @ 2014-06-21 15:14 ssfie 阅读(948) 评论(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 阅读(419) 评论(0) 推荐(0) 编辑