MonthView Control 6.0的完整使用方法是什么？

ziyi5

因为下载激活的日历控件11.0无法使用，所以请教高手：

如何使用Microsoft MonthView Control 6.0 控件的使用方法

希望达到的效果：
1.点击某些单元格（某列也行），后出现控件
2.不点击特定单元格时控件隐藏

自己测试的操作：
直接把一些其他帖子的代码拷贝进去，根本就无法保存，运行时总是提示没有END，什么的。
选择Worksheet，填入内容后需要创建，创建后，在网站中找不到相关的帖子怎样继续操作，自己试了很多遍都无法通过。

[ 本帖最后由 ziyi5 于 2009-1-12 19:02 编辑 ]

ziyi5

通过对论坛中已有帖子的研究，还有很多高手的回复中，终于实验出成功案列了，在这边把详细过程写出来，希望可以帮到和我一样的菜鸟！

ziyi5

视图-->工具栏-->其他-->Microsoft MonthView Control 6.0 (sp4)-->选位置-->日历出现-->鼠标左键双击-->打开代码编辑栏-->输入如下代码：
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
ActiveCell = MonthView1.Value '把选取的日期输入到选取的单元格中
Me.MonthView1.Visible = False  '输入后隐藏月历控件
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next   '错误处理语句,防止代码错误中断程序运行和产生错误提示
If Target.Row = 7 And Target.Column = 3 And Target.Cells.Count = 1 Then '如果选取第7行3(M)列的单元格(日期单元格)并且选取单元格的数量是1个,则
Me.MonthView1.Visible = True '显示月历控件
MonthView1.Top = Target.Offset(0, 1).Top
MonthView1.Left = Target.Offset(0, 1).Left   '月历控件的显示位置和选取单元格的顶部对齐
Else '否则 , 即如果选取的单元格不是第一列或选取了多个单元格
Me.MonthView1.Visible = False  '隐藏月历控件
End If
End Sub


推出设计模式
此时点击7行C列就可以看到日历效果
日历的显示如不满意可以通过设置属性进行修改。

三分之一桶水

我就是菜鸟，跟你学习来了。

ziyi5

能帮到你就好了，一起进步！

xgy0214dxy

学习了，谢谢

xyslzxjf

但保存打开后会出现下图的情况

Colonel16459

xyslzxjf 发表于 2018-3-30 22:45
但保存打开后会出现下图的情况

我也遇到了这样的问题，感觉是自己修改控件大小所致，只好先屏蔽掉修改控件大小的语句。
        With Me.MonthView1
            '.Width = 200
            '.Height = 200
            .Enabled = True
        End With

shuu

xyslzxjf 发表于 2018-3-30 22:45
但保存打开后会出现下图的情况

解决了吗？我也一样的问题。