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

[afshin160]

با سلام ...

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

[khakzad]

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

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

[afshin160]

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

سلام ...نه دقيقا" منظورم همين بود ولي كد 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]

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

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

[mrexcel]

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

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

[shamsololama]

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

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

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

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

[afshin160]

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

سلام ..

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

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

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

[paz]

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

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

[shamsololama]

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

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

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