alex_bn_lee

摘要： 来源：http://blog.csdn.net/alexbnlee/article/details/6912319Application.Version 显示Excel的版本号Application.UserName 显示当前用户的用户名Application.StatusBar = "状态栏" 状态栏显示内容Application.StatusBar = False 状态栏不显示内容Application.Wait Now() + TimeValue("00:00:01") DoEvents暂停 阅读全文

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