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 (" & статия.Адрес (невярно, невярно) & "," _ & "" ["& rng.Parent.Parent.Name &"] "& rng.Parent.Name &" "!" & rng.Address & "," _ & Application.WorksheetFunction.Match (Me.ComboBox1, rng1, 0) & "," _ & "Невярно"