تغییر رنگ سلول با انتخاب آن

[ZAMEN58]

با سلام خدمت دوستان عزیز
در فایل پیوست شده با انتخاب هر سلول ، رنگ سلول تغییر می کند و با انتخاب سلول دیگر رنگ پیش فرض برای سلول قبلی اعمال می شود
سوال من اینست که چگونه می توان فرمتی که سلول قبل از انتخاب دارد را بعد از انتخاب سلول بعدی به آن برگرداند
با تشکر

[كامران]

با سلام خدمت دوستان عزیز
در فایل پیوست شده با انتخاب هر سلول ، رنگ سلول تغییر می کند و با انتخاب سلول دیگر رنگ پیش فرض برای سلول قبلی اعمال می شود
سوال من اینست که چگونه می توان فرمتی که سلول قبل از انتخاب دارد را بعد از انتخاب سلول بعدی به آن برگرداند
با تشکر

با vba راحت میشه اینکار رو کرد تمام مشخصات سلول (ها) رو یه جای دیگه ذخیره میکنی بعد هر وقت خواستی میتونی بذاری سر جاش

[majid_mx4]

با سلام

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

Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Range("A1:ab1000").ClearFormats
Static xLastRng As Range
On Error Resume Next
Target.Interior.Color = vbYellow
Target.Font.Color = vbRed
Target.Borders.Color = vbRed
xLastRng.Font.Color = xlColorIndexNone
xLastRng.Interior.ColorIndex = xlColorIndexNone
xLastRng.Borders.ColorIndex = xlColorIndexNone
Set xLastRng = Target
End Sub

موفق باشید میر

[كامران]

با سلام

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

Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Range("A1:ab1000").ClearFormats
Static xLastRng As Range
On Error Resume Next
Target.Interior.Color = vbYellow
Target.Font.Color = vbRed
Target.Borders.Color = vbRed
xLastRng.Font.Color = xlColorIndexNone
xLastRng.Interior.ColorIndex = xlColorIndexNone
xLastRng.Borders.ColorIndex = xlColorIndexNone
Set xLastRng = Target
End Sub

موفق باشید میر

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

[ZAMEN58]

سلام آقای میر
عزیز شما که صورت مسئله را پاک کردی

[majid_mx4]

با سلام

لطف کنید یکم بیشتر توضیح بدید .(شاید درست متوجه سوالتان نشده باشم ولی به هیچ عنوان قصد پاک کرده صورت مسئله را نداشته و ندارم حل کردن مشکل شما نه برای شما بلکه آزمونی برای خودم است . با تشکر)

ممنون

[ZAMEN58]

سلام
فرض کنید رنگ فونت سلولa1، قبل از انتخاب، سبز باشه و نام فونت هم b nazanin باشه ، با کدی که من نوشتم فرمت سلول a1 بعد از اینکه روی سلول a2 کلیک میشه به حالت بدون فرمت برمیگرده . ولی من می خوام فرمتش رو حفظ کنه یعنی فونت و رنگ فونت همونی باشه که ذکر کردم
ممنون