客户强平单登记小工具

最新推荐文章于 2024-06-18 16:13:09 发布

qq_42083847

最新推荐文章于 2024-06-18 16:13:09 发布

阅读量227

点赞数

分类专栏： VBA

本文链接：https://blog.csdn.net/qq_42083847/article/details/104986101

版权

VBA 专栏收录该内容

4 篇文章 1 订阅

订阅专栏

这是一个用于处理V8T风控系统导出的强平查询表格的小工具，包含附件1中的表格填写和使用说明。代码已进行改进，可参考第二版。

摘要由CSDN通过智能技术生成

本工具针对由V8T风控系统导出强平查询表格来操作，填写表格和使用说明可以查看附件1，具体代码如下：

Sub 填写()

Dim wb, wb1 As Workbook
Dim i, m As Integer
Set wb1 = ThisWorkbook
Set wb = Workbooks.Open("D:\1111.xls")
m = wb.Sheets(1).Range("a65536").End(xlUp).Row - 2
For i = 1 To m
    If wb.Sheets(1).Range("n" & i + 2) = "全部成交" Then
        wb1.Worksheets(1).Copy after:=wb1.Sheets(Sheets.Count)
        wb1.Worksheets(Sheets.Count).Name = wb1.Sheets.Count - 1
        wb1.Sheets(Sheets.Count).Range("b3") = wb.Sheets(1).Range("e" & i + 2)
        wb1.Sheets(Sheets.Count).Range("e3") = wb.Sheets(1).Range("f" & i + 2)
        wb1.Sheets(Sheets.Count).Range("b5") = wb.Sheets(1).Range("g" & i + 2)
        wb1.Sheets(Sheets.Count).Range("c5") = wb.Sheets(1).Range("h" & i + 2)
        wb1.Sheets(Sheets.Count).Range("d5") = wb.Sheets(1).Range("i" & i + 2)
        wb1.Sheets(Sheets.Count).Range("e5") = wb.Sheets(1).Range("j" & i + 2)
        wb1.Sheets(Sheets.Count).Range("f5") = wb.Sheets(1).Range("k" & i + 2)
        wb1.Sheets(Sheets.Count).Range("g5") = wb.Sheets(1).Range("l" & i + 2)
        wb1.Sheets(Sheets.Count).Range("g12") = wb.Sheets(1).Range("m" & i + 2)
    End If
Next

End Sub

后来进行了改进，请参考强平单生成第二版。