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在另一个工作表中查找一行，然后更改同一行中的一个单元格

回答

相关问题