آیا موقعیتی را تجربه کرده اید که بخواهید داده های انتخاب شده را از برگه موجود در برگه دیگری کپی کنید؟ اگر بخواهیم این کار را به صورت دستی انجام دهیم، فرآیندی زمان بر خواهد بود زیرا باید یک workbook جدید ایجاد کنیم و سپس داده ها را کپی کنیم. ما میتوانیم کار را با کمک یک برنامه VBA خودکار کنیم، زیرا نمیتوان آن را مستقیماً در اکسل تکمیل کرد. در این مقاله یاد می گیریم که چگونه با استفاده از اپلیکیشن vba یک محدوده انتخاب شده را در یک workbook جدید در اکسل کپی کنیم.
کپی کردن یک محدوده انتخاب شده در یک workbook جدید
در اینجا ابتدا برنامه VBA را باز می کنیم، سپس ماژول را وارد می کنیم، کد زیر را در جعبه متن کپی می کنیم و کد را اجرا می کنیم تا وظیفه خود را کامل کنیم. اجازه دهید به یک روش ساده برای کپی کردن یک محدوده انتخاب شده در یک workbook جدید در Excel با استفاده از برنامه VBA نگاه کنیم.
مرحله 1
اجازه دهید هر برگه اکسل را در نظر بگیریم، سپس دادههایی را که میخواهید در برگه جدید کپی کنید، انتخاب کنید و روی نام برگه کلیک راست کرده و view code را انتخاب کنید تا برنامه VBA باز شود. سپس در برنامه VBA، روی “Insert” کلیک کنید و “Module” را انتخاب کنید.
داده > کلیک راست > مشاهده کد > درج > ماژول را انتخاب کنید
گام 2
کد برنامه زیر را مانند تصویر زیر در کادر متنی تایپ کنید.
برنامه
Sub AddNew() 'Updated By Nirmal Dim xWs As Worksheet Dim Rng As Range Set Rng = Application.Selection Application.Workbooks.Add Set xWs = Application.ActiveSheet Rng.Copy Destination:=xWs.Range("A4") End Sub
در کد، A4، سلولی است که داده های ما در workbook جدید جای می گیرند.
مرحله 3
سپس برگه را به عنوان یک workbook با قابلیت ماکرو ذخیره کنید و روی F5 کلیک کنید تا کد اجرا شود. یک workbook جدید ایجاد می شود و داده های انتخاب شده از سلول A4 مانند تصویر زیر چسبانده می شود.