آموزش ماکرونویسی - برنامه نویسی در اکسل به روش من

از ماکرونویسی نهراسید! بسیار ساده است!

صفحه اصلي | آرشيو مطالب | تماس با من                    ali_fatehi@yahoo.com

آموزش  مشاورهداستان وبلاگ من

 

كتاب ماكرونويسي و برنامه نويسي كار بردي به زبان VBA در Excel

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

 مراكز پخش

«نمايشگاه و فروشگاه انتشارات بورس»
شماره تماس:  88648192
(تهران - ميدان ونك - خ ملاصدرا- شماره 25)
اطلاعات كتاب و سفارش خريد آنلاين از انتشارات بورس

«انتشارات صانعي»

شماره تماس:  5385  6640
(
تهران- خ انقلاب- روبروي  دانشگاه تهران- پلاك 1290)
www.saneibook.com

 

.....در زماني كوتاه و به راحتي مي توانيد در اكسل برنامه و ماكرو بنويسيد؛ حتي اگر شما برنامه نويس نباشيد ماكرونويسي و برنامه نويسي ابزاري مناسب براي كاربراني است كه مي خواهند در Excel بهتر و پوياتر عمل كنند. زبان برنامه نويسي مورد استفاده در Excel بسيار شبيه زبانهاي محاوره اي است و VBA

 (Visual Basic for Applictions )
نام دارد.
......

20 صفحه اول كتاب را از اينجا برداريد.


اين كتاب براي كاربراني نوشته شده كه با برنامه‌نويسي و ماكرونويسي آشنايي نداشته يا آشنايي كمي دارند و مي‌خواهند در نرم‌افزار اكسل كارهاي بهتر و پوياتري انجام دهند و با زباني ساده و به دور از پيچيدگي مفاهيم اوليه و كاربردي را گام به گام ارايه نموده است. مثال‌ها متنوع و كاربردي‌اند. از برنامه‌هاي ساده  و "تابع تبديل عدد به حروف" گرفته تا "پياده‌سازي مفاهيم مهندسي مالي" در كتاب آموزش داده شده‌اند..

 

 

 

 

آخرين مطالب

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

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


1- ماکرو زیر را کپی کنید

2- به محیط اکسل بروید و  دگمه Alt و F11 ‌ را بزنید

-3 از منوی Insert ‌بخش Module  را انتخاب کنید تا یک ماژول ایجاد شود و ماکرو را کپی کرده و به آنجا منتقل کنید(paste کنید)

4- حال به شیت برگردید. بخشی را که میخواهید سطرهای خالی اش را پاک کنید انتخاب کنید.

5- دگمه های Alt و  F8 ‌را بزنید تا فهرست ماکروهای موجود را ببینید

6- ماکروی  DeleteBlankRows را انتخاب و اجرا کنید.

 

Sub DeleteBlankRows()

'Deletes the entire row within the selection if the ENTIRE row contains no data.


'We use Long in case they have over 32,767 rows selected.

Dim i As Long


 'We turn off calculation and screenupdating to speed up the macro.

 With Application

  .Calculation = xlCalculationManual

  .ScreenUpdating = False

     

 'We work backwards because we are deleting rows.

 For i = Selection.Rows.Count To 1 Step -1

  If WorksheetFunction.CountA(Selection.Rows(i)) = 0 Then

   Selection.Rows(i).EntireRow.Delete

  End If

 Next i

 

  .Calculation = xlCalculationAutomatic

  .ScreenUpdating = True

  End With

End Sub

.: Weblog Themes By Iran Skin :.

درباره وبلاگ

آرشيو مطالب
امکانات وب