| | | |

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 阅读(420) 评论(0) 推荐(0) 编辑

With语句

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

posted @ 2017-07-12 13:13 Antipas 阅读(108) 评论(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 阅读(420) 评论(0) 推荐(0) 编辑

Format，格式函数

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

posted @ 2017-07-12 12:02 Antipas 阅读(139) 评论(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 阅读(123) 评论(0) 推荐(0) 编辑