[求助]关于日历控件使用的几个问题

summer54

1.此帖http://www.excelpx.com/dispbbs.asp?BoardID=5&replyID=87660&id=24468&skin=0

其中兰色幻想版主给出的解决方法中加了一句MM=1不懂是什么意思.

2.针对上面帖子里的附件,发现使用日历控件过程中,在某一单元格中添加日期后,下面的单元格就不能添加相同的日期了

请教解决方案..

谢谢大家

ldy

这样处理更合理一些，当剪切复制模式无效时，才执行后面的语句

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode <> 0 Then Exit Sub
With Target
     If Target.Column = 7 And Target.Row > 1 Then
        Calendar1.Top = Target.Top + Target.Height
        Calendar1.Left = Target.Left + Target.Width
        Calendar1.Value = ActiveCell.Value
        Calendar1.Visible = True
    ElseIf Target.Column <> 7 Then
        Calendar1.Visible = False
    End If
End With
End Sub

hhzjxss

QUOTE:

以下是引用ldy在2007-8-23 10:47:26的发言：

这样处理更合理一些，当剪切复制模式无效时，才执行后面的语句

 

好象还是不能重复加入日期！

ldy

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode <> 0 Then Exit Sub
With Target
     If Target.Column = 7 And Target.Row > 1 Then
        Calendar1.Top = Target.Top + Target.Height
        Calendar1.Left = Target.Left + Target.Width
        Calendar1.Value = ActiveCell.Value
        Calendar1.Visible = True
    ElseIf Target.Column <> 7 Then
        Calendar1.Visible = False
    End If
End With

Application.CutCopyMode = 0 '此句可选

End Sub

ldy

QUOTE:

以下是引用hhzjxss在2007-8-23 10:53:53的发言：

QUOTE:

以下是引用ldy在2007-8-23 10:47:26的发言：

这样处理更合理一些，当剪切复制模式无效时，才执行后面的语句

 

好象还是不能重复加入日期！

呵呵没看清题意

好象还是不能重复加入日期！

  Calendar1.Value = ActiveCell.Value  ----〉去掉这一句就好了

上东阳光

哦，还没注意到这点

ldy

如果想保留 原来的功能 并添加对空单元格显示当天的日期

Calendar1.Value = ActiveCell.Value  这一句要添加判断

绿色部分可选

If IsDate(ActiveCell.Value) Then Calendar1.Value = ActiveCell.Value Else Calendar1.Value = Date

summer54

谢谢楼上几位,我去试试

summer54

QUOTE:

以下是引用ldy在2007-8-23 11:13:04的发言：

QUOTE:

以下是引用hhzjxss在2007-8-23 10:53:53的发言：

QUOTE:

以下是引用ldy在2007-8-23 10:47:26的发言：

这样处理更合理一些，当剪切复制模式无效时，才执行后面的语句

 

好象还是不能重复加入日期！

呵呵没看清题意

好象还是不能重复加入日期！

  Calendar1.Value = ActiveCell.Value  ----〉去掉这一句就好了

为什么去掉那一句就没问题了.能简单说下机理吗?

ldy

If IsDate(ActiveCell.Value) Then Calendar1.Value = ActiveCell.Value Else Calendar1.Value = Date

这一句代码就说明问题了。

具体原理一下也说不明白，要了解具体原因就要找这个控件的开发人 微软 了

我的理解：

当ActiveCell 为空时 ActiveCell.Value 就是 "" 零长度的字符串

而Calendar1的值是 date 型数据，这是就产生一个错误，当前的日期按钮被锁住了

点击它 就像点击其他 位置一样 Calendar1返回一个  "" 零长度的字符串