alex_bn_lee

导航

上一页 1 ··· 228 229 230 231 232 233 234 235 236 ··· 245 下一页

2011年10月27日 #

Excel VBA - Workbook对象

摘要: 来源:http://blog.csdn.net/alexbnlee/article/details/6911204Workbooks(1).NameWorkbooks(1).FullName 工作簿地址加名字Workbooks(1).Path 工作簿地址Workbooks(1).Close SaveChanges:=False 关闭工作簿,并且不保存Workbooks.Open ThisWorkbook.Path & "\123.xlsx" 打开这个地址的文件Workbooks(1).Save 工作簿保存ThisWorkbook.SaveAs Filename:=T 阅读全文

posted @ 2011-10-27 16:38 McDelfino 阅读(445) 评论(0) 推荐(0)

Excel VBA - Sheet对象

摘要: 来源:http://blog.csdn.net/alexbnlee/article/details/6910151工作表引用Worksheets(3).Select 这里面的3是Index,就是一个下面的顺序Worksheets("Sheet3").Select 这里面的Sheet3是NameSheet3.Select 这里面的Sheet3是CodeName数组For Each Rng in Range("A1:J10")For Each Sht in WorksheetsFor Each Book in Workbooks添加工作表Worksheets 阅读全文

posted @ 2011-10-27 12:29 McDelfino 阅读(1091) 评论(0) 推荐(0)

Excel VBA - Range对象

摘要: 来源:http://blog.csdn.net/alexbnlee/article/details/6909689Rows.Count 显示所有行的数目Columns.Count 显示所有列的数目Cells(Rows.Count, 1).End(xlUp).Row 显示第一列从下面数第一个有值的单元格的行号Cells(1, Columns.Count).End(xlToLeft).Column 显示第一行从右面数第一个有值的单元格的列号Cells(1, 1).BorderAround xlContinuous, xlThin 给A1单元格加入外边框Range("A1:B4" 阅读全文

posted @ 2011-10-27 10:30 McDelfino 阅读(930) 评论(0) 推荐(0)

2011年10月25日 #

Excel VBA函数

摘要: 来源:http://www.gisall.com/?uid-153242-action-viewspace-itemid-5903 Rows.Count 显示所有行的数目Column.Count 显示所有列的数目Cells(Rows.Count, 1).End(xlUp).Row 显示第一列从下面数第一个有值的单元格的行号Cells(1, Columns.Count).End(xlToLeft).Column 显示第一行从右面数第一个有值的单元格的列号Cells(1, 1).BorderAround xlContinuous, xlThin 给A1单元格加入外边框Range("A1: 阅读全文

posted @ 2011-10-25 16:49 McDelfino 阅读(673) 评论(0) 推荐(0)

2011年10月18日 #

Excel VBA 循环“我中毒了~”

摘要: 来源:http://mcdelfino.blog.51cto.com/2058744/691131 Dim Runtime As Date Sub RunTimer() Runtime = Now() + TimeValue("00:00:01") Application.OnTime Runtime, "my_Procedure" End Sub Sub my_Procedure() Static count As Integer count = count + 1 ... 阅读全文

posted @ 2011-10-18 16:29 McDelfino 阅读(356) 评论(0) 推荐(0)

上一页 1 ··· 228 229 230 231 232 233 234 235 236 ··· 245 下一页