[已解决]怎样改变这个窗体列表中的格式,使它只显示日期而不显示时间?

zzk386

怎样改变这个窗体列表中的格式,使它只显示日期而不显示时间?

 

gZyA3arf.rar (40.89 KB, 下载次数: 23)

2010-2-5 10:08 上传

点击文件名下载附件
怎样改变这个窗体列表中的格式,使它只显示日期而不显示时间?

最佳答案

月排行榜 / 总排行榜

amulee

2010-2-5 10:23

列表框显示的语句改一下

Sub 列表框显示()
Dim i As Long
Dim j As Long
    On Error Resume Next
    UserForm2.ListBox1.Clear
    UserForm2.ListBox1.ColumnCount = 8
    With Sheets("结果显示")
        .Range("F2:F" & .[a65536].End(3).Row) = .Range("F2:F" & .[a65536].End(3).Row).Value '转化为数值
        For i = 1 To .[a65536].End(3).Row
            UserForm2.ListBox1.AddItem
            For j = 1 To 8
                If i > 1 And j = 2 Then
                    UserForm2.ListBox1.List(UserForm2.ListBox1.ListCount - 1, j - 1) = Format(.Cells(i, j), "yyyy-m-d")
                Else
                    UserForm2.ListBox1.List(UserForm2.ListBox1.ListCount - 1, j - 1) = .Cells(i, j)
                End If
            Next j
        Next i
        UserForm2.ListBox1.ColumnWidths = "52;52;42;100;25;28;26;40"
     End With
End Sub

跳转到最佳答案楼层

wayy

改一下代码：

Sub 列表框显示()
Dim i As Long
Dim j As Long
    On Error Resume Next
    UserForm2.ListBox1.Clear
    UserForm2.ListBox1.ColumnCount = 8
    With Sheets("结果显示")
        .Range("F2:F" & .[a65536].End(3).Row) = .Range("F2:F" & .[a65536].End(3).Row).Value '转化为数值
        For i = 1 To .[a65536].End(3).Row
            UserForm2.ListBox1.AddItem
            For j = 1 To 8
                If j = 2 Then
                  UserForm2.ListBox1.List(UserForm2.ListBox1.ListCount - 1, j - 1) = Format(.Cells(i, j), "yyyy-m-d")
                Else
                  UserForm2.ListBox1.List(UserForm2.ListBox1.ListCount - 1, j - 1) = .Cells(i, j)
                End If
            Next j
        Next i
        UserForm2.ListBox1.ColumnWidths = "52;52;42;100;25;28;26;40"
     End With
End Sub

wayy

加个判断，设置一下格式

 If j = 2 Then
                  UserForm2.ListBox1.List(UserForm2.ListBox1.ListCount - 1, j - 1) = Format(.Cells(i, j), "yyyy-m-d")
                Else
                  UserForm2.ListBox1.List(UserForm2.ListBox1.ListCount - 1, j - 1) = .Cells(i, j)
                End If

amulee

列表框显示的语句改一下

Sub 列表框显示()
Dim i As Long
Dim j As Long
    On Error Resume Next
    UserForm2.ListBox1.Clear
    UserForm2.ListBox1.ColumnCount = 8
    With Sheets("结果显示")
        .Range("F2:F" & .[a65536].End(3).Row) = .Range("F2:F" & .[a65536].End(3).Row).Value '转化为数值
        For i = 1 To .[a65536].End(3).Row
            UserForm2.ListBox1.AddItem
            For j = 1 To 8
                If i > 1 And j = 2 Then
                    UserForm2.ListBox1.List(UserForm2.ListBox1.ListCount - 1, j - 1) = Format(.Cells(i, j), "yyyy-m-d")
                Else
                    UserForm2.ListBox1.List(UserForm2.ListBox1.ListCount - 1, j - 1) = .Cells(i, j)
                End If
            Next j
        Next i
        UserForm2.ListBox1.ColumnWidths = "52;52;42;100;25;28;26;40"
     End With
End Sub

fairy_jl

好复杂啊，看不懂

zzk386

QUOTE:

以下是引用amulee在2010-2-5 10:23:00的发言：

列表框显示的语句改一下

Sub 列表框显示()
Dim i As
  Long
Dim j As
  Long
    On
  Error
  Resume
  Next
    UserForm2.ListBox1.Clear
    UserForm2.ListBox1.ColumnCount = 8
    With Sheets("结果显示")
        .Range("F2:F" & .[a65536].End(3).Row) = .Range("F2:F" & .[a65536].End(3).Row).Value '转化为数值
        For i = 1 To .[a65536].End(3).Row
            UserForm2.ListBox1.AddItem
            For j = 1 To 8
                If i > 1 And j = 2 Then
                    UserForm2.ListBox1.List(UserForm2.ListBox1.ListCount - 1, j - 1) = Format(.Cells(i, j), "yyyy-m-d")
                Else
                    UserForm2.ListBox1.List(UserForm2.ListBox1.ListCount - 1, j - 1) = .Cells(i, j)
                End
  If
            Next j
        Next i
        UserForm2.ListBox1.ColumnWidths = "52;52;42;100;25;28;26;40"
     End
  With
End
  Sub

谢谢版主"一针见血"的解决方案,问题解决啦

[em01]