پرسش تغییر رنگ متن در سلول

[mehdies]

باسلام
در یک سلول از اکسل نوشته به طول تقریبا 40 تا 50 کاراکتر دارم می خوام بعد از وارد کردن متن اکسل اتومات بعد از کاراکتر 18 بیست کارکتر رو رنگش رو عوض کنه
لطفا راهنمایی بفرمایید
ممنون

[میثم مقدم نیا]

باسلام
در یک سلول از اکسل نوشته به طول تقریبا 40 تا 50 کاراکتر دارم می خوام بعد از وارد کردن متن اکسل اتومات بعد از کاراکتر 18 بیست کارکتر رو رنگش رو عوض کنه
لطفا راهنمایی بفرمایید
ممنون

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

Sub colers()

    Range("A1").Select

    With ActiveCell.Characters(Start:=19, Length:=20).Font
        .Color = -16776961 'قرمز
'        .Color = -11489280'سبز
'       .Color = -6279056' بنفش
'        .Color = -65536' آبي
'       .Color = -16711681 'زرد
'        .Color = -16750849 'نارنجي
    End With
End Sub 

[دکتر علیزاده]

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

Sub colers()

    Range("A1").Select

    With ActiveCell.Characters(Start:=19, Length:=20).Font
        .Color = -16776961 'قرمز
'        .Color = -11489280'سبز
'       .Color = -6279056' بنفش
'        .Color = -65536' آبي
'       .Color = -16711681 'زرد
'        .Color = -16750849 'نارنجي
    End With
End Sub 

سلام جناب آقای مقدم نیا
ببخشید این کد کار نمیکنه و به end with ایراد میگیره یه پیشنهاد دارم جسارتا لطفا جواب را قبل از ارسال خودتون امتحان نمائید. با سپاس

[Ali Parsaei]

سلام،
کد کار مي کند منتهي قاعدتا" بايد اين کد را در رويداد SelectionChange شيت بنويسيد که اين کار اصلا" جالب نيست و فايل را کند مي کند!!!! معمولا" کسي اين کار را نمي کند!!!!
فرضا" اگر سلول مورد نظر شما A1 باشد براي اعمال رنگ قرمز اينطور مي شود:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 With Range("A1").Characters(Start:=19, Length:=20).Font
Color = -16776961    
End With
End Sub 

يک ايده هم اين است که مي توانيد يک دگمه تعبيه کنيد و هر موقع آن دگمه را کليک کرديد اين تغيير در آن سل اعمال گردد، البته بايد ديد شرايط استفادتون از فايل چطور هست و اين ايده به درد مي خورد يا نه!

[میثم مقدم نیا]

سلام جناب آقای مقدم نیا
ببخشید این کد کار نمیکنه و به end with ایراد میگیره یه پیشنهاد دارم جسارتا لطفا جواب را قبل از ارسال خودتون امتحان نمائید. با سپاس

این کد را من درون یک ماژول نوشتم و با فراخوانی کد اجرا میشود

توی سیستم من که هیچ مشکلی نداره