命令按鈕用於在不同表格上進行審批

我正在嘗試創建審批流程，爲此，我有一個彙總表，當前顯示報價的詳細信息，然後顯示詳細信息表單，其中我我正在記錄已批准的內容。目前，您在第二個工作表中輸入要約信息（要約詳情），然後審批人可以查看下拉框以查看哪些內容已打開並需要批准。我有一切工作，除了我需要批准者點擊一個按鈕，它會將批准者的用戶名和日期發送到「優惠詳情」選項卡上的相應單元格。我在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

來源

2017-02-10 Lisa

'Cell'將在列'B'。如果你抵消了12列，這不是列'N'？另外，由於您使用'With With Sheets（「Offer Details」）'，因此在'With'語句中，您不需要重複它。您可以簡單地使用前導'.'，即'Set rng = .Range（「B1：B1000」）'。 – BruceWayne

，如果你需要科拉姆「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

來源

2017-02-10 16:50:42

由於某些原因，它仍然無法正常工作。當我按下按鈕時，什麼都沒有發生。有什麼建議麼？ – Lisa

沒關係，我只是指定了工作表，它工作。非常感謝你！ – Lisa

不客氣。如果問題解決了，如果答案很好，你能標記答案嗎？ –

命令按鈕用於在不同表格上進行審批

回答

相關問題