liYandia-CSDN博客

原创 VBA_控件04

'微调按钮控件属性Sub SpinButtonAttribute1()'最大最小值Sheet2.SpinButton1.Min = 1Sheet2.SpinButton1.Max = 10End SubSub SpinButtonAttribute2()'返回值Sheet2.Range("A1") = Sheet2.SpinButton1.ValueEnd SubSub SpinButtonAttribute3()Sheet2.SpinButton1.Visible = TrueEn

2020-06-07 00:13:14 374

原创 VBA_控件03

'单选按钮属性Sub attribute1()Sheet2.OptionButton1.Caption = "男"Sheet2.OptionButton2.Caption = "女"End SubSub attribute2()Sheet2.OptionButton1.Enabled = TrueSheet2.OptionButton2.Enabled = TrueEnd Sub'组名Sub attribute3()Sheet2.OptionButton1.GroupName = "性

2020-06-06 23:52:51 287

原创 VBA_控件02

'标签属性Sub attribute1()Sheet2.Label1.Caption = "标签"End SubSub attribute2()Sheet2.Label1.Enabled = TrueEnd SubSub attribute3()Sheet2.Label1.Visible = TrueEnd Sub

2020-06-06 23:35:24 161

原创 VBA_控件01

'CommandButton的属性 Sub attribute1() '可用性：false不可用， true可用 Sheet2.CommandButton1.Enabled = True End SubSub attribute2() '标题 Sheet3.CommandButton1.Caption = "按钮"End SubSub attribute3() '可见性：false隐藏，true显示 Sheet2.Comm...

2020-06-06 16:57:06 246

原创 VBA_DIR

将工作表赋值给变量ShtSub ObjectToVariable()Dim i As IntegerDim sht As WorksheetFor i = 2 To 5Set sht = Sheets.Add(after:=Sheets(Sheets.Count))sht.Name = Sheet1.Range("a" & i)NextEnd Sub

2020-06-03 00:52:18 113

原创 VBA_自定义函数

'函数的基本定义01Function huilv(x as long)huilv = x / 6.03 - x * 0.03End FunctionFunction chenghu(sex as String)If sex = "男" Thenchenghu = "先生"Elsechenghu = "女士"End IfEnd Function'日期转换，截取Function rqtq(str as String)rqtq = DateSerial(Left(str, 4), Mi

2020-06-02 23:38:30 703

原创 VBA_公式02

Sub chuangjianbiao() Dim iCol Dim sht As Worksheet Dim i, j, k, f, s, iCol As Integer irow = Sheet1.Range("a65536").End(xlUp).Row f = 2 iCol = InputBox("根据第几列分表?") '判断输入信息是否正确 For s = 1 To f 'IsNumeric(iCol)判断检测变量是否...

2020-05-28 23:54:56 166

原创 VBA_公式01

使用countA、countif进行统计（sheet）Sub tongji()Dim i, k, l, m As IntegerFor i = 2 To Sheets.Countk = k + Application.WorksheetFunction.CountA(Sheets(i).Range("a:a")) - 1l = l + Application.WorksheetFunction.CountIf(Sheets(i).Range("f:f"), "男")m = m + Applic

2020-05-28 01:05:45 222

原创 VBA_事件01

'选区发生变化就调用某个方法--事件Private Sub Worksheet_SelectionChange(ByVal Target As Range)Call biaoshiEnd Sub'with的简单使用Sub withyuju()With Sheet2 .Range("A1") = 5 .Range("A2") = 6 .Range("A3") = 7 End WithEnd Sub'鼠标点击某行标识颜色Sub biaoshi()...

2020-05-25 20:56:43 256

原创 VBA_操作单元03

'新建表Sub xinjianbiao()Dim sht As WorksheetDim k As IntegerFor i = 1 To 3 k = 0 For Each sht In Sheets If sht.Name = Sheet1.Range("a" & i) Then '遍历所有表判断是否重复，重复标记1 k = 1 End If Next If k = 0 Then ...

2020-05-17 01:27:01 232

原创 VBA_操作单元格02

'将表数据分别拆分到其他表中Sub chaifenbiao()Dim j, i As IntegerCall qingchu '调用清除表内容函数For i = 2 To Sheet1.Range("a56433").End(xlUp).Row '数据行j = Sheets(Sheet1.Range("d" & i).Value).Range("a56433").End(xlUp).Row + 1Sheet1.Range("d" & i).EntireRow.Copy S...

2020-05-17 01:20:33 269

原创 VBA_操作单元格01

'拆分表中的数据到其他表Sub chaifenbiao()Dim i, j As IntegerFor i = 2 To Sheet1.Range("a56433").End(xlUp).Row j = Sheets(Sheet1.Range("d" & i).Value).Range("a56433").End(xlUp).Row + 1 Sheet1.Range("a" & i).EntireRow.Copy Sheets(Sheet1.Range("d" &am..

2020-05-13 23:59:31 327

原创 VBA_操作工作薄

‘打开某个路径下的工作薄（文档）Sub dakaibiao()excel.application.dispayalters=false ‘关闭屏幕更新excel.application.ScreenUpdating=false‘打开mac下面的某个工作薄（文档）Workbooks.Open FileName:="/Users/lixiangyang/Downloads/地图.xlsx"‘当前工作薄表集合的第一个表的单元格赋值Activeworkbook.sheets(1).range(“C3.

2020-05-12 17:27:10 495

原创 VBA_操作表

Sub biao01()‘结合sheets属性在特定表插入表并且命名Sheet1.Name = "01biao" ‘重新给表定义属性Range("A1") = Sheet1.Name Sheets(1).Range("B1") = 1Sheets.Add after:=Sheets(Sheets.Count)Sheets(Sheets.Count).Name = "02biao"Dim i As IntegerFor i = 3 To 6Sheets.Add after:=Sheets(.

2020-05-12 17:25:27 273

原创 VBA_IF

if 循环 Sub gzt01() Dim e As Integer For e = 3 To 50 Step 2 If Range("A" & e) = "" Then Exit For End If Range("A1:L1").Select Application.Cut...

2020-05-12 17:23:23 158

原创 VBA_for循环

for循环Sub gzd() Range("A1:L1").Select Dim i As Integer For i = 1 To 10 ActiveCell.Range("A1:L1").Select Selection.Copy ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select Selection.Insert Shift:=xlDown NextEnd SubSub gzt...

2020-05-12 17:22:09 744

原创 EBS现金流选择错误

背景：用户经常出现现金流错误，而对于母公式对下属公司，及资金预算系统的局限性，银行存款科目不允许负数，特设现金流调整科目方法：贷：中转-现金流调整 -100 弹性域选择错误的现金流贷：中转-现金流调整 100 弹性域选择正确的现金流...

2020-03-01 12:45:26 352 1

原创 EBS科目值集限定词账户类型设置错误导致期末与期初余额差异

背景：科目值集中，科目属性设置错误，如“研发支出-资本化支出”应该是资产设置成了费用，导致此科目有余额后次年结转到了未分配利润，期末余额与次年期初余额有差异解决方法： 1、科目余额调出 2、修改科目属性 3、删除科目汇总模板 4、后台修改科目属性：selec...

2020-03-01 12:40:04 1124

原创 AP:发票匹配采购PO

PO匹配： 1.二维匹配：发票与采购订单；发票价格<=采购订单价格，开单数量<=订货数量 2.三维匹配：发票、采购订单、入库单；发票价格<=采购订单价格，开单数量<=订货数量，开单数量<=接收数量 3.四维匹配：发票、采购订单、入库单、检验单；发票价格<=采购订单价格，开单数量<=订货数量，开单数量<=接收数量，开单数量&lt...

2018-12-15 16:02:59 2853

转载学习EBS建议有的知识

[笔记]学习EBS建议有的知识http://f.dataguru.cn/thread-51057-1-1.htmlhttp://www.cnblogs.com/xiaoL/p/3593691.htmlhttps://www.cnblogs.com/pompeii2008/p/5900516.html 1001 ORACLE EBS学习的其他资源有哪四个？...

2018-12-13 21:56:36 1569

原创 AP:应付票据

应付票据管理：票据管理在oracle中并没有单独的功能模块进行管理，而是包括在了应付和应收2个模块中处理，票据管理主要基于应付模块的远期付款功能和应收的票据管理功能来完成的。应付票据系统设置： 1.银行设置：在应付选项中设置银行远期付款科目，该科目为应付票据科目。 2.付款方法：在应付付款方法上定义好相关的应付票据选项。应付票据处理流程：应付商业承兑汇票和应付银行承兑...

2018-12-12 20:29:14 904

转载 ebs系统应用层次架构

ebs系统应用层次架构企业应用系统根据范围或对象来划分分别为：财务 FInance ----- 资金流业务Business ----- 实物流事务Transaction ----- 信息流实现“财务+业务+事务”的高度集成，是一个企业信息系统的终极理想，然而要做到这一点，基于系统的实现成本、设计复杂性、实施方便性等相互背离的因素综合考虑则绝非易事。企业广义的“财务Fi...

2018-11-30 23:00:13 1125

岩