|
|
发表于 2018-11-22 17: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一下就有了 |
|
墨尔本Glen Waverley十年来的变迁 (2006-9-24) villa 
迎中秋---自制鲜肉月饼解馋! 超级简单 (2009-9-23) 无翼而飞 
