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

[shamsololama]

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

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

یکی اینکه تغییر رنگ و سایز به دلخواه باشد و یا اینکه بصورت رندم باشه

مثال :

Sub chw1()
l = Len(Application.Selection)
For i = 1 To l
With ActiveCell.Characters(Start:=i, Length:=1).Font
.Size = Int((20 * Rnd) + 1) + 10
.ColorIndex = i + 3
End With
Next i

End Sub


مثال:

Sub chw2()
l = Len(Application.Selection)
For i = 1 To l
With ActiveCell.Characters(Start:=i, Length:=1).Font
.Size = Int((20 * Rnd) + 1) + 10
.ColorIndex = Rnd * 10
End With
Next i

End Sub

اگر سئوالی در مورد کد های بالا بود در خدمتم

[mostafamatloobian]

به همينطوره كه ميگيد ولي متاسفانه من زياد وارد نيستم تا اين دستورات را اعمال كنم اگه توضيح بديد ممنون ميشم.
در ضمن من قبلا به طور اتفاقي به گزينه اي در اكسل بر خوردم كه خيلي ساده بود و فقط بايد كاراكتر مورد نظرم را در اونجا تايپ ميكردم تا اكسل اين كار را براي من انجام بده( مثل قالب بندي شرطي) ولي چون مال خيلي وقت پيشه يادم نمياد چجوري بود.