سلام ...نه دقيقا" منظورم همين بود ولي كد VBA اون را مي خواستم . فكر كنم تاپيك را بد جايي بالا آوردم .
نگاه كنيد كد vba اون را با ماكرو ميشه بدست آورد ولي يكم نا مفهومه مثلا"
کد PHP:
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
نمي فهمم
علاقه مندی ها (Bookmarks)