Excel VBA在另一個工作表中查找一行，然後更改同一行中的一個單元格

我知道有很多這樣的問題，但我無法讓他們中的任何人爲我工作。基本上我打印PRINT工作表上打印按鈕。單擊時，我想取訂單號碼（位於PRINT表單上），在ORDERS表單上找到它，然後在該訂單的同一行中放置一個文本，例如「打印」到另一列。我已經解決了打印部分沒有問題。但無法獲得任何代碼工作。我是一個新手。請與您的答案考慮吧:)Excel VBA在另一個工作表中查找一行，然後更改同一行中的一個單元格

Sub Macro1() 
' 
' Macro1 Macro 
' 
'ActiveSheet.PrintOut 
    Dim ws1 As Worksheet, ws2 As Worksheet 
    Dim aCell As Range, bCell As Range 
    Dim lrow As Long 

    Set ws1 = Sheets("SPRS"): Set ws2 = Sheets("ETÝKET") 


     Set aCell = ws1.Columns(1).Find(What:="26182-2" _ 
       , LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _ 
       SearchDirection:=xlNext, MatchCase:=False) 
        ThisWorkbook.Worksheets("SPRS").Range(aCell).Value = "printed" 


End Sub

來源

2016-02-05 Mesut Aslan

如果您爲自己的最佳嘗試提供了代碼並說明它爲什麼不適合您，會更容易。 –

考察Range.Find和Offset功能。 –

'子宏1（） ' ' Macro1的宏 ' ' ActiveSheet.PrintOut 昏暗WS1作爲工作表，WS2作爲工作表昏暗aCell作爲範圍，B細胞作爲範圍昏暗lrow只要集WS1 =表（」 SPRS「）：Set ws2 = Sheets（」ETÝKET「）設置aCell = ws1.Columns（1）.Find（What：=」26182-2「_ ，LookIn：= xlValues，LookAt：= xlWhole，SearchOrder ：= xlByRows，_ SearchDirection：= xlNext，MatchCase：= False） ThisWorkbook.Worksheets（「SPRS」）。Range（aCell）.Value =「printed」 End Sub' @ScottCraner這裏是代碼 –

在點擊按鈕功能打印添加類似：

ThisWorkbook.Worksheets("ORDERS").Range($row).Value = "printed"

其中$行是你想要的大概將對應於打印紙張的細胞。

來源

2016-02-05 14:02:00

Excel VBA在另一個工作表中查找一行，然後更改同一行中的一個單元格

回答

相關問題