Коды списка vlookup на основе другого листа - PullRequest
Новая
       23

Коды списка vlookup на основе другого листа

1 голос
/ 09 июля 2020

Я вроде как новичок в VBA. Я пытаюсь работать с двумя списками: listbox1 (.lstdatabase) и listbox2 (.lstdatabase1). то, что я пытаюсь сделать, - это когда я нажимаю кнопку обновления стоимости, выбранные строки из listbox1 (.lstdatabse) переносятся в listbox2 (.lstdatabase1). при этом он передает только столбцы с 1 по 4 из listbox1 по мере необходимости. Мне удалось работать выше, подав судебные иски. Теперь я изо всех сил пытаюсь заполнить столбец 5 listbox2 (.lstdatabase1) (это значение из рабочего листа (Cost)) на основе ссылки на значение столбца 4 в listbox2 (.lstdatabase1). Коды, которые у меня указаны ниже: Private Sub cmdcostupdates_Click () With UserForm1.lstdatabase1

Dim sh As Worksheet Set sh = ThisWorkbook.Sheets ("cost") 

    .ColumnCount = 10
    .ColumnHeads = True
    .ColumnWidths = "40,60,60,60,60,100,100,250,80,80"

Dim i как целое число для i = 0 в UserForm3.lstDatabase.ListCount - 1 

If UserForm3.lstDatabase.Selected(i) = True Then
 UserForm1.lstdatabase1.AddItem
 UserForm1.lstdatabase1.Column(0, (UserForm1.lstdatabase1.ListCount - 1)) = UserForm3.lstDatabase.Column(0, i)
 UserForm1.lstdatabase1.Column(1, (UserForm1.lstdatabase1.ListCount - 1)) = UserForm3.lstDatabase.Column(1, i)
 UserForm1.lstdatabase1.Column(2, (UserForm1.lstdatabase1.ListCount - 1)) = UserForm3.lstDatabase.Column(2, i)
 UserForm1.lstdatabase1.Column(3, (UserForm1.lstdatabase1.ListCount - 1)) = UserForm3.lstDatabase.Column(3, i)
 UserForm1.lstdatabase1.Column(4, (UserForm1.lstdatabase1.ListCount - 1)) = UserForm3.lstDatabase.Column(4, i)
 UserForm1.lstdatabase1.Column(5, (UserForm1.lstdatabase1.ListCount - 1)) = Application.WorksheetFunction.VLookup(.List(3, i), Sheets("sh").Range("A1:G1000"), 7, False)

Может ли кто-нибудь помочь исправить код для vlookup? приведенный ниже код дает мне ошибку. 

UserForm1.lstdatabase1.Column(5, (UserForm1.lstdatabase1.ListCount - 1)) = Application.WorksheetFunction.VLookup(.List(3, i), Sheets("sh").Range("A1:G1000"), 7, False)

1 Ответ

0 голосов
/ 13 июля 2020

Нашел код, Private Sub cmdcostupdates_Click () 

Dim i As Long, n As Long, f, f1 As Range
r As Rang

With UserForm1.lstdatabase1
.ColumnCount = 10
.ColumnHeads = True
.ColumnWidths = "40; 60; 60; 60; 200; 100; 100; 250; 80; 80"
For i = 0 To UserForm3.lstDatabase.ListCount - 1
If UserForm3.lstDatabase.Selected(i) = True Then
.AddItem
n = .ListCount - 1
.Column(0, n) = UserForm3.lstDatabase.Column(0, i)
.Column(1, n) = UserForm3.lstDatabase.Column(1, i)
.Column(2, n) = UserForm3.lstDatabase.Column(2, i)
.Column(3, n) = UserForm3.lstDatabase.Column(3, i)
.Column(4, n) = UserForm3.lstDatabase.Column(5, i)
Set f = Sheets("cost").Range("A4:I400").Find(.Column(4, n), , xlValues, xlWhole)
Set f1 = Sheets("cost1").Range("A4:I400").Find(.Column(4, n), , xlValues, xlWhole)
Set r = Sheets("cost2").Range("A4:I400").Find(.Column(4, n), , xlValues, xlWhole)

If Not f Is Nothing Then
.Column(5, n) = Sheets("cost").Range("I" & f.Row)
End If
If Not f1 Is Nothing Then
.Column(6, n) = Sheets("cost1").Range("I" & f1.Row)
End If
If Not r Is Nothing Then
.Column(7, n) = Sheets("cost2").Range("I" & r.Row)
End If

End If
Next i
UserForm1.Show
End With
End Sub
...