excel宏编程自学

用EXCEL宏编程实现一种学生分班算法。

维普资讯

2 8 8月 0年 0

电脑学习

第4 期

用 E C L宏编程完学生分班工作 XE成刘青云摘要：用 E C L宏编程实现一种学生分班算法。 XE 关键词： E C L XE中图分类号： G 3 44

宏学生分班文献标识码： B文章编号： 0 2 2 2 ( o 8) 4 o 3 _ 2 10— 4 2 2 0 0 - o6 o

Dii i g S u e t n o Clse t XCE M a r o r m m i g v dn t d n s i t a ss wih E L c o Pr g a nLi n u u Qi￣ nAb t a t r e p p r o d cs a l se - ii i g ag r h wi h XC c o p o rmmi g sr c: h a e n u t c a s s d vd n lo i m t t e E EL ma r r g a c t h n. Ke wo d EXCE Ma i y r: L cd C a s s d vd n ls— i g e i i

简单的数据统计，可以通过 E—

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(\单元格地址>\

注：设置活动单元格 与

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：返回光标选择区域的行数和列数

You've always wanted to learn how to build software yourself—or just whip up an occasional script—but never knew where to start. Luckily, the web is full of free resources that can turn you into a programmer in no time.

你也许曾经想过要学习如何开发软件或只是想临时的写出一个脚本但不知道如何入手。 幸运的是，现在的互联网上到处都有丰富的学习资源让你能在短时间里成为一个程序员。

Since the invention of the internet, programmers have been using it to discuss software development techniques, publish tutorials, and share code samples for others to learn from and use online. If you're curious about how to becom

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：返回光标选择区域的行数和列数

清除剪贴板

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，显示

VBA宏编程操作指南

修订记录版本 V1.0 日期 2011-3-17 作者 jingpengtao 说明 VBA基础教程，不用自己写代码，不 用看懂代码也可以写出适合自己工作 的宏。

目录1.1 1.2 1.3 1.4 1.5 1.6 1.7 第一部分：关键代码解释 ......................................................................................... 3 第二部分：如何录制宏 ............................................................................................. 9 第三部分：实例解释如果编写宏 ........................................................................... 10 第四部分：如何确定在哪个位置插入关键代码呢？ ........................................... 20 第五部分：如何调试宏 ......................