excel2007宏表函数(Excel宏表)

1. Excel宏表

所谓“宏”，就是将一系列的命令和指令组合在一起，形成一个命令，以实现任务执行的自动化。它可以替代人工进行一系列费时而重复的操作，是一个极为灵活的自定义命令。

在Excel中运用宏可有两种途径，一种是录制宏，另一种是采用Excel自带的Visual Basic编辑器来编辑宏命令。前一种使用较多，操作简练，也易于理解。宏的用途是使常用任务自动化。开发人员可以使用代码编写功能更强大的 VBA （Visual Basic for Applications (VBA)：Microsoft Visual Basic 的宏语言版本，用于编写基于 Microsoft Windows 的应用程序，内置于多个 Microsoft 程序中。） 宏，这些宏可以在计算机上运行多条命令。但是VBA 宏会引起潜在的安全风险。黑客可以通过某个文档引入恶意宏，一旦打开该文档，这个恶意宏就会运行，并且可能在计算机上传播病毒 （病毒：一种计算机程序或宏，通过在计算机文件中插入自身的副本而“感染”这些文件。感染文件被装入内存后，病毒还要感染其他文件。病毒通常带有有害的副作用。）

2. excel宏表函数

evaluate是早期宏表函数，需要定义名称使用它。举例：计算A1单元格中的等式结果（如：3*9+4），光标定位到B1，按CTRL+F3，新建名称AA，在“引用位置”中输入以下公式：=evaluate($A1)然后在B1中输入公式：=AA就得到A1的计算结果了（31）。

3. 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

5、 本示例为设置密码窗口 (1) X = MsgBox("是否真的要结帐？", vbYesNo) If X = vbYes Then Close

6、 本示例为设置工作表密码 ActiveSheet.Protect Password:=641112 ' 保护工作表并设置密码 ActiveSheet.Unprotect Password:=641112 '撤消工作表保护并取消密码

7、 '本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿，并保存其更改内容。 For Each w In Workbooks If w.Name <> ThisWorkbook.Name Then w.Close SaveChanges:=True End If Next w '每次打开工作簿时，本示例都最大化Microsoft Excel 窗口。 Application.WindowState = xlMaximized

4. EXCEL宏表格内容拆分

首先选择要打开excel表格，选择需要分开内容的表格，然后点击数据。

其次选择分列，点击弹窗中的固定宽度，再点击下一步，选择内容里面需要分开的位置。

继续点击下一步，点击目标区域，在表格中选择分开的内容放置区域，点击完成就可以了。

5. excel宏表函数注意事项

Mid(ActiveSheet.Cells(i, ii).Value, 1, 3) = "科顺捷"

改成

instr(1,ActiveSheet.Cells(i, ii).Value, "科顺捷")

'其中 科顺捷 三个字 你可以随便改 几个字都可以