ciyu0636-优快云博客

转载 ABAP 的 Message Box 的用法

一. 编辑资料未保存而退出的确认框﹕操作步骤如下﹕ 1. 定义一個变量接受函数的返回值例如﹕ data: commandname2. 调用函数 POPUP_TO_CONFIRM_LOSS_OF_DATACALL FUNCTION...

2012-03-06 16:42:37 225

转载关于类的简单举例

CLASS Employee DEFINITION.PUBLIC SECTION.DATA:nEmployeeNo(4) type n, cEmployeeName(30) type c,iNoOfUnits type i,iP...

2012-02-20 13:29:25 123

转载把EXCEL所有单元格的格式设置为文本

HS = Sheets(1).Cells(65536, 1).End(xlUp).RowLS = Sheets(1).UsedRange.Columns.CountDim H As LongDim L As LongFor H ...

2011-08-31 19:21:08 1089

转载数组的一个应用

ABC1时间人员销售金额212甲、乙、丙100,200,300315丁、戊、己300,500,600416庚、辛、乙900,700,500517丁、戊、甲400,200,100618乙、丙、己200,200,200719丁、辛、...

2011-08-07 21:25:53 88

转载提取电脑硬件有关数据（二）

上次讲到识别系统序列号，这次我就利用上序列号了。下面这段代码复制到excel中，这样就可以保护你的知识产权了。Private Sub workbook_open()Dim min As Stringmin = Environ("...

2011-08-04 11:27:01 111

转载提取电脑硬件有关数据（一）

最近做一些VBA开发，总想让指定的人员（机器）使用，于是研究了怎么提取电脑的有关参数，再进行相应的判断。先从电脑名称及磁盘开始吧！Sub 提取电脑名称()Dim name As Stringname = Environ("com...

2011-08-01 12:38:09 166

转载内表数据导出到excel

最近做了一个内表数据导出到excel的开发,在excel模板已经存在的情况下,需要将不同的数据导出到2张工作薄中,关键代码见下：*模块池:slisTYPE-POOLS: slis.TYPE-POOLS: ole2.*EXECL相...

2011-06-17 10:26:10 127

转载通过VBA的自定义函数实现“数字转大写金额”的方法（票据打印-2）

票据打印有一个关键的技术，那就是“数字转大写金额”。当然，解决的办法很多，这里我转载一个自定义函数，处理起来非常简单。Function dxje(Q)ybb = Round(Q * 100)y = Int(ybb / 100)j...

2011-05-27 11:48:14 777

转载通过VBA实现“在EXCEL输入数字回车后该单元格显示大写金额”的方法(票据打印-1）...

最初做票据打印的时候，通过一些自定义的函数实现“数字变大写”。后来VBA的技巧渐渐熟悉一些，开始用代码处理。也是通过函数，但是更加巧妙和便捷了。这里介绍一个单元格变化激发程序。Private Sub Worksheet_Chan...

2011-05-27 10:57:56 356

转载删除EXCEL中相同行的处理

在VBA处理中经常用到删除相同行的处理,我在资料里找到这段代码,感觉做得非常简练.思路就是先查出使用行数,然后从最末行开始操作,如果最末一行的内容在其它使用行中存在相同内容,则删除最末行,循环该操作.Sub 删除相同行() ...

2011-05-17 10:46:22 188

转载自定义函数多单元格处理举例

问：很多自定义函数都是处理单变量的，自定义函数能否处理“（AS RANGE）AS INTERGER”的函数，比如说，处理某变量的平方，我想处理多变量的平方。答：能。参数使用range而函数值为integer是可以的，思路大致见下...

2011-05-16 13:05:46 116

转载 SAP 财务表

VBKPF Document Header for Document Parking预制凭证的凭证抬头VBSEGA Document Segment for Document Parking - Asset Database凭证...

2011-05-09 15:55:04 180

转载关于SCREEN的部分输入条件可隐藏的问题(二)

通过关于SCREEN的部分输入条件可隐藏的问题（一）的介绍，我想再做一下延伸1.实现根据输入SPFLI-CARRID的内容，决定是否把隐藏界面打开。比如carrid字段中有“AA”、“AZ”、“DL”等，如果输入“AA”的话，隐...

2011-05-06 17:20:53 108

转载关于SCREEN的部分输入条件可隐藏的问题(一)

1.开发report中screen都要输入一些诸如“年度”或“公司代码”的条件，有时候为了屏幕的简洁美观，需要把一些输入条件隐藏起来，操作用户根据需要或输入的条件决定是否打开隐藏的界面。怎么办？我在开发过程中特别需要这个隐藏界面...

2011-05-05 15:27:54 179

转载关于删除内表重复字段所在行的问题

1.首先看看下面这个表格编码数量备注文本AD1012YTAD3223YTBC4534YTAF6545GTFD3245GTBC4556GAF6545YBC4533YAD1067GAD10100G2.现在我想删除“编码”字段重复的行...

2011-04-28 16:00:31 119

转载二分法取方根

Sub aa()s = Range("a1")a = sb = s / aDo While Abs(a - b) > 0.00001a = (a + b) / 2b = s / aLoopRange("a2") = aEn...

2011-04-25 21:33:54 91

转载 VBA里运行的一段关于数组的程序

Sub XXX()Dim a(9) As Longa(1) = 99 a(2) = 564 a(3) = 412 a(4) = 434 a(5) = 65a(6) = 99999 a(7) = 754345 a(8) = 0 a...

2011-03-28 19:26:24 141

转载我对期权的理解（财务管理）

A.期权的定义一种合约，该合约赋予持有人在某一特定日期或该日之前的任何时候与固定价格购进或售出一种资产的权利。要点理解：（1）一种权利。赋予持有人做某事的权利，但持有人不承担必须履行的义务。我买了期权，我已经付出了代价，到了特定...

2011-03-26 13:59:35 617

ciyu0636的博客