[求助]观看新春视频教程之VBA实战技巧，控件输入时间不懂之处。

lgt188

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
   If Target.Column = 3 Then
With Me.DTPicker1
If Target <> "" Then
.Value = Target
End If
.Visible = True
.Top = Target.Top
.Left = Target.Left
Application.EnableEvents = False
ActiveCell.Value = Me.DTPicker1.Value
End With
Else
Me.DTPicker1.Visible = False
End If
End If
End Sub
上面是开年的时候下载的视频教程，VBA里的第二集中关于利用控件实现友好输入时间。

我想让时间只在C4单元格里，但上面红色字体是把它定位在C列里了，我也不会改成只在C4单元格，请帮助一下，我是一步一步照着教程写下来的，看不懂英文，谢谢了！

lgt188

是不是太简单了，没人告诉我。

哎！

Aeolian-Vox

 If Target.Address="$C$4"  Then

lgt188

 谢谢 啦!

lgt188

QUOTE:

以下是引用Aeolian-Vox在2007-5-31 16:26:12的发言：
 If Target.Address="$C$4"  Then

不行呢,咋回事呢.

GgFUMsBh.rar (10.57 KB, 下载次数: 14)

2007-6-1 08:29 上传

点击文件名下载附件

[此贴子已经被作者于2007-6-1 8:30:02编辑过]

Aeolian-Vox

QUOTE:

以下是引用lgt188在2007-6-1 8:27:23的发言：

不行呢,咋回事呢.

注意大小写的问题。另外    Application.EnableEvents = False语句的成对性和位置。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Count = 1 Then
        If Target.Address = "$C$4" Then
            With Me.DTPicker1
                If Target <> "" Then
                    .Value = Target
                End If
                .Visible = True
                .Top = Target.Top
                .Left = Target.Left
                ActiveCell.Value = Me.DTPicker1.Value
            End With
        Else
            Me.DTPicker1.Visible = False
        End If
    End If
    Application.EnableEvents = True
End Sub