VlookUp в соответствии с выбором ComboBox1 - PullRequest
0 голосов
/ 04 октября 2019

Мне нужна помощь, пожалуйста. Я использую пользовательскую форму с combobox1, чтобы показать все открытые книги Excel:

Private Sub UserForm_Initialize()
    Dim wkb As workbook
    With Me.ComboBox1
        For Each wkb In Application.Workbooks
            .AddItem wkb.Name
        Next wkb
    End With
End Sub

У меня отлично работает другой макрос, но мне нужно добавить шаг Vlookup tovlookup для некоторых столбцов с другой книгой, которая, как я полагаю,чтобы выбрать из выпадающего списка1

Я использовал запись макросов, так как я не очень хорош в этом

Columns("F:F").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("F2").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-5],[COMBOBOX1 selection]Sheet1!C5:C6,2,FALSE)"
    Range("F2").Select
    Selection.AutoFill Destination:=Range("F2:F3")
    Range("F2:F3").Select

Я уверен, что вы можете сказать, это не работает. Не могли бы вы помочь?

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...