جستجو

ترفندهای کامپیوتری

حضرت علی (ع): «زَکوةُ العِلمِ نَشرُهُ؛ زکات علم نشر آن است».
وبلاگ "ترفندها" (سایت پی‌سی‌ترفند) برای عمل به این حدیث شریف و با هدف ارتقاء دانش و مهارت‌های مرتبط با رایانه در ۳۰ مهرماه ۱۳۹۱ ایجاد شده است. به امید آنکه مفید واقع شود.
ربات پی‌سی‌ترفند در تلگرام:
telegram.me/pctarfand_bot

خلاصه آمار

تبليغات

پربحث ترين ها

۱

ادغام چند فایل یا چند شیت اکسل

اکسل ماکرونویسی

ادغام چند فایل یا چند شیت اکسل

برخی از اوقات اطلاعات مرتبط با یک موضوع در دو یا چند فایل اکسل و یا چند شیت مجزا نگهداری می‌شود. قرار دادن این اطلاعات در یک فایل واحد و در یک شیت و یا در شیت‌های مختلف در کنار یکدیگر، موجب دسترسی راحت‌تر به آن‌ها و صرفه‌جویی در زمان خواهد شد. همچنین بدیهی است که نگهداری و به خاطر سپردن یک فایل بسیار آسان‌تر از چند فایل است. در ادامه مطلب با پی‌سی‌ترفند همراه باشید تا با روش‌های ادغام چند فایل یا چند شیت اکسل آشنا شوید.

چند فایل یا چند شیت اکسل را می‌توان بصورت دستی ادغام کرد. اما اگر تعداد این فایل‌ها یا شیت‌ها زیاد باشد ادغام دستی بسیار زمان‌بر و خسته کننده خواهد بود. برای همین بهتر است از روش‌های خودکار یعنی ماکرونویسی و استفاده از افزونه‌های اکسل استفاده کنید.

روش ۱- ماکرونویسی:

الف) ادغام چند شیت اکسل در یک شیت:

برای ساخت ماکرو کلیدهای Alt + F11 را فشار دهید یا از تب Developer قسمت code گزینه Visual Basic را انتخاب کنید. پنجره Microsoft Visual Basic ظاهر می‌شود. در این پنجره از تب Insert گزینه Module را انتخاب نمائید.

در پنجره جدید باز شده کدهای زیر را کپی کنید.

Sub Combine()
'pctarfand.ir & tarfandha.blog.ir'
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub

سپس دکمه  یا کلید F5 را فشار دهید تا کد اجرا شود و شیت‌های مختلف با هم ادغام شوند مشابه آنچه در تصویر اول نشان داده شده است. برای اجرای صحیح کد باید به چند نکته دقت کرد:

۱- اطلاعات باید از سلول A1 شروع شود، اگر این طور نباشد کد هیچ تاثیری نمی‌گذارد.

۲- اطلاعات باید دارای ساختار یکسانی باشند.

۳- این کد فقط شیت‌های فایل فعال را ادغام می‌کند، اگر می‌خواهید شیت‌های چند فایل اکسل را با هم ادغام کنید از کد ماکروی بعد استفاده کنید.

منبع: extendoffice.com

ب) ادغام چند فایل اکسل در یک فایل

برای ادغام چند فایل، آن‌ها را درون یک پوشه قرار دهید.

فایل اکسلی که می‌خواهید ادغام سایر فایل‌ها درون آن انجام شود را باز کنید. برای ساخت ماکرو، مراحل گفته شده در حالت قبل را انجام دهید و از کدهای زیر استفاده کنید. البته آدرس پوشه را درون کد ماکرو تغییر دهید.

Sub GetSheets()
'pctarfand.ir & tarfandha.blog.ir'
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

سپس دکمه  یا کلید F5 را فشار دهید تا کد اجرا شود و فایل‌های قرار داده شده در پوشه مورد نظر با هم ادغام شوند.

منبع: extendoffice.com


روش ۲- نصب افزونه

- افزونه RDBMerge Add-in

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

برای نصب این افزونه کافیست پس از دانلود از این سایت و سپس استخراج آن، در پنجره تنظیمات اکسل وارد بخش Add-Ins شوید و در قسمت پایین پس از انتخاب گزینه Excel Add-Ins در بخش Manage روی دکمه Go کلیک کنید. در پنجره Add-Ins روی دکمه Browse کلیک کنید و فایل افزونه را انتخاب نموده و روی دکمه Ok کلیک کنید. پس از اضافه کردن افزونه، در تب Data دکمه جدیدی با نام RDBMerge Add-in به اکسل اضافه می‌شود. با کلیک روی این دکمه پنجره زیر باز می‌شود.

برای استفاده از این افزونه، ابتدا فایلی که می‌خواهید شیت‌های آن با هم ادغام شوند را درون یک پوشه قرار دهید و یا اگر می‌خواهید چند فایل را با هم ادغام کنید آن‌ها را درون یک پوشه قرار دهید و سپس با استفاده از دکمه Browse، آن پوشه را انتخاب کنید. سایر مراحل کار در سایت افزونه توضیح داده شده است.

این افزونه توسط سایت سونار وب فارسی شده است البته رایگان نمی‌باشد.

 

- افزونه Kutools

برای دانلود و آموزش نحوه استفاده از این افزونه به این آدرس (ادغام چند شیت) و این آدرس (ادغام چند فایل) مراجعه کنید.

 

عضویت در خبرنامه:

نظرات (۱)

  1. عباس قایدی

    سلام .ایا میتوان  وقتی مساحت یک زمین را بر روی گوگل ارث مشخص کردیم نقشه ان را به مپ سورس انتقال دهیم؟
    • پاسخ:

      سلام
      متاسفانه اطلاعی ندارم.

ارسال نظر

قبل از ارسال نظر به نکات زیر توجه کنید:

۱- با توجه با اینکه نظرات خصوصی شما امکان نمایش در سایت را ندارد، بنابراین هنگام ارسال نظر، گزینه "" را انتخاب نکنید. چون تنها راه پاسخگویی به آن از طریق ایمیل شما است که با توجه به مشغله کاری فرصت ارسال پاسخ از طریق ایمیل وجود ندارد.

۲- قبل از مطرح کردن سوالتان، مطلب فوق را با دقت مطالعه کنید. اگر پاسخ سوالتان را پیدا نکردید در سایت جستجو کنید، ممکن است در مطلب دیگر پاسخ سوالتان را پیدا کنید.

۳- تنها به سوالاتی پاسخ داده می‌شود که از نحوه حل آن‌ها اطلاع داشته باشم.

۴- نظراتی با مضمون زیر، صرفا تایید و نمایش داده می‌شود و به آن‌ها پاسخی داده نمی‌شود.

الف) در مورد پاسخ سوال شما اطلاعی نداشته باشم،

ب) پاسخ سوال شما در مطلب فوق وجود داشته باشد.

ارسال نظر آزاد است، اما اگر قبلا در بیان ثبت نام کرده اید می توانید ابتدا وارد شوید.
شما میتوانید از این تگهای html استفاده کنید:
<b> یا <strong>، <em> یا <i>، <u>، <strike> یا <s>، <sup>، <sub>، <blockquote>، <code>، <pre>، <hr>، <br>، <p>، <a href="" title="">، <span style="">، <div align="">
تجدید کد امنیتی
X بستن