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