好的公关活动案例:Excel VBA经典语句录

来源:百度文库 编辑:中财网 时间:2024/05/05 08:05:31
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