alex_bn_lee

摘要： 来源：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 阅读全文

摘要： 来源：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 阅读全文

摘要： 来源：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" 阅读全文

摘要： 来源：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: 阅读全文

摘要： 来源：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 ... 阅读全文