问MSForms ListBox的ListStyle = fmListStyleOption持久化内容

EN

Public Sub SaveList(ByVal plstListBox As MSForms.ListBox, ByVal prngSavePoint As Excel.Range)
    On Error GoTo errHandler

    Dim lRow As Long
    Dim bScreenUpdating As Boolean
    Dim bEnableEvents As Boolean

    bScreenUpdating = Application.ScreenUpdating
    bEnableEvents = Application.EnableEvents

    Application.ScreenUpdating = False
    Application.EnableEvents = False

    prngSavePoint.CurrentRegion.Clear

    If plstListBox.ListCount > 1 Then
        For lRow = 0 To plstListBox.ListCount - 1
            prngSavePoint.Cells(lRow + 1, 1).Value = plstListBox.Selected(lRow)
            prngSavePoint.Cells(lRow + 1, 2).Value = plstListBox.List(lRow)
        Next
    End If

Cleanup:
    On Error Resume Next
    Application.EnableEvents = bEnableEvents
    Application.ScreenUpdating = bScreenUpdating
    Exit Sub

errHandler:
    MsgBox Err.Description, vbExclamation + vbOKOnly, "Error"
    Resume 'Cleanup
End Sub

Public Sub LoadList(ByVal plstListBox As MSForms.ListBox, ByVal prngSavePoint As Excel.Range)
    Dim lRow As Long
    Dim vntSavedList As Variant

    plstListBox.Clear

    If Not IsEmpty(prngSavePoint.Cells(1, 1).Value) Then
        vntSavedList = prngSavePoint.CurrentRegion.Value

        For lRow = 1 To UBound(vntSavedList, 1)
            plstListBox.AddItem vntSavedList(lRow, 2)
            plstListBox.Selected(lRow - 1) = vntSavedList(lRow, 1)
        Next
    End If
End Sub