我们如何在没有 MSCOMCT2.OCX 文件的情况下使用 datepicker？答案

【问题标题】：How can we use datepicker without MSCOMCT2.OCX file?我们如何在没有 MSCOMCT2.OCX 文件的情况下使用 datepicker？
【发布时间】：2021-01-22 23:34:42
【问题描述】：

我开发了一个 Excel 应用程序来计算员工缺勤情况。
我创建了一个用户表单（日历），它用作日期选择器来指定单元格中的日期（“I32”）。

为了在家中进行这项工作，我下载了 MSCOMCT2.OCX 并将该 OCX 粘贴到 system32 中进行注册。

在办公室，用户窗体不起作用，因为办公室没有 Microsoft MonthView 控件的选项。
我试图复制 MSCOMCT2.OCX 进行注册。没有管理员密码，系统不允许我这样做。

如何绕过 MSCOMCT2.OCX？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     
    If Not Intersect(Target, Range("I2")) Is Nothing Then Calendar.Show
     
    If Target.Column = 3 Or Target.Column = 4 Or Target.Column = 5 Or Target.Column = 6 Or Target.Column = 7 Then
        If Target.Row = 14 Or Target.Row = 24 Or Target.Row = 34 Or Target.Row = 44 Then
            Beep
            Cells(Target.Row, Target.Column).Offset(0, 1).Select
        End If
     End If
    
End Sub

【问题讨论】：

This might help

标签： excel vba

【解决方案1】：

讨厌你没有管理权限。我猜第 3 方控件是不可能的，它们必须“安装”、“注册”等......

需要一些编码的解决方法是使用表单和 vba 创建您自己的日历控件。您可以为点击操作使用按钮或标签。

If Not Intersect(Target, Range("I2")) Is Nothing Then MyCalendarForm.Show

否则，你就得给“管理员”买杯咖啡了……

HTH

【讨论】：