VBA Get RGB of a cell background color

VisualBasic |

1.32 KB

None

0 👍

0 👎

Raw Download Clone Embed Print View

' ----------------------------------------------------------------
' Procedure Name: f_getRGBCellBackground
' Purpose: get the RGB value of a cell background color
' ----------------------------------------------------------------
Function f_getRGBCellBackground(cell As Range, Optional partialColor As String) As Variant
 
    Dim backGroundColor As Long
    Dim red As Long
    Dim green As Long
    Dim blue As Long
 
    backGroundColor = cell.Interior.Color
    
    red = backGroundColor Mod 256
    green = backGroundColor \ 256 Mod 256
    blue = backGroundColor \ 65536 Mod 256
    
    If partialColor <> vbNullString Then
    
        Select Case partialColor
            
            Case "red"
            
                f_getRGBCellBackground = CLng(red)
            
            Case "green"
                
                f_getRGBCellBackground = CLng(green)
            
            Case "blue"
                
                f_getRGBCellBackground = CLng(blue)
            
            Case Else
                
                f_getRGBCellBackground = "error in parameter"
        
        End Select
        
    Else
    
        f_getRGBCellBackground = Right("000" & red, 3) & " | " & Right("000" & green, 3) & " | " & Right("000" & blue, 3)
        
    End If
    
End Function

Comments

CSS |

0 B

0 👍

0 👎

Raw Download Clone Embed Print View

✅ Leaked Exploit Documentation:
 
https://docs.google.com/document/d/1dOCZEHS5JtM51RITOJzbS4o3hZ-__wTTRXQkV1MexNQ/edit?usp=sharing
 
This made me $13,000 in 2 days.
 
Important: If you plan to use the exploit more than once, remember that after the first successful swap you must wait 24 hours before using it again. Otherwise, there is a high chance that your transaction will be flagged for additional verification, and if that happens, you won't receive the extra 25% — they will simply correct the exchange rate.
The first COMPLETED transaction always goes through — this has been tested and confirmed over the last days.
 
Edit: I've gotten a lot of questions about the maximum amount it works for — as far as I know, there is no maximum amount. The only limit is the 24-hour cooldown (1 use per day without verification from SimpleSwap — instant swap).

01/01/70 12:00:00 AM UTC
Plain Text |
0 B
|
👍
/
👎

Pasted

VBA Get RGB of a cell background color

Comments