双击某个单元格，弹出日历，选择日期

xuweibeibei · 发表于 2011-6-22 10:32

按alt+F11调出代码输入界面,先双击左边表格名,在右边复制以下代码:
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
      If Target.Column = 1 Then '这是A列,如果要B列则改为2,其他同理.
         With Calendar1
            If Target <> "" Then
                  .Value = Target
                  Else
                  .Value = Date
            End If
            .Visible = True
            .Top = Target.Top
            .Left = Target.Left
         End With
      Else
         Calendar1.Visible = False
      End If
End If
End Sub

忘高手赐教！是不是代码哪里出了问题！还是我是07的版本导致的！

佛山小老鼠 · 发表于 2011-6-22 10:49

欢迎新朋友的加入，你把你的附件传上来

czyh0907 · 发表于 2011-6-22 10:50

donaldchen · 发表于 2011-6-22 11:00

高人阿，会用vba., 我看不懂得说。。。

xuweibeibei · 发表于 2011-6-22 11:12

谢谢大家帮我回答！问题就是我帖子的附件里的图片那样！

佛山小老鼠 · 发表于 2011-6-22 12:53

关注中，我调试没有找到这个Calendar1

356468826 · 发表于 2011-6-22 13:59

这个不是插入 DTPicker这个吗=。=？

xuweibeibei · 发表于 2011-6-22 14:34

我现在想知道杂弄！急！！！！！！谢谢！！！！

佛山小老鼠 · 发表于 2011-6-23 00:52

呵呵，终于搞定了，请楼主验证，效果在附件里

佛山小老鼠 · 发表于 2011-6-23 01:21

把光标选中A
然后选择一个日期，在2003版里没有问题，
怎么在2010版里，选择了日期，却不显示，纠结中。。。。。
代码效果在附件中

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

[求助] 双击某个单元格，弹出日历，选择日期

高手们帮我解决下啊！我始终放进去没用！

那我现在应该怎么弄？