哪位大神帮帮忙，帮我把这个宏设置自动运行

夜风恋月光

帮我把这个宏设置成自动运行，这样在后面表格操作的时候，库存这个表格就自动变化。谢谢

tanglf188

把需要运行的宏代码写入下面的工作表事件中

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

夜风恋月光

tanglf188 发表于 2024-5-11 17:06
把需要运行的宏代码写入下面的工作表事件中

Private Sub Worksheet_Change(ByVal Target As Range)

兄弟，我不会，你直接帮我搞定吧

发哥76

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Call test
End Sub

沈默00

改好了，...

夜风恋月光

发哥76 发表于 2024-5-11 17:37
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Call test
End Sub

出现什么错误

夜风恋月光

Sub test()
  Dim r%, i%
  Dim arr, brr
  Dim ws As Worksheet
  Dim d As Object
  Set d = CreateObject("scripting.dictionary")
  m = 0
  For Each ws In Worksheets
    If ws.Name Like "#*" Then
      With ws
        r = .Cells(.Rows.Count, 2).End(xlUp).Row
        If r > 1 Then
          arr = .Range("a2:d" & r)
          For i = 1 To UBound(arr)
            If Not d.exists(arr(i, 2)) Then
              m = m + 1
              ReDim brr(1 To 4)
              brr(1) = m
              brr(2) = arr(i, 2)
              brr(3) = arr(i, 3)
            Else
              brr = d(arr(i, 2))
            End If
            brr(4) = brr(4) + arr(i, 4)
            d(arr(i, 2)) = brr
          Next
        End If
      End With
    End If
  Next
  With Worksheets("库存")
    .UsedRange.Offset(1, 0).Clear
    .Range("a2").Resize(d.Count, UBound(brr)) = Application.Transpose(Application.Transpose(d.items))
  End With
   
End Sub

夜风恋月光

沈默00 发表于 2024-5-11 17:55
改好了，...

非常感谢，可以了！

发哥76

夜风恋月光 发表于 2024-5-11 17:56
出现什么错误

中间只要call test就行了，里因为面下的在模块里已经有了，直接用CALL调用就行了

夜风恋月光

发哥76 发表于 2024-5-11 18:00
中间只要call test就行了，里因为面下的在模块里已经有了，直接用CALL调用就行了

可以了，我把你的代码重新插入模块，就行了