ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¦p¦ó ÅýFunctionªº¤Þ¼Æ,¨Ó¦Û2­Ó¤£¦PSubªºÅܼÆ

¦p¦ó ÅýFunctionªº¤Þ¼Æ,¨Ó¦Û2­Ó¤£¦PSubªºÅܼÆ

¤£¦n·N«ä¡A§Ú·Q­n½Ð°Ý¦U¦ì¤j¤j
§Ú¬OVBA·s¤â¡A¹ï©ó¤Þ¼Æ¦p¦ó©I¥s¶Ç»¼¤£¬O«Ü²M·¡¡A
¦pªG§Ú­nÅýFunction§@¹Bºâªº¤Þ¼Æ¬O¨Ó¦Û2­Ó¤£¦Psub ¸Ó¦p¦ó°µ©O??

©ÎªÌ¥i¥Hµ¹§Ú¤@­Ó¤p¨Ò¤l

ÁÂÁ¦U¦ì



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                                    <------¦b³oÃä¦p¦óŪ¨ú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

¦^´_ 1# Helain
¬Ý¤£À´§Aªº¥Î·N¬°¦ó
Sub DDm()     <-À³­×¥¿¬°Function DDm()
'               b=Qr                                    <------¦b³oÃä¦p¦óŪ¨úAA()¸Ì­±ªºQr
                                                                           ¥i¥H¦b¼Ò²Õ³»ºÝ DIM ©Î PUBLIC «Å§iÅܼƠ Qr
           DDm = ActualDemand_Dm(a, b)           '<-»yªk¿ù»~
            'DDm¬°µ{§Ç¦WºÙ ¥²¶·¬O¨ç¼Æ©ÎÅܼƤ~¥i¥H¥[¤W =

End Sub

TOP

        ÀR«ä¦Û¦b : ¤f»¡¤@¥y¦n¸Ü¡A¦p¤f¥X½¬ªá¡F¤f»¡¤@¥yÃa¸Ü¦p¤f¦R¬r³D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD