返回列表 上一主題 發帖

如何觸發巨集

oak0723-1

帖子
220 
主題
55 
精華
0 
積分
282 
點名
0  
作業系統
window 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-8-30 
最後登錄
2023-10-18 

論壇贊助勳章論壇榮譽勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2021-10-11 17:10 | 顯示全部帖子

如何觸發巨集

各位先進好
請問
如附件檔案
當H欄位改變就觸發"排名test02巨集"
請問
如何使用事件觸發?
若不用事件觸發,要如何觸發?
Image 1011-1.jpg

1101005-(絕對)比對複製QA.rar (258.95 KB)

收藏 分享

oak0723-1

帖子
220 
主題
55 
精華
0 
積分
282 
點名
0  
作業系統
window 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-8-30 
最後登錄
2023-10-18 

論壇贊助勳章論壇榮譽勳章
2#
發表於 2021-10-11 21:15 | 顯示全部帖子
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$6" Then
Call 排名test02
End If
End Sub
剛上網查...這招是不OK的..不知原因

TOP

oak0723-1

帖子
220 
主題
55 
精華
0 
積分
282 
點名
0  
作業系統
window 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-8-30 
最後登錄
2023-10-18 

論壇贊助勳章論壇榮譽勳章
3#
發表於 2021-10-12 20:56 | 顯示全部帖子
回復 4# ikboy


    你好
感謝熱心關注
執行結果卡住了
因為有IF沒有END IF
Image 16.jpg

TOP

oak0723-1

帖子
220 
主題
55 
精華
0 
積分
282 
點名
0  
作業系統
window 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-8-30 
最後登錄
2023-10-18 

論壇贊助勳章論壇榮譽勳章
4#
發表於 2021-10-12 21:14 | 顯示全部帖子
回復 5# samwang


    感謝關注回復
我這個檔案運作如下
當工作表"從01(接收)"A欄內容若有被貼上動作(從別的檔案複製過來)就把A欄位第6列(儲存格A6為起點)以後的資料複製轉置後貼到工作表"比對"第3列(儲存格I6為起點)
再將工作表"比對"H欄第6列(儲存格H6為起點)資料複製後貼到H欄位第6列(儲存格H6為起點)並啟動"排名test02"巨集
目前執行結果
整個檔案會當掉
如附件

1101012-(絕對)比對複製QA.rar (257.15 KB)

TOP

oak0723-1

帖子
220 
主題
55 
精華
0 
積分
282 
點名
0  
作業系統
window 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-8-30 
最後登錄
2023-10-18 

論壇贊助勳章論壇榮譽勳章
5#
發表於 2021-10-12 21:32 | 顯示全部帖子
觸發巨集的方式
儲存格內容直接更改
和
儲存格內容是因為被"貼上"而改變的不同
所以
增加了一些問題

TOP

oak0723-1

帖子
220 
主題
55 
精華
0 
積分
282 
點名
0  
作業系統
window 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-8-30 
最後登錄
2023-10-18 

論壇贊助勳章論壇榮譽勳章
6#
發表於 2021-10-13 13:02 | 顯示全部帖子
回復 10# samwang


    你好
不知原因
測試仍不ok
Image 1013-1.jpg
Image 1013-2.jpg
Image 1013-3.jpg

1101013-(絕對)比對複製QA (已修復).rar (258.5 KB)

TOP

oak0723-1

帖子
220 
主題
55 
精華
0 
積分
282 
點名
0  
作業系統
window 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-8-30 
最後登錄
2023-10-18 

論壇贊助勳章論壇榮譽勳章
7#
發表於 2021-10-13 20:10 | 顯示全部帖子
回復 12# samwang


    先進你好
這個巨集已超出我的想像
本來以為自己可以單純使用事件來依序觸發之前所得到的2個巨集
原來並沒有這麼簡單
這個附件是我想完成的最終目標
也就是將之前二個巨集作一個連貫
因為我能力不足
無法完成
目前還是有問題
如附件
1013-2.jpg
1013-1.jpg
1013-3.jpg

1101012-(絕對)比對複製QA_1013-001.rar (296.1 KB)

TOP

oak0723-1

帖子
220 
主題
55 
精華
0 
積分
282 
點名
0  
作業系統
window 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-8-30 
最後登錄
2023-10-18 

論壇贊助勳章論壇榮譽勳章
8#
發表於 2021-10-13 22:35 | 顯示全部帖子
回復 13# oak0723-1


剛又在嚐試1次
還是不ok

1101012-(絕對)比對複製QA_1013-001.rar (296.1 KB)

TOP

oak0723-1

帖子
220 
主題
55 
精華
0 
積分
282 
點名
0  
作業系統
window 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-8-30 
最後登錄
2023-10-18 

論壇贊助勳章論壇榮譽勳章
9#
發表於 2021-10-13 23:18 | 顯示全部帖子
回復 14# oak0723-1


  稿不懂

1101005-(絕對)比對複製QA(1013)<--這個檔是ok的

1101005-(絕對)比對複製QA(1013-01)<--加1個巨集就不ok...

1101005-(絕對)比對複製QA(1013).rar (263.14 KB)

1101005-(絕對)比對複製QA(1013-01).rar (258.87 KB)

TOP

oak0723-1

帖子
220 
主題
55 
精華
0 
積分
282 
點名
0  
作業系統
window 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-8-30 
最後登錄
2023-10-18 

論壇贊助勳章論壇榮譽勳章
10#
發表於 2021-10-14 22:24 | 顯示全部帖子
完全正確
感恩

TOP

        靜思自在 : 吃苦了苦、苦盡廿來，享福了福、福盡悲來。
返回列表 上一主題