یه سوال از اکسل [بایگانی]

reza850101

دوشنبه 08 خرداد 1385, 11:44 صبح

سلام
چطور میشه در دو سلول باعنوان نام - نام خانوادگی افراد مشابه را دریک لیست بزرگ پیداکرد(درواقع افرادیکه نام ونام خانوادگی تکراری دارند رانشان دهد فقط در اکسل)
باتشکر

moustafa

دوشنبه 08 خرداد 1385, 12:13 عصر

یکی از سلولهای لیست رانتخاب کن
data/filter/autofilter
روی پیکان ایجادشده در ردیف اسامی کلیک و
نام مورد نظر را انتخاب یا custom را انتخاب وسپس از شرایط andیا or استفاده کن

reza850101

دوشنبه 08 خرداد 1385, 13:03 عصر

عذر میخواهم فکرمیکنم منظورم راناقص گفتم نظر من این بود که چطور بطور اتوماتیک نفرات تکراری یک لیست اکسل را پیدا کرد آیاامکان دارد ؟(دردوسلول نام ونام خانوادگی)

mohammadgij

دوشنبه 08 خرداد 1385, 13:42 عصر

من اکسل رو بلد نیستم اما برو توی اکسس و فایل اکسلت رو Import کن توی اکسس. سپس از Query مربوط به Duplicate استفاده کن

moustafa

دوشنبه 08 خرداد 1385, 18:17 عصر

روش اقای mohammadgij روش جالبی البته بجای امیپورت link کن
در اکسل من یه ستون دیگه ایجاد میکنم با عنوان "کد" به هنگام ورود اطلاعات کد هر اسم را هم وارد می کنم سپس با استفاده از روش بالا ان کدهای که تعداد ان بزرگتر از یک است فیلتر میکنم در هرصورت استفاده از اکسس بهتر وانعطافپذیرو پر امکانات از اکسل من خودم کلی برنامه با اکسل طراحی کرده بودم ودر ان از اکثر امکانات وی بی ا وماکروها استفاده کرده بودم ولی خیلی عذاب اور ومحدوده وبا طراح بود ویک کاربر ساده نمی توانست از ان استفاده کنه

reza850101

سه شنبه 09 خرداد 1385, 10:41 صبح

ببخشید منظورم این است که یک لیست آماده و حاوی اطلاعات را چگونه میتوانیم افراد تکراری آنرا را بطور یکجا پیدا کنیم ضمنا ممنونم ازدوستی که درمورد برنامه اکسس راهنمایی کردنن اما من راهکار را در اکسل میخواهم باتشکر

reza850101

سه شنبه 09 خرداد 1385, 10:51 صبح

reza850101

پنج شنبه 11 خرداد 1385, 09:57 صبح

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

MM_Mofidi

پنج شنبه 11 خرداد 1385, 12:05 عصر

با کد نویسی هر کاری میشود کرد. یک ماکرو بنویس.

moustafa

پنج شنبه 11 خرداد 1385, 19:02 عصر

استفاده از توابع if ,countif
استفاده از autofilter
ماکروی 2و3 (الیته میتوانی autofilter را نیز به ماکروی 2 اضافه کنی تا اگر فراموش کردی اتو فیلتر ایجاد کنی به مشکلی برنخوری )
نوار منوی custom1 داری دو منوی "یکسان " و "بازگشت "
دراین نمونه من فقط برای "نام" عمل کردم اگر نام شمادر سلول b و نام خانوادگی در سلول c می باشد در سلول d1=c1&" "&b1 را تایپ وبه سلولهای پائینی کپی یا دراگ کنی وسپس فرمول if , countif را با توجه به سلولهای جدید اصلاح نمائی
کدهای ماکرو

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 2006/06/01 by mostafa
'

'
Columns("B:B").Select
Range("A1:C16").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Selection.AutoFilter Field:=3, Criteria1:=">1", Operator:=xlAnd
End Sub
Sub Macro3()
'
' Macro3 Macro
' Macro recorded 2006/06/01 by mostafa
'

'
Selection.AutoFilter Field:=3
Range("A1").Select
Range("A1:C16").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

اگر در اول برنامه پیغامی در ارتباط با سطح امنیت ماکرو ظاهر شد اینکار را بکن
ازمنوی تولز زیز منوی ماکرو سپس سکریوتی اپشن لاو(چهارم) را اوکی کن سپس از اکسل خارج شو ودوباره واردشو tools/mocro/secrutiy/low/ok
اگر نوار منوی کاستوم ظاهر نشد ماکرو 2و 3 را از طریق alt+f8 یا منوی تولز زیر منوی ماکروّّّّ/ ران ماکرو /ماکروی 2 یا ماکروی 3

بعدشم بگو اکسل !!!!در حالیکه در اکسس با به کوئری حله

reza850101

شنبه 13 خرداد 1385, 06:27 صبح

از زحمتی که کشیدید ممنونم اما در نمونه فایل ضمیمه نیز متفاوت عمل شده مثلا عباس را اشتباه جواب داده ضمنا برای تست چند نفر به لیست شما اضافه کردم که به تعداد قبل اضافه نکرد و مجددا تعداد را معادل 1 قرارداد ه است

moustafa

شنبه 13 خرداد 1385, 06:59 صبح

یکیش عباس نیست عیاس است بخاطر ان نشان نمیده پس مشکلی نیست
ثانیا وقتی کد نوشه شده چطور برای یه اسم ممکنه عمل نکنه ؟(فرمول تو سلول تعداد باید باشه )
اسامی جدیدی را که اضافه کردی بهمراه فایل بذار اینجا تا ببینم مشکل از چی

دوباره امتحانش کردم هیچ مشلی نداشت !!!

moustafa

جمعه 19 خرداد 1385, 20:48 عصر

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

reza850101

یک شنبه 21 خرداد 1385, 08:50 صبح

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

moustafa

یک شنبه 21 خرداد 1385, 15:46 عصر

فایل را اصلاح کردم چون خرابه و افیس دم دست ندارم بعدا برات اپلود میکنم
ولی شما یه لینک بده تو اکسس با یه کوئری اسامی مشترک را پیدا کن سپس با یه ماکروی output to دوباره ارسال کن به اکسل

reza850101

دوشنبه 22 خرداد 1385, 08:50 صبح

راه حل مناسبی است تا امتحانش کنم ببینم چطور جواب میدهد
منتظر فایل اصلاحی هم هستم
ممنون

moustafa

دوشنبه 22 خرداد 1385, 21:32 عصر

در سلولE2 فرمول زیر را وارد و دراگ کن به پائین(به سلولهای پائین کپی کن)

=IF(F2>0,COUNTIF($F$2:$F$34111,F2)," ")
در سلولF2فرمول زیر را وارد و دراگ کن به پائین

=B2&" "&C2&" "&D2
ماکروی خالی ضبط کن وکدهای زیر را دران کپی کن

Sheets("Sheet1").Select
Sheets("Sheet2").Select
Cells.Select
Range("A55").Activate
Selection.Clear
Sheets("Sheet1").Select
Range("F3").Select
Selection.AutoFilter
Selection.AutoFilter Field:=5, Criteria1:=">1", Operator:=xlAnd
Cells.Select
Selection.Copy
Sheets("Sheet2").Select
Cells.Select
Range("A55").Activate
ActiveSheet.Paste
ActiveWindow.ScrollRow = 1
Range("G2").Select
Application.CutCopyMode = False
Range("F2").Select
Range("A1:F737").Sort Key1:=Range("F2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
' ActiveWindow.ScrollRow = 106
Range("A1:F737").Sort Key1:=Range("F2"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("F2").Select
Range("A1:F737").Sort Key1:=Range("F2"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNorma
ماکروی فوق را اجرا کن

reza850101

سه شنبه 23 خرداد 1385, 08:00 صبح

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

طبق پیشنهاد شما لیست تکراریها را در اکسس ایمپورت کردم اما خروجی آن در اکسل یک اشکال دارد و آن درمورد تاریخ تولد است که به ارقام منفی تبدیل شده است هرچه درفرمت سل هم ور رفتم نتوانستم آن را تبدیل به تاریخ کنم ممکن است یک تست بکنید ؟ و نتیجه را راهنمایی کنید

moustafa

سه شنبه 23 خرداد 1385, 08:15 صبح

تو فایل اکسلی که گذاشتم ماکروی 1 اجرا کنی جواب میده

bijanborjian

دوشنبه 12 تیر 1385, 12:12 عصر

این فایل را امتحان کن :
اگر ماکرو run نشد اینکار را بکن
ازمنوی تولز زیرمنوی ماکرو سپس سکریوتی اپشن لاو(چهارم) را اوکی کن سپس از اکسل خارج شو ودوباره واردشو tools/mocro/secrutiy/low/ok

reza850101

یک شنبه 29 مرداد 1385, 09:21 صبح

باسلام و تبریک راه اندازی مجدد سایت و آرزوی توفیق برای اساتید وبرنامه نویسان که تلاش میکنند و تجربه وآموزههای خود را دراختیار ما قرار میدهند

باتشکر از آقامصطفی و آقابیژن ببخشید که دیر متوجه شدم فایل تست شما را دیدم همانی بود که من میخواستم فقط میخواستم بجهت تمیزدادن نفرات تکراری دو ستون تاریخ تولد و شماره شناسنامه به آن اضافه کنم اما موفق نشدم اگر ممکن است راهنمایی بفرمایید
ضمنا چطور میتونم کد دکمه ران را ببینم
باتشکر

moustafa

دوشنبه 30 مرداد 1385, 07:24 صبح

دوتا سلول مجاور را سلکت و:
insert/columns

reza850101

دوشنبه 30 مرداد 1385, 13:45 عصر

باسلام
دوست عزیز منظورم اضافه کردن دوستون درکد بود اکر دو ستون تاریخ تولد و ش ش را اضافه کنم کد آن چطور نوشته میشود باتشکر

moustafa

دوشنبه 30 مرداد 1385, 15:09 عصر

با & همش تو یه سلول ترکیب کن
a1 & b1 & c1

bijanborjian

دوشنبه 30 مرداد 1385, 18:32 عصر

فایل test2 را مجدد امتحان کن .
کد مربوط به کلید در قسمت ماکرو ها تحت عنوان macro1 ذخیره است.

reza850101

چهارشنبه 01 شهریور 1385, 11:07 صبح

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

bijanborjian

چهارشنبه 01 شهریور 1385, 14:28 عصر

با عرض معذرت
فایل اشتباه آپلود شده بود.

reza850101

پنج شنبه 02 شهریور 1385, 07:25 صبح

آقابیژن ممنون اززحمتی که کشیدی میخوام برم برای تست