چطور ميتوان به يه كاراكتر خاص از يه رشته در يك سل يه فونت و رنگ ديگر داد ؟

[afshin160]

با سلام ...

چندي پيش يه فايل اكسل ديدم كه در يه سل يك سري كاراكتر قرارداشت كه تعدادي از اون كاراكترها فونت و اندازه متفاوتي با بقيه كاراكتر ها داشت . وفكر كنم كه رنگ بعضي هاشون هم متفاوت بود .
چطور ميتوان به يه كاراكتر خاص از يه رشته در يك سل يه فونت و رنگ ديگر داد ؟ odgy:

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

[khakzad]

سلام
میشه دقیق تر بیان کنید. چون اینکارو با select کردن اون کاراکترهای خاص میشه انجام داد.که مسلما هدفتون این نیس!!

[afshin160]

سلام ...نه دقيقا" منظورم همين بود ولي كد VBA اون را مي خواستم . فكر كنم تاپيك را بد جايي بالا آوردم .
نگاه كنيد كد vba اون را با ماكرو ميشه بدست آورد ولي يكم نا مفهومه مثلا"‌

Sub Macro1()
'
' Macro1 Macro
'

'
    ActiveCell.FormulaR1C1 = "Asdfsdf"
    With ActiveCell.Characters(Start:=1, Length:=2).Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    With ActiveCell.Characters(Start:=3, Length:=1).Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorAccent1
        .TintAndShade = 0.399975585192419
        .ThemeFont = xlThemeFontMinor
    End With
    With ActiveCell.Characters(Start:=4, Length:=4).Font
        .Name = "Arial"
        .FontStyle = "Regular"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    Range("A4").Select
End Sub 

قسمت :

.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.399975585192419
.ThemeFont = xlThemeFontMinor

نمي فهمم

[ariyo]

با سلام
بنده هم با پاسخ خانم خاکزاد موافقم.
چون شما می توانید به راحتی و انتخاب تک کاراکتر و یا چند کاراکتر از قسمتی از متن در یک سلول، فرمت آنرا تغییر دهید. اما تصور می کنم که سئوال مد نظر شما در مورد دیگری باشد. لطفا سئوال رو واضح تر بیان کنید.

[mrexcel]

اولا اين دوستمون تو ويژوال بيسيك سئوال نكرده كه جوابش را كد ويبي بدهيم
اگر بخواهيم يك كاراكتر خاص از يك رشته متني با عددي را به يك رنگ خاص در بياوريم بايد با فعال كردن سلول فقط همان كاراكتر را انتخاب كنيم سپس از منوي HOME تنظيمات مربوط به ان را انجام داد .

[shamsololama]

با دورد فراوان

جواب را با دو مثال در صفحه زیر در قسمت ویژوال قرار داده ام

http://forum.exceliran.com/showthread.php?tid=296

[afshin160]

سلام ..

سلام ...نه دقيقا" منظورم همين بود ولي كد VBA اون را مي خواستم . فكر كنم تاپيك را بد جايي بالا آوردم .

معمولا" در forum ها متداول هست كه مديران قسمتهاي مختلف تاپيك ها را مديريت ميكنند يعني اگه يه بنده خدايي مثل من از دستش در رفت و يه سوال را در يه قسمت نا مربوط پرسيد اون تاپيك را انتقال ميدهند ولي گويا چنين امكاني در اين فروم نيست يا دوستان دسترسي ندارن .

به هر حال دوست خوبمون زحمت كشيدن ودر قسمت VBA هم تاپيك زدن و هم جواب دادن .

[paz]

حالا يه سوال در اين رابطه آيا ميشه تعريف كرد كه هر جا مثلا حرف t داشت اون حرف به رنگ قرمز دربياد يا هر عدد انتخابي؟

[shamsololama]

با درود فراوان

این سئوال در همین مورد در تالار جواب داده ام و نمونه فایل هم قرار داده ام اگر پیدا نکردی بگو تا دوباره جواب بدم