سلام،
از کد زير مي توانيد استفاده کنيد منتهي من کد را براي محدوده A1 تا G10 نوشته ام و فرض کرده ام که حداکثر کاراکتر درج شده در يک سل 20 کاراکتر مي باشد، شما مي توانيد بر حسب نياز محدوده مورد نظر و همچنين عدد 20 را در کد تغيير دهيد:
کد PHP:
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
علاقه مندی ها (Bookmarks)