تغییر رنگ سلول

[mt6711]

سلام دوستان

آیا راهی هست که با کلیک بر روی یک سلول بتونیم رنگ زمینه یا فونت سلول دیگه رو تغییر بدیم

مثلا من 10 فرمول رو در 10 سلول نوشتم و متغیر اونها رو در 10 سلول دیگه میخوام روی هر فرمولی که کلیک میکنم سلول متغیر اون تغییر رنگ بده

آیا امکانش هست . ممنون

[امين اسماعيلي]

با درود

فکر کنم این مورد باید تو تالار vba ویژوال مطرح بشه

[mt6711]

با درود

فکر کنم این مورد باید تو تالار vba ویژوال مطرح بشه

اگر مربوط به اون تالار هست ممنون میشم مدیران بحث رو انتقال بدن اونجا

[mokaram]

target.interior.color=vbred 

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

[Amir Ghasemiyan]

اگر مربوط به اون تالار هست ممنون میشم مدیران بحث رو انتقال بدن اونجا

به تالار مناسب منتقل شد

[mt6711]

target.interior.color=vbred 

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

مرسی ، ولی اینطور نمیخوام من میخوام مثلا وقتی روی سلول b2 کلیک میکنم رنگ سلول e5 تغییر کنه

[mokaram]

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

ActiveCell.Offset(0, 3).Interior.Color = vbRed 

[امين اسماعيلي]

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

[mt6711]

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

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

[امين اسماعيلي]

خوب این کار شدنی . ولی خوب بزار اول بدون VBAببین این بدرد بخوره. سل حاوی فرمول رو انتخاب و بعد از بخش formula اینو بزن trace precedents

[mt6711]

خوب این کار شدنی . ولی خوب بزار اول بدون VBAببین این بدرد بخوره. سل حاوی فرمول رو انتخاب و بعد از بخش formula اینو بزن trace precedents

مرسی من trace dependents رو امتحان کردم دقیقا چیزی بود که میخواستم ولی اینطور همش فلش میکشه و همون شکل میمونه تا کنسلش کنی . راهی برای هایلایت کردن سل جواب فقط با کلیک روی سل متغیر نیست ؟

[mt6711]

ببینید دوستان من فرم زیر رو دارم :

مثلا من فرمول محاسبه قیمت فروش کالای 1 که میشه c4 رو در سل j4 وارد کردم و وقتی قیمت خرید رو در سل c4 وارد میکنم برای من قیمت فروش رو محاسبه میکنه . حالا چون لیست بلند هست و شلوغ میخوام وقتی روی قیمت خرید یک کالا (c4) کلیک میکنم قیمت فروش محاسبه شده ی اون (J4) هایلایت بشه یعنی فقط وقتی که کلیک شده

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

فایل پیوست رو ببینید البته ردیف هایلایت میشه

[mt6711]

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

ActiveCell.Offset(0, 3).Interior.Color = vbRed 

فایل پیوست رو ببینید البته ردیف هایلایت میشه

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.ClearFormats
ActiveCell.Offset(0, 7).Interior.Color = vbRed
End Sub

فقط برای پاک کردن هایلات قبلی دستور Cells.ClearFormats رو اول وارد کردم که باعث مبشه کل فرمتهایی که باهاش شیت رو شکل دادم هم پاک بشه ، میشه این دستور رو کمی دستکاری کرد که مثلا فقط هایلیتهای یک محدوده رو پاک کنه یا در یک محدوده خاص عمل کنه ؟ و یا دستوری که بشه باهاش رنگ زمینه یک محدوده سل رو سفید کرد ؟

[alieddy0]

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.ClearFormats
ActiveCell.Offset(0, 7).Interior.Color = vbRed
End Sub

فقط برای پاک کردن هایلات قبلی دستور Cells.ClearFormats رو اول وارد کردم که باعث مبشه کل فرمتهایی که باهاش شیت رو شکل دادم هم پاک بشه ، میشه این دستور رو کمی دستکاری کرد که مثلا فقط هایلیتهای یک محدوده رو پاک کنه یا در یک محدوده خاص عمل کنه ؟ و یا دستوری که بشه باهاش رنگ زمینه یک محدوده سل رو سفید کرد ؟

با سلام
شما میتونید آدرس محدوده ای که میخواین فرمتش رو پاک کنید بدین بعنوان مثال :

sheet1.range("A1:G100").clearformats 

یا اگه میخواین فقط سلول ها سفید بشن

sheet1.range("A1:G100").select
    With Selection.Interior   
     .Pattern = xlNone  
      .TintAndShade = 0    
    .PatternTintAndShade = 0  
  End With