列表框显示的问题！

yepldu · 发表于 2018-9-12 20:44

求助，请问为什么点击“显示摊销表”后显示的窗体中，“月供”和“双周供”数据是一样的？本来两列应该是不一样的，数据源是E4：G60。希望大家能帮忙解决！

humengqiang · 发表于 2018-9-12 21:16

你的代码写错了，这样改就可以了
Private Sub UserForm_Initialize()
Dim brr
arr = Sheet1.Range("E11:G" & Sheet1.Range("E65536").End(xlUp).Row)
For i = 1 To UBound(arr)
arr(i, 2) = Round(arr(i, 2), 2): arr(i, 3) = Round(arr(i, 3), 2)
Next i
With ListBox1
   .Clear
   .ColumnCount = 6
   .ColumnWidths = "75,75,75"
   .List = arr
End With
End Sub

yepldu · 发表于 2018-9-12 22:03

humengqiang 发表于 2018-9-12 21:16
你的代码写错了，这样改就可以了
Private Sub UserForm_Initialize()
Dim brr

请问代码是直接输到按钮的宏里面吗？
其实我不懂代码= =
如果可以的话可以帮我做一下吗跪谢

yepldu · 发表于 2018-9-12 22:29

yepldu 发表于 2018-9-12 22:03
请问代码是直接输到按钮的宏里面吗？
其实我不懂代码= =
如果可以的话可以帮我做一下吗跪谢

用您的代码编辑按钮的宏后，运行报错424 “要求的对象”

humengqiang · 发表于 2018-9-13 22:15

看看附件，里面写好了代码，测算没问题

		自动登录	找回密码
密码			免费注册

[求助] 列表框显示的问题！