【在线求助】ListView选中的数据导入工作表问题

motoro

感谢~各位老师！

wj2368

。。。。。。。。。。。。。。。。。。。。

蓝桥玄霜

控件的代码：

motoro

wj2368 发表于 2019-11-20 11:20
。。。。。。。。。。。。。。。。。。。。

老师~不知道能否可以修改一下ListView显示的格式，例如ListView显示的宽度，以及保留小数点

motoro

wj2368 发表于 2019-11-20 11:20
。。。。。。。。。。。。。。。。。。。。

老师~能否增加修改一下ListView1格式， 宽度和保留小数点1位数

motoro

wj2368 发表于 2019-11-20 11:20
。。。。。。。。。。。。。。。。。。。。

不好意思，可能表达不太好， 是想修改一下代码，主要是可以修改ListView1的列宽，和显示数据保留2位小数点，感谢！

motoro

wj2368 发表于 2019-11-20 11:20
。。。。。。。。。。。。。。。。。。。。

不好意思~可能表达不太好，意思是想修改一下ListView1列度和数据保留2位小数点

wj2368

motoro 发表于 2019-11-20 16:30
不好意思~可能表达不太好，意思是想修改一下ListView1列度和数据保留2位小数点

你什么意思，那个。。。。。。。

aecn

两位小数点
Private Sub UserForm_Initialize()
    Dim arr, i&, j&
    arr = Sheet3.Range("A1:E10")
    Me.ListView1.View = lvwReport  '报表格式
    Me.ListView1.Gridlines = True    '网格线
    Me.ListView1.CheckBoxes = True    '显示复选框
    Me.ListView1.FullRowSelect = True    '整行选择
    Me.ListView1.MultiSelect = True    '多项选项
    For i = 1 To UBound(arr, 2)
        Me.ListView1.ColumnHeaders.Add Text:=arr(1, i)
    Next i
    For i = LBound(arr) + 1 To UBound(arr)
        With Me.ListView1.ListItems.Add(Text:=arr(i, 1))
            For j = LBound(arr, 2) To UBound(arr, 2) - 1
               If j = 3 Or j = 4 Then
                .SubItems(j) = Format(arr(i, j + 1), "##,#,0.00")
               Else
               .SubItems(j) = arr(i, j + 1)
               End If
            Next
        End With
    Next
End Sub

wj2368

motoro 发表于 2019-11-20 16:30
不好意思~可能表达不太好，意思是想修改一下ListView1列度和数据保留2位小数点

列的宽度是那列的，不说是不是都调大