برای یادگیری ماکرونویسی از طریق این وبلاگ

• دروس  1 تا 12 را مطالعه کنید و بطور عملی هم انجام دهید
• درس اول را با دقت بیشتری مطالعه کنید. موارد گفته شده را حتما بطور عملی تکرار کنید. بدون یاد گرفتن این درس به مطالعه دروس دیگر نپردازید.
• "کار نیکوکردن از پر کردن است" پس تمرین کنید و تکرار کنید و از برنامه نویسی و ماکرونویسی نهراسید.
•   در صورت نیاز به آمورش، مشاوره یا انجام پروژه های خود ...

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

مثال:یک تاریخ مشخص مانند تاریخ 18/1/1392 را که با ممیز"/" از هم جدا شده اند را در نظر می گیریم. ماکروی زیر سال، ماه و روز را جدا نموده و در سه کادر پیغام نمایش میدهد. محل "/" مشخص نیست و ممکن است تاریخ به شکلهای گوناگونی مانند 18/01/1392 یا 18/1/1392 یا 18/01/92نوشته شود. 

Sub YearMonthDay()         

    s = "1359/12/25"

    i = InStr(1, s,"/") 'اولین / پیدا شد

'زمانیکه موقعیت اولین /  در نقطه i باشد برای یافتن / بعدی می بایست جستجو را از مکان بعدی که در نقطه i+1 قرارد دارد شروع کنیم و ادامه دهیم پس:

   j = InStr(i + 1, s,"/")

' موقعیت هر دو ممیز پیدا شد.

'از ابتدای رشته تا قبل از اولین ممیز مربوط به سال است پس :

   y = MID(s, 1, i – 1)

' بین دو ممیز مربوط به ماه است پس

   m = Mid(s, i + 1, (j - 1) – i)

'‌از ممیز دوم تا آخر رشته مربوطه به روز است. چون میخواهیم تا‌آخر رشته را جدا کنیم در تابع MID  نیازی به آوردن طول نیست و فقط نام رشته و موقعیت شروع را می‌آوریم

    d = Mid(s, j + 1)

      MsgBox y

      MsgBox m

      MsgBox d

End Sub

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

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

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

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

نظر یادتون نره

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

چندین شیت را همزمان ببینید

برای اینکه همزمان چند workbook ‌ یا شیت را ببینید

برای هر شیت یا workbook گامهای1 و 2 را انجام دهید

1-به شیت (یا workbook) بروید(آنرا باز کنید یا کلیک کنید)

2- مسیر زیر را برای آن دنبال کنیدView->Window->New Window

حال تمامی شیتها یا WORKBOOK ها باز شده اند.

حال مسیر زیر زیر را دنبال کنید

View->Window->Arrange All

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

View->Window->View Side by Side

نکته و شگرد: حلقه های بی نهایت و جلوگیری از هنگ(Hang) شدن برنامه

حلقه بی نهایت: در ساختار حلقه ای ممکن است به دلیل برقراری شرط (و یا برقرار نبودن شرط)  دستورات حلقه همواره انجام شوند و بدین ترتیب دستورات حلقه بی نهایت بار تکرار خواهد شد. در اینصورت هیچگاه از آن حلقه خارج نمی شویم و برنامه معلق(Hang) خواهد شد.

رهایی از حلقه بی نهایت: امکان و خطر حلقه بی نهایت  برای حلقه های Do…Loop بیش از حلقه For‌ وجود دارد. اگر برنامه شما در هنگام اجرا یا تست Hang‌ کرد با زدن دگمه Ctrl+Alt+Break اجرای برنامه قطع خواهد شد.