Excel VBA从列表中发出零件号.到单元格值

Question

Hello正在尝试编写一个可以与我的团队共享的简单程序。

我希望能够拥有一个共享的excel文档，其中包含可用零件号的列表。当你点击一个按钮时，它会从列表中获取并打印一个零件号，然后标记它已使用，再也不会发出该零件号。布局图

"Sheet1"；包含部件号和使用信息。A列：零件号，B列：0(可用(或1(已用(

"片材2"；其中用户获得部件号。A1=部件输出(用户复制此(

这是我尝试过的代码，但我还是个新手，不知道如何让它工作。。。感谢你的帮助。

Sub GenNumber()
Dim PartNum As String
Dim rCell As Range
Dim rRng As Range
Set rRng = Sheet1.Range("B1:B1000000")
For Each rCell In rRng.Cells
If rCell = 0 Then
Set rCell.Value = 1
PartNum = rCell.Offset(0, -1)
Range("A1") = PartNum
Exit For
Else
End If
Next
MsgBox "Part-Number Issued: " + PartNum
End Sub

Answer 1

如果没有这些更改，它就无法运行-这有帮助吗？

Sub GenNumber()
Dim PartNum As String
Dim rCell As Range
Dim rRng As Range
Set rRng = Sheet1.Range("B1:B1000")
For Each rCell In rRng.Cells
If rCell.Value = 0 Then
rCell.Value = 1
PartNum = rCell.Offset(0, -1)
Range("A1") = PartNum
Exit For
Else
End If
Next
MsgBox "Part-Number Issued: " + PartNum
End Sub