ماکرو نویسی

[ali1160kh]

با سلام
من یه فایل اکسل دارم که در سلول هاش متنهایی نوشته شده که بخشی از آنها سفید رنگ هستند و باقی به رنگهای دیگه (عکس پیوست)
حالا می خوام بدونم چطور می تونم فقط حروف سفید رنگ رو تبدیل به سیاه کنم. در واقع می خوام رنگ بخشی از Text ای رو با کد نویسی تغییر بدم.
اگه دوستان کسی می تونه زحمت کدش رو بکشه ممنون میشم راهنماییم کنید.

[Ali Parsaei]

سلام،
از کد زير مي توانيد استفاده کنيد منتهي من کد را براي محدوده A1 تا G10 نوشته ام و فرض کرده ام که حداکثر کاراکتر درج شده در يک سل 20 کاراکتر مي باشد، شما مي توانيد بر حسب نياز محدوده مورد نظر و همچنين عدد 20 را در کد تغيير دهيد:

Sub Macro1()
Dim C As Range
Dim D As Integer
D = 1
Do While D < 20
For Each C In Range("A1:G10")
On Error Resume Next
If C.Characters(Start:=D, Length:=D).Font.ThemeColor = xlThemeColorDark1 Then
C.Characters(Start:=D, Length:=D).Font.ColorIndex = xlAutomaticEnd IfNext
D = D + 1
Loop
End Sub