返回列表 上一主題 發帖

[發問] 資料比對後，並依照月份

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
1# 跳轉到 »
發表於 2014-11-6 22:53 | 顯示全部帖子
回復 1# red
你的意思是開檔後不要因為其他檔案內容發生變更進而異動到本檔案的內容嗎?
最簡單的方法是開檔後系統詢問是否更新遠端參照時, 選不要更新,
若之後又想更新時,
關檔再開即可.

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2014-11-11 22:46 | 顯示全部帖子
本帖最後由 luhpro 於 2014-11-11 22:47 編輯
對不起以上前輩，目前描述不是很清楚，
當同時開立2個excel 檔案作業，但不是有相關性，假設A檔為物料控制 ...
red 發表於 2014-11-10 09:23

我大概知道你的意思了,
也就是某個Excel檔案的儲存格發生異動,
但卻觸發了另一個Excel檔案中的Worksheet_Change程序,
導致該段程式非預期的被執行,
以致出現非原設計本意的結果.

這可以用一個 IF 判斷區塊包住,
只要不是自己本身異動而觸發的就不執行來解決 :

1. 假設當 "異動統計" 工作表的儲存格發生異動時才要執行 ->
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.   If Target.Parent.Name = "異動統計" Then
  3.     ...
  4.   End If
  5. End Sub
複製代碼
2. 假設須當 "Book1.xls" 檔案的 "異動統計" 工作表的儲存格發生異動時才要執行 ->
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.   If Target.Parent.Parent.Name = "Book1.xls" And Target.Parent.Name = "異動統計" Then
  3.     ...
  4.   End If
  5. End Sub
複製代碼

TOP

        靜思自在 : 人生沒有所有權，只有生命的使用權。
返回列表 上一主題