Использование текстового поля в пользовательской форме для добавления информации в список 2 столбца i в той же пользовательской форме, Excel VBA - PullRequest
0 голосов
/ 27 января 2020

Я добавляю информацию из текстового поля (tbxBladnr) во второй столбец списка с множественным выбором (lbxSektioner), который размещается в той же пользовательской форме. Я не могу заставить это работать. Одна вещь

If Not lbxSektioner.List(iCount, 1) = "" Then

Я не могу заставить часть lbxSektioner.List функционировать, потому что я не могу получить доступ к аргументу List. Вот полный код.

Option Explicit

Private Sub lbxSektioner_Click()

End Sub

'Starta formuläret
Private Sub UserForm_Initialize()

Call FillListbox

End Sub

'Fyll listboxen från rätt i filen
Sub FillListbox()
Dim arrSektion As Variant
    arrSektion = Range("B1:B" & Cells(Rows.Count, 2).End(xlUp).Row).Value
    lbxSektioner.List = arrSektion
End Sub

Private Sub cmbLaggtill_Click()

Dim iCount As Integer
Dim strString As String
For iCount = 0 To lbxSektioner.ListCount - 1
   If (lbxSektioner.Selected(iCount) = True) Then
        If Not lbxSektioner.List(iCount, 1) = "" Then
         strString = lbxSektioner.List(iCount, 1) & ", " & tbxBladnr.Value
        Else
        strString = tbxBladnr.Value
        End If
      lbxSektioner.List(iCount, 1) = lbxSektioner.List(iCount, 1) & ", " & strString
   End If
Next iCount

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