如何更新列表框中的选定行？

Question

您好，我正在尝试开发一个用户窗体，这是我的第一次。

我的 ComboBox 和 ListBox 有问题（几乎不能正常工作）。

你看，我在 ListBox 的正上方有一个 ComboBox，这是我要选择一个值的地方，行值应该同时显示在 ListBox 和 ComboBox 上。

问题 1： 值仅显示在组合框中，但不显示在列表框中。

如果我单击 "VIEW DATA" 按钮，电子表格中的所有值都会显示在 8 列的列表框中。如果单击 ListBox 中的一行（显然它将突出显示），它也将显示在下面的 ComboBoxes 上。

问题 2： 每当我尝试编辑 ComboBox 中的值并单击更新按钮时，没有任何反应。它不更新任何东西。

我到处都在寻找答案，但似乎找不到。

     Private Sub btnDelete_Click()

        Dim a As Integer

            If MsgBox("Are you sure you want to delete this row?", vbYesNo + vbQuestion, "Yes") = vbYes Then

                For a = 1 To Range("A100000").End(xlUp).Row
                    If Cells(a, 1) = listHeader.List(listHeader.ListIndex) Then
                    Rows(a).Select
                    Selection.Delete
                End If
            Next a
        End If

    End Sub

Private Sub btnSearch_Click()

'IM THINKING ABOUT REMOVING THE SEARCH BUTTON BECAUSE THE COMBOBOX ITSELF CAN BE USED FOR SEARCHING THE ROW
'IT MAKES THE SEARCH BUTTON USELESS

'Dim x As Long
'Dim y As Long

'x = Sheets("PRESTAGE DB").Range("A" & Rows.Count).End(xlUp).Row
'For y = 2 To x

'If Sheets("PRESTAGE DB").Cells(y, 1).Text = cmbSearch.Value Then
    'cmbSchema.Text = Sheets("PRESTAGE DB").Cells(y, 1)
    'cmbEnvironment.Text = Sheets("PRESTAGE DB").Cells(y, 2)
    'cmbHost.Text = Sheets("PRESTAGE DB").Cells(y, 3)
    'cmbIP.Text = Sheets("PRESTAGE DB").Cells(y, 4)
    'cmbAccessible.Text = Sheets("PRESTAGE DB").Cells(y, 5)
    'cmbLast.Text = Sheets("PRESTAGE DB").Cells(y, 6)
    'cmbConfirmation.Text = Sheets("PRESTAGE DB").Cells(y, 7)
    'cmbProjects.Text = Sheets("PRESTAGE DB").Cells(y, 8)

'End If
'Next y

End Sub

    Private Sub btnView_Click()

        listHeader.RowSource = "A4:H200"

    End Sub

Private Sub cmbAdd_Click()
    Dim sheet As Worksheet
    Set sheet = ThisWorkbook.Sheets("PRESTAGE DB")

    nextrow = sheet.Cells(Rows.Count, 1).End(xlUp).Row + 1

    sheet.Cells(nextrow, 1) = Me.cmbSchema
    sheet.Cells(nextrow, 2) = Me.cmbEnvironment
    sheet.Cells(nextrow, 3) = Me.cmbHost
    sheet.Cells(nextrow, 4) = Me.cmbIP
    sheet.Cells(nextrow, 5) = Me.cmbAccessible
    sheet.Cells(nextrow, 6) = Me.cmbLast
    sheet.Cells(nextrow, 7) = Me.cmbConfirmation
    sheet.Cells(nextrow, 8) = Me.cmbProjects

    MsgBox "Data Added!"

End Sub

Private Sub cmbClearFields_Click()

    cmbSchema.Text = ""
    cmbEnvironment.Text = ""
    cmbHost.Text = ""
    cmbIP.Text = ""
    cmbAccessible.Text = ""
    cmbLast.Text = ""
    cmbConfirmation.Text = ""
    cmbProjects.Text = ""
    cmbSearch.Text = ""

End Sub

Private Sub cmbSearch_Change()

Dim x As Long
Dim y As Long

x = Sheets("PRESTAGE DB").Range("A" & Rows.Count).End(xlUp).Row
For y = 2 To x

If Sheets("PRESTAGE DB").Cells(y, 1).Text = cmbSearch.Value Then
    cmbSchema.Text = Sheets("PRESTAGE DB").Cells(y, 1)
    cmbEnvironment.Text = Sheets("PRESTAGE DB").Cells(y, 2)
    cmbHost.Text = Sheets("PRESTAGE DB").Cells(y, 3)
    cmbIP.Text = Sheets("PRESTAGE DB").Cells(y, 4)
    cmbAccessible.Text = Sheets("PRESTAGE DB").Cells(y, 5)
    cmbLast.Text = Sheets("PRESTAGE DB").Cells(y, 6)
    cmbConfirmation.Text = Sheets("PRESTAGE DB").Cells(y, 7)
    cmbProjects.Text = Sheets("PRESTAGE DB").Cells(y, 8)

End If
Next y

End Sub

    Private Sub cmbUpdate_Click()

    Dim x As Long
    Dim y As Long

    x = Sheets("PRESTAGE DB").Range("A" & Rows.Count).End(xlUp).Row
    For y = 2 To x
    If Sheets("PRESTAGE DB").Cells(y, 1).Text = cmbSchema.Value Then
    Sheets("PRESTAGE DB").Cells(y, 2) = cmbEnvironment
    Sheets("PRESTAGE DB").Cells(y, 3) = cmbHost
    Sheets("PRESTAGE DB").Cells(y, 4) = cmbIP
    Sheets("PRESTAGE DB").Cells(y, 5) = cmbAccessible
    Sheets("PRESTAGE DB").Cells(y, 6) = cmbLast
    Sheets("PRESTAGE DB").Cells(y, 7) = cmbConfirmation
    Sheets("PRESTAGE DB").Cells(y, 8) = cmbProjects

    End If
    Next y

    End Sub

    Private Sub CommandButton5_Click()
        listHeader.RowSource = ""

    End Sub


Private Sub CommandButton7_Click()

End Sub

    Private Sub listHeader_Click()

        cmbSchema.Value = UserForm1.listHeader.Column(0)
        cmbEnvironment.Value = UserForm1.listHeader.Column(1)
        cmbHost.Value = UserForm1.listHeader.Column(2)
        cmbIP.Value = UserForm1.listHeader.Column(3)
        cmbAccessible.Value = UserForm1.listHeader.Column(4)
        cmbLast.Value = UserForm1.listHeader.Column(5)
        cmbConfirmation.Value = UserForm1.listHeader.Column(6)
        cmbProjects.Value = UserForm1.listHeader.Column(7)

    End Sub


    Private Sub UserForm_Initialize()

        cmbSearch.List = Sheets("PRESTAGE DB").Range("A4:A10000").Value

    End Sub

文件：https://jmp.sh/cZj8e4q

Answer 1

使用下面的代码解决问题 1

为组合框使用了 Change 事件，因此如果用户更改任何值，列表框和组合框将根据在组合框中选择的值填充。

Private Sub ComboBox1_Change()
    x = Sheets("PRESTAGEDB").Range("A" & Rows.Count).End(xlUp).Row
    For y = 2 To x
        If Sheets("PRESTAGEDB").Cells(y, 1).Text = ComboBox1.Value Then
            cmbSchema.Text = Sheets("PRESTAGEDB").Cells(y, 1)
            cmbEnvironment.Text = Sheets("PRESTAGEDB").Cells(y, 2)
            cmbHost.Text = Sheets("PRESTAGEDB").Cells(y, 3)
            cmbIP.Text = Sheets("PRESTAGEDB").Cells(y, 4)
            cmbAccessible.Text = Sheets("PRESTAGEDB").Cells(y, 5)
            cmbLast.Text = Sheets("PRESTAGEDB").Cells(y, 6)
            cmbConfirmation.Text = Sheets("PRESTAGEDB").Cells(y, 7)
            cmbProjects.Text = Sheets("PRESTAGEDB").Cells(y, 8)

            UserForm1.ListBox1.RowSource = "A" + CStr(y) + ": H" + CStr(y)
            Exit For
        End If
    Next y
End Sub

如果解决了您的问题请采纳

Answer 2

对于问题2

使用 .Value 从字段中获取值，然后将值设置为点差 sheet -> cmbEnvironment.Value

Private Sub cmbUpdate_Click()

    Dim x As Long
    Dim y As Long

    x = Sheets("PRESTAGEDB").Range("A" & Rows.Count).End(xlUp).Row
    For y = 2 To x
        If Sheets("PRESTAGEDB").Cells(y, 1).Text = cmbSchema.Value Then
            Sheets("PRESTAGEDB").Cells(y, 2) = cmbEnvironment.Value
            Sheets("PRESTAGEDB").Cells(y, 3) = cmbHost.Value
            Sheets("PRESTAGEDB").Cells(y, 4) = cmbIP.Value
            Sheets("PRESTAGEDB").Cells(y, 5) = cmbAccessible.Value
            Sheets("PRESTAGEDB").Cells(y, 6) = cmbLast.Value
            Sheets("PRESTAGEDB").Cells(y, 7) = cmbConfirmation.Value
            Sheets("PRESTAGEDB").Cells(y, 8) = cmbProjects.Value
            Exit For
        End If
    Next y
End Sub

当我更改组合框中的值时，它会在单元格中设置更新后的值。如果不工作，请调试代码并分享详细信息。

如何更新列表框中的选定行？

How to update the selected row in the listbox?

excel

vba

userform