Green Function

แžแŸ’แžšแžกแž”แŸ‹โ€‹แžŸแž˜แžถแžŸแž—แžถแž‚โ€‹แž–แžŽแŸŒโ€‹แž”แŸƒแžแž„โ€‹โ€‹แž“แŸƒโ€‹แž›แŸแžโ€‹แž–แžŽแŸŒโ€‹แžŠแŸ‚แž›โ€‹โ€‹แž”แžถแž“โ€‹แž•แŸ’แžแž›แŸ‹โ€‹แžฒแŸ’แž™โ€‹ย แŸ”

แžœแžถแž€แŸ’แž™โ€‹แžŸแž˜แŸ’แž–แž“แŸ’แž’ แŸ–

Green (Color As Long)

แžแž˜แŸ’แž›แŸƒโ€‹แžแŸ’แžšแžกแž”แŸ‹ แŸ–

แž…แŸ†แž“แžฝแž“โ€‹แž‚แžแŸ‹

แž”แŸ‰แžถแžšแŸ‰แžถแž˜แŸ‰แŸ‚แžแŸ’แžš แŸ–

แž–แžŽแŸŒ แŸ– แž€แž“แŸ’แžŸแŸ„แž˜โ€‹แž…แŸ†แž“แžฝแž“โ€‹แž‚แžแŸ‹โ€‹แž’แŸ†โ€‹แžŠแŸ‚แž›โ€‹แž”แž‰แŸ’แž‡แžถแž€แŸ‹โ€‹แž–แžธ แž›แŸแžโ€‹แž–แžŽแŸŒ แžŠแŸ‚แž›โ€‹แžแŸ’แžšแžกแž”แŸ‹โ€‹แžŸแž˜แžถแžŸแž—แžถแž‚โ€‹แž–แžŽแŸŒโ€‹แž”แŸƒแžแž„โ€‹ย แŸ”

Error codes:

5 แž€แžถแžšโ€‹แž แŸ…โ€‹แž”แŸ‚แž”แž”แž‘โ€‹แž˜แžทแž“โ€‹แžแŸ’แžšแžนแž˜แžแŸ’แžšแžผแžœ

แžงแž‘แžถแž แžšแžŽแŸ แŸ–

Sub ExampleColor

Dim lVar As Long

    lVar = rgb(128,0,200)

    msgbox "The color " & lVar & " contains the components:" & Chr(13) &_

        "red= " &  Red(lVar) & Chr(13)&_

        "green= " &  Green(lVar) & Chr(13)&_

        "blue= " &  Blue(lVar) & Chr(13) , 64,"colors"

End Sub