請教大大:
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顯示時,可否刪除某一列資料?(Excel活頁內容沒刪)應如何處理
或篩選某條件下才list作者: linyancheng 時間: 2017-11-5 00:01
ListBox2•.RemoveItem N
N表示列序
先以迴遷篩選要刪除的列，如果可以從底部往上刪。作者: yangjie 時間: 2017-11-10 13:53
