Can I do sorting in all columns of ListView Does anybody know
sorting in ListView
Hot Topic
- Live Communications Server 2005 SP1 - no login accepted from MSN 5.1
- "Bizzare" Sendkey Code in Excel
- How to loop a macro every 20 minutes
- Microsoft Office Document Imaging no longer in Printers Folder, Using XP and Office XP Professional
- Is there a today() function in VBA?
- How Can I Register The Yahoo DomainKey For My Mail Server ?
- VBA code for use in several worksheets in a workbook
- Check if an Excel workbook is opened and in use by somebody else
- WebPart Problem (?) / BSM2005
- ISV application supported by vista
Microsoft ISV
- Delete Unwanted rows based on value in cell
- Avoid message boxes during macro?
- Limit Macro to current workbook
- Put access fields in specific word document places
- wrong count of Records in Access.Form
- ado recordset problem
- HTTP request - simple problem
- Problem regarding VBA in excel - Combine 52 VBA codes for 52 weeks in a year to one VBA code
- How do I call for all installed printers....
- Once copied, can we export as a GIF file?
sorting in ListView
Shrek.NET
George Waters
Yes you can sort on columns when using the listview control.
Add the listview control to a user form, with this code in the userform code module.
You can now click column headers to sort data.
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
With ListView1
.Sorted = True
.SortKey = ColumnHeader.Index - 1
.SortOrder = lvwAscending
End With
End Sub
Private Sub UserForm_Initialize()
Dim lngIndex As Long
Dim vntColumn0 As Variant
Dim vntColumn1 As Variant
Dim vntColumn2 As Variant
Dim lvwItem As ListItem
With ListView1
.ListItems.Clear
.View = lvwReport
Do While .ColumnHeaders.Count < 3
.ColumnHeaders.Add , , CStr(.ColumnHeaders.Count + 1)
Loop
vntColumn0 = Array("E", "D", "C", "B", "A")
vntColumn1 = Array("1", "2", "3", "4", "5")
vntColumn2 = Array("A", "B", "C", "D", "E")
For lngIndex = LBound(vntColumn0) To UBound(vntColumn0)
Set lvwItem = .ListItems.Add(, , vntColumn0(lngIndex))
lvwItem.SubItems(1) = vntColumn1(lngIndex)
lvwItem.SubItems(2) = vntColumn2(lngIndex)
Next
End With
End Sub