[已解决]如何实现B列所有点选选择日期，选择完后隐藏控件？

v-cand

如何实现B列所有点选选择日期，选择完后隐藏控件？

最佳答案

月排行榜 / 总排行榜

爱疯

2015-4-20 13:54

If Target.Column = 2 And Target.Count = 1 Then
这句里的2表示第2列，即B列。
改成C列，就改成3。
If Target.Column = 3 And Target.Count = 1 Then

跳转到最佳答案楼层

爱疯

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Me.Calendar1
        If Target.Column = 2 And Target.Row > 1 And Target.Count = 1 Then
            If Target.Offset(0, -1) <> "" Then
                .Left = Target.Offset(0, 1).Left
                .Top = Target.Offset(0, 1).Top
                .Visible = True
            Else
                .Visible = False
            End If
        Else
            .Visible = False
        End If
    End With
End Sub



Private Sub Calendar1_Click()
    ActiveCell = Me.Calendar1.Value
End Sub



加几句代码，来控制日历控件是否显示，和改变控件的位置。
2.rar (13.47 KB, 下载次数: 11)

2015-4-20 10:43 上传

点击文件名下载附件

v-cand

爱疯 发表于 2015-4-20 10:44
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Me.Calendar1
        If Targ ...

如何能让整列的单元格都是这样呢？    求操作全步骤.xiexie

爱疯

整列是哪一列？

v-cand

爱疯 发表于 2015-4-20 12:10
整列是哪一列？

B列， 能不能告诉下我操作步骤呢

爱疯

3.rar (13.26 KB, 下载次数: 5)

2015-4-20 12:44 上传

点击文件名下载附件


照动画中，根据自己的需求改

v-cand

爱疯 发表于 2015-4-20 12:45
照动画中，根据自己的需求改

我还是想问下。下面这段代码中，那个是代表需要设置的列的参数，也就是说修改那些参数可以设置在其他的行列中，假如我要设置在C列，应该修改那些代码？？？



Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Me.Calendar1
        If Target.Column = 2 And Target.Count = 1 Then
            .Left = Target.Offset(0, 1).Left
            .Top = Target.Offset(0, 1).Top
            .Visible = True
        Else
            .Visible = False
        End If
    End With
End Sub
Private Sub Calendar1_Click()
    ActiveCell = Me.Calendar1.Value
End Sub

爱疯

If Target.Column = 2 And Target.Count = 1 Then
这句里的2表示第2列，即B列。
改成C列，就改成3。
If Target.Column = 3 And Target.Count = 1 Then