Excel 在单元格中查找值的宏然后在另一个单元格中输入“x”

Excel 在单元格中查找值的宏然后在另一个单元格中输入“x”,excel,vba,formula,lookup,Excel,Vba,Formula,Lookup,有人能告诉我一个宏代码,它将查找我在单元格中键入的值 然后在同一行但右侧有4列的单元格中输入字母x?然后保存 想法是在单元格中键入文本,按下一个按钮,它会查找文本,然后在另一个单元格中添加一个x,并保存结尾子项 Sub MakeTheChanges() Dim BayControl As Worksheet Set BayControl = ThisWorkbook.Sheets("Bay control") BayControl.Range("A" & BayControl.Range

有人能告诉我一个宏代码,它将查找我在单元格中键入的值

然后在同一行但右侧有4列的单元格中输入字母x?然后保存

想法是在单元格中键入文本,按下一个按钮,它会查找文本,然后在另一个单元格中添加一个x,并保存结尾子项

Sub MakeTheChanges()
Dim BayControl As Worksheet Set BayControl = ThisWorkbook.Sheets("Bay control")
BayControl.Range("A" & BayControl.Range("M1").Value + 1) = "BAY CLEAR"
BayControl.Range("C" & BayControl.Range("M1").Value + 1) = ""
BayControl.Range("D" & BayControl.Range("M1").Value + 1) = "N/A"
BayControl.Range("M1") = ""
End Sub

关于我对您可能正在寻找的内容的解释,请参见下文:

Sub EnterThexA()

    Dim Sunday As Worksheet, xRange As Range

    ' If E1 contains an error, just give up.
    If IsError(Range("E1")) Then Exit Sub

    ' If E1 doesn't have any value, just give up.
    If Len(Range("E1").Value) = 0 Then Exit Sub

    Set Sunday = ThisWorkbook.Sheets("Sunday")

    ' See if you can find whatever is in range "E1" in column A, if so, set xRange to that Cell
    Set xRange = Columns("A:A").Find(What:=Range("E1").Value, LookIn:=xlValues, Lookat:=xlWhole)

    ' If you in fact found something
    If Not xRange Is Nothing then
        ' You want the x in column E, which is 4 places to the right.
        Set xRange = xRange.Offset(0, 4)
        xRange.Value = "x"
    End If

    ' Set certain variables to nothing (just good form, not really necessary)
    Set Sunday = Nothing: Set xRange = Nothing

End Sub

您需要向我们展示您的代码,并解释您的代码与您期望的行为相比是如何不起作用的。嗨,Marc,感谢您的快速响应。我现在没有代码,因为我对vba非常陌生。请尝试使用记录器创建宏。只需转到“视图”选项卡,选择“宏”下拉列表,然后选择“录制宏”。。。选项然后尝试查找数据,并手动放置x。然后返回并点击停止。至少通过这种方式,您可以从一些代码开始。您可以在VB窗口中找到此代码,只需点击Alt+F11Sub使更改变暗BayControl作为工作表集BayControl=ThisWorkbook.SheetsBay control BayControl.RangeA&BayControl.RangeM1.Value+1=BAY CLEAR BayControl.RangeM1=End Sub我在另一个版本中使用过它。但我要搜索的条件是多列。因此Sheet1.Range variable columns&Sheet1value输入搜索框。Value=x我不知道要为各个列输入什么,也不知道如何将其设置为将x放入某个特定列中,例如我的查找结果右侧的4列???@Demetri我有点搞不清楚到底请求了什么,但是使用.offset0,4可以获得右边4列的范围。因此,如果我们在搜索框中输入Sheet1.RangeA1和Sheet1value,那么在右边放置一个x,4列将是:Sheet1.RangeA1和Sheet1value输入搜索框。偏移量0,4.Value=x