Board logo

標題: 如何觸發巨集 [打印本頁]
作者: oak0723-1    時間: 2021-10-11 17:10     標題: 如何觸發巨集

各位先進好
請問
如附件檔案
當H欄位改變就觸發"排名test02巨集"
請問
如何使用事件觸發?
若不用事件觸發,要如何觸發?
作者: oak0723-1    時間: 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的..不知原因
作者: ikboy    時間: 2021-10-12 09:42

If application. Intetsect([h:h], target)  then ...
作者: ikboy    時間: 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
複製代碼
作者: samwang    時間: 2021-10-12 13:16

回復 2# oak0723-1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then Call 排名test02
End Sub
作者: oak0723-1    時間: 2021-10-12 20:56

回復 4# ikboy


    你好
感謝熱心關注
執行結果卡住了
因為有IF沒有END IF
作者: oak0723-1    時間: 2021-10-12 21:14

回復 5# samwang


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

觸發巨集的方式
儲存格內容直接更改
和
儲存格內容是因為被"貼上"而改變的不同
所以
增加了一些問題
作者: samwang    時間: 2021-10-13 09:16

回復  samwang


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


這和#1 的問題是一樣嗎? 不好意思，看不懂您實際需求是要做什麼。
作者: samwang    時間: 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
作者: oak0723-1    時間: 2021-10-13 13:02

回復 10# samwang


    你好
不知原因
測試仍不ok
作者: samwang    時間: 2021-10-13 13:25

回復 11# oak0723-1

如附件，請再測試看看，謝謝
作者: oak0723-1    時間: 2021-10-13 20:10

回復 12# samwang


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

回復 13# oak0723-1


剛又在嚐試1次
還是不ok
作者: oak0723-1    時間: 2021-10-13 23:18

回復 14# oak0723-1


  稿不懂

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

1101005-(絕對)比對複製QA(1013-01)<--加1個巨集就不ok...
作者: samwang    時間: 2021-10-14 08:32

回復 15# oak0723-1

如附件，請測試看看，謝謝
作者: oak0723-1    時間: 2021-10-14 22:24

完全正確
感恩



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)