gpt4 book ai didi

excel - 如果名称等于不同工作表上的字符串,则将值加 1

转载 作者:行者123 更新时间:2023-12-04 21:55:27 25 4
gpt4 key购买 nike

我正在尝试制作某种库存。因此,当我在第二张表上添加某个产品的名称时,它会将我在 E 行第一张表中该产品的库存增加 1。这是放在第二张表中的名称列表,而不是像在此处的 VBA 代码中尝试的仅 1 个名称。

完成列表后,我应该能够清除工作表 2 并且值保持保存。
当我尝试这个时,它给出了一个错误,我只是不知道如何让它在整个列表中工作。

Private Sub CommandButton1_Click()
Dim x As Integer
x = Sheets("Sheet1").Cells(1, "E").Value
For Each cell In Sheets(Sheet1).Range("A:A")
If cell.Value = Sheets("Sheets2").Cells(1, "A").Value Then
x = x + 1
End If
Next cell
End Sub

最佳答案

你在想 x表示单元格,但它是一个内存变量,以 Sheet1 上 E1 中的值开头。

如果您希望范围增加,则将变量设置为范围并将其设置为所需的范围,或者一起跳过:

Private Sub CommandButton1_Click()
Dim cell as Range
With Worksheets("Sheet1")
For Each cell In Intersect(.Range("A:A"),.UsedRange)
.Range("E1").value = .Range("E1").value + Application.WorksheetFunction.COUNTIF(Worksheets("Sheet2").Range("A:A"),cell.Value)
Next cell
End With
End Sub

关于excel - 如果名称等于不同工作表上的字符串,则将值加 1,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/45783880/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com