VBProject代码操作代码之常用语句
一、增加模块
1．增加一个模块，命名为“我的模块”
ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "我的模块"
系统常量vbext_ct_StdModule=1
2．增加一个类模块，命名为“我的类”
ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_ClassModule).Name = "我的类" vbext_ct_ClassModule=2
3．增加一个窗体，命名为“我的窗体”
ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm).Name = "我的窗体"
vbext_ct_MSForm=3
二、删除模块
1．删除“模块1”
ThisWorkbook.VBProject.VBComponents.Remove hisWorkbook.VBProject.VBComponents("模块1")
2．删除窗体“UserForm1”
ThisWorkbook.VBProject.VBComponents.Remove
ThisWorkbook.VBProject.VBComponents("UserForm1")
3．删除类模块“类1”
ThisWorkbook.VBProject.VBComponents.Remove ThisWorkbook.VBProject.VBComponents("类1")
4.删除所有的窗体
Sub RmvForms()
Dim vbCmp As VBComponent
For Each vbCmp In ThisWorkbook.VBProject.VBComponents
If vbCmp.Type = vbext_ct_MSForm Then ThisWorkbook.VBProject.VBComponents.Remove vbCmp
Next vbCmp
End Sub
相关：
工作表和ThisWorkbook的模块类型为vbext_ct_Document=100
三、增加代码
1.在“模块1”中插入代码
如果需要在“Sheet1”、“Thisworkbook”、或“Userform1”中操作，用只需将下面的“模块1”换成相应的名称即可。
方法1：
在模块的开始增加代码，增加的代码放在公共声明option,全局变量等后面。
Sub AddCode1()
ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.AddFromString _ "sub aTest()" & Chr(10) & _
"msgbox ""Hello""" & Chr(10) & _
"end sub"
End Sub
方法2：
在模块指定行处增加代码，原代码后移。增加代码不理会和判断插入处代码的内容。当指定行大于最后一行行号时，在最后一行的后面插入。
Sub AddCode2()
With ThisWorkbook.VBProject.VBComponents("模块1").CodeModule
.InsertLines 1, "sub aTest()"
.InsertLines 2, "msgbox ""Hello"""
.InsertLines 3, "end sub"
End With
End Sub
相关语句：
(1)“模块1”中代码总行数：
ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.CountOfLines
(2)“模块1”中代码公共声明部分的行数：
ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.CountOfDeclarationLines
(3)显示“模块1”中第1行起的3行代码内容：
Sub ShowCodes()
Dim s$
s = ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.Lines(1, 3)
Debug.Print s
End Sub
(4)过程aTest的起始行数：
ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.ProcBodyLine("aTest", vbext_pk_Proc)
ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.ProcStartLine("aTest", 0)
系统常量vbext_pk_Proc=0
二者的区别是ProcBodyLine返回sub aTest或Function aTest所在的行号，如果sub前面有空行，ProcStartLine返回空行的行号。
(5)过程aTest的总行数：
ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.ProcCountLines("aTest", vbext_pk_Proc)
2.建立事件过程
建立事件过程除了使用上面的代码如下面的AddEventsCode1外，还可以使用CreateEventProc方法，如AddEventsCode2所示。
一般方法：
Sub AddEventsCode1()
ThisWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule.AddFromString _ "Private Sub Workbook_Open()" & Chr(13) & _
"MsgBox ""Hello""" & Chr(13) & _
"End Sub"
End Sub
CreateEventProc方法：
Sub AddEventsCode2()
Dim i%
With ThisWorkbook.VBProject.VBComponents("Sheet1").CodeModule
i = .CreateEventProc("SelectionChange", "Worksheet") + 1
.InsertLines i, "Msgbox ""Hello"""
End With
End Sub
上面CreateEventProc的两个参数建立的事件过程为Worksheet_SelectionChange，分别是下划线两边的内容。
相关：
测试是否存在SelectionChange事件
下面函数测试模块modulname是否存在过程subname，如果存在，则返回起始行号，否则返回0。
debug.print hassub("Worksheet_SelectionChange","Sheet1")
Function HasSub(ByVal subname As String, ByVal modulname As String) As Long
On Error Resume Next
Dim i&
i = ThisWorkbook.VBProject.VBComponents(modulname).CodeModule.ProcBodyLine(subname,
0)
If Err.Number = 35 Then
Err.Clear
HasSub = 0
Else
HasSub = i
End If
End Function
如果存在，则返回起始行号，否则返回0。
四、删除代码
1．删除Sheet1中第2行起的三行代码：
如果只删除1行代码，第二个参数可省略。
Sub DelCodes()
ThisWorkbook.VBProject.VBComponents("Sheet1").CodeModule.DeleteLines 2, 3
End Sub
2．删除“模块1”的所有代码：
Sub DelCodes()
With ThisWorkbook.VBProject.VBComponents("模块1").CodeModule
.DeleteLines 1, .CountOfLines
End With
End Sub
3．删除过程aTest:
Sub DelCodes()
With ThisWorkbook.VBProject.VBComponents("模块1").CodeModule
.DeleteLines . ProcStartLine("aTest", 0), .ProcCountLines("aTest", 0)
End With
End Sub
4．将“模块1”的第5行代码替换为“x=3”
ThisWorkbook.VBProject.VBComponents("模块1").CodeModule.ReplaceLine 5, "x=3"
五、引用项目
1．增加引用
ThisWorkbook.VBProject.References.AddFromFile "C:\Windows\System32\asctrls.ocx"
2．取消引用
ThisWorkbook.VBProject.References.Remove ThisWorkbook.VBProject.References("ASControls")
这里ASControls是引用的名字，即后面的https://www.wendangku.net/doc/0b151341.html,。
3．显示当前所有引用
Sub ShowRefs()
Dim rf As VBIDE.Reference
For Each rf In ThisWorkbook.VBProject.References
Debug.Print https://www.wendangku.net/doc/0b151341.html,, rf.FullPath
Next
End Sub
六、信任及密码
上面所有操作都基于这样的前题：
（1）EXCEL已设置：
工具（T）-宏（M）-安全性（M）-可靠发行商（T）-勾选了“信任对于VB项目的访问（V）”（2）工程没有设置密码
如果不能满足它们中的任何一个，代码运行就会出错。因为微软不希望我们对VBProject进行操作，我们无从知道这种操作的直接方法被藏到了什么地方。幸运的是，微软在关起正门的同时，还是为我们留了一道门：SendKeys。借助于这道后门和“错误陷阱”，我们仍可以完成我们所要做的事。
下面给出绕开这两道门的示意代码，如果你要运行它们，请记得切回EXCEL主界面，而不是在VBE中直接运行。
1．信任对于VB项目的访问
Sub SetAllowableVbe()
On Error Resume Next
Dim Chgset As Boolean
'陷阱测试，VBProject.Protection在这儿并无实际的意义
Debug.Print ThisWorkbook.VBProject.Protection
If Err.Number = 1004 Then
Err.Clear
Application.SendKeys "%TMS%T%V{ENTER}"
Chgset = True
DoEvents
End If
'要执行的操作....
'.....
'操作完成后还原操作前的状态
If Chgset Then Application.SendKeys "%TMS%T%V{ENTER}"
End Sub
2．操作密码工程
Sub AllowPass()
Dim pw$
pw = "Password"
If ThisWorkbook.VBProject.Protection = vbext_pp_locked Then
https://www.wendangku.net/doc/0b151341.html,mandBars(1).Controls("工具(T)").Controls("VBAProject 属性(&E)...").Execute
Application.SendKeys pw & "{ENTER}{ENTER}"
DoEvents
End If
'要执行的操作….
'.....
End Sub
用VB操作excel方法汇总
用VB操作excel方法汇总 Private Sub Command3_Click() Dim i As Long Dim j As Long Dim objExl As Excel.Application '声明对象变量 Me.MousePointer = 11 '改变鼠标样式 Set objExl = New Excel.Application '初始化对象变量 objExl.SheetsInNewWorkbook = 1 '将新建的工作薄数量设为1 objExl.Workbooks.Add '增加一个工作薄 objExl.Sheets(objExl.Sheets.Count).Name = "book1" '修改工作薄名称 objExl.Sheets.Add , objExl.Sheets("book1") '增加第二个工作薄在第一个之后 objExl.Sheets(objExl.Sheets.Count).Name = "book2" objExl.Sheets.Add , objExl.Sheets("book2") '增加第三个工作薄在第二个之后 objExl.Sheets(objExl.Sheets.Count).Name = "book3" objExl.Sheets("book1").Select '选中工作薄
SAP常用事务码附FI解析
一、FI清帐事务码 1.总账清帐~F-03 2.客户清帐~F-32 3.供应商清帐~F-44 4.收客户款记账清帐~F-28=F-06 5.付供应商款记账并清帐~F-53=F-07 6.万能过账清帐~F-04=F-30 7.万能自动清帐~F.13 二、FI基础数据事务码 1.总账科目维护~FS00 2.创建客户~FD01=XD01 3.创建供应商~FK01=XK01 4.创建固定资产~AS01 三、FI业务操作事务码 1.总账科目记账~F-02
四、FI报表查询事务码 1.客户余额查询-FD10N 2供应商余额查询-FK10N 3.总账余额查询-FS10N 4.客户行项目查询-FBL5N 5.供应商行项目查询-FBL1N 6.总账行项目查询-FBL3N 7.检查交货单是否生成会计凭证-VFX3 8查询移动类型明细-MB51 9查询库存明细-MB5B 五、固定资产事务码 1.创建资产主数据-AS01 2.主数据修改调拨-AS02 3.主数据冻结/删除-AS05/AS06 4.查看固定资产详细信息-AW01N 5固定资产报废-ABAVN
6固定资产公司间调拨-ABT1N 7.固定资产折旧运行-AFAB 8.资产明细账和总账的校对-ABST2 9资产会计年度更改-AJRW 10.资产年末余额结转-AJAB 11在建工程分配设定-AIAB 12.在建结算（转固定）-AIBU CO事务码解析 一、主数据 1.创建初级要素-KA01 2.创建次级要素-KA06 3.维护成本中心-KS01、2、3、4 4.维护统计指标-KK01、2、3、4 5.维护成本中心组-KSH1、2、3、4 6作业类型维护-KL01、2、3 7内部订单-KO01、2、3
数据结构_实验1_线性表的基本操作
实验1 线性表的基本操作 一、需求分析 目的： 掌握线性表运算与存储概念，并对线性表进行基本操作。 1.初始化线性表； 2.向链表中特定位置插入数据； 3.删除链表中特定的数据； 4.查找链表中的容； 5.销毁单链表释放空间； 二、概要设计 ●基础题 主要函数： 初始化线性表InitList（List* L，int ms） 向顺序表指定位置插入元素InsertList（List* L，int item，int rc）删除指定元素值的顺序表记录DeleteList1(List* L,int item) 删除指定位置的顺序表记录 DeleteList2（List* L,int rc） 查找顺序表中的元素 FindList（List L，int item） 输出顺序表元素OutputList（List L） 实验步骤： 1，初始化顺序表 2，调用插入函数 3，在顺序表中查找指定的元素 4，在顺序表中删除指定的元素 5，在顺序表中删除指定位置的元素 6，遍历并输出顺序表 ●提高题
要求以较高的效率实现删除线性表中元素值在x到y（x和y自定义）之间的所有元素 方法： 按顺序取出元素并与x、y比较，若小于x且大于y，则存进新表中。 编程实现将两个有序的线性表进行合并，要求同样的数据元素只出现一次。 方法： 分别按顺序取出L1，L2的元素并进行比较，若相等则将L1元素放进L中，否则将L 1，L2元素按顺序放进L。 本程序主要包含7个函数 主函数main() 初始化线性表InitList（List* L，int ms） 向顺序表指定位置插入元素InsertList（List* L，int item，int rc）删除指定元素值的顺序表记录DeleteList1(List* L,int item) 删除指定位置的顺序表记录 DeleteList2（List* L,int rc） 查找顺序表中的元素 FindList（List L，int item） 输出顺序表元素OutputList（List L） 提高题的程序 void Combine(List* L1,List* L2,List* L) void DeleteList3(List* L,int x,int y) 二、详细设计 初始化线性表InitList（List* L，int ms） void InitList(List* L,int ms) { L->list=(int*)malloc(LIST_INIT_SIZE*sizeof(int)); L->size=0; L->MAXSIZE=LIST_INIT_SIZE;
VB编程在Excel中的应用
EXCEL 编程(VBA) Excel 最重要的应用就是利用公式进行计算。无论输入是纯粹的数字运算，还是引用其他单元格计算，只要在一个单元格中输入公式，就能得到结果。这个直接显示结果的设计对于绝大多数场合来说都是适用的，但某些情况下就不那么让人满意了。比如说在做工程施工的预结算编写，使用Excel，既要写出工程量的计算式，也要看到它的结果，于是这样相同的公式在Excel里面要填两次，一次在文本格式的单元格中输入公式，一次是在数据格式的单元格中输入公式让Excel计算结果。如何既能看到公式又能看到结果呢？这个问题笔者认为可以从两个方面考虑：一种方法是所谓“已知结果，显示公式”，先在数据格式单元格中输入公式让Excel计算结果，然后在相邻的单元格中看到公式；另一种方法所谓“已知公式，显示结果”，就是先在一个文本格式的单元格中输入公式，在相邻的单元格中看到结果。 ★ 已知结果，显示公式 假设C列为通过公式计算得到的结果（假设C1为“=A1+B1”，或者直接是数字运算“=2+3”)，而相邻的D列是你需要显示公式的地方（即D1应该显示为“=A1+B1”或者“=2+3”）。 1. 打开“工具”菜单选择“选项”命令，出现“选项”对话框。 2. 在“常规”选项卡中，选中“R1C1引用方式”选项。 3. 定义名称，将“引用位置”由“=GET.CELL(6,Sheet1!RC[-1])”即可。这里的RC[-1]含义是如果在当前单元格的同行前一列单元格中有公式结果，则在当前单元格中得到公式内容，即在含公式结果单元格的同行后一列单元格显示公式内容；如果将RC[-1]改为RC[1]，则在公式结果的同行前一列单元格显示公式内容。 4. 如果“引用位置”中含有“RC[-1]”，则在含公式结果单元格的同行后一列单元格中输入“=FormulaofResult”即可得到公式；如果“引用位置”中含有“RC[1]”，则在含公式结果单元格的同行前一列单元格中输入“=FormulaofResult”即可得到公式。 提示：如果想要在含公式结果单元格的同行后数第2列中显示公式内容，则需要把“引用位置”中的“RC －1 ”改为“RC －2 ”。 ★已知公式，显示结果 假设C列为输入的没有等号公式（假设C1为“A1+B1”)，而相邻的D列是你需要存放公式计算结果的地方（即D1显示A1和B1单元格相加的结果）。 1. 选中D1，然后打开“插入”菜单选择“名称”命令中的“定义”子命令，出现“定义名称”对话框。 2. 在“在当前工作表中的名称”输入栏中输入定义的名称“ResultofFomula”，在下方的“引用位置”编辑栏中输入“=EVALUATE(Sheet1!C1)”，单击[确认]按钮退出。 3. 在 D1中输入“=ResultofFomula”，然后选中按住右下角的填充柄向下拉动填充即可。 提示：EVALUATE 是Eexcel 4．0版的宏表函数，Excel 2000和Excel 2002中 还支持，但只可用于名称定义中。 4. 填充后要按[F9]进行重算，如果C列的公式有改动，也需要及时按[F9]进行
SAP操作常用事务代码大全
S A P操作常用事务代码 大全 集团标准化工作小组 [Q8QX9QT-X8QQB8Q8-NQ8QJ8-M8QMN]
Material Mangement: MM01 - 创建物料主数据 XK01 - 创建供应商主数据 ME11 - 创建采购信息记录 ME01 - 维护货源清单 ME51N- 创建采购申请 ME5A - 显示采购申请清单 ME55 - 批准采购申请（批准组：YH） ME57 –分配并处理采购申请 MB21 - 预留 MB24 - 显示预留清单 ME21N- 创建采购订单 ME28 - 批准采购订单（批准组：YS） ME9F - 采购订单发送确认 ME2L - 查询供应商的采购凭证 ME31 - 创建采购协议 MD03 - 手动MRP MD04 - 库存需求清单（MD05 - MRP清单）MRKO - 寄售结算 MELB - 采购申请列表（需求跟踪号） ME41 - 创建询价单 ME47 - 维护报价 ME49 - 价格比较清单 MI31 - 建立库存盘点凭证 MI21 - 打印盘点凭证 MI22 - 显示实际盘点凭证内容 MI24 - 显示实际盘点凭证清单 MI03 - 显示实际盘点清单 MI04 - 根据盘点凭证输入库存计数 MI20 - 库存差异清单 MI07 - 库存差额总览记帐 MI02 - 更改盘点凭证 MB03 - 显示物料凭证 ME2O - 查询供应商货源库存 MB03 - 显示物料凭证 MMBE - 库存总览 MB5L - 查询库存价值余额清单 MCBR - 库存批次分析 MB5B - 查询每一天的库存 MB58 - 查询客户代保管库存
数据结构实现顺序表的各种基本运算(20210215233821)
实现顺序表的各种基本运算 一、实验目的 了解顺序表的结构特点及有关概念，掌握顺序表的各种基本操作算法思想及其实现。 二、实验内容 编写一个程序，实现顺序表的各种基本运算： 1、初始化顺序表； 2 、顺序表的插入； 3、顺序表的输出； 4 、求顺序表的长度 5 、判断顺序表是否为空； 6 、输出顺序表的第i位置的个元素； 7 、在顺序表中查找一个给定元素在表中的位置； 8、顺序表的删除； 9 、释放顺序表 三、算法思想与算法描述简图
主函数main
四、实验步骤与算法实现 #in clude
怎样实现用VB对EXCEL的操作
用VB操作excel方法 Private Sub Command3_Click() Dim i As Long Dim j As Long Dim objExl As Excel.Application'声明对象变量 Me.MousePointer=11'改变鼠标样式 Set objExl=New Excel.Application'初始化对象变量 objExl.SheetsInNewWorkbook=1'将新建的工作薄数量设为1 objExl.Workbooks.Add'增加一个工作薄 objExl.Sheets(objExl.Sheets.Count).Name="book1"'修改工作薄名称 objExl.Sheets.Add,objExl.Sheets("book1")'增加第二个工作薄在第一个之后 objExl.Sheets(objExl.Sheets.Count).Name="book2" objExl.Sheets.Add,objExl.Sheets("book2")'增加第三个工作薄在第二个之后 objExl.Sheets(objExl.Sheets.Count).Name="book3" objExl.Sheets("book1").Select'选中工作薄
顺序表的基本操作
《数据结构》实验报告一 顺序表的基本操作 班级：网络工程学号：12015242183 实验日期：2016.9.25 姓名：邓宗永 程序文件名及说明：sequenlist 顺序表 一、实验目的 1、掌握使用Turbo C3.0上机调试线性表的基本方法； 2、掌握顺序表的基本操作：插入、删除、查找以及线性表合并等运算。 二、实验要求 1、认真阅读和掌握实验的程序。 2、上机运行程序。 3、保存和打印出程序的运行结果，并结合程序进行分析。 4、按照你对线性表的操作需要，编写写主程序并运行，打印出文件清单和运行结果 三、注意事项： 在磁盘上创建一个目录，专门用于存储数据结构实验的程序。 四、实验内容 1.顺序表的查找、插入与删除。设计算法，实现线性结构上的顺序表的产生以及元素的查找、插入与删除。具体实现要求： （1）从键盘输入10个整数，产生顺序表，并输入结点值。 （2）从键盘输入1个整数，在顺序表中查找该结点的位置。若找到，输出结点的位置；若找不到，则显示“找不到”。 （3）从键盘输入2个整数，一个表示欲插入的位置i，另一个表示欲插入的数值x，将x 插入在对应位置上，输出顺序表所有结点值，观察输出结果。 （4）从键盘输入1个整数，表示欲删除结点的位置，输出顺序表所有结点值，观察输出结果。 五、实验报告必须写明内容 1.程序设计的基本思想，原理和算法描述：（包括程序的结构，数据结构，输入/输出设 计，符号名说明等） 程序的结构：通过子函数实现输出，删除，插入，查找等功能，高耦合低内聚 数据结构：线性结构，顺序储存 输入/输出设计：根据屏幕提示，从键盘读取数据 2.源程序及注释： #include
用VB操作EXCEL(VB6.0)(整理)
用VB操作Excel(VB6.0)(整理)全面控制Excel: 首先创建Excel对象，使用ComObj: Dim ExcelID as Excel.Application Set ExcelID as new Excel.Application 1)显示当前窗口： ExcelID.Visible:=True; 2)更改Excel标题栏： ExcelID.Caption:='应用程序调用MicrosoftExcel'; 3)添加新工作簿： ExcelID.WorkBooks.Add; 4)打开已存在的工作簿： ExcelID.WorkBooks.Open('C:\Excel\Demo.xls'); 5)设置第2个工作表为活动工作表： ExcelID.WorkSheets[2].Activate; 或ExcelID.WorkSheets['Sheet2'].Activate; 6)给单元格赋值： ExcelID.Cells[1,4].Value:='第一行第四列'; 7)设置指定列的宽度（单位：字符个数），以第一列为例： ExcelID.ActiveSheet.Columns[1].ColumnsWidth:=5; 8)设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：ExcelID.ActiveSheet.Rows[2].RowHeight:=1/0.035;//1厘米 9)在第8行之前插入分页符： ExcelID.WorkSheets[1].Rows[8].PageBreak:=1; 10)在第8列之前删除分页符： ExcelID.ActiveSheet.Columns[4].PageBreak:=0; 11)指定边框线宽度： ExcelID.ActiveSheet.Range['B3:D4'].Borders[2].Weight:=3;
顺序表的基本操作 (2)
顺序表的基本操作 /*sqList.h 文件*/ #define LIST_INIT_SIZE 50 /*初始分配的顺序表长度*/ #define INCREM 10 /*溢出时，顺序表长度的增量*/ #define OVERFLOW 1 #define OK 0 #define ERROR -1 typedef int ElemType; /*定义表元素的类型*/ typedef struct SqList{ ElemType *elem; /*存储空间的基地址*/ int length; /*顺序表的当前长度*/ int listsize; /*当前分配的存储空间*/ }SqList; /*sqListOp.h 文件*/ #include "Sqlist.h" int InitList_sq(SqList &L); //顺序表创建函数定义 void FreeList_sq(SqList &L); //顺序表销毁函数定义 int ListInsert_sq(SqList &L, int i, ElemType e); //在顺序表的位置i插入元素e void PrintList_sq(SqList &L); //遍历并输出顺序表所有元素 int ListDelete_sq(SqList &L, int i,ElemType &e); //删除顺序表第i个元素的 bool ListEmpty(SqList &L); //判断顺序表是否为空 int LocateElem_sq(SqList L,ElemType e); //在顺序表里查找出第1个与e相等的数据元素位置//已知线性表La和Lb的元素按值非递减排列 //归并后的La和Lb得到新的顺序线性表Lc，Lc的元素也是按值非递减排列 void MergeList_sq(SqList La,SqList Lb, SqList &Lc); /*sqListOp.cpp文件*/ #include
SAP PS+常用TCODE
工作分解结构 CJ01创建WBS CJ02更改WBS CJ03显示WBS 日期 CJ21更改基本日期 CJ22显示基本日期 CJ23更改预测日期 CJ24显示预测日期 CJ25更改实际日期 CJ26显示实际日期 网络 CN21创建网络 CN22更改网络 CN23显示网络 结构计划 CJ20更改项目 项目构造器 CJ20N项目构造器 项目负责人 OPS6为WBS元素指定负责人
计划 CJ40更改WBS中的成本(总计值) CJ41显示WBS中的成本 CJ42更改WBS中的收入 CJ43显示WBS中的收入 CJ9BS复制计划WBS 到计划(个别) 预算 CJ30更改原始预算 CJ31显示原始预算 CJ37项目内补充预算 CJ36补充预算到项目 CJ38项目内返还预算 CJ35返还项目预算 CJ34预算转移 CJ32更改预算下达 CJ33显示预算下达 CJ3A修改凭证 CJ3B显示凭证 进度 CN25输入网络确认 CN28显示网络确认
CN29取消/冲销网络确认财务相关 CJ40总计值成本计划 CJR2作业输入成本计划CJ30初始预算 CJ32批准预算 CJ37补充预算 KKA2结果分析 KKAJ集中结果分析 CJ88结算 CJ8G集中结算 投资相关 IM01 （创建投资结构）IM22（修改投资结构） IM32（修改投资预算） IM52（分配投资预算） CJ01（创建WBS） CJ02（修改WBS） CJ20N（项目构造器） CN21（创建网络） CN22（修改网络） CJ30（修改项目预算）
CN41（项目信息系统） AS01（创建资产） AS03（显示资产） ME21N（创建施工服务订单）ML81N（服务条目维护）MIRO（输入发票） CJ88（单个处理期末结算）CJ8G（集中处理期末结算）CJCF（结转承诺） CJCO（预算结转） KB11N（手动成本重过账）
顺序表的实现
数据结构实验顺序表的实现 姓名 学号 专业班级
实验名称：顺序表的实现 一．实验目的： 1.掌握线性表的顺序存储结构； 2.验证顺序表的基本操作的实现； 3.理解算法与程序的关系，能够将顺序表转换为对应程序； 二.实验内容： 1.建立含有若干元素的顺序表； 2.对已建立的顺序表实现插入、删除、查找等基本操作； 三.算法设计 1.建立顺序表并初始化 1)顺序表的大小为MaxSize，存入元素的下标为n a.如果n>MaxSize，则抛出参数非法； b.将元素a[i]赋值给线性表中元素序号为i的元素； 2.顺序表的插入 1）如果表满了，则抛出上溢异常； 2）如果元素插入的位置不合理，则抛出位置异常； 3）将最后一个元素及第i个元素分别向后移动一个位置； 4）将要插入的元素x填入为位置i处； 5）表长加1； 3.顺序表的删除 1）如果表空，则抛出下一异常；
2）如果删除的位置不合理，则抛出删除位置异常； 3）取出被删元素； 4）将下表为i至n-1的元素分别向前移动1个元素； 5）表长减一，返回被删元素值； 4.顺序表的查找 A.按位查找 1）如果查找的位置不合理，则抛出查找的不合理； 2）返回被查找的元素值； B.按值查找 1）若查找成功，返回被查找元素的序号； 2）若查找失败，则返回0； 四.部分代码 文件名称：SeqList.h #define SEQLIST_H const int MaxSize = 5; template
excel宏教程-VB汇总
Excel宏教程 一、选中单个单元格 Range(“<单元格地址>“).Select 例：Range("C9").Select …选中“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("<行地址>:<行地址>").Select …选中整行 Columns("<列地址>:<列地址>").Select …选中整列 例：Rows(“2:2”). Select…选中第2行 Rows(“2:5”). Select…选中2到5行 Columns("A:A").Select …选中A列 Columns("E:B").Select …选中E到B列
三、设置活动单元格 Range("<单元格地址>").Activate 注：设置活动单元格与选中单元格类似，不同之处就是 后者在选中指定的单元格之前会将在此前已被选中的单元格取消掉。 前者在设置之前不会取消已选中的单元格， 如果此时操作的单元格不是被选中的单元格，这时他实现的功能与选一个单元格相同。 四、给活动的单元格赋值 ActiveCell.FormulaR1C1 = <值> 例：Range("A1").Select ActiveCell.FormulaR1C1 = "Name" Range("B1").Select ActiveCell.FormulaR1C1 = "Age" Range("A2:B3").Select Range("A2").Activate ActiveCell.FormulaR1C1 = " BUG" Range("B2").Activate ActiveCell.FormulaR1C1 = "12" Range("A3").Activate ActiveCell.FormulaR1C1 = "Archer" Range("B3").Activate ActiveCell.FormulaR1C1 = "37"
SAP操作常用事务代码(大全)
Material Mangement: MM01 - 创建物料主数据 XK01 - 创建供应商主数据 ME11 - 创建采购信息记录 ME01 - 维护货源清单 ME51N- 创建采购申请 ME5A - 显示采购申请清单 ME55 - 批准采购申请（批准组：YH） ME57 –分配并处理采购申请 MB21 - 预留 MB24 - 显示预留清单 ME21N- 创建采购订单 ME28 - 批准采购订单（批准组：YS） ME9F - 采购订单发送确认 ME2L - 查询供应商的采购凭证 ME31 - 创建采购协议 MD03 - 手动MRP MD04 - 库存需求清单（MD05 - MRP清单）MRKO - 寄售结算 MELB - 采购申请列表（需求跟踪号） ME41 - 创建询价单 ME47 - 维护报价 ME49 - 价格比较清单 MI31 - 建立库存盘点凭证 MI21 - 打印盘点凭证 MI22 - 显示实际盘点凭证内容 MI24 - 显示实际盘点凭证清单 MI03 - 显示实际盘点清单 MI04 - 根据盘点凭证输入库存计数 MI20 - 库存差异清单 MI07 - 库存差额总览记帐 MI02 - 更改盘点凭证 MB03 - 显示物料凭证 ME2O - 查询供应商货源库存 MB03 - 显示物料凭证 MMBE - 库存总览 MB5L - 查询库存价值余额清单 MCBR - 库存批次分析 MB5B - 查询每一天的库存 MB58 - 查询客户代保管库存 MB25 - 查询预留和发货情况MB51
MB5S - 查询采购订单的收货和发票差异 MB51 - 物料凭证查询（可以按移动类型查询） ME2L - 确认采购单/转储单正确 MCSJ - 信息结构S911 采购信息查询（采购数量价值、收货数量价值、发票数量价值）MCBA - 核对库存数量,金额 MM04 - 显示物料改变 MMSC - 集中创建库存地点 MIGO_GR根据单据收货: MB1C - 其它收货 MB1A - 输入发货 MB1B - 转储 MB31 - 生产收货 MB01 - 采购收货) MBST - 取消物料凭证 MM60 - 商品清单 ME31L- 创建计划协议 ME38 - 维护交货计划 ME9A - 消息输出 MB04 - 分包合同事后调整 MB52 - 显示现有的仓库物料库存 MB90 - 来自货物移动的输出 CO03 - 显示生产订单 IW13 - 物料反查订单（清单） IW33 - 显示维修订单 VA01 -创建销售订单 VL01N - 参照销售订单创建外向交货单 VL02N –修改外向交货单（拣配、发货过帐） VL09 –冲销销售的货物移动 VF01 –出具销售发票 VF04 –处理出具发票到期清单 VF11 –取消出具销售发票 Warehouse Mangement: LB01 Create Transfer Requirement 创建转储需求 LB02 Change transfer requirement 修改转储需求 LB03 Display Transfer Requirement 显示转储需求 LB10 TRs for Storage Type 按仓储类型的转储请求 LB11 TRs for Material 物料转储请求 LB12 TRs and Posting Change for MLEat.Doc. 转储请求及物料凭证变更传送LB13 TRs for Requirement 按需求的转储请求
数据结构实验报告-顺序表的创建、遍历及有序合并操作
数据结构实验报告-顺序表的创建、遍历及有序合并操作二、实验内容与步骤 实现顺序表的创建、遍历及有序合并操作，基本数据结构定义如下： typedef int ElemType; #define MAXSIZE 100 #define FALSE 0 #define TRUE 1 typedef struct {ElemType data[MAXSIZE]; int length; }seqlist; 创建顺序表，遍历顺序表 #include
#define TRUE 1 typedef int ElemType; //用户自定义数据元素类型 // 顺序表结构体的定义 typedef struct { ElemType *elem; //顺序表的基地址 int length; //顺序表的当前长度 int listsize; //预设空间容量 }SqList; //线性表的顺序存储结构 SqList* InitList() //创建空的顺序表 { SqList* L = (SqList*)malloc(sizeof(SqList));//定义顺序表L if(!L) { printf("空间划分失败，程序退出\n"); return NULL; } L->elem=(ElemType *)malloc(MAXSIZE*sizeof(ElemType)); if(!L->elem) { printf("空间划分失败，程序退出\n");
用VB操作Excel(VB6.0)(整理)
用V B操作E x c e l(V B6.0)(整理) 全面控制Excel: 首先创建Excel对象，使用ComObj: Dim ExcelID as Excel.Application Set ExcelID as new Excel.Application ? 1)显示当前窗口： ? ExcelID.Visible:=True; 2)更改Excel标题栏： ? ExcelID.Caption:='应用程序调用MicrosoftExcel'; 3)添加新工作簿： 4)打开已存在的工作簿： 5)设置第2个工作表为活动工作表：
? ExcelID.WorkSheets[2].Activate; 或ExcelID.WorkSheets['Sheet2'].Activate; 6)给单元格赋值： ? ExcelID.Cells[1,4].Value:='第一行第四列'; 7)设置指定列的宽度（单位：字符个数），以第一列为例： 8)设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例： 9)在第8行之前插入分页符： ? ExcelID.WorkSheets[1].Rows[8].PageBreak:=1; 10)在第8列之前删除分页符： 11)指定边框线宽度： ? 1-左 2-右 3-顶4-底 5-斜(\) 6-斜(/)
12)清除第一行第四列单元格公式： 13)设置第一行字体属性： 14)进行页面设置： a.页眉： b.页脚： c.页眉到顶端边距2cm： d.页脚到底端边距3cm：
e.顶边距2cm： f.底边距2cm： g.左边距2cm： h.右边距2cm： i.页面水平居中：j.页面垂直居中：k.打印单元格网线：
顺序表的基本操作(C语言实现)
#define OVERFLOW 0 #define List_size 100 #define Listincrement 10 #include
creat_Sq(&L); printf("\n"); print_Sq(&L); printf("\n"); ascend(&L,i); print_Sq(&L); printf("\n"); Insert(&L,e); print_Sq(&L); printf("\n"); } Sqlist creat_Sq(Sqlist*L)//创建顺序表 { ElemType *newbase; int i,n; L->elem=(ElemType*)malloc(List_size*sizeof(ElemType)); if(!L->elem) exit(OVERFLOW);//存储分配失败
printf("请输入元数个数：\n"); scanf("%d",&n); if(n>=List_size)//如果所需空间大于线性表的初始空间，则增加空间容量 { newbase=(ElemType*)malloc((List_size+Listincrement)*sizeof(E lemType)); L->elem=newbase; L->length=n; L->listsize=List_size+Listincrement; for(i=0;i
顺序表的建立及基本操作
山东师范大学 实验报告 课程：数据结构班级：2016级通信2班实验序号： 1 姓名：韩明达 学号: 201611030230 实验日期：9.17 题目: 顺序表的建立和运算 一、实验目的和要求 （1）熟悉C语言的上机环境，进一步掌握C语言的结构特点。 （2）掌握线性表的顺序存储结构的定义及基本运算 二、实验环境 Windows10，Visual Studio 2017 三、实验内容及实施 实验内容 1、建立一个顺序表，输入n个元素并输出； 2、查找线性表中的最大元素并输出； 3、在线性表的第i个元素前插入一个正整数x； 4、删除线性表中的第j个元素； 5、将线性表中的元素按升序排列； 【程序流程图】
【程序】 #include
int i; for (i = 0; i < L.length; i++) { cout << L.data[i] << " "; } //依次输出顺序表 cout << endl; } void FindMax(SqList &L) //找最大值 { cout << "该组数据的最大值为：" << endl; int m = L.data[0]; int i; for (i = 0; i < L.length; i++) //依次比较两个数的大小，取大者赋给m { if (m < L.data[i]) { m = L.data[i]; } } cout << m << endl; //输出最大值 }