نکته: زبانهای دیگر گوگل ترجمه شده اند. شما می توانید از English نسخه این لینک
ورود
x
or
x
x
ثبت نام
x

or

نحوه ترکیب کتابهای چندگانه به یک کتاب کارشناسی ارشد در اکسل؟

آیا شما تا به حال گیر کرده اید، زمانی که شما باید کتاب های متعدد را به یک کتاب کارشناسی ارشد در اکسل ترکیب کنید؟ وحشتناکترین چیز این است که کتابهای مورد نیاز برای ترکیب شامل چندین برگه است. و چگونگی ترکیب کارنامه های مشخص شده چند کتاب در یک کتاب درسی این آموزش چندین روش مفید برای کمک به شما در حل گام های مشکل با مراحل را نشان می دهد.


به راحتی کتابهای چندگانه را در یکی از اکسل ترکیب کنید:

La ترکیب کردن کتاب کارنامه ابزار Kutools برای اکسل می تواند به راحتی شما را به راحتی فایل های اکسل را به یکی ترکیب کند. علاوه بر این، به شما اجازه می دهد تا فقط کارنامه های تعیین شده از فایل های خاص اکسل را به راحتی به یک کارشناسی ارشد متصل کنید. در حال حاضر تمام ویژگی های 60 رایگان روز را رایگان دانلود کنید!

ترکیب کارهای چندگانه را به یک کتابچه با عملکرد حرکت یا کپی

اگر فقط چند کار کتاب وجود دارد باید ترکیب شوند، می توانید از دستور Move یا Copy برای انتقال و یا کپی کارنامه از کتاب کار اصلی به کتاب کارشناسی ارشد استفاده کنید.

1 کتابهای آموزشی را که به یک کتاب کارشناسی ارشد متصل خواهید شد، باز کنید.

2 برگه های کار را در کتاب کار اصلی خود که شما را به کتاب کارشناسی ارشد منتقل خواهد کرد، انتخاب کنید.

یادداشت:

1) شما می توانید چندین برگه غیر مجاور را با برگزاری انتخاب کنید کلیدهای Ctrl کلید و کلیک بر روی برگه برگ یک به یک.

2) برای انتخاب چندین برگه مجاور، لطفا روی برگه برگه اول کلیک کنید، نگه دارید تغییر کلید، و سپس روی برگه برگه آخر کلیک کنید تا همه آنها را انتخاب کنید.

3) شما می توانید روی برگه برگه راست کلیک کنید، روی آن کلیک کنید تمام برگه ها را انتخاب کنید از منوی زمینه برای انتخاب همه برگه های کار در کتاب کار در همان زمان.

3 پس از انتخاب برگه های مورد نیاز، راست کلیک بر روی برگه برگه، و سپس کلیک کنید حرکت یا کپی کنید از منوی زمینه تصویر را ببینید:

4 سپس حرکت یا کپی کنید گفت و گو ظاهر می شود، در برای کتاب کشویی، کارشناسی کارشناسی ارشد را که می خواهید برگه های کار را برگردانید را انتخاب کنید. حرکت را برای پایان دادن به انتخاب انتخاب کنید قبل از ورق جعبه چک کنید یک کپی را ایجاد کنید جعبه، و در نهایت روی کلیک کنید OK را فشار دهید.

سپس شما می توانید برگه ها را در دو کتاب درسی ترکیب کنید. لطفا مراحل بالا را دوباره انجام دهید تا صفحات کار را از کتاب های دیگر به کتاب کارشناسی ارشد انتقال دهید.

دفتر تب - یک افزونه زمان صرفه جویی در زمان واقعی!

نمایش تمام اسناد باز شده در یک پنجره واحد برای کمک به سرعت یافتن یک سند مورد نیاز در یک نگاه.

نسخه کامل آزمایشی رایگان 45-day. سازگار با هر نسخه از اکسل، ورد و پاورپوینت.

بیشتر بدانید در مورد افزودنی>

ترکیب کتابهای چندگانه یا ورقهای مشخصی از کتابهای آموزشی به یک کتاب کارشناسی ارشد با VBA

اگر چند دفترچه کاري نياز به ادغام شدن داشته باشيد، مي توانيد کدهاي VBA زير را به سرعت به آن دست يابيد. لطفا به شرح زیر عمل کنید.

1 تمام کتابهای مورد نظر خود را که میخواهید در یک پوشه مشابه قرار دهید قرار دهید.

2 یک فایل اکسل را راه اندازی کنید (این کتاب کارنامه کارشناسی ارشد خواهد بود).

3 مطبوعات دگرساز + F11 کلید برای باز کردن مایکروسافت ویژوال بیسیک برای برنامه ها پنجره در مایکروسافت ویژوال بیسیک برای برنامه ها پنجره، بر روی قرار دادن > ماژول ها، سپس در زیر کد VBA در پنجره Module کپی کنید.

VBA کد 1: ادغام چندین کتاب اکسل به یکی

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xls")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub
	

یادداشت:

1 کد VBA بالا، پس از ادغام، نام اسامی کتابهای اصلی را حفظ خواهد کرد.

2 اگر میخواهید مشخص کنید که صفحات کار در کارشناسی ارشد از کجا پس از ادغام آمده است، لطفا کد زیر VBA کد 2 را اعمال کنید.

3 اگر شما فقط می خواهید کارهای مشخص شده از کتاب های درسی را به یک کتاب کارشناسی ارشد ترکیب کنید، کد زیر VBA کد 3 می تواند کمک کند.

در کدهای VBA، "C: \ Users \ DT168 \ Desktop \ KTE \"مسیر پوشه است. در VBA کد 3، "Sheet1، Sheet3"برگه های مشخص شده از کتاب های شما را به یک کتاب کارشناسی ارشد ترکیب می کند. شما می توانید آنها را با توجه به نیازهای شما تغییر دهید.

کد VBA 2: ادغام کتابها را به یک (هر برگه با پیشوند نام اصلی فایل نامیش خواهد شد):

Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
    Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
    xStrAWBName = ActiveWorkbook.Name
    For Each xWS In ActiveWorkbook.Sheets
    xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
    Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
    xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
    Next xWS
    Workbooks(xStrAWBName).Close
    xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

کد VBA 3: کارهای مشخص شده از کتابهای درسی را به یک کتاب کارشناسی ارشد متصل کنید:

Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next

xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"

xArr = Split(xStrName, ",")

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

4 مطبوعات F5 کلید برای اجرای کد سپس تمام برگه های کار و یا برگه های مشخص شده در دفترچه های کاری در پوشه خاص یک بار در یک کتاب کارشناسی ارشد ترکیب می شوند.

به راحتی کارهای چندگانه یا صفحات مشخصی از کتابهای درسی را به یک کتاب کار متصل کنید

Kutools برای اکسل

این Add-in اکسل دستی است که بیش از 300 ویژگی های پیشرفته جمع آوری برای ساده کار خود را در عملیات اکسل. با این کار می توانید به آسانی:

  • ترکیب کتابهای چند کاره؛
  • تعداد سلول های جمع شده توسط رنگ؛
  • سلولهای تقسیم شده؛
  • فضای دسته ای را حذف کنید
  • ویژگی های بیشتر ...

دانلود رایگان اکنون!

خوشبختانه، ترکیب کردن ابزار کتابت Kutools برای اکسل چندین کتاب کار را برای یکپارچه سازی آسان تر می کند. بیایید ببینیم چگونه این تابع در ترکیب چندین کتاب کار انجام می شود.

1 یک کتاب کار جدید ایجاد کنید و کلیک کنید Kutools Plus > ترکیب کردن. سپس یک کادر محاوره ای به شما یادآوری می شود که تمام کتابهای ترکیب شده باید ذخیره شوند و این ویژگی را نمی توان به کتاب های محافظت شده اعمال کرد، لطفا روی OK را فشار دهید.

2. در کارهای متفرقه جادوگر، انتخاب کنید کارهای چندگانه را از کتابهای درسی به یک کتاب کار متصل کنید گزینه، و سپس روی کلیک کنید بعد دکمه. تصویر را ببینید:

3. در کارآزمایی های ترکیبی - مرحله 2 از 3 کادر محاوره ای، روی کلیک کنید اضافه کردن > پرونده or پوشه برای اضافه کردن فایل اکسل شما به یک ادغام خواهد شد. پس از اضافه کردن فایل های اکسل، بر روی کلیک کنید پایان دکمه و یک پوشه را انتخاب کنید تا کتاب کارشناسی ارشد را ذخیره کنید. تصویر را مشاهده کنید:

در حال حاضر تمام کتاب های درسی به یک ادغام می شوند.

در مقایسه با دو روش فوق، Kutools برای اکسل دارای مزایای زیر است:

  • 1) تمام دفترچه ها و برگه ها در جعبه محاوره ذکر شده است؛
  • 2) برای برگه هایی که می خواهید از ادغام حذف شوند، فقط آن را بردارید؛
  • 3) برگه های خالی به طور خودکار حذف می شوند؛
  • 4) نام فایل اصلی به عنوان پیشوند به نام برگ پس از ادغام اضافه می شود.
  • برای توابع بیشتر از این ویژگی، لطفا از اینجا دیدن کنید.

آیا این ترکیب کتاب های درسی کمک ابزار بیایید دانلود کنید و امتحان کنید 60 روز آزمایشی رایگان!

توصیه شده ابزارهای بهره وری برای مایکروسافت آفیس

Tab Office - نوارابزار مرور، ویرایش و مدیریت در اکسل / ورد / پاورپوینت:

دفتر تب رابط کاربری Tabbed را در مرورگرهای وب مانند Google Chrome، نسخه های جدید اینترنت اکسپلورر و فایرفاکس به مایکروسافت اکسل / ورد / پاورپوینت به ارمغان می آورد. این یک ابزار صرفه جویی در زمان و غیر قابل تغییر در کار شما خواهد بود. نسخه ی نمایشی زیر را ببینید:

ot1

Kutools برای اکسل - ترکیبی از توابع و ابزارهای پیشرفته 300 برای مایکروسافت اکسل:

Kutools برای اکسل یک افزونه اکسل دستی با بیش از ویژگی های پیشرفته 300 برای ساده سازی انواع وظایف پیچیده به چند کلیک در اکسل است. مثلا:

  • ترکیب چندین برگه یا کتابچه ها را به یک کتابچه
  • تعداد و مجموع سلول بر اساس رنگ پس زمینه / فونت
  • محتویات سلول را به چند ردیف / ستون با فضای / کاما / جداکننده تقسیم کنید
  • دسته حذف فضاهای پیشنهادی در سلول ها
kte

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    cindy · 2 years ago
    thanks for the macro guided for 'Combine multiple workbooks to one workbook with VBA'.

    However, i do have an additional cirtumtances.
    Let's take your example.
    In the folder 'dt kte', there are 4 workbook (book1, book2, book3 & book4)
    The macro will merge all worksheet in every single workbook into my excel file.
    However, the circumtances i need is:-
    in every workbook, there is mutual sheet named "HIJ".

    what would be the macro if i only want to merge the HIJ worksheet in book1 to book4, into one workbook i want?
  • To post as a guest, your comment is unpublished.
    MUHAMMAD MURTAZA · 2 years ago
    ASSALAM O ALIKUM,,

    LOT OF THANKS FOR COMBINE WORK SHEET IN MASTER SHEET
  • To post as a guest, your comment is unpublished.
    Gnanesh · 2 years ago
    Thank you very much for the script for combining workbooks!
  • To post as a guest, your comment is unpublished.
    Hoang · 2 years ago
    The above code works well, but it seems that it doesn't follow any certain order, in my folder, each excel file ( before merging ) has 1 sheet with same name,for exp: book1 contains sheet named A, book2 also contains sheet named A ,....then after merging by VBA, the combined workbook contains sheets named A, A(1), A(2), A(3),...in random order, A(1) actually doesn't belongs to initial book1. So it's hard for me to identify, I can't know each sheet originally belongs to which file. The result I expect is that all sheets will be combine in name order of original separated file

    Perhaps i can't explain my point well, if someone has same situation or can understand me, then pls kindly upgrade vba code that can combine sheets in order of alphabet name or ascending number ?
  • To post as a guest, your comment is unpublished.
    wooly · 2 years ago
    I'm new to Excel and am struggling to identify what I need to personalise in this code to make it work. Obviously "path" but is that it? as I'm getting errors on the two "set copyrng" and "set dest" row.

    None of these worked for me

    I finally got this one to work. FYI I am using 2010

    'Description: Combines all files in a folder to a master file.
    Sub MergeFiles()
    Dim path As String, ThisWB As String, lngFilecounter As Long
    Dim wbDest As Workbook, shtDest As Worksheet, ws As Worksheet
    Dim Filename As String, Wkb As Workbook
    Dim CopyRng As Range, Dest As Range
    Dim RowofCopySheet As Integer

    RowofCopySheet = 2 ' Row to start on in the sheets you are copying from

    ThisWB = ActiveWorkbook. Name

    path = "mypath....." ' Dont't forget to change this

    Application.Ena bleEvents = False
    Application.Scr eenUpdating = False

    Set shtDest = ActiveWorkbook. Sheets(1)
    Filename = Dir(path & "\*.xls", vbNormal)
    If Len(Filename) = 0 Then Exit Sub
    Do Until Filename = vbNullString
    If Not Filename = ThisWB Then
    Set Wkb = Workbooks.Open( Filename:=path & "\" & Filename)
    Set CopyRng = Wkb.Sheets(1).R ange(Cells(Rowo fCopySheet, 1), Cells(ActiveShe et.UsedRange.Ro ws.Count, ActiveSheet.Use dRange.Columns. Count))
    Set Dest = shtDest.Range(" A" & shtDest.UsedRan ge.SpecialCells (xlCellTypeLast Cell).Row + 1)
    CopyRng.Copy Dest
    Wkb.Close False
    End If

    Filename = Dir()
    Loop

    Range("A1").Sel ect

    Application.Ena bleEvents = True
    Application.Scr eenUpdating = True

    MsgBox "Done!"
    End Sub