[µo°Ý] ListBox2§R°£¬Y¦C

yangjie

½Ð±Ð¤j¤j:
Sub showlastdatas()
    Dim str1 As String
    wb3.Activate
    str1 = Left(TextBox31, 5) & CommandButton4.Caption
    With Sheets(str1)
        row1 = .Cells(65536, 4).End(xlUp).Row
        If row1 < 2 Then Exit Sub
        Dim mystr As String
        With Application.Names.Add("Tmp2", .Range(.Cells(2, 1), .Cells(row1, 24)))
            mystr = .RefersTo
            .Delete
        End With
        ListBox2.RowSource = ""
        With ListBox2
            .ColumnCount = 24
            .ColumnWidths = "68pt;60pt;45pt;60pt;----------------"
            .RowSource = mystr
            .ColumnHeads = True
            .ListIndex = ListBox2.ListCount - 1
        End With
    End With
End Sub
ListBoxÅã¥Ü®É,¥i§_§R°£¬Y¤@¦C¸ê®Æ?(Excel¬¡­¶¤º®e¨S§R)À³¦p¦ó³B²z
©Î¿z¿ï¬Y±ø¥ó¤U¤~list

yangjie

ListBox2¡E.RemoveItem N
ListBox2¤Ö¤@¦C
¬O§_¥iÅý¤u§@­¶¨º¤@¦CÁÙ¦s¦b