求助各位老师调用和合并按钮功能的问题

xinyuan8751

求助各位老师：



1、增加 “类别调用” 按钮：当B列内容与编辑列表工作表B列内容匹配相同时，根据编辑列表工作表中的C列内容填入到H列

2、能否将上方的 清空、点击选取批号明细表、色号调用、应领数量、类别调用合并成一个按钮，就是合成一个按钮后，点击一次就能按顺序实现所有功能

请各位老师帮忙看下，谢谢~！


感谢您的帮助~！
万分感谢~！
鲜花送上~！

xinyuan8751

请各位老师帮忙看下，谢谢~

xinyuan8751

xinyuan8751 发表于 2024-6-19 14:38
请各位老师帮忙看下，谢谢~

各位老师早上好~！请各位老师帮忙看下，谢谢~

xinyuan8751

各位老师早上好~！请各位老师帮忙看下，谢谢~

Qs18

Sub test() '类别调用
    Dim arr: arr = Sheet2.UsedRange: Dim rng As Range, r As Range
    Dim dic: Set dic = CreateObject("scripting.dictionary")
    For i = 2 To UBound(arr)
        dic(arr(i, 2)) = arr(i, 3)
    Next
    Set rng = Sheet1.Range("b4:b" & Sheet1.Cells(Rows.Count, 2).End(xlUp).Row)
    For Each r In rng
        r.Offset(0, 6) = dic(r.Value)
    Next
    MsgBox "ok!"
End Sub

Qs18

试一下.................

xinyuan8751

Qs18 发表于 2024-6-20 08:43
试一下.................

请您上传代码或者附件，谢谢~！

xinyuan8751

Qs18 发表于 2024-6-20 08:43
试一下.................

请发一下代码或者附件，谢谢~！

peteryhr

功能1已经按需求做好。需求2：对你所说的顺序不太看得懂，原附件中已有做好的子程序，按对你所述的顺序理解加在代码中间了。顺序不对可以自己掉换一下。
Sub byPeteryhr()
    Dim Dic As Object, arr, i&
    Set Dic = CreateObject("Scripting.Dictionary")
    arr = Sheet2.Range("A1:C" & Sheet2.Cells(Rows.Count, 2).End(xlUp).Row)
    For i = 2 To UBound(arr)
        If Dic.exists(arr(i, 2)) Then Dic(arr(i, 2)) = arr(i, 3)
    Next
    With Sheet1
        .Range("A4:I" & .Cells(Rows.Count, 2).End(xlUp).Row).ClearContents
        .Range("B1:B2,D1,F1").ClearContents
        模块1.按钮1_Click
        模块4.色号调用
        模块5.按钮5_Click
        模块6.按钮6_Click
        arr = .Range("A4:I" & .Cells(Rows.Count, 2).End(xlUp).Row)
        For i = 1 To UBound(arr)
            If Dic.exists(arr(i, 2)) Then arr(i, 8) = Dic(arr(i, 2))
        Next
        .Range("A4").Resize(UBound(arr), UBound(arr, 2)) = arr
    End With
    Set Dic = Nothing
End Sub

Qs18

xinyuan8751 发表于 2024-6-20 08:52
请发一下代码或者附件，谢谢~！

哦，不好意思，附件被我删除了，您把代码复制过去，按钮指定宏久可以了。其他的什么清空的功能这些，以您的能力应该是可以搞定的，尝试着您需要哪一个按钮CALL过去就可以了。