VBA 問題求教 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » VBA 問題求教

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

[發問] VBA 問題求教

超級版主 Rank: 8 Rank: 8

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

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

1^# 跳轉到 »

發表於 2013-4-10 16:11 | 顯示全部帖子

回復 1# ahsiek
圖解

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

超級版主 Rank: 8 Rank: 8

帖子: 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-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元的贊助,人人有能力.

超級版主 Rank: 8 Rank: 8

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

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

3^#

發表於 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元的贊助,人人有能力.

超級版主 Rank: 8 Rank: 8

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

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

4^#

發表於 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元的贊助,人人有能力.

超級版主 Rank: 8 Rank: 8

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

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

5^#

發表於 2013-5-6 10:58 | 顯示全部帖子

回復 10# ahsiek
像【台選】的工作表有六個之
可用物件類別模組減少程式碼的建立

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

靜思自在 : 人要自愛，才能愛普天下的人。

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