双击某个单元格，弹出日历，选择日期

简七

自己做的日期选择器

zyhui1961

佛山小老鼠 发表于 2011-6-24 11:57
2007和2010这个控件不生效，控件是出现在单元格里，但就是你选择了日期，当你把光标定位的别的单元格时，输 ...

给个双击E6:J8单元格触发事件的代码呗，谢谢！

opiona

参考一下:

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Rem 单个单元格  不是合并的, 不是多选的单元格区域
   
3.     If Target.Rows.Count = 1 And Target.Columns.Count = 1 Then
   
4.         rem  判断一个单元格或区域 是否和另一个区域重叠
   
5.         If Not Application.Intersect(Range("E6:J8"), Target) Is Nothing Then
   
6.             MsgBox Target.Address
   
7.         End If
   
8.     End If
   
9. End Sub

复制代码