Excel常用宏

EXCEL 259个常用宏

宏文件集

打开全部隐藏工作表 Sub 打开全部隐藏工作表() Dim i As Integer For i = 1 To Sheets.Count Sheets(i).Visible = True Next i End Sub 循环宏 Sub 循环() AAA = Range(\

Dim i As Long Dim times As Long times = AAA

'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647) For i = 1 To times Call 过滤一行

If Range(\完成标志\完成\ '如果名为'完成标志'的命名单元的值等于'

完成',则退出循环,如果一开始就等于'完成',则只执行一次循环就退出

'If Sheets(\传送参数\完成\ '如果某列出

现\完成\内容则退出循环 Next i End Sub 录制宏时调用“停止录制”工具栏 Sub 录制宏时调用停止录制工具栏()

Application.CommandBars(\E

1：打开所有隐藏工作表 2：循环宏

3：录制宏时调用“停止录制”工具栏 4：高级筛选5列不重复数据至指定表 5：双击单元执行宏(工作表代码)

6：双击指定区域单元执行宏(工作表代码) 7：进入单元执行宏(工作表代码)

8：进入指定区域单元执行宏(工作表代码)

9：在多个宏中依次循环执行一个（控件按钮代码）

10：在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码） 11：在三个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码） 12：根据A1单元文本隐藏/显示按钮（控件按钮代码） 13：当前单元返回按钮名称（控件按钮代码）

14：当前单元内容返回到按钮名称（控件按钮代码） 15：奇偶页分别打印

16：自动打印多工作表第一页

17：查找A列文本循环插入分页符

18：将A列最后数据行以上的所有B列图片大小调整为所在单元大小 19：返回光标所在行数

20：在A1返回当前选中单元格数量 21：返回当前工作簿中工作表数量 22：返回光标选择区域的行数和列数

1：打开所有隐藏工作表 2：循环宏

3：录制宏时调用“停止录制”工具栏 4：高级筛选5列不重复数据至指定表 5：双击单元执行宏(工作表代码)

6：双击指定区域单元执行宏(工作表代码) 7：进入单元执行宏(工作表代码)

8：进入指定区域单元执行宏(工作表代码)

9：在多个宏中依次循环执行一个（控件按钮代码）

10：在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码） 11：在三个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码） 12：根据A1单元文本隐藏/显示按钮（控件按钮代码） 13：当前单元返回按钮名称（控件按钮代码）

14：当前单元内容返回到按钮名称（控件按钮代码） 15：奇偶页分别打印

16：自动打印多工作表第一页

17：查找A列文本循环插入分页符

18：将A列最后数据行以上的所有B列图片大小调整为所在单元大小 19：返回光标所在行数

20：在A1返回当前选中单元格数量 21：返回当前工作簿中工作表数量 22：返回光标选择区域的行数和列数

1：打开所有隐藏工作表 2：循环宏

3：录制宏时调用“停止录制”工具栏 4：高级筛选5列不重复数据至指定表 5：双击单元执行宏(工作表代码)

6：双击指定区域单元执行宏(工作表代码) 7：进入单元执行宏(工作表代码)

8：进入指定区域单元执行宏(工作表代码)

9：在多个宏中依次循环执行一个（控件按钮代码）

10：在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码） 11：在三个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码） 12：根据A1单元文本隐藏/显示按钮（控件按钮代码） 13：当前单元返回按钮名称（控件按钮代码）

14：当前单元内容返回到按钮名称（控件按钮代码） 15：奇偶页分别打印

16：自动打印多工作表第一页

17：查找A列文本循环插入分页符

18：将A列最后数据行以上的所有B列图片大小调整为所在单元大小 19：返回光标所在行数

20：在A1返回当前选中单元格数量 21：返回当前工作簿中工作表数量 22：返回光标选择区域的行数和列数

Excel宏教程

一、 选中单个单元格 Range(“<单元格地址>“).Select

例：Range(\?选中“C9”单元格

二、 选中多个单元格

Range(“<单元格地址>:<单元格地址>[,<单元格地址>……]”).Select

例：Range(“A1:B2”).Select ?选中“A1”、“A2”、“B1”、“B2”四个连续的单元格 Range(“12:12”).Select ?选中第12行 Range(“B:B”).Select ?选中第B列

Range(“A1:A2,B7,2:2”).Select ?选中“A1”、“A2”、“B7”五个不连续的单元格和第二行 Cells.Select ?选中当前SHEET中的所有单元格

Rows(\行地址>:<行地址>\?选中整行 Columns(\列地址>:<列地址>\?选中整列

例：Rows(“2:2”). Select ?选中第2行 Rows(“2:5”). Select ?选中2到5行 Columns(\?选中A列 Columns(\?选中E到B列

三、 设置活动单元格

Range(\单元格地址>\

注：设置活动单元格 与

清除剪贴板

Sub 清除剪贴板()

Application.CutCopyMode = False

Application.CommandBars(\End Sub

批量清除软回车

Sub 批量清除软回车()

'也可直接使用Alt+10或13替换

Cells.Replace What:=Chr(10), Replacement:=\ xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False End Sub

判断指定文件是否已经打开

Sub 判断指定文件是否已经打开() Dim x As Integer

For x = 1 To Workbooks.Count

If Workbooks(x).Name = \函数.xls\ '文件名称 MsgBox \文件已打开\ Exit Sub End If Next

MsgBox \文件未打开\End Sub

当前文件另存到指定目录

Sub 当前激活文件另存到指定目录()

Excel宏读取SAP数据

方法一: 使用WSDL实现不登陆SAP输出Excel报表.

实现直接从EXCEL输出报表数据的关键是sap Web Services

SAP 创建 Web Services

Web service 就是一个应用程序，它向外界暴露出一个能够通过Web进行调用的API。也就是说，可以利用编程的方法通过Web来调用这个应用程序。

Web services是建立可互操作的分布式应用程序的新平台。Web service平台是一套标准，它定义了应用程序如何在Web上实现互操作性。你可以用任何你喜欢的语言，在任何你喜欢的平台上写Web service ，只要我们可以通过Web service标准对这些服务进行查询和访问。

SAP 的Web Service 分为ABAP and Java Web Services。

创建Web Service

方法1.T-Code:SE80 选择Package,然后右击在菜单中选择，Create ? Enterprise Services / Web Services ? Web Service.

方法2.T-CODE ：SE37 选择一个function module，显示

篇一：打开excel表,提示找不到打开程序的宏

打开excel表，提示找不到打开[新建 microsoft excel 工作表（2）.xls] XL4Poppy!$C$4 继续运行可能导致错误。原来没有出现过，是接收了一个表格打开后提示要启用宏，以后以前弄的表现在打开就变成这样了。

如片不清楚，看不见提示，试试把“工具”-“宏”-安全性改为“中”，然后再试试

手动清除Excel宏病毒的具体方法：

1、进入 C:\Program Files\Microsoft Office\OFFICE11\xlstart\下先删除book1文件，（注意：这个C是指你的系统盘，比如我的是双系统，那么打开C盘就是删了也是无用的，看你使用的是哪个系统。）然后再建立Book1文件夹；

2、打开EXCEL文档，格式-->工作表-->取消隐藏工作表，删除xl4poppy工作表，然后，点击菜单：插入-->名称-->定义，删除所有的名称。保存；

3、处理完再删除刚才建立的文件夹。

这样就可以清松消灭掉Excel宏病毒，再打开你的excel文件，就安全了。此种方法保证快捷有效！

篇二：EXCEL宏被禁用怎么办？

看到excel提示宏已被禁用，大家会不会觉得很心塞呢?

携手台湾医界精英，为您全面提升医院价值！

1、ABS函数 函数名称：ABS

主要功能：求出相应数字的绝对值。 使用格式：ABS(number)

参数说明：number代表需要求绝对值的数值或引用的单元格。

应用举例：如果在B2单元格中输入公式：=ABS(A2)，则在A2单元格中无论输入正数（如100）还是负数（如-100），B2中均显示出正数（如100）。

特别提醒：如果number参数不是数值，而是一些字符（如A等），则B2中返回错误值“#VALUE！”。 2、AND函数 函数名称：AND

主要功能：返回逻辑值：如果所有参数值均为逻辑“真（TRUE）”，则返回逻辑“真（TRUE）”，反之返回逻辑“假（FALSE）”。 使用格式：AND(logical1,logical2, ...)

参数说明：Logical1,Logical2,Logical3……：表示待测试的条件值或表达式，最多这30个。 应用举例：在C5单元格输入公式：=AND(A5>=60,B5>=60)，确认。如果C5中返回TRUE，说明A5

excel 常用函数公式及技巧搜集（常用的）

【身份证信息？提取】 从身份证号码中提取出生年月日

=TEXT(MID(A1,7,6+(LEN(A1)=18)*2),\

=TEXT(MID(A1,7,6+(LEN(A1)=18)*2),\

=IF(A2<>\

显示格式均为 yyyy-m-d。（最简单的公式，把单元格设置为日期格式）

=IF(LEN(A2)=15,\\

显示格式为 yyyy-mm-dd。（如果要求为“1995/03/29”格式的话，将”-” 换成”/”即可）

=IF(D4=\年 00 月 00 日 \年 00 月 00 日\

显示格式为 yyyy 年 mm 月 dd 日。（如果将公式中“0000 年 00 月 00 日”改成“0000-00-00”,则显示格式 为 yyyy-mm-dd）

=IF(LEN(A1:A2)=18,MID(A1:A2,7,8),\

显示格式为 yyyymmdd。

=TEXT((LEN(A1)=15)*19&MID(A1,7,6+(LEN(A1)=18)*2),\

=IF(LEN(A2)=18,MID(A2,7,4)&-MID(A2,11,2),19&MID(A2,7,2)&-MID(A2,9,2)) =M