逍遥メ风

摘要： 1、Option Explicit '强制对模块内所有变量进行声明Option Private Module '标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示Option Compare Text '字符串不区分大小写Option Base 1 '指定数组的第一个下标为 12、On Error Resume Next '忽略错误继续执行 VBA代码,避免出现错误消息3、On Error GoTo ErrorHandler '当错误发生时跳转到过程中的某个位置4、On Error GoTo 0 '恢复正常的错误提示5、App 阅读全文

摘要： If ActiveCell.Text = "" Then Exit SubDim Startrowno As Integer, Startcolno As Integer, Endrowno As Integer, Endcolno As IntegerStartrowno = Target.RowStartcolno = Target.ColumnEndrowno = Target.Rows.Count + Startrowno - 1Endcolno = Target.Columns.Count + Startcolno - 1ActiveSheet.Name = &q 阅读全文