神武2120剧情给什么:Excel VBA经典语句录

来源:百度文库 编辑:偶看新闻 时间:2024/04/28 14:29:21
1.获取使用区域行数:lastrow=sheets("sheet1").userange.rows.count  2.个性化Excel标题栏Private Sub Workbook_Open()
Application.Caption = "XXXX管理系统"
ActiveWindow.Caption = vbNullString
End Sub 3.任意列有数据的最后一行n = Cells.Find("*", , , , 1, 2).Row