[已解决]请帮帮忙编写这个代码？

zgq75468 · 发表于 2009-10-20 11:53

我已编写了部分代码，但不会使用在代码中编辑公式，即：样表中的担保方式（L10：L16）是从明细表的C列判断而来，如果C列为抵押，则分户表上的抵押内画勾，其他几项画“X”，当C列为信用时，在分户表的信用对应后画勾，其他几项画“X”。请大家帮忙编写一下代码？谢谢！

zeOlnmay.rar (25.19 KB, 下载次数: 1)

雨狐 · 发表于 2009-10-20 11:54

楼主是农发行的？

zgq75468 · 发表于 2009-10-20 12:54

是农村合作银行的

蓝桥玄霜 · 发表于 2009-10-20 12:59

Private Sub CommandButton1_Click()
Dim i%, K%
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For i = ThisWorkbook.Sheets.Count To 1 Step -1
    If Sheets(i).Name <> "明细表" And Sheets(i).Name <> "表样" Then
        Sheets(i).Delete
    End If
Next
Application.DisplayAlerts = True
K = 2
Do
    Sheets("表样").Copy After:=Sheets(Sheets.Count)
    With Sheets(Sheets.Count)
        .Name = Sheet1.Cells(K, 1).Value & Sheet1.Cells(K, 2).Value
        .[b4] = Sheet1.Cells(K, 11)
        .[h5] = Sheet1.Cells(K, 15)
        .[b10] = Sheet1.Cells(K, 13)
        .[b11] = Sheet1.Cells(K, 4)
        .[b16] = Sheet1.Cells(K, 5)
        .[e16] = Sheet1.Cells(K, 6)
        .[b17] = Sheet1.Cells(K, 16)
        .[b19] = Sheet1.Cells(K, 16)
        If Sheet1.Cells(K, 3) = "信用" Then
            .[l10] = "√"
            .[l11] = "X"
            .[l12] = "X"
            .[l14] = "X"
            .[l16] = "X"
        ElseIf Sheet1.Cells(K, 3) = "保证" Then
            .[l10] = "X"
            .[l11] = "√"
            .[l12] = "X"
            .[l14] = "X"
            .[l16] = "X"
        ElseIf Sheet1.Cells(K, 3) = "抵押" Then
            .[l10] = "X"
            .[l11] = "X"
            .[l12] = "√"
            .[l14] = "X"
            .[l16] = "X"
        ElseIf Sheet1.Cells(K, 3) = "质押" Then
            .[l10] = "X"
            .[l11] = "X"
            .[l12] = "X"
            .[l14] = "√"
            .[l16] = "X"
        ElseIf Sheet1.Cells(K, 3) = "其他" Then
            .[l10] = "X"
            .[l11] = "X"
            .[l12] = "X"
            .[l14] = "X"
            .[l16] = "√"
        End If
        K = K + 1
    End With
Loop While Sheets.Count < [a65536].End(3).Row + 1
Sheet1.Activate
Application.ScreenUpdating = True
End Sub

雨狐 · 发表于 2009-10-20 13:09

8ciPu2mr.rar (23.33 KB, 下载次数: 4)

zsd5237 · 发表于 2009-10-21 06:25

学习[em02][em02]

佳林 · 发表于 2009-10-21 07:31

高手，学习

		自动登录	找回密码
密码			注册

[已解决]请帮帮忙编写这个代码？

回复：（zgq75468）请帮帮忙编写这个代码？