هایلایت کردن سل ها

[~M*E*H*D*I~]

سلام
فایل پیوست امکان این رو فراهم میاره که با انتخاب یک سل یا محدوده ای از سل ها هایلایت ایجاد کنید البته قبلا نمونه های مشابه در این زمینه ارائه شده ولی از نظر کدنویسی ممکنه ایده ها و روش های جدیدی ارائه بده

[Radin]

RE: هایلایت کردن سل ها

میشه در مورد targetتوضیح کاملی بدید چون تو هلپ هم چیزی ندیدم ؟با مثال های دیگه که هم اگر سراغ دارید بذارید تادر مورد کاری که تارگت انجام می ده هم من و هم سایر دوستان اطلاعی کسب کنند

[align=left]Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Static c As Range

If Not c Is Nothing Then
c.Interior.ColorIndex = xlColorIndexNone
End If

Target.Interior.ColorIndex = 6

Set c = Target


End Sub[/align]

[komeilex]

RE: هایلایت کردن سل ها

[align=justify]با سلام و تشکر از وطن پرست عزیز.
ببینین همون طور که تو خود کد نوشته شده Target برمی گرده به محدوده ای که انتخاب می کنیم و در حقیقت یک Range object حساب میشه. راجع به Object تو تالار و در بخش ویژوال بیسیک مفصل بحث شده، فقط خلاصه اینکه برمی گرده به شئ گرایی و این که تو این روش برنامه نویسی ما یه سری شئ در نظر می گیریم مثلا در همین اکسل، ورک بوک یا شیت یا همین رنج رو می تونیم به عنوان شئ در نظر بگیریم.
اما راجع به هایلات کردن سل ها، از کد زیر هم میشه استفاده کرد:
[/align]

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Rows.Interior.ColorIndex = xlColorIndexNone
Target.Cells.Interior.ColorIndex = 36
End Sub 

[attachment=772]

[master]

RE: هایلایت کردن سل ها

میشه کاری کرد که وقتی یه یا چند سلول انتخاب شده کل اون ردیف (یا ستون ها) رنگی بشه؟
در اینجا اگه خونه A1 انتخاب شده باشه فقط همون رنگی میشه ولی میخوام وقتی خونه A1 انتخاب شد کل ردیف 1 رنگی بشه(یا کل ستون A )
با تشکر

[s.cheraghi]

RE: هایلایت کردن سل ها

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

Target.EntireRow.Interior.ColorIndex = 36 

[master]

RE: هایلایت کردن سل ها

من قصدم از هایلایت کردن این هست که وقتی توی یه جدول یه خونه رو انتخاب کردم دقیق مشخص باشه کدوم سطر هست و بقیه مشخصات رو راحتتر ببینم (مثلا اشتباهی سطر دیگه رو نبینم
اما بدی که این کد داره این هست که در اخر سطر که اتخاب شده رو رنگی میکنه
من میخوام وقتی اکسل رو سیو میکنم و میبندم تغییراتی که خودم دادم سیو بشه ولی این کد تغییراتش سیو نشه(همون رنگی شدن سطر) ضمنا کد هم همیشه اجرا بشه یعنی اکسل رو که باز میکنم کد اجرا بشه (وقتی باز میکنی یه خونه در حال انتخاب هست همون رنگی بشه)

[MEYTI]

RE: هایلایت کردن سل ها

با سلام دوست عزیز از نمونه کد زیر هم میتونی استقاده کنی

ActiveSheet.Rows(Target.Row).Select ' highlite entire row
    Target.Activate ' select the cell 

[s.cheraghi]

RE: هایلایت کردن سل ها

با سلام
برای اینکه تغییرات ناشی از رنگ شدن سطرها در فایل ذخیره نشه می تونین از کد زیر استفاده کنین

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheet1.Cells.Interior.ColorIndex = xlColorIndexNone
End Sub