Question

我正在尝试立即创建一个审批流程，为了做到这一点，我有一个摘要表，当前显示了优惠的详细信息，然后是详细信息表，我在这里记录了什么是批准。目前，您在第二张表中输入要约信息（要约详细信息），然后审批人可以查看下拉框以查看哪些是已打开且需要批准的。我有一切正常，但是，我需要批准者点击按钮，它会将批准者的用户名和日期发送到“商品详情”选项卡上的相应单元格。我在H1中创建了一个密钥，它允许代码找到正确的行，即商品详细信息页面上的B列与H1中的“摘要”选项卡中的列相匹配。

我有下面写的这段代码，但它没有用。用户名需要进入商品详细信息表中的M列的单元格（一旦根据摘要中的键找到正确的行）。它必须是硬编码的，所以我可以保留它用于审计目的。

如果这没有意义，请告诉我，我会尽力澄清。

谢谢！

Private Sub CommandButton1_Click()
Dim rng As Range
Dim cell As Object
With Sheets("Offer Details")
    Set rng = Sheets("Offer Details").Range("B1:B1000")
    For Each cell In rng
        If cell.Value = Sheets("Offer Details").Cells(1, 8) Then
            cell.Offset(0, 12).Value = Environ("USERNAME")
            Exit For
        End If
    Next
 End With
End Sub

Answer 1

如果您需要每次都使用colum “M”，则可以执行此操作，具体取决于您的代码：

Private Sub CommandButton1_Click()
Dim rng As Range
Dim cell As Object
Dim inc as Integer
With Sheets("Offer Details")
    Set rng = .Range("B1:B1000")
    For Each cell In rng
        inc = inc + 1
        If cell.Value = .Cells(1, 8) Then
           .Range("M" & inc) = Environ("USERNAME")
            Exit For
        End If
    Next
 End With
End Sub

不同表格上的批准命令按钮

1 个答案: