نمایش نتایج: از شماره 1 تا 7 , از مجموع 7

موضوع: تغییر رنگ سلول با انتخاب آن

  1. #1


    آخرین بازدید
    2023/08/23
    تاریخ عضویت
    July 2016
    محل سکونت
    دهاقان
    نوشته ها
    73
    امتیاز
    41
    سپاس
    59
    سپاس شده
    31 در 22 پست
    تعیین سطح نشده است

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

    با سلام خدمت دوستان عزیز
    در فایل پیوست شده با انتخاب هر سلول ، رنگ سلول تغییر می کند و با انتخاب سلول دیگر رنگ پیش فرض برای سلول قبلی اعمال می شود
    سوال من اینست که چگونه می توان فرمتی که سلول قبل از انتخاب دارد را بعد از انتخاب سلول بعدی به آن برگرداند
    با تشکر
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: rar COLOR.rar اطلاعات (12.8 کیلو بایت, 20 نمایش)
    هر کس خود رأی شد هلاک می شود و آنکه با افراد صاحب نظر مشورت کند در عقل آنها شریک شده
    حضرت امیر علیه السلام

  2.  

  3. #2


    آخرین بازدید
    2019/12/17
    تاریخ عضویت
    June 2016
    نوشته ها
    147
    امتیاز
    120
    سپاس
    41
    سپاس شده
    100 در 53 پست
    سطح اکسل
    41.00 %

    نقل قول نوشته اصلی توسط zamen58 نمایش پست ها
    با سلام خدمت دوستان عزیز
    در فایل پیوست شده با انتخاب هر سلول ، رنگ سلول تغییر می کند و با انتخاب سلول دیگر رنگ پیش فرض برای سلول قبلی اعمال می شود
    سوال من اینست که چگونه می توان فرمتی که سلول قبل از انتخاب دارد را بعد از انتخاب سلول بعدی به آن برگرداند
    با تشکر
    با vba راحت میشه اینکار رو کرد تمام مشخصات سلول (ها) رو یه جای دیگه ذخیره میکنی بعد هر وقت خواستی میتونی بذاری سر جاش

  4. سپاس ها (2)


  5. #3


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    June 2012
    نوشته ها
    698
    امتیاز
    4179
    سپاس
    625
    سپاس شده
    1,970 در 623 پست
    تعیین سطح نشده است

    با سلام

    متیوانید از دستور زیر استفاده نمایید.
    کد:
    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
    موفق باشید میر

  6. سپاس ها (2)


  7. #4


    آخرین بازدید
    2019/12/17
    تاریخ عضویت
    June 2016
    نوشته ها
    147
    امتیاز
    120
    سپاس
    41
    سپاس شده
    100 در 53 پست
    سطح اکسل
    41.00 %

    نقل قول نوشته اصلی توسط 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
    موفق باشید میر
    این کد یه موردی داره اونم اینه که وقتی یه خونه زرد میشه خونه قبلی فرمتش پاک میشه این چیزی که دوستمون میخواد اینه که فرمت خونه قبلی به فرمتی که قبل از کلیک روش داشت برگرده

  8. سپاس ها (1)


  9. #5


    آخرین بازدید
    2023/08/23
    تاریخ عضویت
    July 2016
    محل سکونت
    دهاقان
    نوشته ها
    73
    امتیاز
    41
    سپاس
    59
    سپاس شده
    31 در 22 پست
    تعیین سطح نشده است

    سلام آقای میر
    عزیز شما که صورت مسئله را پاک کردی
    هر کس خود رأی شد هلاک می شود و آنکه با افراد صاحب نظر مشورت کند در عقل آنها شریک شده
    حضرت امیر علیه السلام

  10. #6


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    June 2012
    نوشته ها
    698
    امتیاز
    4179
    سپاس
    625
    سپاس شده
    1,970 در 623 پست
    تعیین سطح نشده است

    با سلام

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

    ممنون

  11. سپاس ها (1)


  12. #7


    آخرین بازدید
    2023/08/23
    تاریخ عضویت
    July 2016
    محل سکونت
    دهاقان
    نوشته ها
    73
    امتیاز
    41
    سپاس
    59
    سپاس شده
    31 در 22 پست
    تعیین سطح نشده است

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


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. [حل شده] تغییر خودکار فرمول یک سلول با تغییر لیست
    توسط khademmahdy در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 6
    آخرين نوشته: 2015/12/14, 11:10
  2. [حل شده] تغییر مقدار یک سلول پس از تغییر کمبوباکس و سوالی دیگر
    توسط mobinsaffarpour در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 8
    آخرين نوشته: 2015/10/03, 11:22
  3. تغییر خودکار ضریب ستون ها با تغییر دادن لیست ...
    توسط shahab47 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 5
    آخرين نوشته: 2015/07/21, 22:23
  4. تغییر رنگ Textbox به محض تغییر محتوای ان
    توسط Nima در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2012/06/25, 18:32

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

تغییر رنگ‌نمایشگر سلول اکسل

تغیر رنگ سلول فعال در اکسل

تغییر رنگ انتخاب cell

https:forum.exceliran.comshowthread.php12627-تغییر-رنگ-سلول-با-انتخاب-آن

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد