visual c++开发实战1200例,Visual C++开发实战1200例pdf

1. excel宏的编程实例？

excel宏的编程实例？

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列数值重复的行

、

4、 本示例为设置密码窗口 (1) If application.InputBox("请输入密码：") = 1234 Then [A1] = 1 '密码正确时执行 Else: MsgBox "密码错误，即将退出！" '此行与第2行共同设置密码 End If

下面是一个简单的Excel宏编程实例，它将在选定的单元格范围内计算并显示总和：

1. 打开Excel，并按下"Alt + F11"，打开visual Basic for Applications（VBA）编辑器。

2. 在VBA编辑器中，选择"插入"菜单，然后选择"模块"。这将创建一个新的模块。

3. 在模块中，编写以下宏代码：

```vba

Sub 计算总和()

&nbsp;   Dim rng As Range

    Dim total As Double