01 2008 档案

排序工作表 找指定工作表
摘要:@@@@@@@@@@排序工作表@@@@@@@@@@ Dim bSorted As Boolean Dim nSortedSheets As Long Dim nSheets As Long Dim n As Long nSheets = Worksheets.Count nSortedSheets = 0 Do While (nSortedSheets 0 Then ... 阅读全文

posted @ 2008-01-15 23:48 Edward Xie 阅读(131) 评论(0) 推荐(0)

远程读文件(工作表)
摘要:'''''''''''''''''''''''''' '需查询数据薄数量 loopnum = InputBox("请输入读取报表文件数(例:需读""9月报表.xls"",""10月报表.xls"",故填2)", "InputboxForLoop") '需要 阅读全文

posted @ 2008-01-15 23:48 Edward Xie 阅读(167) 评论(0) 推荐(0)

组件2
摘要:[VBA起步]常用的、带解释的 VBA 短句 [VBA起步]常用的、带解释的 VBA 短句[A65536].End(xlUp).Row 'A列末行向上第一个有值的行数[A1].End(xlDown).Row 'A列首行向下第一个有值之行数[IV1].End(xlToLeft).Col... 阅读全文

posted @ 2008-01-15 23:40 Edward Xie 阅读(518) 评论(0) 推荐(0)

组件
摘要:增加工作表(Add方法)Sub AddWorksheet() MsgBox "在当前工作簿中添加一个工作表" Worksheets.Add MsgBox "在当前工作簿中的工作表sheet2之前添加一个工作表" Worksheets.Add before:=Worksheets("sheet2") MsgBox "在当前工作簿中的工作表sheet2之后添加一个工作表" Workshee... 阅读全文

posted @ 2008-01-15 23:39 Edward Xie 阅读(197) 评论(0) 推荐(0)

Range,cells,offset,end
摘要:Range,cells,offset,end 一.Range属性 1.选择单个单元格(例如A5) Range("A5").Select 2.选择一个单元格区域(例如A6:A10) Range("A6:A10").Select 3.选择一些不相邻的单元格(例如A1,B6,C8) Range("A1,B6,C8").Select ... 阅读全文

posted @ 2008-01-15 23:38 Edward Xie 阅读(296) 评论(0) 推荐(0)