oak0723-1

中學生 Rank: 2

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2021-10-11 17:10 | 只看該作者

如何觸發巨集

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

Image 1011-1.jpg (258.36 KB)

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

樓主熱帖

oak0723-1

中學生 Rank: 2

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

17^#

發表於 2021-10-14 22:24 | 只看該作者

完全正確
感恩

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

16^#

發表於 2021-10-14 08:32 | 只看該作者

回復 15# oak0723-1

如附件，請測試看看，謝謝

1101005-(絕對)比對複製QA_1014.zip (313.01 KB)

TOP

oak0723-1

中學生 Rank: 2

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

15^#

發表於 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

中學生 Rank: 2

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

14^#

發表於 2021-10-13 22:35 | 只看該作者

回復 13# oak0723-1

剛又在嚐試1次
還是不ok

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

TOP

oak0723-1

中學生 Rank: 2

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

13^#

發表於 2021-10-13 20:10 | 只看該作者

回復 12# samwang

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

1013-2.jpg (179.63 KB)

1013-1.jpg (220.29 KB)

1013-3.jpg (118.26 KB)

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

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

12^#

發表於 2021-10-13 13:25 | 只看該作者

回復 11# oak0723-1

如附件，請再測試看看，謝謝

1101012-(絕對)比對複製QA_1013.zip (328.35 KB)

TOP

oak0723-1

中學生 Rank: 2

帖子: 222
主題: 56
精華: 0
積分: 285
點名: 0
作業系統: window
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2010-8-30
最後登錄: 2024-4-22

論壇贊助勳章論壇榮譽勳章

11^#

發表於 2021-10-13 13:02 | 只看該作者

回復 10# samwang

你好
不知原因
測試仍不ok

Image 1013-1.jpg (200.88 KB)

Image 1013-2.jpg (237.71 KB)

Image 1013-3.jpg (213.38 KB)

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

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

10^#

發表於 2021-10-13 09:50 | 只看該作者

回復 7# oak0723-1

我猜想您的需求，應該是觸發排名test02()時Arr沒有指定工作表而導致問題，請確認，謝謝
With Sheets("計算(輸出)")
Arr = .Range(.[h1], .[h1].Cells(Rows.Count, 1).End(3))
...
..
.[i6].Resize(UBound(Arr) - 5) = Arr
End With

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

9^#

發表於 2021-10-13 09:16 | 只看該作者

回復 samwang

感謝關注回復
我這個檔案運作如下
當工作表"從01(接收)"A欄內容若有被貼上動作( ...
oak0723-1 發表於 2021-10-12 21:14

這和#1 的問題是一樣嗎? 不好意思，看不懂您實際需求是要做什麼。

TOP