VBA ثابتها در

استفاده كرد:

اينها ثا بت هايي هستند كه توسط برنامه نويس ايجاد مي شود . علاوه بر اينها در اكسس ٧ ثابت

از پيش تعريف شده است كه عبارتند از:

MS Office در VBA آموزش زبان

VBA عبارتهاي شرطي و تصميم گيري در

MS Office در VBA آموزش زبان

تمرين:

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

آن وارد شده است.

MS Office در VBA آموزش زبان

VBA ايجاد حلقه در

خاص تكرار شوند . به محض رسيدن به شرط تعيين شده يا انجام به تعداد مورد نظر تكرار

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

For…Next

ازاين روش براي حلقه هاي تعدادي استفاده مي شود فرمت كلي آن بصورت زير است:

[شرط پايان حلقه، قبل از اينكه به تعداد بالا برسد]

Next < <متغير شمارنده

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

آنهاييكه در علامت [] وارد شد ه يعني اختياري است . براي مثال اگر بخواهيد يك فرمول

به صورت سري محاسبه شود و در يك آرايه ضبط شود به صورت زير X رياضي با ده مقدار

عمل مي شود:

Dim a(1 To 10) As Double

Function fun()

For X=1 To 10 Step 1

Next X

Do While…Loop

از اين روش براي ايجاد حلقه شرطي استفاده مي شود . فرمانها يا عمليات مورد نظر تا زمانيكه

شرط برقرار است ، تكرار مي شوند . به محض عدم برقراري شرط يا برقراري شرط داخلي (اگر

شرط داخلي منظور شده باشد ) حلقه متوقف مي شود و فرمانهاي بعد از حلقه اجرا مي شوند .

فرمت كلي به صورت زير است:

Do While شرط [=True]

MS Office در VBA آموزش زبان

صفحه 17

كار مي كند كه نيازي به نوشتن آن (True) با فرض مثبت بودن حالت شرط VBA در اينجا

استفاده كرد . براي قيد حالت منفي در شرط حلقه False نيست. براي حالت هاي منفي نبايد از

استفاده مي شود. Not از

Do Until…Loop

يك روش ديگر براي ايجاد حلقه شرطي استفاده از روش بالا ا ست. فرمانها يا عمليات مورد

نظر تا زمانيكه شرط برقرار نيست ، تكرار مي شوند . به محض برقراري شرط يا برقراري شرط

داخلي (اگر شرط داخلي منظور شده باشد ) حلقه متوقف مي شود و فرمانهاي بعد از حلقه

اجرا مي شوند. فرمت كلي بصورت زير است:

Do Until شرط <> True

[ شرط پايان حلقه، يا يك شرط ديگر]

در اكسس عناصري هستند (Data Access Objects) DAO عناصر دسترسي به داده ها يا

ايجاد شده و نگهداري مي شوند. بطور خلاصه براي دسترسي به ليست Jet Engine كه با

داده ها در اكسس سه مرحله لازم است:

Workspace دسترسي به محيط كار يا

Database دسترسي به بانك اطلاعاتي يا

Recordset دسترسي به ليست داده ها يا

در اينجا انواع عناصر مربوط به ليست داده ها به شرح زير توضيح داده مي شود:

اشاره به جدول ضبط شده در يك بانك اطلاعاتي است. :TableDef

اشاره به سوال ضبط شده در يك بانك اطلاعاتي است. :QueryDef

اشاره به پارامتر يك سوال است. :Parameter

اشاره به فيلد در يك جدول، ايندكس، سوال ليست ركورد است. :Field

MS Office در VBA آموزش زبان

صفحه 18

اشاره به ايندكس در يك جدول است. :Index

اشاره به ارتباط بين فيلدهاي جدول يا سوال است. :Relation

اشاره به مشخصات يك عنصر است. :Property

اشاره به ليست ركوردها در يك جدول يا سوال است. :Recordset

اشاره به يك گروه كاربر كه در حفاظت اكسس تعريف شده است. :Group

اشاره به يك كاربر كه در حفاظت اكسس تعريف شده است. :User

نيز مانند ساير محيط هاي برنامه نويسي امكان تعريف انواع متغيرها وجود دارد . براي VBA در

را رزرو مي كند.

Dim < نام متغير > As < < نوع

عددي بلند ،(Integer) عبارتند از عددي كوتاه VBA انواع متغيرها در

.(Date) تاريخي ،(String) كاراكتري ،(Double) عددي شناور ،(Long)

مرحله بعد تخصيص مقدار به متغير است. براي اين منظور از روش زير استفاده مي شود:

داده = نام متغير

وجود دارد . اين نوع متغيرها هم براي تعريف دو مرحله دار ند: تعريف و تخصيص عنصر به

آنها. فرمانهاي زير هر دو مرحله تعريف و تخصيص عناصر را نشان مي دهد.

Dim db As Databases

Dim rst As Recordset

Dim frm As From

Dim ctl As Control

set مرحله دوم تخصيص عنصر مناسب به هر يك از متغيرهاي بالا است . در اينجا از عبارت

و علامت مساوي استفاده مي شود:

Set db=DBEngine.Workspaces(0).Databases(0)

Set rst=db.Openrecordset (" ("نام جدول يا سوال

Set frm=Form! < < نام فرم

Set ctl= frm(0)

MS Office در VBA آموزش زبان

صفحه 19

لازم است با داده هاي جدول يا سوالها كار كنيد ، (VBA) در بيشتر مواقع در برنامه نويسي

روشهاي خاصي براي دسترسي به داده ها و مشاهده ، ويرايش، حذف و اضافه كردن آنها VBA

ارائه مي كند . دسترسي به داده ها در برنا مه نويسي غير از فعال كردن ظاهري آنها با اجراي

مي گويند و به ظاهر هيچ چيزي Recordset جدول يا سوال است . در اينجا ليست داده ها را

براي كار Recordset هر عملي كه نياز باشد روي آنها انجام دهد . در اكسس بيسيك سه نوع

با داده ها وجود دارد كه بنا به منبع داده ها (جدول يا سوال ) و روشهاي كار با آنها از يكي از

اين روشها استفاده مي شود.

Table دسترسي به ليست داده ها به روش

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

سريعتر مي توان از ايندكس استفاده كرد . داده ها نيز قابل تغيير خواهند بود . اين روش فقط در

مورد جدولهاي محلي نه الحاق شده صادق است.

Dynaset دسترسي به ليست داده ها به روش

براي اشاره به داده هاي جدولها يا سوالها در يك Bookmark يا pointer مجموعه اي از

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

باشند كه قابل ويرايش نيز هستند . SQL دسترسي پيدا كرد . اين داده ها ممكن اسن نتيجه يك

در اينجا از روش ايندكس براي جستجوي ركوردها نمي توان استفاده كرد .ضمناً در برخي

موارد ليست داده ها با اين روش قابل ويرايش نيست . براي جستجوي ركوردها در اين نوع

استفاده مي شود. Find ليست داده ها از روش

MS Office در VBA آموزش زبان

صفحه 20

Snapshot دسترسي به ليست داده ها به روش

وجود Snapshot اين روش كپي يا تصوير مجموعه اي از ركوردهايي است كه هنگام ايجاد

دارند . بطور اختياري فقط مي تو ان روي آنها به جلو حركت كرد در نتيجه عمليات سريعتر

روي آنها انجام مي شود . در اين روش داده ها قابل ويرايش نيست . قبل از برگشت كنترل به

برنامه تمام ركوردهاي منبع داده ها خوانده مي شود . تغييرات را در داده هايي كه در يك

محيط چند كاربره ايجاد شده اند ، منعكس نمي شود. در اينجا از روش ايندكس براي

جستجوي ركوردها نمي توان استفاده كرد.

با يك دستورالعمل و يك نوع عنصر مي توان به هر سه روش بالا به ليست داده ها VBA در

دسترسي داشت:

Dim rst As Recordset

Set rst=db.Openrecordset("Query يا Table نام " [ , Type [ , Options ]]

SQL ليست داده ها ممكن است از يك جدول موجود ، نتيجه يك سوال ، يا اجراي عبارت

باشد. همانطور كه در دستورالعمل بالا مشاهده مي كنيد نوع دسترسي به داده ها به اختيار قابل

تعريف است.

Set rst=db.Openrecordset("Query يا Table نام ”Db_Open_Table)

Table براي دسترسي به ليست داده ها به روش

Set rst=db.Openrecordset("Query يا Table نام ”Db_Open_Dynaset)

Dynaset براي دسترسي به ليست داده ها به روش

Set rst=db.Openrecordset("Query يا Table نام ”Db_Open_Snapshot)

Snapshot براي دسترسي به ليست داده ها به روش

نزديكترين روش مناسب با منبع داده ها VBA اگر نوع دسترسي به ليست داده ها تعيين نشود

را استفاده مي كند . چه در صورت تعيين يك روش غلط ، هنگام اجراي برنامه با پيغام خطا

روبرو مي شويد.

MS Office در VBA آموزش زبان

صفحه 21

Query يا Table فرمانهاي دسترسي به ليست داده هاي يك

روي آنها كارهاي مختلفي انجام داد.

Dim db As Databases

Dim rec1 As recordset

Dim rec2 As Recordset

Set db= DBEngine.Workspaces(0).Databasees(0)

Set rec1= db.Openrecordset (”Table1”)

Set rec2= db.Openrecordset (”Table2”)

ببنديد. براي تكميل مثال بالا از روش زير براي بستن ليست استفاده مي شود:

ها : Method ، ها Property چند نمونه از

: Active Method

OLE و Range ، Window ، Chart ، Worksheet ، Workbook براي فعال كردن

استفاده مي شود .

Exp: Sheets (“Sheet2”). Activate

: Active Cell Property

براي استفاده از صفات يك سلولاستفاده مي شود .

MS Office در VBA آموزش زبان

صفحه 22

: Active Sheet Or Workbook Property

استفاده مي شود . Workbook و يا Worksheet براي ارجاع به اطلاعات يك

: Add Method

ها و ديگر اشياء و موضوعات كاربرد دارد . Object براي اضافه كردن

: Auto filter method

بصورت رفت و برگشتي. Autofilter تنظيم

استفاده مي شود. Or و and براي عملگرهاي منطقي Operator

: Operator موارد

براي دسترسي سطري و ستوني به اطلاعات يك سلول .

.workbook و يا window براي بستن يك

MS Office در VBA آموزش زبان

صفحه 23

يا فونت. fill. رنگ مربوط به محدوده يا سلول را تغيير مي دهد

مي فرستد . Clipboard جاري را به object محتويات

ويا محدوده را حذف مي كند . Object

صفتي كه تعيين مي كند آيا هشدارهاي تبادلي كد نمايش داده شود يا نه.

خاصيت استيل فونت را نگهداري مي كند .

مشخصات فرمول يك سلول را بازيابي مي كند .

MS Office در VBA آموزش زبان

صفحه 24

يا كاراكترهاي موجود قبل از رشته . work book براي درج سلولها در

ها . sheet براي حركت دادن

را تغيير مي دهد . object نام

ها و سلولها را نمايش مي دهد . lable فرمت نمايش

Activecell . number format =-“($# # #,# #0.00-)I[Blue]($# # #,# # 0.00)”

MS Office در VBA آموزش زبان

صفحه 25

براي دسترسي به يك يا چند سلول .

تعيين اينكه آيا ارتقاها روي صفحة نمايش داده شوند يا نه .

. worksheet يا object براي انتخاب سلول و يا

: Action Property

تعيين کننده عملی است که هنگام وقوع يک رويداد انجام می گيرد .

: Hyperlink Property

بوسيله يک ارجاع از طريق شی Web يا يک صفحه HTTP اتصال به يک سايت

وجود دارد . Office صورت می پذيرد. اين قابليت در تمامی برنامه های Hyperlink

MS Office در VBA آموزش زبان

صفحه 26

: Entry Effect Property

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

: GoTo Slide Property

نما را به شماره اسلايد مشخص تغيير می دهد .

: Address Property

دريافت کننده خاص را نگهداری می کند . e_mail آدرس پست الکترونيکی

: OutLook تحت VBA بوسيله e_mail تمرين _ ارسال يک پست الکترونيکی

ساخته و دکمه Outlook و با ظاهری شبيه محيط Refrences يک فرم به نام VBA در محيط

آن کد زير را بنويسيد : Event – Click ايجاد کرده و در cmdoutlookmail ای به نام

Private Sub cmdoutlookmail_Click()

Dim objobjectouylook As Object

Dim objitem As MailItem

Set objoutlook = CreateObject("Outlook.Application")

Set objItem = objoutlook.CreateItem(OlMailItem)

With objitem

.Subjct = " VB Prog Ref "

.To = darn@cvisual.com

.CC = darn@Coherntdata.com

.Body = " I found this book useful "

.Attachments.Add " C:\autuexec.bat "

Set objitem = Nothing

Set objoutlook = Nothing

MS Office در VBA آموزش زبان

صفحه 27

خاص نگهداري مي كند . object مقداري را براي

: VBA چند نمونه از علامتها و عبارتهاي كليدي در

فرمان نشانه گذاري . هر فرمان با آن ، ناديده گرفته ميشود .

’ Comment

. Excel در Sheet عملگر فيلد بانك اطلاعاتي و علامت هر

Sheet3!C3

Recordset ! field

snapshot يا table ، dynaset از نوع Recordset

تنظيم مي كند . double عملگر متغير را بر اساس

Exp : a # = 57

a $ = Dim x as string

تنظيم مي كند . intejer نوع متغير را معادل عدد صحيح

A % = 5/14

عملگر تركيب يا الحاق رشته اي .

0 & 1.33 & # 1/2/97 #

MS Office در VBA آموزش زبان

صفحه 28

متغيري راتعريف مي كند.

Dim [shared]name [as[new]type][,name[as[new]type]]

Dim E as (long,currencey,single,string,…)

Dim E as integer

را پايان مي دهد. if اجرا را متوقف كرده يا يك رويداد مثل تابع

شرط پايان فايل را برمي گرداند.

Eof(file_number)

Exp : Open “c:\test.txt“ For input as #1 : ? Eof(1) : b #1

Do…Loop

ايجاد حلقه براي انجام فرمانها .

Do [While i until condition][Statements][Exitdo]

[Statements]Loop

براي آزمايش:

Do [statements]Loop[While i Until condition]

اند.

Exp: myarray =Array (“Mcclane”,”Gennero”,…)

Beep (*.wav) , (*.mid)

MS Office در VBA آموزش زبان

صفحه 29

كليه فايلهاي باز يا مشخص شده توسط شماره فايل را مي بندد.

مقداري را بعنوان يك ثابت اعلان مي كند.

توابع سيستمي ) : ) VBA چند نمونه از توابع كاربردي و معمول

دو گروه از توابع به نام توابع عددي و توابع رشته اي وجود دارد . توابع عددي به همراه ثابتها

كرده ، آنه ا را به توابع عددي و برعكس تبديل مي كنند . تعدادي از توابع پر استفاده در زير

ذكر شده اند :

عبارت دا ده شده را به يك رشته تبديل مي كند.

عبارت مشخص را در انواع گوناگون برمي گرداند.

MS Office در VBA آموزش زبان

صفحه 30

ABS – تابع قدر مطلق

علامت آن است .

شكل كلي اين تابع به صورت زير است :

مي تواند يك ثابت و يا متغير عددي و يا يك عبارت محاسبه اي باشد . X كه در آن

: مثال ١

برابر ١٣ – باشد . x برابر ١٣ مي باشد اگر A مقدار ذخيره شده در

برابر ٦ باشد . x برابر ٦ مي باشد اگر A مقدار ذخيره شده در

صفر باشد . x برابر صفر مي باشد اگر A مقدار ذخيره شده در

: مثال ٢

y برابر يك باشد . مقدار ذخيره شده در x برابر ١٢ است اگر y مقدار ذخيره شده در

برابر ٣- باشد . x برابر ٢٨ است اگر

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

INT تابع

براي بدست آور دن نزديكترين عدد صحيح به يك مقدار عددي بكار مي رود . INT تابع

اين تابع بزرگترين عدد صحيحي را كه از دست داده شده بزرگتر نباشد به دست مي دهد .

شكل كلي اين تابع به صورت زير است :

مي تواند يك ثابت يا متغير عددي و يا يك عبارت محاسبه اي باشد . x كه در آن

: مثال ١

١٢ باشد . / برابر ٣٥٧ x برابر ١٢ است اگر A مقدار ذخيره شده در

٤- باشد . / برابر ٥٩ x برابر ٥- است اگر A مقدار ذخيره شده در

٢٦ باشد . / برابر ٩٩٩ x برابر ٢٦ است اگر A مقدار ذخيره شده در

MS Office در VBA آموزش زبان

صفحه 31

: مثال ٢

٥ باشد . / برابر ٤ A برابر ٦ است اگر y مقدار ذخيره شده در

كاربردهاي زيادي دارد . يكي از آنها روند كردن يكعدد به نزديكترين عدد صحيح INT تابع

٠ به هر عدد و سپس بكارگيري اين تابع عدد صحيح مورد نطر خود را به / است . با افزودن ٥

دست خواهيد آورد .

براي اين است كه معين كنيم آيا يك عدد صحيح است يا غير صحيح INT كاربرد ديگر تابع

يك عدد صحيح باشد آنگاه N .براي اين كار از اين حقيقت استفاده مي شود كه اگر

. N=INT(N)

همان عدد ، تعيين كنيم كه عدد صحيح INT به بيان ديگر مي توانيم با مقايسة يك عدد با

است يا خير.

قسمتهاي پس ا ز دو رقم اعشار يك عدد را قطع كرده INT ضمناً مي توانيد با استفاده از تابع

كنيد . Round و يا عددي را تا دو رقم اعشار

INT(100*x) اگر مي خواهيد قسمتهاي اضافه عدد را تا دو رقم اعشار قطع كنيد از 100

استفاده كنيد . بعنوان مثال به ازاء :

حاصل كار اين تابع برابر است با :

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

بعنوان مثال اگر :

آنگاه :

MS Office در VBA آموزش زبان

صفحه 32

RND تابع

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

، ٠/ دقيقاً چه نتيجه اي مي دهد . اين تابع ممكن است ٦٨٣ RND وجود ندارد كه بدانيم تابع

٠ باشد – يعني هر عددي بين صفر و يك به استثناي خود اعداد صفر و / ٠ يا ٠٠٠٩٨ / يا ٠٠٨٤٧

يك .

شكل كلي اين تابع به صورت زير است :

مي تواند يك ثابت يا متغير عددي و يا يك عبارت محاسبه اي باشد . X كه درآن

مسير اعداد تصادفي توليد شده را كنترل مي كند . در يك نگارش X مقدار موجود در

هر دفعه عدد تصادفي جديدي بين RND صفر باشد باعث مي شود كه X اگر مقدار BASIC

بزرگتر از صفر باشد باعث X اگر BASIC صفر و يك ايجاد كند . در نگارش ديگري از

صفر باشد آخرين عدد توليد شده قبلي را پس مي دهد . X ايجاد اعداد تصادفي شده و اگر

شما مي توانيد با انجان برخي عمليات محاسباتي اعداد تصادفي بزرگتر از يك توليد كنيد .

ذخيره كنيد . به شكل زير مي y فرض كنيد مي خواهيد عددي تصارفي بين صفر و ده را در

توانيد به كامپيوتر بگوييد تا اين كار را انجام دهد :

بين صفر تا ده خواهد بود . y بين صفر و يك است مقدار RND از آنجايي كه مقدار

استفاده كنيد . Y=9*RND(1)+ اگر عددي بين ١ و ١٠ مي خواهيد از 1

هميشه اعداد RND اغلب ممكن است بخواهيد يك عدد صحيح تصادفي ايجاد كنيد . چون

را باهم تركيب كنيد . INT و RND اعشاري توليد مي كند براي اين كار بايد توابع

: مثال ١

. ( عددي صحيح بين ١ و ٥٠٠ را خواهد داشت (به استثناي ٥٠٠ N

: مثال ٢

عددي صحيح بين ١ و ٥٠٠ را خواهد داشت . N

MS Office در VBA آموزش زبان

صفحه 33

مفيد مي RND ، براي توليد اعداد غير قابل پيش بيني و يا اعداد ي مثل اعداد بازيهاي شانسي

باشد .

SGN– تابع علامت

محاسباتي مثبت است يا منفي .

شكل كلي اين تابع به صورت زير است :

حاوي يك مقدار عددي است . X كه در آن

برابر منفي يك خواهد بود . SGN(X) كوچكتر از صفر باشد X اگر

صفر خواهد بود . SGN(X) صفر باشد X اگر

برابر يك خواهد بود . SGN(X) بزرگتر از صفر باشد مقدار X اگر

SQR تابع ريشه دوم

از اين تابع براي يافتن ريشة دوم يك عدد مثبت استفاده مي شود . ريشه دوم يك عدد منف ي

عددي حقيقي نبوده و با اين تابع قابل محاسبه نمي باشد .

به صورت زير است : SQR شكل كلي تابع

نشان داده مي شود . √X كه در رياضي به صورت

SIN,COS,TAN توابع

براي حل مسائل رياضي شما سه تابع مثلثاتي فوق را ارائه داده است . BASIC

شكل كلي اين توابع به صورت زير است :

حاوي زاويه بر حسب راديان مي باشد . X كه در آنها

MS Office در VBA آموزش زبان

صفحه 34

EXP و LOG توابع

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

است :

Y=ex : و log(Y)=X : در رياضي

به صورت زير است : BASIC شكل كلي اين توابع در

ASC و CHR$ توابع

جهت نشان دادن كاراكترها مطالبي بدانيد . در پي تلاش جهت استاندارد نمودن نمايش داده ها،

يا EBCDIC كامپيوترها را به گونه اي طراحي نموده اند كه يكي از دو سيستم كددهي

مخفف كلمات EBCDIC . را بكار برند ASCII

مخفف كلمات : ASCII و

مي باشد.

CHR$ اولين كاراكتر يك متغير رشته اي را به كد اسكي آن تبديل مي كند . تابع ASC تابع

عمل مي كند . اين تابع يك كد اسكي را به يك كاراكتر تبديل ميكند . ASC دقيقاً عكس تابع

به صورت زير است : ASC شكل كلي تابع

است . در جدول ضميمه مي بينيم Computer حاوي كلمه X$ فرض كنيد متغير رشته اي

قرار A عدد ٦٧ را در A=ASC(X$) برابر ٦٧ است . بنابراين دستور c كه كد اسكي براي

خواهد داد .

به صورت زيرست : CHR$ شكل كلي تابع

يك ثابت عددي و يا متغير عددي است كه ح اوي يك كد اسكي است كه به يك كاراكتر X

PRINT تبديل مي شود . بعنوان مثال كد اسكي علامت كوتيشن (“ ) برابر ٣٤ است . دستور

سبب مي شود كه علامت كوتيشن (“) روي صفحه تصوير نشان داده شود . CHR$(34)

MS Office در VBA آموزش زبان

صفحه 35

هم يشه در CHR$(X) در يك متغير عددي ذخيره شده و ASC(X$) بخاطر داشته باشيد كه

يك متغير رشته اي ذخيره مي گردد .

براي نشان دادن كاراكترهاي خاص و يا كاراكترهاي گرافيكي بر روي صفحه CHR$ تابع

تصوير بسيار مفيد مي باشد .

در مواقعي كه برنامه بايد با كاراكترهاي غير معمول سرو كار داشته باشد مفيد است ASC تابع

مي باشد كه به منظور خاصي به كار مي Esc . مثلاً صفحه كليد بيشتر كام پيوترها داراي كليد

رود . وقتي اين كليد فشرده شود يك كاراكتر معمولي را ايجاد نمي كند بلكه كد اسكي ٢٧ را

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

دستورات زير را مورد استفاده قرار دهيد :

Esc پس از اجرا كاراكتر رشته ورودي را تست كرده و بررسي مي كند كه آيا برابر كد اسكي

كه ٢٧ است مي باشد يا خير .

RIGHT$ و MID$ و LEFT$ توابع

كنيد .

به كامپيوتر مي گويد كه به تعداد معيني از كاراكترها كه از انتهاي چپ رشته LEFT$ تابع

كاراكتري شروع مي شوند رجوع نمايد .

شما را آماده مي كند كه به تعداد معيني از كاراكتدها كه از سمت راست رشته RIGHT$ تابع

شزوع مي شوند دستيابي پيدا كنيد .

به صورت زير است : LEFT$ شكل كلي تابع

متغير رشته اي است كه مي خواهيد آنرا تقسيم كنيد . X$

شروع مي شوند . X$ تعداد كاراكترهايياست كه از سمت چپ متغير N

MS Office در VBA آموزش زبان

صفحه 36

مثال :

است . ”GOOD “ حاوي كاراكترهاي LEFT$(X$,4)

است . ”GO “ حاوي كاراكترهاي LEFT$(X$,2)

است . ”GOOD EVE“ حاوي كاراكترهاي LEFT$(X$,8)

به صورت زير است : RIGHTS شكل كلي تابع

متغير رشته اي است كه مي خواهيد آن را تقسيم كنيد . X$

شروع مي شوند . X$ نشان دهنده تعداد كاراكترهايي است كه از سمت راست N

: Excel VBA چند برنامه نمونه براي تمرين در محيط

و يافتن مقادير يك بانك در بانك ديگر و جاگذاري فيلدهاي Excel برنامه مقايسه دو بانك

موردنظر:

برنامه حذف ده رديف :

MS Office در VBA آموزش زبان

صفحه 37

: Access و VBA در SQL برنامه نويسي

يك زبان عمومي و بسيار رايج براي دسترسي به داده ها در انواع كامپيوترهاي امروزي SQL

و همچنين برنامه نويسي Query است . اين زبان يك روش پيشرفته و قوي براي ا يجاد انواع

اين زبان را پشتيباني كرده و امكان كار با Ms Access . مي باشد VBA در محيط

وجود SQL دستورالعملهاي آن را در خود فراهم كرده است . در مجموع سه نوع استاندارد

با جز ئي تغيير ) ، ) SQL- رايجترين استاندارد در حال حاضر ) ، 89 ) SQL- دارد : 86

را SQL- و برخي عناصر 92 SQL-89 ، Ms Access . ( با تغييرات عمده ) SQL-92

پشتيباني مي كند .

را پشتيباني مي كنند ، داراي خط فرمان يا SQL برخلاف ساير برنامه ها كه Access در

براي اج راي آنها Enter و زدن كليد SQL محيط مشابه براي نوشتن مستقيم فرمانهاي مستقيم

استفاده Query از محيط مربوطه در طراحي SQL ندارد . براي نوشتن يا مشاهده فرمانهاي

يا نمايش ليست داده Q uery از فرمان اجراي SQL مي شود . براي مشاهده نتيجه عبارتهاي

هاي آن استفاده مي شود .

: SELECT فرمان

يعني همه چيز . با فراگي ري اين عبارت و تمام پارامترهاي آن ، در واقع SQL در SELECT

را فرا گرفته ايد . اين عبارت ركوردهاي داده ها را انتخاب و به صورت SQL مي توان گفت

به شرح elect S نمايش مي دهد . دستورالعمل اصلي عبارت Daynaset يك ليست از نوع

زير است :

SELECT نام فيلدها

FROM نام جدول

[WHERE [شرط

[ ORDER BY [ترتيب بندي

در SQL براي مشاهده محيط برنامه نويسي

در محيط Query پس از طراحي ، Access

را از ميان آيتمهاي دكمه SQL گزينه Design

بالاي صفحه انتخاب كنيد . Veiw

MS Office در VBA آموزش زبان

صفحه 38

اجباري و بقيه اختياري است . FROM و SELECT همانگونه كه مشاهده مي كنيد ، عبارتهاي

به شرح زير ارائه مي شود . SELECT در اينجا هريك از پارامترهاي

SELECT عبارت

در اينجا هم از QBE با اين عبارت فيلدهاي نمايشي در سئوال مشخص مي شود . مانند روش

ستاره يعني تمام ركوردها مي توان استفاده كرد .

SELECT * يعني تمام ركوردها

SELECT lastname يعني فقط فيلد فايل ليست شود

يا :

در آخرين عبارت به دليل استفاده از علامت ويژه # همراه با نام فيلد از علامت [ ] استفاده

شده است . البته تمام نام فيلدها را مي توان با علامت [ ] همراه نمود .

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

SELECT[Customer#] As ID ، [Lastname] &'' ''& [Customer Name];

كه بطور خودكار توسط اكسس ساخته مي شود نام فيلد همراه با SQL استفاده كنيد . عبارت

tblOrder با نام جدول يعني Customer # نام جدول است . براي مثال اگر بخواهيد فيلد

نوشته شود بصورت زير خواهد بود :

SELECT tblOrder . [ Customer # ]

MS Office در VBA آموزش زبان

صفحه 39

FROM عبارت

با اين عبارت نام جدول يا سئوالي كه ركوردهاي آن انتخاب مي شود مشخص مي گردد . اگر

از بيش از يك جدول نام برده مي شود بايستي نوع ارتباط آنها هم مشخص شود . در اين

ارتباط توضيحات لازم در ادامه همين فص ل آمده است . در اينجا براي سادگي كار از يك

جدول نام برده مي شود .

انتخاب مي شوند . tblOrder تمام ركوردهاي جدول

در اينجا فقط دو فيلد از جدول بالا ليست مي شود .

در اينجا هم مي توان براي نام جدول يا جدولها يك نام كوتاه يا موقت SELECT مانند

تعريف كرد .

WHERE عبارت

استفاده مي شود . اين عبارت اختياري است و WHERE براي وارد كردن شرط در سئوال از

شبيه رديف WHERE تمام ركور دها را نمايش مي دهد . عبارت WHERE بدون SELECT

به شرح زير SELECT است . فرمت اين بخش از QBE در ( OR ) شرط و رديف بعدي

است :

WHERE شرط ١ [ AND / OR [[…,] شرط ٢

براي مثال اگر بخواهيد به مثالهاي قبلي يك شرط اضافه كنيد به روش زير عمل مي شود :

MS Office در VBA آموزش زبان

صفحه 40

به مثالهاي زير توجه كنيد : SELECT براي آشنايي بيشتر با اين بخش از

است ليكن برخي موارد خاص را به QBE گرچه آنچه مشاهده كرديد شبيه روش شرط در

شرح زير بخاطر بسپاريد :

• عبارت نوع متن را در علامت '' يا ' وارد كنيد .

• عبارت نوع تاريخي رادر علامت # وارد كنيد.

استفاده كنيد . Like • وقتي به علامت ستاره يا ? در عبارت شرط اشاره مي كنيد ، از

ORDER BY عبارت

استفاده مي شود . اين عبارت نيز SELECT براي مرتب سازي ركوردها از اين عبارت در

DESC و مرتب سازي نزولي از ASC اختياري است . براي مرتب سازي صعودي از كلمه

استفاده مي شود . فرمت اين عبارت بصورت زير است :

ORDER BY ستون ١ [ASC/ DESC][, ستون ٢ [ASC/ DESC][,...]]

براي آشنايي بيشتر به يك مثال بشرح زير توجه كنيد :

( Related Tables ) جدولهاي مرتبط

آنها را نيز در ( Relation ) هنگام استفاده از بيش از يك جدول در سئوال بايستي ارتباط

تعريف كرد . علاوه بر اين در اشاره به نام فيلدها ، بايستي نام جدول مربوطه را SQL عبارت

هم تايپ كنيد . فرمت عمومي براي استفاده از چند جدول و اشاره به ارتباط آنها بشرح زير

است :

MS Office در VBA آموزش زبان

صفحه 41

SELECT ليست فيلدها

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

را مشخص كرد :

ALL •

است . با اين فرمان تمام ركوردهاي مطابق شرط S ELECT ALL فرمت اين مشخصه فيلدها

و Uniquevalues > NO نمايش داده مي شوند . اين روش شبيه مشخصات

در پنجره مشخصات مي باشد . UniqueRecords > NO

DISTINCT •

است . با اين فرمان از تكرار ركوردها SELECT DISTINCT فرمت اين مشخصه فيلدها

جلوگيري مي شود . شرط تكرار در اينجا داده هاي فيلدهاي منظور شده در فرمان است . اگر

تكرار ركوردها جلوگيري مي شود . نتيجه اين نوع سئوال قابل ويرايش نيست و به همين دليل

فقط در موارد خاص بايد از آن استفاده كرد . استفاده از اين فرمان شبيه مشخصه

در پنجرا مشخصات سئوال است . UniqueRecords > YES

DISTINCTROW •

است . با اين فرمان از تكرار SELECT DISTINCTROW فرمت اين مشخصه فيلدها

ركوردها جلوگيري مي شود . شرط تكرار در اينجا داده هاي تمام فيلدهاي جدول مبدأ است .

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

در پنجره مشخصات UniqueRecords > YES است . استفاده از اين فرمان شبيه مشخصه

سئوال است . در بيشتر مواقع از اين فرمان استفاده مي شود .

MS Office در VBA آموزش زبان

صفحه 42

( Debugging ) كنترل برنامه ها از طريق خطاگيري و اشكال زدائي

بياموزد . براي اين كار راههاي مختلفي وجود دارد . روش VBA نويسي هاي خود در محيط

كردن در محيط Debug يكي از بهترين و ساده ترين متدهاي Break Point

است . Visual Basic

: ( Break Point ) روش نقطه توقف

را F فرمانهاي خود را ببينيد و مقداردهي متغيرهاي خود را ارزيابي كنيد . اگر شما دكمه 5

قرار Run Mode فشار دهيد ، كد برنامه شمااجرا مي شود و ويژوال بيسيك در حالت

را فشار دهيد مي توانيد خط به خط اجراي برنامه را كنترل كنيد ، F مي گير د ولي اگر كليد 8

مي باشد . اگر در جريان اجراي Break Mode در اين حالت ويژوال بيسيك در حالت

Toggle ) را بفشاريد F برنامه بخواهيد كنترل خط به خط برنامه را ببينيد ، بايد كليد 9

MouseOver شدن خط برنامه شما مي توانيد با HighLight در صورت . ( BreakPoint

كردن بر روي هر كدام از متغيرها ، مقدار فعلي آن را ببينيد .

MS Office در VBA آموزش زبان

صفحه 43

Break روشهاي بسياري براي مشاهده مقادير متغيرها در برنامه ها وجود دارد که در حالت

با حرکت موس بر روی متغيرها ( HighLight ) اگر خط مورد نظر روشن شود Mode

می توانیدببینید . در اين حالت شما Data Tips Window مقادیر فعلی آنها در

ادامه برنامه را دنبال F موس به خط بعدی و فشردن کليد 5 ( Drag ) می توانيد با کشيدن

نيز به کنترل خط به خط ادامه دهيد ) F کنيد . ( می توانيد با فشردن کليد 8

نکته :

را مشاهده Data Tips اگر پنجره

نکرديد می توانيد از مسير زير :

را فعال کنيد . Auto Data Tips گزينه

MS Office در VBA آموزش زبان

صفحه 44

سه پنجره ديگر را نيز جهت نمايش مقادير فعلی متغيرها در زمان اجرای برنامه فراهم VBA

آوده است که عبارتند از :

. Immediate و Locals و Watch پنجره های

متغير را از Break Mode شما می توانيد در حالت Watch Window برای استفاده از

کنيد . پنجره Drag , Watch Window محيط برن امه انتخاب کرده و با موس به پنجره

می باشد از اين نظر که مقادير درون آن با جريان برنامه Watch نيز شبيه پنجره Locals

می شود . Update بصورت اتوماتيک

OutLine های مختلف را در يک محيط Module شما می توانيد مقادير متغيرهای مختلف

( در کنار هر عنوان علامت (+)ای برای نمايش زير عنوانهای آن وجود دارد ) در صورت عدم

آن را فعال کنيد . View مشاهده اين پنجره از منوی

است که امکانات بيشتری در زمينه کنترل برنامه و خطايابی در Immediate پنجره سوم

کردن متغير به درون پنجره Paste و Copy اختيار کاربر قرار می دهد . شما می توانيد با

Immediate در Paste کرده و پس از Copy مقدار آن را ببينيد و يا کل خط جاری را

را بفشاريد تا نتيجه آن را ببينيد . Enter در انتهای آن کليد Window

MS Office در VBA آموزش زبان

صفحه 45

های پنهان شده در برنامه می توانيد کد زير را در يک Sheet برای نمايان کردن تمامی

بنويسيد : Module

بنويسيد : Module شده باشند کد زير را در يک

On Error GoTo errorHandler

Dim startDate As String

Dim stopDate As String

Dim startRow As Integer

Dim stopRow As Integer

startDate = InputBox("Enter the Start Date : (mm/dd/yy)")

If startDate = "" Then

stopDate = InputBox("Enter the Stop Date : (mm/dd/yy)")

If stopDate = "" Then

startDate = Format(startDate , :mm/dd/yy")

stopDate = Format(stopDate , :mm/dd/yy")

Worksheets("Table").Columns("A").Find(startDate,lookin:=xlVal

ues,lookat:=xlWhole).Row

Worksheets("Table").Columns("A").Find(stopDate,lookin:=xlValu

es,lookat:=xlWhole).Row

Destination:=Worksheets("Report").range("A")

MsgBox " There has been an error : " & Error() & Char(13) &

"Ending Sub ……….Please Try Again",48