VSTO 单元格单击事件

troubleren6

我用vs2010创建了一个excel工程,为什么找不到单元格的事件呢,全是workbook和worksheet的.怎么才能添加单元格的事件呢?

wangminbai

本身就没有单元格级事件，只有工作表级、工作簿级和程序级事件

单元格单击不会触发事件，只有双击、右击、选区更改或者内容更改单元格才会触发事件

你可以用SelectionChange（选区更改）事件来看看能不能达到你的效果

troubleren6

我其实想达到的效果是一些单元格里设置链接,然后点击这些单元格的某一个,在打开那个超链接之前,运行一段代码.实在是想不到怎么去实现,真愁人啊

轩辕轼轲

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

End Sub

zyhui1961

轩辕轼轲 发表于 2014-1-13 13:42
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

End Sub

你好！能给一个：双击指定区域（比如H3:k9)单元格才能触发事件的代码吗？谢谢！

qdtzq

zyhui1961 发表于 2023-3-31 09:48
你好！能给一个：双击指定区域（比如H3:k9)单元格才能触发事件的代码吗？谢谢！

在事件程序中指定你想要的区域范围就可以了

zyhui1961

qdtzq 发表于 2023-4-4 10:23
在事件程序中指定你想要的区域范围就可以了

就是不会，讲细点呗，谢谢！

qdtzq

zyhui1961 发表于 2023-4-4 10:29
就是不会，讲细点呗，谢谢！

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Myrng As Range
    Set Myrng = Range("H3:k9")
   
    If Not Intersect(Target, Myrng) Is Nothing Then
        MsgBox "123"
    End If
End Sub


方法很多，此为其中之一吧，献丑

zyhui1961

qdtzq 发表于 2023-4-4 15:55
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Myrng A ...

本人确实太笨！
比如下面的我录制的宏，怎么样才能双击H3:K9单元格，让宏运行呢？
    Range("C5:F20").Select
    Selection.FormulaR1C1 = "333"
    Selection.Copy
    Sheets("Sheet3").Select
    Range("C3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Sheet1").Select

zyhui1961

轩辕轼轲 发表于 2014-1-13 13:42
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

End Sub

比如下面的我录制的宏，怎么样才能双击H3:K9单元格，让宏运行呢？
    Range("C5:F20").Select
    Selection.FormulaR1C1 = "333"
    Selection.Copy
    Sheets("Sheet3").Select
    Range("C3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Sheet1").Select