office 2016没有日历控件，DIY 日历窗体

wj2368

aideng0507 发表于 2019-11-9 16:47
别沉下去了，帮帮忙啊！有没有高手来指导一下，太难了

用自己注册的日历插件，MSCOMCT2.OCX（网上有下载）

aideng0507

lss001 发表于 2019-11-13 09:00
日历窗体各个日期控件中加入单击事件，单击事件写入退出与赋值！！！

搞不明白怎么弄，日历窗体代码如下：
Private Sub UserForm_Initialize() 'ComboBox1.Value  '?'ComboBox2.Value  '?
    On Error Resume Next
    WEE = Weekday(ComboBox1.Value & "-" & ComboBox2.Value & "-1", vbSunday)
    If WEE = 1 Then
        dsta = DateSerial(ComboBox1.Value, ComboBox2.Value, 1) - 7
    Else
        dsta = DateSerial(ComboBox1.Value, ComboBox2.Value, 1) - WEE + 1
    End If
   
    rs = 1: cs = 1
    For rs = 1 To 6
        For cs = 1 To 7
            With Me.Controls("d" & rs & cs)
                .Caption = Day(dsta + (rs - 1) * 7 + cs - 1)
                .BackColor = &H8000000F
                .ForeColor = &H0&
                If Weekday(dsta + (rs - 1) * 7 + cs - 1) = 1 Or Weekday(dsta + (rs - 1) * 7 + cs - 1) = 7 Then
                    .ForeColor = &HFF&
                End If
                If rs = 1 And .Caption > 10 Then '??????????
                    .ForeColor = &HC0C0C0
                ElseIf rs >= 5 And .Caption < 15 Then
                    .ForeColor = &HC0C0C0
                End If
                If Day(dsta + (rs - 1) * 7 + cs - 1) = Day(Now()) And Month(dsta + (rs - 1) * 7 + cs - 1) = Month(Now()) Then '??????????
                .BackColor = &HFFFF&
                End If
            End With
        Next
    Next
End Sub
Private Sub SpinButton1_SpinDown()
ComboBox1.Value = ComboBox1.Value - 1
End Sub
Private Sub SpinButton1_SpinUp()
ComboBox1.Value = ComboBox1.Value + 1
End Sub
Private Sub SpinButton2_SpinDown()
If ComboBox2.Value = 1 Then
ComboBox1.Value = ComboBox1.Value - 1
ComboBox2.Value = 12
Else
ComboBox2.Value = ComboBox2.Value - 1
End If
End Sub
Private Sub SpinButton2_SpinUp()
If ComboBox2.Value = 12 Then
ComboBox1.Value = ComboBox1.Value + 1
ComboBox2.Value = 1
Else
ComboBox2.Value = ComboBox2.Value + 1
End If
End Sub
Private Sub ComboBox1_Change()
    UserForm_Initialize
    Label4.Caption = ComboBox1.Value
End Sub
Private Sub ComboBox2_Change()
    UserForm_Initialize
    Label6.Caption = ComboBox2.Value
End Sub
Private Sub CommandButton1_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    'With ActiveSheet
    'Call lk.lsh(.Name, 1)
   
    dvuu = DateSerial(ComboBox1.Value, ComboBox2.Value + MBUU, DBUU) '???
   
    ActiveCell.Value = DateSerial(ComboBox1.Value, ComboBox2.Value + MBUU, DBUU) + TimeSerial(Hour(Now()), Minute(Now()), Second(Now()))
    'Call lk.lsh(.Name, 2)
    'End With
End Sub
Private Sub d11_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d11.Caption
    MBUU = IIf(DBUU > 10, -1, 0)
    CommandButton1_Click
End Sub

Private Sub d12_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d12.Caption
    MBUU = IIf(DBUU > 10, -1, 0)
    CommandButton1_Click
End Sub

Private Sub d13_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d13.Caption
    MBUU = IIf(DBUU > 10, -1, 0)
    CommandButton1_Click
End Sub

Private Sub d14_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d14.Caption
    MBUU = IIf(DBUU > 10, -1, 0)
    CommandButton1_Click
End Sub

Private Sub d15_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d15.Caption
    MBUU = IIf(DBUU > 10, -1, 0)
    CommandButton1_Click
End Sub

Private Sub d16_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d16.Caption
    MBUU = IIf(DBUU > 10, -1, 0)
    CommandButton1_Click
End Sub

Private Sub d17_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d17.Caption
    MBUU = IIf(DBUU > 10, -1, 0)
    CommandButton1_Click
End Sub
Private Sub d21_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d21.Caption
    MBUU = 0
    CommandButton1_Click
End Sub

Private Sub d22_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d22.Caption
    MBUU = 0
    CommandButton1_Click
End Sub

Private Sub d23_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d23.Caption
    MBUU = 0
    CommandButton1_Click
End Sub

Private Sub d24_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d24.Caption
    MBUU = 0
    CommandButton1_Click
End Sub

Private Sub d25_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d25.Caption
    MBUU = 0
    CommandButton1_Click
End Sub

Private Sub d26_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d26.Caption
    MBUU = 0
    CommandButton1_Click
End Sub

Private Sub d27_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d27.Caption
    MBUU = 0
    CommandButton1_Click
End Sub
Private Sub d31_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d31.Caption
    MBUU = 0
    CommandButton1_Click
End Sub

Private Sub d32_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d32.Caption
    MBUU = 0
    CommandButton1_Click
End Sub

aideng0507

aideng0507 发表于 2019-11-13 11:16
搞不明白怎么弄，日历窗体代码如下：
Private Sub UserForm_Initialize() 'ComboBox1.Value  '?'ComboBo ...

Private Sub d33_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d33.Caption
    MBUU = 0
    CommandButton1_Click
End Sub

Private Sub d34_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d34.Caption
    MBUU = 0
    CommandButton1_Click
End Sub

Private Sub d35_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d35.Caption
    MBUU = 0
    CommandButton1_Click
End Sub

Private Sub d36_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d36.Caption
    MBUU = 0
    CommandButton1_Click
End Sub

Private Sub d37_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d37.Caption
    MBUU = 0
    CommandButton1_Click
End Sub
Private Sub d41_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d41.Caption
    MBUU = 0
    CommandButton1_Click
End Sub

Private Sub d42_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d42.Caption
    MBUU = 0
    CommandButton1_Click
End Sub

Private Sub d43_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d43.Caption
    MBUU = 0
    CommandButton1_Click
End Sub

Private Sub d44_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d44.Caption
    MBUU = 0
    CommandButton1_Click
End Sub

Private Sub d45_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d45.Caption
    MBUU = 0
    CommandButton1_Click
End Sub

Private Sub d46_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d46.Caption
    MBUU = 0
    CommandButton1_Click
End Sub

Private Sub d47_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d47.Caption
    MBUU = 0
    CommandButton1_Click
End Sub
Private Sub d51_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d51.Caption
    MBUU = IIf(DBUU < 15, 1, 0)
    CommandButton1_Click
End Sub

Private Sub d52_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d52.Caption
    MBUU = IIf(DBUU < 15, 1, 0)
    CommandButton1_Click
End Sub

Private Sub d53_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d53.Caption
    MBUU = IIf(DBUU < 15, 1, 0)
    CommandButton1_Click
End Sub

Private Sub d54_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d54.Caption
    MBUU = IIf(DBUU < 15, 1, 0)
    CommandButton1_Click
End Sub

Private Sub d55_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d55.Caption
    MBUU = IIf(DBUU < 15, 1, 0)
    CommandButton1_Click
End Sub

Private Sub d56_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d56.Caption
    MBUU = IIf(DBUU < 15, 1, 0)
    CommandButton1_Click
End Sub

Private Sub d57_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d57.Caption
    MBUU = IIf(DBUU < 15, 1, 0)
    CommandButton1_Click
End Sub
Private Sub d61_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d61.Caption
    MBUU = IIf(DBUU < 15, 1, 0)
    CommandButton1_Click
End Sub

Private Sub d62_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d62.Caption
    MBUU = IIf(DBUU < 15, 1, 0)
    CommandButton1_Click
End Sub

Private Sub d63_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d63.Caption
    MBUU = IIf(DBUU < 15, 1, 0)
    CommandButton1_Click
End Sub

Private Sub d64_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d64.Caption
    MBUU = IIf(DBUU < 15, 1, 0)
    CommandButton1_Click
End Sub

Private Sub d65_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d65.Caption
    MBUU = IIf(DBUU < 15, 1, 0)
    CommandButton1_Click
End Sub

Private Sub d66_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d66.Caption
    MBUU = IIf(DBUU < 15, 1, 0)
    CommandButton1_Click
End Sub

Private Sub d67_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    DBUU = d67.Caption
    MBUU = IIf(DBUU < 15, 1, 0)
    CommandButton1_Click
End Sub
Private Sub UserForm_Activate()
    ComboBox1.Value = Year(Now())
    ComboBox2.Value = Month(Now())
    UserForm_Initialize
End Sub
Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    ComboBox1.Value = Year(Now())
    ComboBox2.Value = Month(Now())
    UserForm_Initialize
End Sub

Private Sub CommandButton2_Click()
Unload rili
UserForm1.TextBox1.Value = Format(Date, "yyyy/dd/mm")
    ComboBox1.Value = Year(Now())
    ComboBox2.Value = Month(Now())
    UserForm_Initialize
End Sub

aideng0507

wj2368 发表于 2019-11-13 10:05
用自己注册的日历插件，MSCOMCT2.OCX（网上有下载）

谢谢，但是公司电脑有限制了，弄不了，不然我也不会这么折腾了，为了这个熬了好几个夜晚，掉了好多头发

lss001

~\(≧▽≦)/~~\(≧▽≦)/~

aideng0507

lss001 发表于 2019-11-13 13:57
交换一下位置即可，举例如下→
Private Sub CommandButton2_Click()
    ComboBox1.Value = Year(Now())
...

还是有问题，这样改了之后，把值给到单元格内了，没有给到textbox1内,而且是年/月/日 时:分的格式。
看来这段代码没起作用--> userform1.textbox1.value=format(date,"yyyy/dd/mm"

lss001

aideng0507

lss001 发表于 2019-11-13 16:20
楼上只是举例，其中Date要根据实际单击事件填写(比如您单击的是1号，那么Date就应改为xxxxxx01,其中xxxxx ...

我要崩溃了
能不能帮我写出来啊，太难弄了

wj2368

aideng0507 发表于 2019-11-13 11:28
谢谢，但是公司电脑有限制了，弄不了，不然我也不会这么折腾了，为了这个熬了好几个夜晚，掉了好多头发 : ...

重新给你做了一个

aideng0507

wj2368 发表于 2019-11-14 08:59
重新给你做了一个

非常非常感谢，这个满足了我的所有要求。
真的是太厉害了，人也特别好，谢谢。