برنامه نویسی تخصصی

GIS, Autocad, Access, Excel

آموزش برنامه نویسی VBA اکسل – قسمت دوم


  فروردین ۵, ۱۳۹۶   /     /   برنامه نویسی اکسل,ویژوال بیسیک (vba)
excel-vba

آموزش VBA اکسل-قسمت دوم

در جلسه قبل با نحوه آدرسی دهی که از مهمترین قسمت های برنامه نویسی VBA می باشد آشنا شدیم. از این به بعد و تا جلسه آخر ما همیشه با آدرس دهی درگیر خواهیم شد، مثلا در این جلسه نحوه ترکیب آدرس دهی و عملگرها را توضیح خواهم داد.

برای اجرای کدهای VBA شما دو راه دارید، اولی مثل جلسه گذشته که گفتم با کلید F5 میتوانید برنامه را اجرا کنید و راه دوم ساخت یک کلید Button است که با کلیک بر روی آن برنامه اجرا می شود. این دکمه به صورت پیش فرض در منوهای اکسل وجو ندارد. برای اضافه کردن این دکمه به آدرس زیر بروید :

اضافه کردن دکمه Button به اکسل

دستور Select :

دستور select  برای انتخاب یک یا مجموعه ای از سلول ها به کار میرود. مثال :

Range("B1").select

 

مشاهده میکنید که سلول B1 انتخاب شده. حالا که دستور انتخاب رو گفتم سه نوع آدرس دهی دیگه رو هم اشاره میکنم :

آدرس دهی ROW :

در این نوع آدرس دهی شماره ردیف رو میدهیم :

Rows(1).SELECT
Rows ("1").SELECT

 

آدرس دهی Column :

در این نوع آدرس دهی نام ستون یا شماره ستون داده می شود :

Columns (1).SELECT
Columns ("A").SELECT

 

آدرس دهی Active  :

در این نوع آدرس دهی ، سلولی یا ستون یا ردیفی که فعال است رو مقدار دهی یا عمل دیگری انجام میدهیم، در کد زیر سلولی رو که فعال است مقدار دهی میکنیم :

ActiveCell = "b68"

 

در این نوع آدرس دهی، ستونی که سلول در آن انتخاب شده را به حالت انتخاب در آورد :

ActiveCell.EntireColumn.Select

 

و در این آدرس دهی ردیفی که سلول در آن فعال را انتخاب میکند :

ActiveCell.EntireRow.Select

 

انواع عملگرها در VBA :

  • عملگرهای ریاضی
  • عملگرهای مقایسه ای
  • عملگرهای منطقی

عملگرهای ریاضی :

در بشتر زبان های برنامه نویسی این عمگرها مشترک هستند مثل زبان برنامه نویسی اتولیسپپ که در سایت توضیح داده ام و همان عملگرهایی هستند که روی کیبورد قرار دارند :

عملگر + : جمع

عملگر – : منها

عملگر * : ضرب

عملگر & : چسباندن دو یا چند رشته متنی به هم

عملگر ^ : توان

عملگر / : تقسیم

عملگر \ : خارج قسمت تقسیم صحیح

عملگر MOD : باقیمانده تقسیم صحیح

برنامه زیر را در VBA اجرا کنید :

Sub Button1_Click()

Range("B1").Value = 2 + 2

End Sub

با اجرای دکمه مشاهده میکنید که سلول B1 برابر ۴ شده است.

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

Sub Button1_Click()

Range("B1") = ((((5 + 5) - (2 + 2)) ^ 2) / 2)

End Sub

 

در مثال بالایی چهار عملگررا با هم ترکیب کردیم، دقت کنید که برای تعداد پرانتز شروع به همان تعداد نیز باید پرانتز بسته شود.

برای عملگرها اولویت وجو دارد اگر عملیات ریاضی را بدون پرانتز انجام دهید، اولویت با عملگر سمت چپ خواهد بود :

Sub Button1_Click()

Range("B1") = 2 + 3 - 4 + 1

End Sub

 

مشاهده میکنید که عدد ۲ در سلول  B1 ظاهر خواهد شد.





این مطلب را در شبکه های اجتماعی به اشتراک بگذارید

فیس نما   فیس نما   فیس نما   فیس نما   فیس نما   فیس نما   فیس نما   کلوب   فیس نما  

8 دیدگاه برای "آموزش برنامه نویسی VBA اکسل – قسمت دوم"


اسماعیل عبدی گفت:

برنامه انتقال نقاط از اکسل به اتوکد در سایت وجود ندارد

بهمن جعفری گفت:

سلام. به زودی در سایت قرار میدهم.

مجتبی گفت:

سلام
مرسی از بابت دروس
من میخواهم داخل یک سلول مثلا” A1 یک عدد وارد کنم مثلا” ۷۵ و با کلیک روی یک دکمه سلول A75 را انتخاب کند. آیا میتوانید مرا راهنمایی کنید؟ ممنونم..

بهمن جعفری گفت:

سلام. خواهش میکنم، اونطوری که متوجه شدم :
Dim x As Integer
x = Range(“a1”).Value
Range(“a” & x).Select

مجتبی گفت:

بسیار سپاسگذارم. مطمئنا” شما درست متوجه منظور بنده شده اید ولی بنده با اینکه کد شما را روی یک شیپ قرار دادم بصورت زیر باز جواب نگرفتم؟!
Sub RoundedRectangle1_Click()
Dim x As Integer
x = Range(“a1”).Value
Range(“a” & x).Select
End Sub
آیا جسارتا” بنده میتوانم شماره همراه شما را داشته باشم تا بصورت مستقیم از شما کمک بگیرم؟

بهمن جعفری گفت:

در سایت شماره همراه و تلگرام رو گذاشتم که !!!

دیدگاهتان را بنویسید

نشانی ایمیل شما منتشر نخواهد شد. بخش‌های موردنیاز علامت‌گذاری شده‌اند *