阙辉

文章分类 -  1.002、连接Oracle ebs查询设计_excel VBA

4.批量查询（批量查询模块-功能代码）
摘要：Dim quehuirs1 As New ADODB.Recordset '定义变量(QH)qh1 = Sheets("批量查询显示表").Range("c65536").End(xlUp).row '获取查询数据最大行(QH)Dim sql As StringIf qh1 - 11 > 1000 阅读全文

posted @ 2018-04-23 15:00 真辉辉 阅读(717) 评论(0) 推荐(0)

3.批量查询（CUX支付申请-事件代码）
摘要：Sub cuxkehuhuachaxun002()t = TimerSheets("CUX支付申请").Range("b6:ah1000000").ClearContentsDim ztshu1 As Long '查询数据总条数变量(QH)Dim iq1, h, iq2, iq3, i As Lon 阅读全文

posted @ 2018-04-23 14:56 真辉辉 阅读(120) 评论(0) 推荐(0)

2.批量查询（CUX客户化编码-事件代码）
摘要：Sub cuxkehuhuachaxun1()t = TimerSheets("CUX客户化编码").Range("b6:m10000").ClearContentsDim ztshu1 As Long '查询数据总条数变量(QH)Dim iq1, h, iq2, iq3, i As Long 'F 阅读全文

posted @ 2018-04-23 14:50 真辉辉 阅读(163) 评论(0) 推荐(0)

1.批量查询（批量查询显示表-事件代码）
摘要：Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Dim d2, d3, vv2, vv3, vv4, vv5 As Long '定义变量 d2主级最右端个数 d3次级下最大行 阅读全文

posted @ 2018-04-23 14:43 真辉辉 阅读(241) 评论(0) 推荐(0)

导航