در خصوص With/End with و (End(xlUp

[Amin_D]

با سلام

داخل بعضی از کد های ویژوال بیسیک از

With ActiveSheet
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With

(که بین آنها یک سری کد نویسی میشه)

میخواستم ببینم
برای چی هست و چه موقع استفاده میشه؟

همچنین

End(xlUp)

چه موقع استفاده میشه
با تشکر

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[Nima]

برای درک بهتر این موضوع یک فایل جدید باز کنید با فرض انکه در ستون a شما تعدادی از سلول ها پر باشه اخرین سلول در ستون a رو انتخاب کنید و دکمه macro recording رو بزنید حالا با استفاده از کلید ترکیبی Ctrl+Shift+Page Up شما به اخرین سلولی در ستون مربوطه دارای دیتا می باشد می روید حالا دکمه stop recording رو بزنید و به قسمت ویژوال برید احتمالا ماکرو شما باید یه چیزی شبیه به

    Range("A1048576").Select
    Range(Selection, Selection.End(xlUp)).Select

باشه که در اصل همون کدی که شما اشاره کردید و برای پیدا کردن اخرین سلول پر در یک ستون استفاده میشود

[Nima]

در خصوص ساختارwit/end with هم زمانی که تعداد اعمال تکراری روی یک object مثل رنج یا سلول قرار هست انجام بشود برای جلوگیری از تکرار برخی قسمتهای کد از این ساختار استفاده می گردد


مثل:

With Site
        .Name = "سایت اموزش اکسل"
        .URL = "http://www.ٍexceliran.com/"
        .City = "تهران" 
    End With

[Amin_D]

در خصوص ساختارwit/end with هم زمانی که تعداد اعمال تکراری روی یک object مثل رنج یا سلول قرار هست انجام بشود برای جلوگیری از تکرار برخی قسمتهای کد از این ساختار استفاده می گردد


مثل:

With Site
        .Name = "سایت اموزش اکسل"
        .URL = "http://www.ٍexceliran.com/"
        .City = "تهران" 
    End With

سلام
میبخشید این کدها چیکار میکنن؟

[Nima]

ببینید فکر کن که می خوای از طریق ماکرو یک سری اعمال رو روی یک رنجی مثل A1 انجام بدی در حالت عادی باید بنویسی:

ActiveSheet.Range("A1").Select
ActiveSheet.Range("A1").Value = "salam"
ActiveSheet.Range("A1").Font.Color = vbRed
ActiveSheet.Range("A1").Font.Bold = True
ActiveSheet.Range("A1").Font.Italic = True

برای کوتاه شدن کد نویسی میتونی از with/endwith استفاده کنی:

ActiveSheet.Range("A1").Select
With Selection
    .Value = "salam"
    .Font.Color = vbRed
    .Font.Bold = True
    .Font.Italic = True
End With

در حقیقت ذو کد بالا یک کار رو انجام میدن اما به نظر شما کدوم سریعتر و قابل فهم تره؟