رنگي شدن سلول خاص vba

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • mohamadali110

    • 2014/03/17
    • 151
    • 70.00

    [حل شده] رنگي شدن سلول خاص vba

    ميخوام اگه سلول a1 سلكت شد دو تا سلول اونورترش يعني c1 رنگش عو بشه مثلا زرد

    همينطور a2 سلكت شد c2 زرد بشه و تا خانه a1000 مثلا اين خاصيت توش باشه
  • iranweld

    • 2015/03/29
    • 3341

    #2
    با سلام

    ماکرو ذیل را در قسمت کدنویسی شیت مورد نظر استفاده کنید

    چنانچه رنگ سلول با انتخاب سل بعدی نبایستی پاک شود کد خط سوم را حذف کنید

    کد PHP:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If 
    Not Intersect(TargetMe.Range("A:A")) Is Nothing Then


    Range
    ("B1:D1000").Interior.ColorIndex xlNone

    Target
    .Offset(, 1).Interior.ColorIndex 4

     Target
    .Offset(, 2).Interior.ColorIndex 6
     
    End 
    If

    End Sub 
    فایل های پیوست شده

    کامنت

    چند لحظه..