请各位老师设置窗体取数问题

小星光 · 发表于 2023-4-12 17:18

请各位老师设置窗体取数问题

3190496160 · 发表于 2023-4-12 18:13

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Dim ar As Variant
Dim d As Object, dc As Object
Set d = CreateObject("scripting.dictionary")
Set dc = CreateObject("scripting.dictionary")
With Sheets("收入登记表")
r = .Cells(Rows.Count, 2).End(xlUp).Row
y = .Cells(1, Columns.Count).End(xlToLeft).Column
If r < 2 Then MsgBox "收入登记表为空！": End
If y < 14 Then MsgBox "收入登记表年月为空！": End
ar = .Range("b2:b" & r)
br = .Range(.Cells(1, 14), .Cells(1, y))
End With
For i = 2 To UBound(ar)
If Trim(ar(i, 1)) <> "" Then
      d(Trim(ar(i, 1))) = ""
End If
Next i
For j = 1 To UBound(br, 2)
If Trim(br(1, j)) <> "" Then
      zd = Format(br(1, j), "yyyy年m月")
      dc(zd) = ""
End If
Next j
Me.Cmb户省.List = d.keys
Me.Cmb户市.List = dc.keys
Set d = Nothing
Set dc = Nothing
End Sub

3190496160 · 发表于 2023-4-12 18:14

只做了菜单的代码，供参考

收入登记表.rar (17.31 KB, 下载次数: 15)

小星光 · 发表于 2023-4-12 18:36

3190496160 发表于 2023-4-12 18:14
只做了菜单的代码，供参考

大师您好：期初金额和期末余额不会显示,最后的期末数也不会导出来,请您帮我再看看。

3190496160 · 发表于 2023-4-12 21:31

小星光发表于 2023-4-12 18:36
大师您好：期初金额和期末余额不会显示,最后的期末数也不会导出来,请您帮我再看看。

3楼就跟你说了，只做了菜单的代码，其他的，等明天有时间再看看吧

小星光 · 发表于 2023-4-12 22:29

3190496160 发表于 2023-4-12 21:31
3楼就跟你说了，只做了菜单的代码，其他的，等明天有时间再看看吧

好的谢谢您大师

xunanming · 发表于 2023-4-13 02:39

请参考------------------------------

小星光 · 发表于 2023-4-13 07:31

xunanming 发表于 2023-4-13 02:39
请参考------------------------------

xunanming老师：高手！

小星光 · 发表于 2023-4-13 08:12

小星光发表于 2023-4-13 07:31
xunanming老师：高手！

xunanming老师你好：当我的数据超过38行的时候窗体就出现问题。

tanglf188 · 发表于 2023-4-13 09:55

报错是dic(arr(1, j)) = j时下标越界了，代码看不出啥问题，初始化时跳过错误试试吧
Private Sub UserForm_Initialize()
On Error Resume Next

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

[求助] 请各位老师设置窗体取数问题