请求大家帮忙解决一下这个Excel代码问题

曹明禹

大家好，我做到“进销开单”这一步的时候，总是不成功，有劳大家帮忙修改完善一下，期待，谢谢
--------------------------------------------------------------------------------------------------------------

Sub 确定单价()
    Dim rng As Range, Sh As Worksheet, Flag As Boolean

    If [A2] = "销售出库清单" Then Set Sh = Sheets("销售记录") Else Set Sh = Sheets("滚子滚针进价成本表")


    xm = [b3] '客户姓名:
    If xm = """" Then Exit Sub
    [d6:d13].ClearContents

    For Each rng In [b6:b13]
        If rng <> "" Then
            Flag = False
             Arr = Sh.[a1].CurrentRegion
            For i = UBound(Arr) To 1 Step -1    '从下往上找，找最近成交案例
                If Arr(i, 3) = xm And Arr(i, 3) = rng Then rng.Offset(0, 2) = Arr(i, 5): Flag = True: Exit For    '如果找到
            Next
            If Flag = False Then       '如果无成交案例，则在滚子滚针进价成本表中匹配
                 Arr = Sheets("滚子滚针进价成本表").[a1].CurrentRegion
                For i = 1 To UBound(Arr)
                    If Arr(i, 1) = rng Then rng.Offset(0, 6) = Arr(i, 2): Exit For    '如果找到
                Next
            End If
        End If
    Next

    If [A2] = "采购入库清单" Then Set Sh = Sheets("采购记录")
    xm = [b3] '供货商姓名:
    If xm = """" Then Exit Sub
    [d6:d13].ClearContents

    For Each rng In [b6:b13]
        If rng <> "" Then
            Flag = False
            Arr = Sh.[a1].CurrentRegion
            For i = UBound(Arr) To 1 Step -1    '从下往上找，找最近成交案例
                If Arr(i, 2) = xm And Arr(i, 3) = rng Then rng.Offset(0, 2) = Arr(i, 5): Flag = True: Exit For    '如果找到
            Next
            If Flag = False Then       '如果无成交案例，则在滚子滚针进价成本表中匹配
                Arr = Sheets("滚子滚针进价成本表").[a1].CurrentRegion
                For i = 1 To UBound(Arr)
                    If Arr(i, 1) = rng Then rng.Offset(0, 5) = Arr(i, 2): Exit For    '如果找到
                Next
            End If
        End If
    Next
End Sub

曹明禹

附近在这里，随便输入一个型号的时候，就是不行

microyip

表格处于保护状态下是无法使用CurrentRegion属性

microyip

首先对于目前你已做的内容表示我对你的点赞，自力更生丰衣足食！最起码先动手了，学以致用。
点赞不代表认同，代码需要优化，减少使用公式作为代码输出的结果，应该是把最终计算结果作为代码输出结果

曹明禹

microyip 发表于 2019-12-17 08:43
首先对于目前你已做的内容表示我对你的点赞，自力更生丰衣足食！最起码先动手了，学以致用。
点赞不代表认 ...

您好，不好意思了，忘了，密码是小键盘上的，789/*-+【一共7位数】感谢+感激+等待您的回复

曹明禹

朱荣兴 发表于 2019-12-17 08:52
滚子滚针进价成本表    有工作表保护，改变一下数组的构建方式，

您好，不好意思了，忘了，密码是小键盘上的，789/*-+【一共7位数】感谢+感激+等待您的回复

microyip

曹明禹 发表于 2019-12-17 09:08
您好，不好意思了，忘了，密码是小键盘上的，789/*-+【一共7位数】感谢+感激+等待您的回复

读取数据时，先代码解除一下保护，用完后恢复保护就可以了

曹明禹

microyip 发表于 2019-12-17 09:10
读取数据时，先代码解除一下保护，用完后恢复保护就可以了

您好，解除密码保护的附件是这个，谢谢

microyip

曹明禹 发表于 2019-12-17 09:13
您好，解除密码保护的附件是这个，谢谢

我是告知你怎么做，刚刚才给你自力更生的点赞，现在怎么变成了伸手党？一定要得到直接代码？