摘要：
1）最基本的，方法级别上应用，例如：@RequestMapping(value="/departments")public String simplePattern(){ System.out.println("simplePattern method was called"); return ... 阅读全文
摘要：
range对象代表某一单元格，某一行，某一列，某一选定区域Sub rng()Range("a2").Select '单元格Range("a:a").Select '列Range("1:3").Select '行Range("a1:b10").Select '相邻区域Range("a1", "b10"... 阅读全文
摘要：
Sub 新建工作表()Sheets.Add , , 2 自动命名Sheets.Add.Name = "hello" 直接命名End SubSub 删除工作表()Sheet1.DeleteSheets("hello").Deleteon error resume nextapplication.dis... 阅读全文
摘要：
Sub 工作簿新建()Dim wkb As WorkbookSet wkb = Workbooks.Addwkb.SaveAs ("c:\users\dalu\desktop\1.xls")End SubSub 打开工作簿()Dim wkb As WorkbookSet wkb = Workbook... 阅读全文
摘要：
Sub fornext循环()Dim i!, j!For i = 1 To 100 step 1(1可以默认不写)j = j + iNextMsgBox jEnd Sub 阅读全文
摘要：
当需要处理集合成员的时候，一般会用这个，实际上就是处理对象Sub foreachnext循环()Dim rng As Range, n!For Each rng In Sheet1.Range("a2:a6")If rng = "a1" Then rng.Interior.ColorIndex = ... 阅读全文
摘要：
Sub util实例()Dim rs%rs = 2Do Until Cells(rs, 2) = ""If Cells(rs, 2) >= 90 Then Cells(rs, 3) = "good"rs = rs + 1LoopEnd Sub 阅读全文
摘要：
Sub while实例()Dim rs%rs = 2Do While Cells(rs, 2) ""If Cells(rs, 2) >= 90 Then Cells(rs, 3) = "good"rs = rs + 1LoopEnd Sub 阅读全文
摘要：
循环语句，直到满足某个条件Sub 事例()Dim a%Doa = a + 1If a > 10 ThenMsgBox a & "大于10"Exit DoEnd IfLoopEnd Sub 阅读全文
摘要：
根据表达式的值来决定执行几组语句中的其中之一Sub select多条件判断()Dim s$s = "a"Select Case sCase "a" MsgBox "我是a"Case "b" MsgBox "我是b"Case Else MsgBox "我是未知"End SelectEnd Sub 阅读全文