返回列表 上一主題 發帖

如何 讓Function的引數,來自2個不同Sub的變數

Helain

帖子
41 
主題
12 
精華
0 
積分
71 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
女 
註冊時間
2011-8-30 
最後登錄
2012-8-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-9-2 12:07 | 只看該作者

如何 讓Function的引數,來自2個不同Sub的變數

不好意思，我想要請問各位大大
我是VBA新手，對於引數如何呼叫傳遞不是很清楚，
如果我要讓Function作運算的引數是來自2個不同sub 該如何做呢??

或者可以給我一個小例子

謝謝各位



Sub AA()

For Qm = 1 To 10
        For Qr = 1 To 10
   
        ThisWorkbook.Sheets("sheet2").Cells(Qm, Qr).Value = AvgManufacturerProfit(Qm, Qr)

        Next
    Next
End Sub

'..........................................................
Private Function AvgManufacturerProfit(ByVal Qm As Integer, ByVal Qr As Integer) As Integer

      AvgManufacturerProfit = pm * Qm + w * Qr

End Function

'...................................................
Sub DDm()
               b=Qr                                    <------在這邊如何讀取AA()裡面的Qr
           DDm = ActualDemand_Dm(a, b)
            
End Sub

Private Function ActualDemand_Dm(ByVal Dm As Long, ByVal Qr As Integer) As Long

    r = 0.5
    For i = 1 To 10

      a = Cells(i, 2) - Qr

        If a > 0 Then
            Cells(i, 3) = Cells(i, 1) + r * a

        ElseIf a <= 0 Then
            Cells(i, 3) = Cells(i, 1)
   
        End If
        Next

End Function
收藏 分享

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2011-9-2 12:51 | 只看該作者
回復 1# Helain
看不懂你的用意為何
Sub DDm()     <-應修正為Function DDm()
'               b=Qr                                    <------在這邊如何讀取AA()裡面的Qr
                                                                           可以在模組頂端 DIM 或 PUBLIC 宣告變數  Qr
           DDm = ActualDemand_Dm(a, b)           '<-語法錯誤
            'DDm為程序名稱 必須是函數或變數才可以加上 =
End Sub

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題