Excel VBA在另一个工作表中查找一行，然后更改同一行中的单元格

Question

我知道有很多这样的问题，但是我无法让他们中的任何一个为我工作。 基本上我在PRINT表上放了一个打印按钮。 点击后我想取订单号（在PRINT表上）， 在ORDERS表单上找到它，然后输入一个文本，＆＃34;打印＆＃34;到该订单的同一行中的另一列。 我解决了打印部分没有问题。 但是无法使任何代码起作用。我是个新手。请考虑一下你的答案：）

  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

Answer 1

在用于打印的单击按钮功能中添加如下内容：

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

其中$ row是您想要的单元格，可能与PRINT表格相对应。