مقایسه 2 فایل مختلف

[vatanparast]

سلام
فرض کنید یک فایل اکسل با 5000 داده دارید با نام مثلا R0 ، این داده ها در دوره های مشخصی به روز آوری میشن که منجر میشه به تغییر کردن بعضی از داده و فایل جدید با نام R01 ذخیره و فایل قبلی آرشیو میشه حالا سوال اینجاست آیا میشه این 2 فایل رو طوری باهم مقایسه کرد که داده هایی که نسبت به فایل قبلی تغییر پیدا کردن تغییر رنگ بدن یا مثلا های لایت بشن

[mahasa shayesteh]

سلام به همه دوستای عزیز
ممنون از آقای وطن پرست بخاطر طرح این سوال این مشکل منم هست که معمولا با vlookup انجام میدم که خیلی وقت گیر و اعصاب خورد کنه اگه بشه add in طراحی کرد که 2 فایل مورد نظر رو بگیره و مقایسه کنه و موارد اختلاف رو تغییر رنگ بده خیلی عالیه خواهشن همه دوستای خوبم ایده بدن ابزار واقعا مفیدیه

[jansiz hayat]

(۵-۱۱-۱۳۹۰ ۰۶:۵۶ عصر)vatanparast نوشته است:  سلام
فرض کنید یک فایل اکسل با 5000 داده دارید با نام مثلا R0 ، این داده ها در دوره های مشخصی به روز آوری میشن که منجر میشه به تغییر کردن بعضی از داده و فایل جدید با نام R01 ذخیره و فایل قبلی آرشیو میشه حالا سوال اینجاست آیا میشه این 2 فایل رو طوری باهم مقایسه کرد که داده هایی که نسبت به فایل قبلی تغییر پیدا کردن تغییر رنگ بدن یا مثلا های لایت بشن

با سلام دوست عزیز.
برای این کار مراحل زیر را انجام بدهید :

ابتدا اطلاعات شیت مبدا(sheet 1) را در شیت مقصد(sheet 2) کپی کنید. حالا در sheet 2 یک سلول دلخواه (A1) را انتخاب کنید و مسیر زیر را طی نمائید :
1_Home--->conditional formating--->Highlight cell Rules--->More Rules
حالت زیر را انتخاب کنید:
use a formula to determine which cell to format
در کادر : format values where this formula is true فرمول زیر را تایپ کنید :
=A1<>Sheet1!A1
حال در پائین کادر دکمه ای به نام Format وجود دارد ، آن را زده و تب Fill را انتخاب کرده و رنگی را برای در صورت مغایر بودن شرط انتخاب کنید(البته به غیر از رنگ میتوان Border-Font-Number خاصی را به جای رنگ استفاده کرد.اگر لازم بود بگید تا توضیح بدم).
حال Ok را بزنید.
باز هم Ok را بزنید.
تا حالا شرط را برای سلول A1 تعریف کردیم.حال اگر بخواهیم این شرط را به سلول های دیگر نیز اختصاص دهیم بصورت زیر عمل می کنیم :
سلول حاوی قالبندی شرطی (A1) را انتخاب کنبد. در پائین-قسمت چپ مربع کوچکی وجود دارد، آن را درگ کرده و به طرف سلول های مورد نظر بکشید(عمل Auto Fill) و ول کنید.بعد از ول کردن یک مربع(Auto Fill Option) ظاهر میشود،از آن گزینه ی Fill formatting only را انتخاب کنید.

خب این عمل یه مشکل کوچیک داره و اون اینه که اگر یک سلول در sheet1 خالی باشه به عنوان نا مساوی شناخته و عمل شرط را بر روی آن اعمال می کند که نباید چنین شود.برای رفع این مشکل باید چنین کرد :
مرحله 1 (بالا) را طی نمائید و در قسمت فرمول بنویسید :
=Sheet1!$A$1=""
دوباره دقیقاً مراحلی را که در بالا طی نموده بودید را دوباره برای این شرط تکرار کنید. در این مرحله به جای رنگ قرمز که برای شرط انتخاب می کردیم حالت No format set را از قسمت Preview برای رنگ شرط انتخاب می کنیم.
البته ابتدا می توانستیم ابتدا دو شرط را بر سلول A1 اعمال کنیم و سپس این دو شرط را همزمان برای دیگر سلول ها اختصاص دهیم.

تذکر :
این شرط زمانی عمل می کند که شرط ها بعد از عمل کپی بر روی سلول ها اعمال شود در غیر اینصورت شرط ها حذف می شود.برای اینکه در هر بار کپی کردن شیت مبدا به شیت مقصد،شرط ها را دوباره تکرار نکنیم می توان با ظبط ماکرو عملیات اعمال شرط را ذخیره کرد و فقط با یک کلیک تمام شرط ها اعمال شود و دیگر نیازی به انجام مراحل بالا نخواهد بود.
(دوستان ببخشید اگه بد توضیح دادم ، آخه مراحل زیادی داشت)
در صورت وجود مشکل در خدمتم .----اگه فایلتون رو بفرستین می تونم بهتر رو عملیات مانوور بدم یا برای آسانی کار براش ماکرو نویسی کنم----
با تشکر

[vatanparast]

سلام
ممنون از وقتی که گذاشتید منظور من 2 فایل مجزا هست و امکان وارد کردن هردو در یک شیت نیست کلا تو سوالاتی که مدنظر من هست از تنظیمات و امکانات اکسل به صورت بهینه نمیشه استفاده کرد تسلط نسبتا خوبی روی کلیه امکانات دارم که قطعا اگر جوابگو بود خودم بهش میرسیدم بازم ممنون

[m_d6712]

برای این کار میتوانید از VBA استفاده کنید.

ابتدا باید به فایل اکسل دیگر وصل شوید.
مثال کامل تر برای وصل شدن به یک فایل اکسل دیگر در این لینک وجود داره:
http://forum.exceliran.com/thread-253-po...tml#pid720


که برای این کار: قبل از نوشتن این کد برای فعال سازی ADODB که کلاس خاصی برای وصل شدن به بانک های اطلاعاتی می باشد باید آن را به فایل خود Add کنید. برای این کار به روی Tools و در آن References را انتخاب کنید. در لیست کتابخانه Mirosoft ActiveX Data Objects 2.8 Library را انتخاب کرده و تیک آن را بزنید. و Ok را بفشارید.

سپس برای وصل شدن از دستور زیر استفاده کنید:

کد:

Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Provider = "MSDASQL"
cn.Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & _
"DBQ=<yourfile path and name> ; ReadOnly=True;"

دقت کنید که <yourfile path and name> باید با نام فایل شما جایگزین شود.

سپس در ادامه این کد را بزارید.

کد:

strQuery = "Select * From [Sheet1$A:Z]"
    Set RsReport = cn.Execute(strQuery)
    Sheet2.Range("A2:Z10000").CopyFromRecordset RsReport

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

در نهایت می توانید اطلاعات کپی کرده از فایل دوم رو پاک کنید تا حجم اضافی اشغال نشود.

در صورتی که تونستید این فایل رو درست کنید که هیچ! در غیر این صورت یک فایل نمونه خواهم گذاشت.

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

همچنین امکان نوشتن یک Addin برای این منظور وجود داره! روش کار به همین صورتی است که گفتم.

[vatanparast]

سلام
2 فایل book1 , book2 داده های مشابه دارند اگر در book2 یکی از اعداد رو تغییر بدید(هر2 فایل باز باشند) و فرم کنترل رو بزنید اختلاف 2 فایل مشخص میشن دوستانی که میتونن تو بهبود برنامه کمک کنن






http://www.mediafire.com/?1gcw7bqcg6gyr6h
http://www.mediafire.com/?zd7bqoo17hbh51n

[vatanparast]

سلام
با عرض سلام خدمت دوستان معذرت فایل book 2 اشتباه upload شده که تصحیح میشه

http://www.mediafire.com/?uym3635m2k1ba9e

[vatanparast]

سلام به دوستان عزیز
پیرو سوالی که پرسیدم در مورد مقایسه 2تا فایل میخوام به حالت نرم افزار درش بیارم یعنی یه فرم داشته باشم که یک کلید browse داشته باشه بشه فایل مورد نظر رو باهاش باز کرد و مسیری که فایل داره در یک متغیر ذخیره بشه ولی نتونستم دوستان کسی هس راهنمایی کنه یا یه فایل نمونه قرار بده؟

[vatanparast]

ممنون واقعا آدم ازین همه همکاری به وجد میاد

[smartman]

با سلام

از این Add-in بی نظیر -- دارای دهها ابزار مفید و کاربردی -- استفاده کنید.

http://parsaspace.com/files/9357504884/e...x.rar.html

بعد از باز کردن فایل {های} حاوی شیت‌های مورد مقایسه، مسیر زیر را دنبال کنید.

Extools>Worksheet>Organize>Compare Worksheets

دو شیت مورد نظر را انتخاب و تیک Highlight Differences را بزنید و بعد Ok کنید و از نتیجه آن لذت ببرید.