如何觸發巨集

返回列表下一主題上一主題發帖

samwang

大學生 Rank: 4

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

1^# 跳轉到 »

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

TOP

samwang

大學生 Rank: 4

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

2^#

發表於 2021-10-13 09:16 | 顯示全部帖子

回復 samwang

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

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

TOP

samwang

大學生 Rank: 4

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

3^#

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