宏指令编程是一种预处理器技术,可以将代码中的某些文本序列替换成预定义的文本序列。
实例可以是将一个函数调用替换成一个常量,或者将一段重复使用的代码替换成一个宏定义。
例如,定义一个求平方的宏:#define SQUARE(x) ((x)*(x))在代码中可以使用该宏:int a = 3;int b = SQUARE(a);经过预处理后,代码变成:int a = 3;int b = ((a)*(a));通过宏指令编程,可以减少重复编写代码的工作量,提高代码的可读性和可维护性。
宏指令编程实例
1、
执行时,增加一个工作表,并且直接命名
Private Sub CommandButton1_Click()Dim n, nm As Stringnm = InputBox("请输入工作表名:")If nm <> "" Then n = MsgBox("要插入工作表请单击”确定“,否则请单击”取消“", vbOKCancel, "提示") If n = vbOK Then Sheets.Add.Name = nm End IfEnd IfEnd Sub
2、
获取工作表最后一行的行号
第一种方法:n = Sheets("历下2010").Range("A65535").End(xlUp).Row:按Al列判断
第二种方法:n = Sheets("历下2010").Cells.SpecialCells(xlCellTypeLastCell).Row
两种方法速度基本一致
3、
删除表中A列数值重复的行