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

Cells.Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:=”a”

این دستورات ستون دوم یک رنج را بر اساس وجود کاراکتر a  فیل تر می کند

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

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

برنامه را از اینجا دانلود کنید

حجم فایل 250 کیلوبایت است

منتظر نظرات دوستان برای توسعه این صفحه کلید هستم

این صفحه کلید بر روی    XP تست شده اما چون به ویستا دسترسی ندارم  دوستان کارکرد آنرا بر روی ویندوز ویستا اطلاع دهند

نسخه نهایی ادیتور فارسی اتوکد آماده شده که امکان نوشتن با فونتهای IPT به آن اضافه شده است

همچنین امکان قفل شدن استایل و سایز جدید برای همه انتخابها اضافه شده است
دو فایل ضمیمه را در داخل مسیر اصلی برنامه اتوکد کپی کنید برای اجرا تنها دستور fe را در command تایپ کنید برنامه اتوماتیک لود شده و آماده اجراست

برای دانلود اینجا را کلیک کنید

Private Function t2v(Refre)
t2v = Application.Evaluate(“=” & Refre)
End Function

]]> http://macrosaz.wordpress.com/2009/02/02/%d9%85%d8%ad%d8%a7%d8%b3%d8%a8%d9%87-%d8%b9%d9%85%d9%84%db%8c%d8%a7%d8%aa%db%8c-%da%a9%d9%87-%d8%a8%d9%87-%d8%b5%d9%88%d8%b1%d8%aa-%d8%aa%da%a9%d8%b3%d8%aa-%d8%a7%d8%b3%d8%aa/feed/ 1 مهندس http://macrosaz.wordpress.com/2009/01/21/%d9%84%d9%8a%d8%b3%d8%aa-%d9%86%d8%a7%d9%85-%d8%b4%d9%8a%d8%aa-%d9%87%d8%a7-%d8%af%d8%b1-%d9%8a%d9%83-%d8%b4%d9%8a%d8%aa-%d8%ac%d8%af%d9%8a%d8%af/ http://macrosaz.wordpress.com/2009/01/21/%d9%84%d9%8a%d8%b3%d8%aa-%d9%86%d8%a7%d9%85-%d8%b4%d9%8a%d8%aa-%d9%87%d8%a7-%d8%af%d8%b1-%d9%8a%d9%83-%d8%b4%d9%8a%d8%aa-%d8%ac%d8%af%d9%8a%d8%af/#comments Wed, 21 Jan 2009 11:28:09 +0000 aliasghari http://macrosaz.wordpress.com/2009/01/21/%d9%84%d9%8a%d8%b3%d8%aa-%d9%86%d8%a7%d9%85-%d8%b4%d9%8a%d8%aa-%d9%87%d8%a7-%d8%af%d8%b1-%d9%8a%d9%83-%d8%b4%d9%8a%d8%aa-%d8%ac%d8%af%d9%8a%d8%af/ ]]> با ماكرو زير مي توانيد تمامي اسامي شيت ها را در يك شيت جديد داشته باشيد
Private Sub sheetenames()

Set NewSheet = Sheets.Add(Type:=xlWorksheet)
For I = 1 To Sheets.Count
NewSheet.Cells(I, 1).Value = Sheets(I).Name
Next I

End Sub

عجب كار سخت و طاقت فرسايي اگر تعداد فايلها زياد باشد

يك ماكرو كه مي تواند اين ليست را تهيه كند. ابتدا مسير مورد نظر را در سلول A1 وارد كنيد سپس ماكرو را اجرا كنيد تمامي فايلهاي يك دايركتوري پشت سر هم در سلولها نقش مي بندد

Private Sub dirfilename()
ali = Dir(ActiveSheet.Cells(1, 1).Text & “\*.*”)
I = 2
Do
ActiveSheet.Cells(I, 1) = ali
ali = Dir
I = I + 1
Loop
Until ali = “”
End Sub

برنامه واقعاً سودمند شما را در خصوص تبديل تاريخ و تبديل عدد به حروف را دريافت نمودم . بسيار عالي و قابل استفاده بود . ضمن تشكر از زحمتي كه براي اين برنامه بسيار مفيد انجام داده ايد پيشنهاد مي كنم براي تفريق در تاريخ از هم (مثلاً محاسبه سن يا سنوات خدمت يك فرد تا تاريخي مشخص ) و جمع كردن يك تاريخ با عددي مشخص ( مثلاً 132 روز ديگر چه تاريخي مي شود )  نيز در صورت داشتن توابعي آنرا ارسال فرمائيد. و در غير اين صورت تقاضا دارم زحمت آنرا نيز بكشيد.

با تشكر مجدد : محمدرضا كيامرزي

===================================================

جناب آقاي كيامرزي

تمامي امكاناتي كه شما انتظار انجامش را داريد به راحتي قابل انجام است هرچند مي شود براي آنها ماكرو نوشت .

اما من مخالف نوشتن اين ماكرو هستم چون در برنامه اكسل كارهاي زيادي را با تركيب فرمولها مي شود. اگرچه نوشتن اين توابع زماني از من نمي گيرد 

 با افزايش مهارت اكسل خودتان از استفاده از اين برنامه لذت ببريد و با تركيب فرمولها چه كارهاي بزرگي را كه به راحتي مي تواند انجام دهيد . مثلا با تركيب توابع match و  index چه كارهاي بزرگي كه نمي شود كرد. 

- هر تاريخ شمسي را بخواهيد 132روز اضافه كنيد به راحتي ابتدا تاريخ شمسي را به ميلادي تبديل كنيد سپس بعلاوه 132 بكنيد حالا معادل تاريخ ميلادي آن به دست مي آيد حالا دوباره آنرا به شمسي تبديل كنيد. همه اين مراحل را مي شود در يك فرمول تعريف كرد.

=m2s(s2m(a1)+132)

- دو تاريخ را بخواهيد از هم كم كنيد هر دو را به ميلادي تبديل كنيد سپس آنها را از هم كم كنيد.

مثال :

a1: 1387/1/1

a2: 1387/6/27

حالا با نوشتن فرمول زير در هر سلولي مي شود تعداد روزهاي بين  اين دو تاريخ را دانست

=(s2m(a2) – s2m(a1))

اجازه بدهيد تعداد توابع را افزايش ندهيم بلكه مهارت اكسل خودمان را افزايش دهيم 

حالا تاريخ را به صورت حروفي هم مي تواند ببينيد