请问点一下单元格就运行宏怎能样写？单击与双击

nanly

只指定一个单元格，并不是所有单元格点击都会运行宏，比如只C8

nanly

请高手写两句

LangQueS

选择单元区域执行宏
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A4:A9")) Is Nothing Then Call 宏1
End Sub

LangQueS

双击指定单元区域执行宏
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A4:A9")) Is Nothing Then Call  宏1
End Sub

请参考：
★２５９个常用宏★          http://club.excelhome.net/dispbb ... replyID=&skin=0

[ 本帖最后由 LangQueS 于 2008-12-9 03:16 编辑 ]

yuanzhuping

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$C$8" Then

End Sub

nanly

谢谢大家,请问两位版主
  If Target.Address = "$C$8" Then'如果是C8:C2000呢?怎写?

另外请教日期控件的问题,我想在A4:A9点任一个单元格都输入日期,点一个输一个.
Private Sub MonthView1_DateDblClick(ByVal DateDblClicked As Date)
  ActiveCell = MonthView1.Value'这里提示错误
  MonthView1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range) '日期控件显示位置
If Not Application.Intersect(Target, Range("A4:A9")) Is Nothing Then
    'If Target.Row = 1 And Target.Column = 1 Then
       MonthView1.Visible = True
    Else
       MonthView1.Visible = False
    End If
End Sub

6688

If Not Application.Intersect(Target, Range("c8:c2000")) Is Nothing Then

nanly

If Target.Address = "$C$8" Then我是说这一句

qinhang

不错，学习了

shaokui123

厉害，学习了