2)ΠΡΠ½ΠΎΠ²Π½Π°Ρ ΡΠ°ΡΡΡ — ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΡΠΎΠ΄Π΅Π»Π°Π½Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ:
— ΠΠ°Π΄Π°Π½ΠΈΠ΅ Π½Π° ΠΊΡΡΡΠΎΠ²ΡΡ ΡΠ°Π±ΠΎΡΡ
ΠΠ°ΠΏΠΈΡΠ°ΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ Π½Π° ΡΠ·ΡΠΊΠ΅ VBA, ΠΊΠΎΡΠΎΡΠ°Ρ Π²Π²ΠΎΠ΄ΠΈΡ ΠΈΡΡ
ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅, Π²ΡΠΏΠΎΠ»Π½ΡΠ΅Ρ ΡΠ°ΡΡΠ΅ΡΡ ΠΈ Π²ΡΠ²ΠΎΠ΄ΠΈΡ
Π½Π° ΡΠΊΡΠ°Π½:
1)ΠΡΡ
ΠΎΠ΄Π½ΡΠ΅ Π΄Π°Π½Π½ΡΠ΅ Π² Π²ΠΈΠ΄Π΅ ΡΠ°Π±Π»ΠΈΡΡ, Π³Π΄Π΅ ΡΠΊΠ°Π·Π°Π½Ρ Π½Π°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈΠ³Ρ, ΡΠ΅Π½Π° ΠΈΠ³Ρ Π² ΠΊΠ°ΠΆΠ΄ΠΎΠΌ ΠΊΠ²Π°ΡΡΠ°Π»Π΅,
ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΏΡΠΎΠ΄Π°Π½Π½ΡΡ
ΠΈΠ³Ρ Π·Π° ΠΊΠ°ΠΆΠ΄ΡΠΉ ΠΊΠ²Π°ΡΡΠ°Π»
2)ΠΠΎΡ
ΠΎΠ΄ ΠΎΡ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΈΠ³ΡΡ Π·Π° Π³ΠΎΠ΄
3)ΠΠΎΡ
ΠΎΠ΄ Π·Π° ΠΊΠ°ΠΆΠ΄ΡΠΉ ΠΊΠ²Π°ΡΡΠ°Π» ΠΏΠΎ Π²ΡΠ΅ΠΌ ΠΈΠ³ΡΠ°ΠΌ
4)ΠΠ±ΡΠΈΠΉ Π΄ΠΎΡ
ΠΎΠ΄ ΠΎΡ Π²ΡΠ΅Ρ
ΠΈΠ³Ρ Π·Π° Π³ΠΎΠ΄
5)ΠΠ°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈΠ³ΡΡ, ΠΏΡΠΈΠ½Π΅ΡΡΠ΅ΠΉ Π½Π°ΠΈΠΌΠ΅Π½ΡΡΠΈΠΉ Π΄ΠΎΡ
ΠΎΠ΄ Π·Π° Π³ΠΎΠ΄
— ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ
Public Games (7) As String ΠΠ°Π·Π²Π°Π½ΠΈΡ ΠΈΠ³Ρ
Public GamePrice (4, 7) As Integer ΡΠ΅Π½Π° j-ΡΠΎΠΉ ΠΈΠ³ΡΡ Π² i-ΡΠΎΠΌ ΠΊΠ²Π°ΡΡΠ°Π»Π΅
Public KolGames (4, 7) As Integer ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ j-ΡΠΎΠΉ ΠΈΠ³ΡΡ Π² i-ΡΠΎΠΌ ΠΊΠ²Π°ΡΡΠ°Π»Π΅
Public GameIncome (7) As Integer Π΄ΠΎΡ
ΠΎΠ΄ Ρ i-ΡΠΎΠΉ ΠΈΠ³ΡΡ
Public QuorterIncome (4) As Integer Π΄ΠΎΡ
ΠΎΠ΄ Π² i-ΡΠΎΠΌ ΠΊΠ²Π°ΡΡΠ°Π»Π΅
Public YearIncome As Long Π³ΠΎΠ΄ΠΎΠ²ΠΎΠΉ Π΄ΠΎΡ
ΠΎΠ΄
Public MinIncome As Integer Π½Π°ΠΈΠΌΠ΅Π½ΡΡΠΈΠΉ Π΄ΠΎΡ
ΠΎΠ΄
Public MinGame As String Π½Π°ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈΠ³ΡΡ ΠΏΡΠΈΠ½Π΅ΡΡΠ΅ΠΉ Π½Π°ΠΈΠΌΠ΅Π½ΡΡΠΈΠΉ Π΄ΠΎΡ
ΠΎΠ΄
Public i, j, k, l As Integer ΠΏΠ°ΡΠ°ΠΌΠ΅ΡΡΡ Π΄Π»Ρ ΡΠΈΠΊΠ»ΠΎΠ²
Public vrPrice, vrKol As Integer ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅ Π΄Π»Ρ Π²ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠ³ΠΎ Ρ
ΡΠ°Π½Π΅Π½ΠΈΡ ΡΠ΅Π½Ρ ΠΈ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π° ΠΏΡΠΈ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ΅
Public vrGame As String Π΄Π»Ρ Ρ
ΡΠ°Π½Π΅Π½ΠΈΡ Π½Π°Π·Π²Π°Π½ΠΈΡ ΠΈΠ³ΡΡ ΠΏΡΠΈ ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ΅
— ΠΠ»ΠΎΠΊ-ΡΡ
Π΅ΠΌΠ°
Ρ
ΠΠ±ΡΡΠ²Π»Π΅Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ
Π²Π²ΠΎΠ΄ Π΄Π°Π½Π½ΡΡ
Π½Π°ΡΠ°Π»ΠΎ
for I =1 to 7
Games (i) = Cells (i + 1, 1)
for I =1 to 7
GamePrice (j, i) = InputBox («Π²Π²Π΅Π΄ΠΈΡΠ΅ ΡΠ΅Π½Ρ» & Games (i) & «» & j & «ΠΊΠ²Π°ΡΡΠ°Π»Π°»)
Cells (i + 1, j * 2 + 1) = GamePrice (j, i)
ΡΠ°ΡΡΠ΅ΡΡ
For j = 1 To 4
For i = 1 To 7
GamePrice (j, i) = Cells (i + 1, j * 2 + 1)
KolGames (j, i) = Cells (i + 1, j * 2)
If GamePrice (j, i) < 1 Then For j = 1 To 4
If KolGames (j, i) < 0 Then For i = 1 To 7
GameIncome (i) = GameIncome (i) + GamePrice (j, i) * KolGames (j, i)
QuorterIncome (i) = QuorterIncome (i) + GamePrice (i, j) * KolGames (i, j)
For i = 1 To 7
If MinIncome > GameIncome (i)
MinIncome = GameIncome (i)
MinGame = Games (i)
Π² ΠΏΠΎΡΡΡΠΎΠ΅Π½ΠΈΠΈ ΠΎΡΡΠ°Π»ΡΠ½ΡΡ
Π±Π»ΠΎΠΊ-ΡΡ
Π΅ΠΌ Π½Π΅Ρ Π½Π΅ΠΎΠ±Ρ
ΠΎΠ΄ΠΈΠΌΠΎΡΡΠΈ, ΠΏΠΎΡΠΎΠΌΡ ΡΡΠΎ ΠΎΠ½ΠΈ ΠΏΡΠ΅Π΄ΡΡΠ°Π²Π»ΡΡΡ ΠΈΠ· ΡΠ΅Π±Ρ ΡΠΏΡΠΎΡΠ΅Π½Π½ΡΠ΅ Π²Π°ΡΠΈΠ°Π½ΡΡ ΡΡΠΎΠΉ (ΡΠΎΠ»ΡΠΊΠΎ Π±Π΅Π· ΡΠ°ΡΡΠ΅ΡΠΎΠ²). ΡΠ°ΠΊΠΆΠ΅ ΡΡΠΈΡΡΠ²Π°Π½ΠΈΠ΅ ΠΌΠ°ΡΡΠΈΠ²Π° Ρ Π»ΠΈΡΡΠ° ΠΈΠ»ΠΈ Π·Π°ΠΏΠΈΡΡ Π΅Π³ΠΎ Π½Π° Π»ΠΈΡΡ.
— ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ Π°Π»Π³ΠΎΡΠΈΡΠΌΠ°
ΠΏΡΠΈ ΠΎΡΠΊΡΡΡΠΈΠΈ ΡΠ°ΠΉΠ»Π° ΠΎΠΏΠΈΡΡΠ²Π°ΡΡΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΠ΅.
ΡΠΏΡΠ°Π²Π»ΡΡΡΠΈΠ΅ ΠΊΠ½ΠΎΠΏΠΊΠΈ Π½Π°Ρ
ΠΎΠ΄ΡΡΡΡ Π½Π° Π»ΠΈΡΡΠ΅ Excel. ΠΠ°ΠΆΠ°ΡΠΈΠ΅ ΠΊΠ°ΠΆΠ΄ΠΎΠΉ ΠΈΠ· Π½ΠΈΡ
Π²ΡΠ·ΡΠ²Π°Π΅Ρ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΡΡ Π·Π°ΠΊΠΎΠ½ΡΠ΅Π½Π½ΡΡ ΠΏΡΠΎΡΠ΅Π΄ΡΡΡΠΊΠ½ΠΎΠΏΠΊΠΈ «ΡΠ°ΡΡΡΠΈΡΠ°ΡΡ», «ΠΎΡΠΈΡΡΠΈΡΡ», «ΡΠΎΡΡΠΈΡΠΎΠ²ΠΊΠ°», Π»ΠΈΠ±ΠΎ Π²ΡΠ·ΡΠ²Π°Π΅Ρ Π½Π° ΡΠΊΡΠ°Π½ ΡΠΎΡΠΌΡ Π΄Π»Ρ Π΄Π°Π»ΡΠ½Π΅ΠΉΡΠ΅ΠΉ ΡΠ°Π±ΠΎΡΡ ΠΊΠ½ΠΎΠΏΠΊΠΈ «Π²Π²ΠΎΠ΄ Π΄Π°Π½Π½ΡΡ
», «Π΄Π΅ΠΉΡΡΠ²ΠΈΡ» — ΠΊΠ½ΠΎΠΏΠΊΠ°ΠΌ ΠΊΠΎΡΠΎΡΡΡ
ΡΠ°ΠΊΠΆΠ΅ Π½Π°Π·Π½Π°ΡΠ΅Π½Ρ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠ΅ ΠΊΠΎΠΌΠ°Π½Π΄Ρ.
— ΠΠΈΡΡΠΈΠ½Π³ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ
Option Explicit ΠΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎΠ΅ ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ
ΠΎΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ
Π±ΡΠ»ΠΎ ΡΠ°ΡΡΠΌΠΎΡΡΠ΅Π½ΠΎ Π²ΡΡΠ΅
Public Games (7) As String
Public GamePrice (4, 7) As Integer
Public KolGames (4, 7) As Integer
Public GameIncome (7) As Integer
Public QuorterIncome (4) As Integer
Public YearIncome As Long
Public MinIncome As Integer
Public MinGame As String
Public i, j, k, l As Integer
Public vrPrice, vrKol As Integer
Public vrGame As String
Sub Auto_Open () ΠΌΠ°ΠΊΡΠΎΡ Π·Π°ΠΏΡΡΠΊΠ°Π΅ΠΌΡΠΉ ΠΏΡΠΈ ΠΎΡΠΊΡΡΡΠΈΠΈ Π΄ΠΎΠΊΡΠΌΠ΅Π½ΡΠ°
For i = 1 To 7 Π² ΡΠΈΠΊΠ»Π΅
Games (i) = Cells (i + 1, 1) ΡΡΠΈΡΡΠ²Π°Π΅Ρ Π½Π°Π·Π²Π°Π½ΠΈΡ ΠΈΠ³Ρ
Next i
'For j = 1 To 4 Π² ΡΠΈΠΊΠ»Π΅ ΡΡΠΈΡΡΠ²Π°Π΅Ρ ΡΠ΅Π½Ρ ΠΈ ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ ΠΈΠ³Ρ, Π΄ΡΠ±Π»ΠΈΡΡΠ΅ΡΡΡ Π²
'For i = 1 To 7 ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ°Ρ
, ΠΈ ΠΏΠΎΡΡΠΎΠΌΡ Π·Π°ΠΊΠΎΠΌΠΌΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½ΠΎ
'GamePrice (j, i) = Cells (i + 1, j * 2 + 1)
'KolGames (j, i) = Cells (i + 1, j * 2)
'Next i
'Next j
End Sub ΠΊΠΎΠ½Π΅Ρ ΠΌΠ°ΠΊΡΠΎΡΠ°
ΠΡΠΈ ΠΊΠ½ΠΎΠΏΠΊΠΈ Π½Π°Ρ
ΠΎΠ΄ΡΡΡΡ Π½Π° Π»ΠΈΡΡΠ΅
Private Sub CommandButton1_Click () ΠΏΡΠΎΡΠ΅Π΄ΡΡΠ° ΠΎΠΏΠΈΡΡΠ²Π°ΡΡΠ°Ρ Π΄Π΅ΠΉΡΡΠ²ΠΈΡ ΠΏΡΠΈ Π½Π°ΠΆΠ°ΡΠΈΠΈ ΠΊΠ½ΠΎΠΏΠΊΠΈ «Π²Π²ΠΎΠ΄ Π΄Π°Π½Π½ΡΡ
»
For i = 1 To 7 Π² ΡΠΈΠΊΠ»Π΅
Games (i) = Cells (i + 1, 1) ΡΡΠΈΡΡΠ²Π°ΡΡΡΡ Π½Π°Π·Π²Π°Π½ΠΈΡ ΠΈΠ³Ρ
Next i ΠΊΠΎΠ½Π΅Ρ ΡΠΈΠΊΠ»Π°
VVod.Show ΠΎΡΠΊΡΡΠ²Π°Π΅Ρ ΡΠΎΡΠΌΡ VVod
End Sub ΠΊΠΎΠ½Π΅Ρ
ΠΠΏΠΈΡΠ°Π½ΠΈΠ΅ ΠΎΡΠΊΡΡΡΠΎΠΉ ΡΠΎΡΠΌΡ vvod