如何觸發巨集 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何觸發巨集

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

如何觸發巨集

中學生 Rank: 2

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

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

8^# 跳轉到 »

發表於 2021-10-12 21:32 | 只看該作者

觸發巨集的方式
儲存格內容直接更改
和
儲存格內容是因為被"貼上"而改變的不同
所以
增加了一些問題

中學生 Rank: 2

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

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

7^#

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

中學生 Rank: 2

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

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

6^#

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

回復 4# ikboy

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

Image 16.jpg (248.95 KB)

大學生 Rank: 4

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

5^#

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

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 17
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-11-19

2016猴年全勤獎章

4^#

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

在3/F 用手機打錯字., 更正為如下:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect([h:h], Target) Then Call 排名test02
End Sub

複製代碼

中學生 Rank: 2

帖子: 262
主題: 8
精華: 0
積分: 280
點名: 17
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: HK
註冊時間: 2015-8-11
最後登錄: 2024-11-19

2016猴年全勤獎章

3^#

發表於 2021-10-12 09:42 | 只看該作者

If application. Intetsect([h:h], target) then ...

中學生 Rank: 2

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

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

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的..不知原因

靜思自在 : 話多不如話少，話少不如話好。

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