excel

[AnuradhaRa]

macro එකක් හදල

Function CheckColor1(range)
If range.Interior.Color = RGB(256, 0, 0) Then
CheckColor1 = "Stop"
ElseIf range.Interior.Color = RGB(0, 256, 0) Then
CheckColor1 = "Go"
Else
CheckColor1 = "Neither"
End If
End Function

Function GetFillColor(Rng As Range) As Long
GetFillColor = Rng.Interior.ColorIndex
End Function

=CheckColor1(B5)

=GetFillColor(B5)

දුන්නට එක පාරනෙ Stop හරි Go කියල හරි වැටෙන්නෙ..

ආයෙත් B5 සෙල් එකේ පාට මාරු කළාට රිසල්ස් එක වෙනස් වෙන්නෙ නෑනෙ

 

[asknrk]

DANNA BAN UBA VBA DANNWADA KHOENDA EGENA GATTE?

 

[AnuradhaRa]

DANNA BAN UBA VBA DANNWADA KHOENDA EGENA GATTE?

මම දන්න VBA එකක් නෑ බං

මගේ එක්සෙල් ෆයිල් එක හදාගන්ඩ නෙට් එකෙන් ගෙඩිය පිටින් කෝඩ් සෙට් කොපි කර ගන්නව.. පොඩි පොඩි වෙනස්කම් කරනව හැබැයි ඒවට

 

[HKavinda]

බම්පි​

 

[AnuradhaRa]

උදව් කරපියව්...