red

帖子: 9
主題: 1
精華: 0
積分: 51
點名: 11
作業系統: windows xp
軟體版本: office 2003
閱讀權限: 20
註冊時間: 2011-5-18
最後登錄: 2024-9-13

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-11-6 15:52 | 只看該作者

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

請問前輩們：

小弟目前使用公式寫出，但在同時使用EXCEL 時，附件檔案會受到其他檔案影響，會重新更新作業（不想停用公式自動更新）
想請教是否可以使用VBA 來解決。

結果：異動統計
來源：庫存異動

物料控制表-3.rar (347.86 KB)

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2014-11-6 19:49 | 只看該作者

回復 1# red

同時使用EXCEL 時，附件檔案會受到其他檔案影響

太籠統了，怎樣操作時如何被影響，然後希望能做到怎樣。

大家都不是原操作者，不說清楚些是很難理解你遇到的情形的，
更別提能不能解決了。。。

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 833
主題: 6
精華: 0
積分: 913
點名: 8
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-9-18

3^#

發表於 2014-11-6 22:53 | 只看該作者

回復 1# red
你的意思是開檔後不要因為其他檔案內容發生變更進而異動到本檔案的內容嗎?
最簡單的方法是開檔後系統詢問是否更新遠端參照時, 選不要更新,
若之後又想更新時,
關檔再開即可.

TOP

red

中學生 Rank: 2

帖子: 9
主題: 1
精華: 0
積分: 51
點名: 11
作業系統: windows xp
軟體版本: office 2003
閱讀權限: 20
註冊時間: 2011-5-18
最後登錄: 2024-9-13

4^#

發表於 2014-11-7 08:38 | 只看該作者

回復 red
你的意思是開檔後不要因為其他檔案內容發生變更進而異動到本檔案的內容嗎?
最簡單的方法是開檔 ...
luhpro 發表於 2014-11-6 22:53

如同luhpro 前輩所說，如果同時開啟其他excel ，在另一檔案作業時，只要輸入就進而會影響附件檔案，公式就會重新更新。
在試試luhpro前輩方式看看
感謝其他前輩回覆

TOP

red

中學生 Rank: 2

帖子: 9
主題: 1
精華: 0
積分: 51
點名: 11
作業系統: windows xp
軟體版本: office 2003
閱讀權限: 20
註冊時間: 2011-5-18
最後登錄: 2024-9-13

5^#

發表於 2014-11-10 09:23 | 只看該作者

對不起以上前輩，目前描述不是很清楚，
當同時開立2個excel 檔案作業，但不是有相關性，假設A檔為物料控制表3，B檔則為其他檔案，兩檔案無任何公式連結參照。
目前遇到問題是在B檔作業時只要儲存格有異動，則A檔之SHEET（異動統計）就會開始進行公式的運行及更新

本人目前想要利用VBA 取代A檔-異動統計目前圖檔紅框處使用公式部分，才想請問前輩，是否可以協助改成VBA 方式進行。
紅框處的來源為物料控制表--庫存異動
以上不知各位前輩是否可以了解，小弟目前狀況，本人對於VBA上不熟悉，所以想請各位前輩協助

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 833
主題: 6
精華: 0
積分: 913
點名: 8
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-9-18

6^#

發表於 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. 假設當 "異動統計" 工作表的儲存格發生異動時才要執行 ->

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Parent.Name = "異動統計" Then
...
End If
End Sub

複製代碼

2. 假設須當 "Book1.xls" 檔案的 "異動統計" 工作表的儲存格發生異動時才要執行 ->

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Parent.Parent.Name = "Book1.xls" And Target.Parent.Name = "異動統計" Then
...
End If
End Sub

複製代碼

TOP

red

中學生 Rank: 2

帖子: 9
主題: 1
精華: 0
積分: 51
點名: 11
作業系統: windows xp
軟體版本: office 2003
閱讀權限: 20
註冊時間: 2011-5-18
最後登錄: 2024-9-13

7^#

發表於 2014-11-13 08:17 | 只看該作者

回復 6# luhpro

感謝luhpro 前輩再次回覆，小弟在試試看
謝謝

TOP

red

中學生 Rank: 2

帖子: 9
主題: 1
精華: 0
積分: 51
點名: 11
作業系統: windows xp
軟體版本: office 2003
閱讀權限: 20
註冊時間: 2011-5-18
最後登錄: 2024-9-13

8^#

發表於 2014-12-10 11:38 | 只看該作者

回復 7# red
搜尋網路資料及各位前輩教學
加入以下VBA 程式則改善原本問題
Private Sub CommandButton1_Click()

Sheet2.Cells(1, 3) = Now()
Application.ScreenUpdating = False
Sheet2.Range("h4:o220").ClearContents
Call Module3.Macro1

For i = 4 To Sheet1.Range("a65536").End(xlUp).Row
      For j = 8 To 14
         If Sheet1.Cells(i, 3) = Sheet2.Cells(3, j) Then
            For k = 4 To Sheet2.Range("a65536").End(xlUp).Row
                  If Sheet1.Cells(i, 1) = Sheet2.Cells(k, 1) And Sheet1.Cells(i, 8) = Sheet2.Cells(k, 6) Then
                     Sheet2.Cells(k, j) = Sheet2.Cells(k, j) + Sheet1.Cells(i, 9)
                  End If
            Next
         End If
      Next
Next

For i = 4 To Sheet2.Range("a65536").End(xlUp).Row
      For j = 8 To 13
         Sheet2.Cells(i, 15) = Sheet2.Cells(i, 15) + Sheet2.Cells(i, j)
      Next
         Sheet2.Cells(i, 15) = Sheet2.Cells(i, 15) / 6
Next
Sheet2.Cells(1, 4) = Now()

End Sub

TOP

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

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]