返回列表 上一主題 發帖

如何觸發巨集

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
0  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2025-3-24 

2016猴年全勤獎章
1# 跳轉到 »
發表於 2021-10-12 09:42 | 顯示全部帖子
If application. Intetsect([h:h], target)  then ...

TOP

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
0  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2025-3-24 

2016猴年全勤獎章
2#
發表於 2021-10-12 11:14 | 顯示全部帖子
在3/F 用手機打錯字., 更正為如下:
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. If Application.Intersect([h:h], Target) Then Call 排名test02
  3. End Sub
複製代碼

TOP

        靜思自在 : 世上有兩件事不能等：一、孝順 二、行善。
返回列表 上一主題