ListView, заполненный из второй колонки

Question

Я заполняю представление списка из диапазона Excel, а представление списка заполняется из 2-го столбца, а не из первого.

Есть ли параметр, который необходимо проверить для этого?

Мойкод выглядит следующим образом:

Dim sh
Dim LR
Dim lC
Dim r


With LVIV
   .View = lvwReport
   .FullRowSelect = True
   .Gridlines = True
   .CheckBoxes = False

   With .ColumnHeaders
      .Clear
      '.Add , , "#", 20
      .Add , , "Language", 70
      .Add , , "Time", 70
      .Add , , "Date", 70
      .Add , , "Team", 70
      .Add , , "HO #", 70
      .Add , , "Case Worker", 80
      .Add , , "Interpreter", 80
      .Add , , "Room", 30
      .Add , , "Applicant", 70
      .Add , , "Interpreter", 70
      .Add , , "Messaged DM", 70
      .Add , , "IV Start Time", 70
      .Add , , "Status", 70

   End With



 Dim li As ListItem

    Set sh = ThisWorkbook.Worksheets(4)
    With sh
        LR = .Range("A" & .Rows.Count).End(xlUp).row
    End With
    lC = 0




For r = 2 To LR
   If Left(sh.Cells(r, 6), 10) = "04/06/2019" Then
   Set li = .ListItems.Add()
        li.ListSubItems.Add , , sh.Cells(r, 4).Value
        li.ListSubItems.Add , , sh.Cells(r, 7).Value
        li.ListSubItems.Add , , sh.Cells(r, 6).Value
        li.ListSubItems.Add , , sh.Cells(r, 13).Value
        li.ListSubItems.Add , , sh.Cells(r, 2).Value
        li.ListSubItems.Add , , sh.Cells(r, 1).Value
        li.ListSubItems.Add , , sh.Cells(r, 5).Value
        li.ListSubItems.Add , , sh.Cells(r, 23).Value
        ''
        li.ListSubItems.Add , , sh.Cells(r, 13).Value
        li.ListSubItems.Add , , sh.Cells(r, 2).Value
        li.ListSubItems.Add , , sh.Cells(r, 1).Value
        li.ListSubItems.Add , , sh.Cells(r, 5).Value
        li.ListSubItems.Add , , sh.Cells(r, 23).Value
End If
Next

End With

Я пытался создать новый просмотр списка, чтобы получить параметры по умолчанию, но он все тот же.

Answer 1

Таким образом, основываясь на той же ссылке , которой я поделился в вашем предыдущем вопросе , это должно работать:

'First bit of code....
Set li = .ListItems.Add(, , sh.Cells(r, 4).Value)
    li.ListSubItems.Add , , sh.Cells(r, 7).Value
    li.ListSubItems.Add , , sh.Cells(r, 6).Value
    li.ListSubItems.Add , , sh.Cells(r, 13).Value
    'Continue your code....