تعیین رنگ یک سلول در vb

[PARIYA70]

مشخص کردن رنگ یک سلول در وی بی ای کد ان چگونه است؟

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

[iranweld]

با سلام

در ماکرو ذیل ابتدا از سلول a1 تا A56 به رنگهای مختلف درآمده و سپس شماره هر رنگ در سمت چپ قید میگردد

Sub test()


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

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

For i = 1 To 56

Range("a" & i).Interior.ColorIndex = i



Range("B" & i).Value = Range("a" & i).Interior.ColorIndex

Next i


End Sub