返回列表 上一主題 發帖

如何觸發巨集

回復 2# oak0723-1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then Call 排名test02
End Sub

TOP

回復  samwang


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


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

TOP

回復 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

回復 11# oak0723-1

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

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

TOP

回復 15# oak0723-1

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

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

TOP

        靜思自在 : 為自己找藉口的人永遠不會進步。
返回列表 上一主題