تغییر رنگ سلول مجاور

در مثال زیر با تغییر عدد مربوط در هر کدام از سل های درون ستون A  رنگ سلول ستون مجاور یعنی B و همان ردیف به رنگ قرمز در می آید.

کد در رویداد Change برگه کاری یا شیت فعلی که در آن هستید نوشته شده

Private Sub Worksheet_Change(ByVal Target As Excel.Range) 

اگر در کالمن ( ستون یک) A باشد

    If Target.Column = 1 Then 

شماره ردیف در متغیر ThisRow ذخیره می شود

        ThisRow = Target.Row 

اگر مقدار داخل ردیفی که در آن هستید  بزرگتر از ۱۰۰ شود ایندکس کالر سلول ستون  B و همین ردیف به ۳ یا رنگ قرمز در می آید و اگر به کوچکتر از ۱۰۰ تغییر یابد به No Color یا بی رنگ تنظیم می شود.

        If Target.Value > 100 Then 

            Range("B" & ThisRow).Interior.ColorIndex = 3 

        Else 

            Range("B" & ThisRow).Interior.ColorIndex = xlColorIndexNone 

        End If 

    End If 

End Sub

مثال دیگر : تغییر رنگ فونت در سلول A1 از شیت یک به قرمز

This example changes the font color in cell A1 on Sheet1 to red.

Worksheets("Sheet1").Range("A1").Font.ColorIndex = 3

بلایی که از پوشیدن شلوار تنگ در دراز مدت حاصل خواهد شد

سخن خداوند است که: و اگر مردمِ آبادى‌ها ایمان مى آوردند و تقوا پیشه مى کردند، برکت هایى از آسمان و زمین به روى آنان مى گشودیم، لیکن تکذیب کردند.