Green Function

рджрд┐рдПрдХреЛ рд░рдЩ рд╕рдЩреНрдХреЗрддрдХреЛ рд╣рд░реАрдпреЛ рдЕрд╡рдпрд╡ рдлрд░реНрдХрд╛рдЙрдБрдЫ ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


рд╣рд░реАрдпреЛ (рд▓рдореНрдмрд╛рдЗрдХреЛ рд░реВрдкрдорд╛ рд░рдЩ)

рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:

рдЗрдиреНрдЯрд┐рдЬрд░

рдкрд░рд╛рдорд┐рддрд┐:

рд░рдЩ: рд▓рд╛рдореЛ рдЗрдиреНрдЯрд┐рдЬрд░ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рдорд╛ рд░рдЩ рд╕рдЩреНрдХреЗрддрдЬреБрди рд╣рд░реАрдпреЛ рдЕрд╡рдпрд╡ рдлрд░реНрдХрд╛рдЙрдирдХрд╛ рд▓рд╛рдЧрд┐ рддреНрдпрд╕рд▓реЗ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реНрджрдЫ ред

рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ

5 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓

рдЙрджрд╛рд╣рд░рдг:


Sub ExampleColor
Dim lVar As Long
    lVar = rgb(128,0,200)
    msgbox "рд░рдЩ " & lVar & " рдЕрд╡рдпрд╡рд╣рд░реВ рд╕рдорд╛рд╡реЗрд╢ рдЧрд░реНрджрдЫ:" & Chr(13) &_
        "рд░рд╛рддреЛ = " & рд░рд╛рддреЛ(lVar) & Chr(резрей)&_
        "рд╣рд░реАрдпреЛ = " & рд╣рд░реАрдпреЛ(lVar) & Chr(резрей)&_
        "рдиреАрд▓реЛ = " & рдиреАрд▓реЛ(lVar) & Chr(резрей) , ремрек,"рд░рдЩрд╣рд░реВ"
End Sub