[已解决]VB做日历控件问题

flytoday · 发表于 2011-8-6 20:23

Private Sub Calendar1_Click()

ActiveCell = Calendar1.Value '把选取的日期输入到选取的单元格中

Me.Calendar1.Visible = False
'输入后隐藏日期控件

End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
'错误处理语句,防止代码错误中断程序运行和产生错误提示
If Target.Column = 2 Or Target.Address = "$D$5" Or Target.Row = 3 Then
Me.Calendar1.Visible = True '显示日期控件
Me.Calendar1.Top = ActiveCell.Top
'日期控件的显示位置和选取单元格的顶部对齐
Else '否则 , 即如果选取的单元格不是第一列或选取了多个单元格
Me.Calendar1.Visible = False
'隐藏日期控件
End If
End Sub
如上是兰版写的在D5格显示日历的代码....
偶菜菜鸟谁教偶下谢谢
第一种是:在指定D5,D6,H5,J7指定格中显示日历要怎么改啊....
第二种是:偶要在B列整列显示日历..
第三种是:偶要在B.F列中显示日历..

谁知道的烦请弄下谢谢了..偶真搞不懂太难了

最佳答案

月排行榜 / 总排行榜

爱疯

2011-8-7 13:13

本帖最后由爱疯于 2011-8-7 13:16 编辑

flytoday 发表于 2011-8-7 12:33
偶中是要求
第一种是:在指定D5,D6,H5,J7指定格中点击下显示日历要怎么改啊....
第二种是:偶要在B列整列显 ...

Book1b.rar (13.92 KB, 下载次数: 120)

爱疯 · 发表于 2011-8-6 20:41

没看明白题意。
不知这个有用么：http://www.excelpx.com/thread-190215-1-1.html

flytoday · 发表于 2011-8-7 12:33

偶中是要求
第一种是:在指定D5,D6,H5,J7指定格中点击下显示日历要怎么改啊....
第二种是:偶要在B列整列显示日历..

爱疯 · 发表于 2011-8-7 13:13

本帖最后由爱疯于 2011-8-7 13:16 编辑

flytoday 发表于 2011-8-7 12:33
偶中是要求
第一种是:在指定D5,D6,H5,J7指定格中点击下显示日历要怎么改啊....
第二种是:偶要在B列整列显 ...

Book1b.rar (13.92 KB, 下载次数: 120)

flytoday · 发表于 2011-8-7 19:46

本帖最后由 flytoday 于 2011-8-7 21:53 编辑

超好哈谢谢。。。这里论坛大侠们超热心.谢谢

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