با سلام و روز خوش
ماکرو زیر رو را در نظر بگیرید.
مشکلی که وجود دره اینه که در دستور بالا ردیف 654 رو اصلاح می کنه. در حالیکه من می خوام ردیف آخر رو اصلاح کنه. چرا که با توجه به کم یا زیاد شدن ردیف های اکسل آخرین ردیف اکسل جاش (شماره اش) عوض می شه. و در نتیجه دستور بالا فایده ای نداره.
با تشکر منتظر راهنمایی دوستان می باشم
ماکرو زیر رو را در نظر بگیرید.
Sub qwww()
'
' qwww Macro
'
'
Rows("654:654").Select
With Selection.Font
.Name = "B Traffic"
.Size = 13
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
End Sub
'
' qwww Macro
'
'
Rows("654:654").Select
With Selection.Font
.Name = "B Traffic"
.Size = 13
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
End Sub
مشکلی که وجود دره اینه که در دستور بالا ردیف 654 رو اصلاح می کنه. در حالیکه من می خوام ردیف آخر رو اصلاح کنه. چرا که با توجه به کم یا زیاد شدن ردیف های اکسل آخرین ردیف اکسل جاش (شماره اش) عوض می شه. و در نتیجه دستور بالا فایده ای نداره.
با تشکر منتظر راهنمایی دوستان می باشم
کامنت