ما به راحتی می توانیم داده ها را در یک صفحه اکسل یا کل کاربرگ در اکسل کپی و جایگذاری کنیم. اما اگر بخواهیم داده ها را از صفحه پنهان کپی کنیم، می تواند یک فرآیند بسیار طولانی باشد. ما میتوانیم با استفاده از برنامه VBA، دادهها را از یک شیت مخفی بدون باز کردن صفحه کپی کنیم، زیرا این کار مستقیماً در اکسل قابل انجام نیست. این آموزش را بخوانید تا یاد بگیرید چگونه می توانید یک برگه مخفی را در اکسل کپی کنید.
کپی کردن یک شیت مخفی در اکسل
در اینجا ما یک ماژول VBA را وارد می کنیم و سپس کد را برای تکمیل کار اجرا می کنیم. اجازه دهید به یک روش ساده برای کپی کردن صفحات مخفی در اکسل با استفاده از برنامه VBA نگاه کنیم.
مرحله 1
اجازه دهید یک workbook اکسل را در نظر بگیریم که دارای چندین کاربرگ با مقداری داده است. اکنون برای مخفی کردن هر برگه، روی نام برگه کلیک راست کرده و از منو گزینه hide را انتخاب کنید.
کلیک راست کنید > Hide
اگر بخواهیم داده ها را از شیت کپی کنیم، می توانیم از کمک اپلیکیشن VBA استفاده کنیم. ابتدا روی نام برگه کلیک راست کرده و View Code را انتخاب کنید تا برنامه VBA باز شود.
سپس روی “insert” کلیک کنید، “module” را انتخاب کنید و کد برنامه زیر را مانند تصویر زیر در کادر متنی تایپ کنید.
کلیک راست کنید > View code > Insert > Module > Program
برنامه
Sub DupSheet() 'Update By Nirmal Dim Actsheet As String Application.ScreenUpdating = False On Error Resume Next ActiveWorkbook.Sheets("Sheet5").Visible = True ActiveWorkbook.Sheets("Sheet5").Copy _ after:=ActiveWorkbook.Sheets("Sheet5") ActNm = ActiveSheet.Name ActiveSheet.Name = InputBox("Enter the name for the new sheet.") Sheets(ActiveSheet.Name).Visible = True ActiveWorkbook.Sheets("Sheet5").Visible = False Application.ScreenUpdating = True End Sub
در برنامه، برگه 5 نام برگه پنهان در workbook است.