Активна колонка автозаповнення VLookup VBA - excel, vba, excel-vba

Я новачок у VBA, і я намагаюся знайти шляхзробіть цю формулу автозаповненням активноїколонки на основі значення пошуку, яке знаходиться в стовпці А, або повертає формулу в активній клітині, щоб я міг автоматично заповнити її, оскільки на даний момент її повернення тільки результат

Private Sub CommandButton_d_Click()
Dim filename As String
Dim fullRangeString As String
Dim returnValue As Variant
Dim wb As Workbook
Dim ws As Worksheet
Dim rng As Range
Dim article As Range
Dim rng1 As Range
Dim acell As Range

On Error Resume Next
Set acell = ActiveCell
Set article = ActiveSheet.Cells(ActiveCell.Row, 1)
filename = Application.GetOpenFilename( _
FileFilter:="Excel Files (*.xlsx), *.xls", _
Title:="Please select a file")
Set wb = Application.Workbooks.Open(filename)
Set ws = wb.Worksheets("Sheet1")
Set rng = ws.Range("a1", _
Range("a1").End(xlDown).End(xlToRight))
Set rng1 = ws.Range("a2", "av2")
acell = Application.WorksheetFunction.VLookup(article, rng, _
Application.WorksheetFunction.Match(Me.ComboBox1, rng1, 0), False)
wb.Close False
UserForm1.Hide
End Sub

Відповіді:

Ви не повинні використовувати Функція робочого столу VBA для вашого VLOOKUP принаймні.
Щоб виконати те, що вам потрібно, потрібно використовувати Властивість формули об'єкта діапазону.

Спробуйте щось подібне:

acell.Formula = "=VLOOKUP(" & article.Value & "," & rng.Address(, , , True) & "," & _
Application.WorksheetFunction.Match(Me.ComboBox1, rng1, 0) & ",FALSE)"

Це не охоплює Автозаповнення як я не впевнений, що ви хочете зробити.

Здравствуйте, я знайшов рішення.

Ось останній код.

acell.Formula = "= VLOOKUP (" & стаття.Адреса (False, False) & "," _ & "" ["& rng.Parent.Parent.Name &"] "& rng.Parent.Name &" "!" & rng.Address & "," _ _ & Application.WorksheetFunction.Match (Me.ComboBox1, rng1, 0) & "," _ & "Помилковий)"