با سلام خدمت کاربران عزیز آی تی سواد
فرض کنید که ما هر جدول فروش ماهانه را در کاربرگ جدا از شیت نمایش که نشاندادهشده ، قرار دهیم ، و تمام جدولهای فروش همان چیدمان را دارند . حال میخواهیم یک لیست از تمام مقادیر مجموع ( E۶ سلول ) در عرض چند worksheets ایجاد کنیم . چگونه این کار را انجام دهیم ؟ و اگر یک لیست دینامیک از مقادیر جمع هر کاربرگ ایجاد کنیم چه ؟ دو راه برای شما وجود دارد :
فهرستی از سلولها یکسان در چند شیت با vba
۱. کلیدهای Alt + F11 را فشار دهید تا پنجره Microsoft Visual Basic for Applications باز شود .
۲. در پنجره Microsoft Visual Basic for Applications بر رویInsert > Module کلیک کنید و سپس از زیر کد VBA را کپی و در درون پنجره ماژول قراردهید .
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Sub CreateList() Dim xAddWs As Worksheet Dim xWs As Worksheet Dim RngAddress As String xTitleId = "KutoolsforExcel" RngAddress = Application.ActiveCell.Address Set xAddWs = Application.ActiveWorkbook.Sheets.Add xAddWs.Name = xTitleId i = 1 For Each xWs In Application.ActiveWorkbook.Worksheets If xWs.Name <> xTitleId Then xAddWs.Cells(i, 1).Value = xWs.Range(RngAddress).Value i = i + 1 End If Next End Sub |
۳ . کلید F۵ را فشار دهید یا روی دکمه Run کلیک کنید تا این VBA را اجرا کنید .
سپس همه مقادیر از سلول مشخصشده روی تمام worksheets به یک کاربرگ جدید به نام KutoolsforExcel کپی میشوند .
ترجمه شده از سایت www.extendoffice.com