书中关于vba日历控件的问题[已解决]

myperworld

刚刚开始研究vba，研究了《excel实战精粹》这本书中关于vba日历控件安装的实例。发现有些问题。请版主帮忙看看。

问题：1。在每次点击日历后，日历不消失。

2.点击的日历时间不在本单元格实现，而在下次点击的单元格中实现。

'sheet1中的代码
 Private Sub calendar1_CloseUp()
    Application.EnableEvents = False
    ActiveCell.Value = Calendar1.Value
    Calendar1.Visible = False
    Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        If Target.Column = 3 And Target = "" Then
            Calendar1.Visible = False
        End If
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then
        If Target.Column = 3 Then
            With Calendar1
                If Target <> "" Then
                    .Value = Target
                End If
                .Visible = True
                .Top = Target.Top
                .Left = Target.Left
                Application.EnableEvents = False
                ActiveCell.Value = Calendar1.Value
                Application.EnableEvents = True
            End With
        Else
            Calendar1.Visible = False
        End If
    End If
End Sub

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

'thisworkbook中的代码
Private Sub workbook_open()
With Sheet1.Calendar1
.Height = Sheet1.Cells(1, 3).Height + 100
.Width = Sheet1.Cells(1, 3).Width + 70
.Visible = False
End With
End Sub

d6pwdZGD.rar (12.14 KB, 下载次数: 314)

2007-7-8 18:46 上传

点击文件名下载附件
excel实战精粹 书中关于vba日历控件的问题？？怎么解决？

[此贴子已经被gouweicao78于2007-7-12 18:28:28编辑过]

TGB

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
       With Me.Calendar1
        If Target.Column = 3 Then
            .Top = Target.Top + Target.Height
            .Left = Target.Left
            .Visible = True
         Else
             .Visible = False
        End If
        End With '
    End If
End Sub

myperworld

为什么系统弹出"方法和数据成员未找到！"

taller

楼上使用的不是《精粹》书中所说的Microsoft Date and Time Picker Control,而是Calendar Control，这两个控件的事件不完全相同，如果使用这个控件，应该改用下面的事件

Private Sub Calendar1_Click()
    Application.EnableEvents = False
    ActiveCell.Value = Calendar1.Value
    Calendar1.Visible = False
    Application.EnableEvents = True
End Sub

myperworld

原来这样，明白了。谢谢taller，还有TGB.关于为什么系统弹出"方法和数据成员未找到！"，这是因为要在sheet1中先加载Calendar Control。

两种加载日历控件的方法都知道了。

阿拉伯

呵呵，学习了，谢谢啊

pubuflash

很好的

每当我上论坛时，有时会出现“你的IP被我盯上了，下面还有IP地址”

论坛有这个权限吧！

a131

真是太感谢了。我收下了

taller

QUOTE:

以下是引用pubuflash在2007-7-16 15:26:53的发言：

很好的

每当我上论坛时，有时会出现“你的IP被我盯上了，下面还有IP地址”

论坛有这个权限吧！

那是某些会员的签名档，和论坛无关

michaelxuyj

我在那里可以找到在XLS 2003中使用的日历控件？