大神帮忙解决下怎么自动读取数据和自动减去库存，谢谢

透明世界1987

Desktop.zip (91.84 KB, 下载次数: 8)

2022-6-22 14:57 上传

点击文件名下载附件

林木水

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. On Error Resume Next
   
3. If Range("b2") <> "" And Target.Address(0, 0) = "B2" Then
   
4.     Dim a As Integer, b, i As Integer, j As Integer
   
5.     b = Range("b2").Value
   
6.     a = Application.WorksheetFunction.CountIf(Sheet1.Range("p:p"), b)
   
7.     If a = 0 Then
   
8.         MsgBox "无此项"
   
9.         End
   
10.     End If
    
11.     Range("A4:L100").ClearContents
    
12.    
    
13.     For i = 1 To a
    
14.         For j = 1 To Range("A3").End(xlToRight).Column
    
15.             Range("A4").Offset(i - 1, j - 1) = Sheet1.Range("A1").Offset(i, Application.WorksheetFunction.Match(Range("A3").Offset(0, j - 1).Value, Sheet1.Range("A1:Q1"), 0))
    
16.         Next
    
17.     Next
    
18.     MsgBox "已更新"
    
19. End If
    
20. End Sub
    

复制代码

有2个地方不严谨，2个表格的命名不一样，已经标记并修改

透明世界1987

林木水 发表于 2022-6-22 18:59
有2个地方不严谨，2个表格的命名不一样，已经标记并修改

好像只能读取前面两条数据  后面数据读取不到了

林木水

透明世界1987 发表于 2022-6-23 13:18
好像只能读取前面两条数据  后面数据读取不到了

你相同的数据放一起，按照编号排序就可以了