发布网友
共2个回答
热心网友
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Target.column=4 Then ‘在D列
写入你要做的事件
End If
End Sub追问要做的事,我都举列了,你就写全吧.就是把sheet1A1中的内容(是一个公式),复制到选中的D列单元格中,即可.
追答Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Column = 4 Then
Target.Formula = Sheet1.Cells(1, 1).Formula
End If
End Sub
热心网友
这个要用到vba追问知道是VBA,请写代码.针对D列任一单元格选中,就在这个单元格输入一个公式.比如,选中D5这个单元格,就把另外一个表如sheet1中的A1公式粘贴到这个格内就行了.