| | | |

2017年7月12日

条件语句 Select Case

摘要： Select Case Tim Case 7 to 10 msg = "morning" Case 11,12 msg = "noon" End Select 摘抄：阅读全文

posted @ 2017-07-12 15:31 Antipas 阅读(438) 评论(0) 推荐(0)

With语句

摘要：本示例使用 With 语句对某单一对象执行一系列的语句。MyObject 对象及其属性均为示范目的而采用了通用名称。阅读全文

posted @ 2017-07-12 13:13 Antipas 阅读(112) 评论(0) 推荐(0)

表格Sheet

摘要： Sheets.Add(After :=Sheets(Sheets.Count)) Sheets.Add用于创建新表，after表示创建在某一个sheet之后，Sheets(Sheets.Count)表示最后一个表 Sheets.Add或 WorkSheets.Add方法用于新建工作表、图表、宏表，S 阅读全文

posted @ 2017-07-12 12:58 Antipas 阅读(449) 评论(0) 推荐(0)

Format，格式函数

摘要： Cells(i,1) = Format( Item ,"yyyy-mm-dd" ) 阅读全文

posted @ 2017-07-12 12:02 Antipas 阅读(146) 评论(0) 推荐(0)

匹配，正则表达式

摘要： Function isEng(ifEng As String) As Integer '判断是否英文 isEng = 0 With CreateObject("VBSCRIPT.REGEXP") .Global = True .Pattern = "[a-zA-Z]" If .test(ifEng) 阅读全文

posted @ 2017-07-12 11:24 Antipas 阅读(131) 评论(0) 推荐(0)