共享Excel文档实现零件号一键发放并标记已使用功能需求

需求说明 #

在共享Excel文档中实现以下功能：点击按钮时自动获取一个可用零件号并输出，同时将该零件号标记为已使用，避免重复发放。

工作表布局 #

• Sheet1：存储零件号与使用状态
  • A列：零件号
  • B列：使用状态（0 = 可用，1 = 已使用）
• Sheet2：用户操作界面
  • A1单元格：零件号输出区域，供用户复制

VBA代码实现 #

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
            rCell.Value = 1
            PartNum = rCell.Offset(0, -1)
            Range("A1") = PartNum
            Exit For
        Else
        End If
    Next

    MsgBox "Part-Number Issued: " + PartNum
End Sub

代码逻辑 #

1. 遍历Sheet1的B列（状态列），定位第一个状态为0的可用零件号
2. 将该零件号的状态改为1，标记为已使用
3. 提取对应A列的零件号，写入Sheet2的A1单元格
4. 弹出提示框显示已发放的零件号

内容的提问来源于stack exchange，提问作者Bill