|
|
发表于 2018-11-22 18:07
来自手机
|显示全部楼层
此文章由 yuankiki 原创或转贴，不代表本站立场和观点，版权归 oursteps.com.au 和作者 yuankiki 所有！转贴必须注明作者、出处和本声明，并保持内容完整
5
6
7
8
9
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
If Not Intersect(Target, Range("D4")) Is Nothing Then
Call MyMacro
End If
End If
End Sub
1. In the code, D4 is the cell you will click to run Macro;
2. Please replace the code name MyMacro with the Macro you will run in the worksheet.
——source from Google. 网上大把例子，google一下就有了 |
|
【全部更新完】2019年九日纽约华盛顿自由行 (2019-8-29) lotuses 
