查看: 4135|回复: 7
把EXCEL的宏(VBA)转换成ABAP代码
认证徽章论坛徽章:104
真有NB人啊！
先谢过原创作者啦！我这里分享啦！
相信大家都会用EXCEL里面的录制宏功能吧,它会把你的操作用代码记录下来,就是VBA了.VBA代码转换成ABAP代码其实是有规律可寻的,下面谈一下自己的经验,因为我第一个报表就是用EXCEL输出的.
先举一个简单的例子来说明:
EXCEL录制宏的结果:
Range(”A1″).Select
ActiveCell.FormulaR1C1 = “d”
其实它等价于:
cells(1,1).value = “d”
写成ABAP就如下:
**选择单元格，#1为行号，#2为列号
&&CALL METHOD OF G_EXCEL ‘Cells’ = G_CELL1
& & EXPORTING
& & #1 = 1
& & #2 = 1.
**填充单元格，给其赋值
&&SET PROPERTY OF G_CELL1 ‘Value’ = ‘d’.
下面分不同的情况讲述到底如何用METHOD和PROPERTY:
1.不带参数的属性
例如:selection.font.bold = true
selection是font的上一层,font对于selection来说可以当作一种属性,但是和bold是font的属性还不太一样,体会一下.转成ABAP就是:
get property of gs_selection ‘FONT’ = gs_font.
bold是font的属性,转成ABAP就是:
set property of gs_font ‘BOLD’ = ‘1′.
2.带参数的属性
例如:Application.Cells(1, 1).Value = “d”
这里的application就是excel.application,也就是我们创建的对象gs_excel,因为一般都会这样创建
create object gs_excel ‘EXCEL.APPLICATION’.
cells可以当作application的属性,但是和第一种情况不同的是,cells有两个参数,转成ABAP:
call method of gs_excel ‘CELLS’ = gs_cell
& &&&exporting
& && && &#1 = 1
& && && &#2 = 1.
N个参数就是#n.
3.不带参数的方法
例如:cells(1,1).select
select对于第一行第一列这个单元格来说,是选中它的方法,所以要用call method
call method of gs_cell ‘SELECT’.
4.带参数的方法
例如:cells(1,1).BorderAround 1,3
**给外边框加框
&&CALL METHOD OF gs_cell ‘BorderAround’
& & EXPORTING
& && &#1 = 1&&“线型,连续线
& && &#2 = 3. “线宽
求职 : 认证徽章论坛徽章:248
学习了！！！！！
论坛徽章:10
论坛徽章:5
有个abap2xlsx弄的不错的
论坛徽章:15
还有这一手呀
论坛徽章:2
这个虽然简单，可是慢，如果数据量稍多，估计是不能忍受这个速度的。。。。。。。
认证徽章论坛徽章:104
maycolour 发表于
这个虽然简单，可是慢，如果数据量稍多，估计是不能忍受这个速度的。。。。。。。
哈哈，这是原作者哪里玩的。。
论坛徽章:2
好东西 收藏了
itpub.net All Right Reserved. 北京皓辰网域网络信息技术有限公司版权所有　　　　
　北京市公安局海淀分局网监中心备案编号：　广播电视节目制作经营许可证：编号（京）字第1149号(window.slotbydup=window.slotbydup || []).push({
id: '3284507',
container: s,
size: '0,0',
display: 'inlay-fix'
Excel使用VBA实现excel循环累加的代码
excel循环累加使用VBA事件和代码自动完成累加是比较可行的方法。
　　我们以一个具体的例子来说明使用VBA实现excel循环累加的使用。
　　我们在A列输入具体的数据，然后在B列实现循环累加。
　　比如我们在A1输入12，B1显示12，A1再输入13，B1就循环累加，值为：12+13=25。
　　再次在A1输入10，B1这次的循环累加值为：10+25=35。其余单元格以此类推，只要在A列输入数字，B列就自动循环累加。
　　实现的方法是：我们在需要进行excel循环累加的工作表标签，右键，选择&查看代码&，打开VBE编辑器，复制下面的代码，并关闭VBE编辑器，回到工作表中A列开始输入数据，excel会在B列自动循环累加数值。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Range(&B& & Target.Row) = Val(Range(&B& & Target.Row)) + Val(Target)
　　如果是同一单元格循环累加，可以使用下面的代码，比如A1输入2，再输入5，结果为2+5=7，再输入10，结果为7+10=17。
Private Sub Worksheet_Change(ByVal Target As Range)
Static temp As Double
If Target.Address = &$A$1& Then
Application.EnableEvents = False
[a1] = Val(temp) + Val([a1])
Application.EnableEvents = True
temp = [a1].Value
标签(Tag):
------分隔线----------------------------
------分隔线----------------------------查看: 38854|回复: 342
简洁实用Excel进销存表格，使用VBA编程自动计算(开放源码)
　　很多网友希望找到一款简单的Excel进销存，我自己也是这样，很多功能强大的表格往往用起来感觉有点复杂，所以自己动手做了一款操作简洁的进销存。没有花哨的界面、没有繁杂的操作，就是简单的入库、出库记录，完全自动计算库存。
　　一、使用准备
　　与其它任何使用VBA编程制作的Excel表格一样，在使用前，要先确认你的电脑里安装了Office软件，如果没有安装可以下载，按照安装教程操作就可以了。
　　在确认电脑里已经安装了Office软件后，还要在Excel里启用宏，可以参考这篇文章，一台电脑只要启用宏一次，以后都可以正常使用。
　　二、主界面
　　打开进销存表格，首先看到的是主界面，绿色清爽的色调，讨人喜欢的风格。
主界面.png (34.22 KB, 下载次数: 82)
主界面.png
21:31 上传
　　大家看上面的主界面截图，一看就知道是很清楚的功能划分。
　　三、基础资料
　　输入一些基础的资料，方便后面做账时使用。
　　（一）基础档案
基础档案.png (9.54 KB, 下载次数: 107)
基础档案.png
21:31 上传
　　分为：产品类别、、职员、部门、供应商、客户，共6列。
　　系统里输入了一些示例的数据，可以替换成自己工作中实际的资料。
　　（二）产品信息
存货档案.png (11.77 KB, 下载次数: 168)
存货档案.png
21:31 上传
　　1、存货编码：就像人的身份证一样，是一个货物的唯一标识，必须有、不能重复、一旦确定不可修改。
　　最好不要使用纯数字，建议像上面图中所示使用：字母+数字。
　　2、名称、规格、单位：根据实际的货物资料进行填写就可以了。
　　3、类别：引用“基础档案”里填写好的“产品类别”，选中单元格，可以从下拉列表里选择。
　　4、期初数量、期初金额、安全库存：这些是可选项，可以填写、也可以不填写。
　　5、即时库存：此列有公式，自动计算，无需填写。
　　6、增加存货后，需进行档案设置（也就是点击右上角的“档案设置”按钮）。
　　四、单据录入
单据录入界面.png (10.04 KB, 下载次数: 97)
单据录入界面.png
21:31 上传
　　1、录入数据前，选择“单据类型”，预设有四种：外购入库、生产领料、产品入库、销售出库，上面图中以“外购入库”为例。
　　2、选择不同的单据类型，单据标题会自动变化。如果要调整单据类型或者标题，可以在VBA代码里进行修改。
　　3、表头中的“仓库”、“供应商”可以通过下拉列表选择。“单据编号”会自动生成。
　　4、双击存货代码单元格，可以跳出货物选择窗口，如下图：
物料浏览窗口.png (5.98 KB, 下载次数: 95)
货物选择窗口.png
15:41 上传
　　提示：双击窗口中的货物所在行，就可以在单据里自动输入货物的信息。
　　5、单据的信息填写好以后，点击单据下方的“保存”按钮，完成一张单据的录入。
　　五、单据列表
单据列表.png (26.74 KB, 下载次数: 156)
单据列表.png
21:31 上传
　　单据列表里，保存所有的出入库数据记录，如果在单据录入时不小心输入错误，也可以直接进入到单据列表里进行修改。
　　六、收发存汇总
收发汇总表.png (13.91 KB, 下载次数: 87)
收发汇总表.png
21:31 上传
　　1、在查询收发汇总统计前，需要对单据列表进行排序，也就是进入到“单据列表”里，点击一下“排序”按钮。
　　2、设置好需要统计的“开始日期”与“结束日期”。
　　3、点击“查询”按钮，就可以自动生成“期初结存”、“本期收入”、“本期发出”、“期末结存”等所有的数据。
　　七、库存台账
库存台账.png (10.15 KB, 下载次数: 141)
库存台账.png
21:31 上传
　　1、在查询库存台账前，需要对单据列表进行排序，也就是进入到“单据列表”里，点击一下“排序”按钮。
　　2、双击“存货编码”右侧的单元格，选择一种需要查询的存货。
　　3、设置好需要查询的“开始日期”与“结束日期”。
　　4、点击右上角的“查询”按钮，就可以把指定存货的进出明细、结存数量自动计算与统计。
　　八、存货核算
存货核算.png (14.91 KB, 下载次数: 87)
存货核算.png
21:31 上传
　　存货核算功能：可以自动计算指定时段（开始日期与结束日期之间）的所有存货的成本单价。
　　这里使用的“加权平均法”对存货的成本进行核算。
　　九、表格说明
　　1、为防止表格结构变化而导致运算错误，部分工作表加了保护，工作表保护密码为空。
　　2、本表格使用了VBA编程代码，如果您熟悉VBA编程可以进行扩展、调整、修改，VBA工程密码：337928。
　　若您对VBA代码不了解，不建议修改表格的源代码。
　　3、这款Excel进销存系统，可以在32位的Excel2003、Excel2007、Excel2010、Excel2013中通用，但是请不要在64位的Excel里或者WPS里使用。
(2.17 MB, 下载次数: 3274)
15:45 上传
点击文件名下载附件
简洁实用Excel进销存表格.xls下载积分: 金钱 -2 , 贡献 -2
　　简洁实用Excel进销存表格在上面的附件中，请下载使用，如果遇到问题或者有不明白的地方，请在本贴回复提出，我会不定期来库管易网站为大家解答。
中国最大的专业网站，最多仓管人员聚集的与交流论坛
挺不错的，关键在于开放源代码，其实，我就是想下载学习一下楼主是怎样实现这些功能的。
自学Excel的VBA编程有三、四个月了，不过只是看图书里的理论，自己想他库一套进销存系统不知道怎样入手，楼主的这套表格，也可以直接在工作中使用，同时又可以学习里面的源代码。
十分感谢~~~下载用用，对于小型仓库来说，进行入库、出库记录，挺方便的。
很实用的Excel表格，做小型仓库的出入库记录很合适。
我这边使用出现错误，提示：“系统异常&H)。ClassFactory无法供应请求的类别”，求解决，谢谢！
我这边使用出现错误，提示：“系统异常&H)。ClassFactory无法供应请求的类别”，求解 ...
感谢反馈。原来的表格里，在弹出“物料”浏览选择窗口时，使用了TreeView控件，虽然更加美观，但是兼容性不好，有些电脑里因为Office版本不同无法显示，就会有这个提示。
现在已经改为使用ListBox控件，在所有的Excel里都可以使用了，请到主贴子里重新下载附件表格。
谢谢啦，我试试。
谢谢分享！！！
非常实用 感谢分享
Powered by