[發問] VBA 問題求教

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-4-10 16:11 | 只看該作者

回復 1# ahsiek
圖解

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 48
主題: 8
精華: 0
積分: 60
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
註冊時間: 2013-4-9
最後登錄: 2019-12-17

3^#

發表於 2013-4-11 10:07 | 只看該作者

回復 2# GBKEE

非常謝謝你，這個方法可行。

但又出現了新的問題
當我的工作表裡的值不是透過DDE的更新而變動時，這個方法就無法自動計算了

我的意思是說原本我在工作表1是用DDE連結現貨或履約價的數值，當這些數值更新時，就透過這個程式碼可以自動計算
後來我用工作表2來計算這些值，然後直接連結到工作表1的現貨或履約價的值裡，卻發現工作表1的自動計算不會動了
除非我直接用手動的方式按下計算的button才會計算
我想請問哪裡出錯了，不能用這個程式碼來改嗎？

麻煩了，謝謝。

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2013-4-11 18:32 | 只看該作者

回復 3# ahsiek

你的意思是說原本工作表1是用DDE連結現貨或履約價的數值，DDE連結現貨或履約價的數值,現改放在工作表2計算後,在工作表1的儲存格用公式傳回工作表2這些值.

Option Explicit
' ** 工作表內有公式的儲存格:公式的數值有變動,使用此工作表的預設事件
Private Sub Worksheet_Calculate()
Dim i As Integer
Application.EnableEvents = False
'EnableEvents 屬性如果指定物件能觸發事件，則本屬性為 True。讀/寫 Boolean。
For i = 5 To 14
Call Macro1(i)
Next
''' 程式碼
''' 程式碼
''' 程式碼
Application.EnableEvents = True
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 48
主題: 8
精華: 0
積分: 60
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
註冊時間: 2013-4-9
最後登錄: 2019-12-17

5^#

發表於 2013-4-30 14:39 | 只看該作者

不好意思，太久沒有上線查看，真的很謝謝GBKEE大大的回應
我有試過你po的方式，但還是沒有反應。

現在我重新想了方式附件如旁：

目標搜尋20130..rar (22.57 KB)
若我在【台選】，寫好了以下的程式碼：
Private Sub CommandButton1_Click()
' MsgBox Range("n5").Value
Dim i As Integer
For i = 5 To 14
      Call Macro1(i)

Next

End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
' MsgBox Range("n5").Value
Dim i As Integer
For i = 5 To 14
      Call Macro1(i)

Next

End Sub

然後，把在【台選】的儲存格L5和【工作表1】的儲存格B2做連結
即【台選】儲存格L5  = 【工作表1】儲存格B2
當我把【工作表1】的儲存格B2 換個數字時
能不能就讓【台選】的儲存格L5因為數字變動，而會自動運算以上所寫的程式碼呢？

麻煩大大幫個忙，想想看。是不是要多什麼程式碼才能做到？還是說不能這樣做呢？
不論如何，都非常感謝大大的幫忙。:loveliness:

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2013-5-1 10:57 | 只看該作者

本帖最後由 GBKEE 於 2013-5-2 15:17 編輯

回復 5# ahsiek
【台選】儲存格L5 =工作表1!B2
當【工作表1】儲存格B2 有變更會引發【台選】的重算事件

Private Sub Worksheet_Calculate() '【台選】的重算事件程式碼
Dim i As Integer
Application.EnableEvents = False '停止觸發事件
For i = 5 To 14
Call Macro1(i)
Next
Application.EnableEvents = True '恢復觸發事件
End Sub

複製代碼

Sub Macro1(r As Integer) 'r為參數代表列號.integer為整數型態
With Sheets("台選")
.Range("M" & r).GoalSeek Goal:=.Range("N" & r).Value, ChangingCell:=.Range("D" & r)
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 48
主題: 8
精華: 0
積分: 60
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
註冊時間: 2013-4-9
最後登錄: 2019-12-17

7^#

發表於 2013-5-1 14:20 | 只看該作者

真的非常謝謝GBKEE大大的幫忙
是可行的，終於能解決，真的好開心呢！！
原來模組那裡也要寫，難怪總是卡在那裡。
再次感謝GBKEE大大的幫忙。

帖子: 48
主題: 8
精華: 0
積分: 60
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
註冊時間: 2013-4-9
最後登錄: 2019-12-17

8^#

發表於 2013-5-2 13:03 | 只看該作者

不好意思，再麻煩GBKEE大大

若我不只有【台選】，我還有【台選2】，其內容和【台選】是一樣的，裡面的公式有些許不一樣而已，但大致相同。

所以我可以直接複製【台選】的程式碼貼在【台選2】裡嗎？如下：
Private Sub Worksheet_Change(ByVal Target As Range)
' MsgBox Range("n5").Value
Dim i As Integer
For i = 5 To 14
      Call Macro1(i)

Next
End Sub

Private Sub Worksheet_Calculate() '重算事件程式碼
  Dim i As Integer
  Application.EnableEvents = False  '停止觸發事件
  For i = 5 To 14
      Call Macro1(i)
Next
Application.EnableEvents = True  '恢復觸發事件
End Sub

而在模組裡的module2的程式碼可以這樣寫嗎？

Sub Macro1(r As Integer) 'r為參數代表列號.integer為整數型態
      With Sheets("台選")
         .Range("M" & r).GoalSeek Goal:=.Range("N" & r).Value, ChangingCell:=.Range("D" & r)
      End With
With Sheets("台選2")
         .Range("M" & r).GoalSeek Goal:=.Range("N" & r).Value, ChangingCell:=.Range("D" & r)
      End With

End Sub

是不是這樣不行，因為我這樣寫時，EXCEL就會當掉，或是卡卡的。
可以麻煩殉GBKEE大大能再幫我看一下嗎？
謝謝你。

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2013-5-2 15:26 | 只看該作者

本帖最後由 GBKEE 於 2013-5-2 15:28 編輯

回復 8# ahsiek

'【台選】,【台選 2】的事件程序

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Application.EnableEvents = False '停止觸發事件
For i = 5 To 14
Call Macro1(i, Me) 'ME 指物件模組本身
Next
Application.EnableEvents = True '恢復觸發事件
End Sub
Private Sub Worksheet_Calculate() '重算事件
Dim i As Integer
Application.EnableEvents = False '停止觸發事件
For i = 5 To 14
Call Macro1(i, Me)
Next
Application.EnableEvents = True '恢復觸發事件
End Sub

複製代碼

'程序新增接收參數型態為Worksheet物件
Sub Macro1(r As Integer, Sh As Worksheet) 'r為參數代表列號.integer為整數型態
'' Macro1 Macro''
With Sh
.Range("M" & r).GoalSeek Goal:=.Range("N" & r).Value, ChangingCell:=.Range("D" & r)
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 48
主題: 8
精華: 0
積分: 60
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
註冊時間: 2013-4-9
最後登錄: 2019-12-17

10^#

發表於 2013-5-6 08:57 | 只看該作者

再次謝謝GBKEE大大
我試過，是可行的。

但，因為我用在主要的檔裡，像【台選】的工作表有六個之多
當我只先更新二個工作表的程式後，沒想到excel就當掉了。
重新打開也跑不動了
可能是我需要用的迴圈太多了，以致於excel跑不動而當掉。
我再想想有什麼方法好了
再次謝謝GBKEE大大