نوشتن شرطی برای رنگ

[keivan2]

سلام
میخواستم برای رنگ شرطی بنویسم که اگر سلولی سبز بود a نوشته شود و اگر آبی بود b نوشته شود ممنون میشوم اگر راهنمایی فرمایید .

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[DOLFIN]

با سلام
ابتدا یک module در محیط vba ایجاد کنید سپس این کد را درون آن قرار دهید تا تابع تعریف رنگ ایجاد شود :

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

با انجام اینکار یک تابع جدید به نام "getfillcolor" در اکسل تعریف می شود که برای هر رنگ یک عدد در نظر می گیرد.
مثلا با این تابع رنگ سبز عدد 14 و رنگ آبی عدد 23 می شود پس به سلول مورد نظر می رویم و فرمول نهایی رو به این شکل وارد می کنیم :

=IF(GetFillColor(A2)=14;"a";IF(GetFillColor(A2)=23;"b";"")) 

موفق باشید.

[iranweld]

با سلام

از کد زیر نیز میتوانید استفاده کنید

Sub test()


Z = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

Range("B1:B" & Z).ClearContents
    

For i = 1 To Z

If Range("a" & i).Interior.ColorIndex = 14 Then
Range("B" & i).Value = "A"
ElseIf Range("a" & i).Interior.ColorIndex = 23 Then
Range("B" & i).Value = "B"

End If

Next i


End Sub 

[keivan2]

برنامه vb حرف نداشت

[keivan2]

با سلام
ابتدا یک module در محیط vba ایجاد کنید سپس این کد را درون آن قرار دهید تا تابع تعریف رنگ ایجاد شود :

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

با انجام اینکار یک تابع جدید به نام "getfillcolor" در اکسل تعریف می شود که برای هر رنگ یک عدد در نظر می گیرد.
مثلا با این تابع رنگ سبز عدد 14 و رنگ آبی عدد 23 می شود پس به سلول مورد نظر می رویم و فرمول نهایی رو به این شکل وارد می کنیم :

=IF(GetFillColor(A2)=14;"a";IF(GetFillColor(A2)=23;"b";"")) 

موفق باشید.

عالی بود به دنبال فرمول بودم خیلی کمک کرد ممنون