با درود فراوان
دوست عزیز برای اینکار که شما فرموده اید اگر با کدنویسی بخواهی انجام بدهی به روشهای مختلف میشه انجام داد که من دو روش را مثال زده ام
یکی اینکه تغییر رنگ و سایز به دلخواه باشد و یا اینکه بصورت رندم باشه
مثال :
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
اگر سئوالی در مورد کد های بالا بود در خدمتم
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
علاقه مندی ها (Bookmarks)