关于日历控件代入文本框后常亮的问题

二号麦的自白

我这个已经能选择日历并填入了，但是有个小问题。
选择目标单元格时，日历控件会出现，选择其他单元格时，控件就会隐藏。
而文本框不一样，点击后，如果不选择日期，控件就会常亮，会遮挡到原本文本框的内容。能不能也像单元格那样，不选就隐藏。
我不想做出向下偏移，或者直接放置到下边一点位置这种。
还有单元格也是只有在选择其他单元格时才会隐藏，如果选择文本框或其他输入型控件，或插件时也不会隐藏。

有大佬给改一下吗。
日历问题.rar (24.17 KB, 下载次数: 11)

2018-7-28 09:22 上传

点击文件名下载附件

一把小刀闯天下

Option Explicit

Dim rng

Private Sub DTPicker1_Click()
  Range("C1") = DTPicker1.Value
  rng = DTPicker1.Value
  DTPicker1.Visible = False
End Sub

Private Sub TextBox1_Change()
  DTPicker2.Visible = False
End Sub

Private Sub TextBox1_GotFocus()
  With DTPicker2
    .Value = IIf(rng <> "", rng, Date)
    .Visible = True
    .Top = TextBox1.Top + TextBox1.Height
    .Left = TextBox1.Left
  End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  With DTPicker1
    If Target.Address = "$C$1" Then
      .Visible = True
      .Top = Cells(Target.Row + 1, 1).Top
      .Left = Target.Left
    Else
      .Visible = False
    End If
  End With
  DTPicker2.Visible = False
End Sub

Private Sub DTPicker2_Click()
    TextBox1.Text = DTPicker2.Value
    DTPicker2.Visible = False
End Sub

Private Sub UserForm_Initialize()
  DTPicker2.Visible = False
End Sub

二号麦的自白

一把小刀闯天下 发表于 2018-7-28 11:55
Option Explicit

Dim rng

还有一个问题，现在是在工作表内进行选择修改只要不是C1单元格就可以隐藏 ，能不能改成选择目标不为C1或Textbox1时就隐藏，就是当我选择textbox2,或者按下其他按钮控件也可以隐藏。只要进行了目标不是C1或textbox1的操作时就隐藏。

一把小刀闯天下

二号麦的自白 发表于 2018-7-28 16:09
还有一个问题，现在是在工作表内进行选择修改只要不是C1单元格就可以隐藏 ，能不能改成选择目标不为C1或T ...

这不是问题而是你新增的一个条件，可定义2个类型为boolean的public变量然后取and就可以判断了（或者模块级变量），自己试一下

很奇怪你为什么要用2个DTPicker控件，纯属简单问题复杂化，这样玩很开心是吧

二号麦的自白

一把小刀闯天下 发表于 2018-7-28 16:21
这不是问题而是你新增的一个条件，可定义2个类型为boolean的public变量然后取and就可以判断了（或者模块 ...

emmmmmm，我刚才没说清楚，我有可能需要多个文本框都进行日历选择，但是又不会做选择检查，所以只能分开做，变量我还不太会，能简单说一下吗？
萌新瑟瑟发抖