返回列表 上一主題 發帖

[發問] ListBox2刪除某列

[發問] ListBox2刪除某列

請教大大:
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
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

ListBox2•.RemoveItem N
N表示列序
先以迴遷篩選要刪除的列,如果可以從底部往上刪。

TOP

ListBox2•.RemoveItem N
ListBox2少一列
是否可讓工作頁那一列還存在
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

        靜思自在 : 盡多少本份,就得多少本事。
返回列表 上一主題