返回列表下一主題上一主題發帖

[發問] ListBox2刪除某列

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2017-11-4 13:56 | 只看該作者

[發問] 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