解决了，谢谢论坛。

MDX680 · 发表于 2020-1-13 21:33

本帖最后由 MDX680 于 2020-1-13 22:04 编辑

解决了，谢谢论坛。

MDX680 · 发表于 2020-1-13 21:52

顶上去，谁来帮帮我。

abc123281 · 发表于 2020-1-13 22:11

'添加年列表
Set conComboBox = Me.Controls.Add("Forms.ComboBox.1", "ComboBoxYear")
With conComboBox
      For i = 1900 To 2999
         .AddItem i
      Next
     .ListRows = 12
      .Left = 25
      .Width = 60
      .Height = 18
   .Value = Year(myDate) - 5
      .Font.Size = 12
      .ListWidth = 60
      .ColumnWidths = 18
      .Style = fmStyleDropDownList
End With
clsDC.ReceiveComboBox conComboBox
co.Add clsDC
Set clsDC = Nothing

'添加年列表右按钮

abc123281 · 发表于 2020-1-13 22:13

求助123.rar (32.97 KB, 下载次数: 4)

YZC51 · 发表于 2020-1-14 08:40

本帖最后由 YZC51 于 2020-1-14 09:47 编辑

楼主不要这样，解决问题后请不要删除求助内容，可以方便他人需要参考。
如果附件不方便，可以用模拟数据替代！

YZC51 · 发表于 2020-1-14 09:41

请参考
Public yyy

'窗体加载
Private Sub UserForm_Initialize()
With Me
.Width = 222 '窗体总宽
End With
AddHead Date
AddLabel_Week
' AddLabel_Day Date
AddLabel_Day DateSerial(yyy, 1, 1) 'Date
Me.Controls("ComboBoxYear").SetFocus
End Sub

YZC51 · 发表于 2020-1-14 09:46

请参考

窗体日期求助.rar (34.27 KB, 下载次数: 1)

YZC51 · 发表于 2020-1-14 15:30

楼主以后改了就好，这次还请领导就别处置了！下不为例！谢谢版主！

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

[求助] 解决了，谢谢论坛。

点评

评分

评分

点评

评分

评分

最新热点 /1