Я новичок в макросе VBA. Ну, я уже разобрался с некоторым его кодом, но у меня есть трудности для этого.
Я хочу добавить раскрывающийся список в ячейку ("F10"), а также добавить формулу vlookup ("G10"). Как только пользователь выберет любое значение из раскрывающегося списка, который находится в ячейке ("F10"), в ячейке появится соответствующее значение ("G10")
Теперь я хочу, чтобы выпадающий список автоматически заполнялся до самой последней строки данных или используемых ячеек, то же самое с vlookup. У меня есть этот код, но в нем есть ошибка, и я не знаю, что делать ..
ActiveCell.Columns("F:F").EntireColumn.Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:= _
"Sample, Partner, Single, Joint"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
ActiveCell.Offset(0, 1).Columns("F:F").EntireColumn.Select
ActiveCell.FormulaR1C1 = _
"=IFERROR(VLOOKUP(C[-1],[Macro.xlsm]Sheet2!R2C1:R21C2,2,FALSE), "" "")"
ActiveCell.Select
ActiveCell.Range("G:G").EntireColumn.Select
ActiveCell.Offset(3, -1).Range("G:G").Select
так как мой макрос создает новую книгу и сохраняет ее, это зависит от имени его ветви для имени файла. поэтому я жестко запрограммировал значение для выпадающего списка.
Спасибо за помощь!