[求助]利用日期控件输入时间。

yanziming

大家好,请大家帮我个忙///帮我弄个时间控件

要求

在送检时间(H)和完成时间(J)

上实现时间控件

在线等待

Wn5vUsfx.rar (3.03 KB, 下载次数: 70)

2008-5-7 11:47 上传

点击文件名下载附件
[求助]大家好,请大家帮我个忙///帮我弄个时间控件

[此贴子已经被作者于2008-5-7 11:47:42编辑过]

wangleng_999

以下程序复制到另外一个工作表VB 下,运行到此句"Calendar1.Visible = True"时,会出现警告对话框:程序"运行时错误'424'  要求对象".
再有就是仅要求C2单元格输入日期,结果点击了D6单元格,再点击C2单元格时点击日期后,D6单元格输入日期,而C2单元格没有输入日期.还有时候日期控件停在那里不动.不知是否你可以更正以上缺点与否.谢谢!附原程序如下:
Private Sub Calendar1_Click()
    Selection = Calendar1.Value
    Calendar1.Visible = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ActiveCell
    If .Address = "$C$2" Or .Address = "$E$10" Or .Address = "$F$7" Or .Address = "$F$10" Then '
    Calendar1.Visible = True
    Calendar1.Top = .Offset(0, 1).Top
    Calendar1.Left = .Offset(0, 1).Left
        
    If .Value = "" Then
    Calendar1.Value = Date
    Else
    Calendar1.Value = .Value
    End If
   
    End If
    End With
End Sub

[ 本帖最后由 wangleng_999 于 2009-10-22 13:57 编辑 ]