VBA Excel: как поместить значение в ячейку, используя две переменные в качестве ее местоположения

Question

Я пытаюсь взять вариант 'row' и 'column' и использовать их для ввода "x" в ячейку.В строке и столбце хранятся числа.

Private Sub CheckInButton_Click()

Dim found_name As Range
Dim name_to_find As String
Dim row As Variant
Dim column As Variant
Dim ColLetter As Variant
Dim xLocation As Excel.Range

row = 0
column = 0

name_to_find = Worksheets("Forms").Range("N5").Value

Set found_name = Worksheets("Updated 1.0").Range("A:A").Find(what:=name_to_find,LookIn:=xlValues, lookat:=xlWhole)

If Not found_name Is Nothing Then
    MsgBox (name_to_find & " found in row: " & found_name.row)
    row = found_name.row
    MsgBox (row)
Else
    MsgBox (name_to_find & " not found")
End If

event_to_find = Worksheets("Forms").Range("N3").Value
Set found_event = Worksheets("Updated 1.0").Range("A1:DZ1").Find(what:=event_to_find, LookIn:=xlValues, lookat:=xlWhole)
MsgBox (found_event)

If Not found_event Is Nothing Then
    ColLetter = Split(found_event.Address, "$")(1)
    MsgBox (event_to_find & " found in column: " & ColLetter)
    column = found_event.column
    MsgBox (column)
Else
    MsgBox (event_to_find & " not found")
End If

Worksheets("Updated 1.0").Cells(column & row).Value2 = "x"

End Sub

Answer 1

.Cells принимает два аргумента: строку и столбец.Оператор & объединяет два значения, поэтому вы просто даете .Cells один аргумент, строка добавляется к столбцу.

Просто измените Worksheets("Updated 1.0").Cells(column & row).Value2 = "x" на Worksheets("Updated 1.0").Cells(row, column).Value2 = "x"

Answer 2

Вы можете просто использовать Cells().

Cells(row, column).Value = "X"

Итак, в вашем случае:

Worksheets("Updated 1.0").Cells(row, column).Value = "x"