property ، method ، event و سایر کدها در اکسل

[Javid Mokhtari]

با سلام به همه.

از همه ی دوستان VB درخواست دارم تا هر چه در مورد property ، method و event ها در اکسل بلدن با توضیحات کامل و در صورت امکان با یک ضمیمه به اشتراک بذارن .می خوام یک تایپیک مرجع در مورد property ، method و event ها ایجاد بشه تا همه استفاده کنن.مهم نیست که موضوع پیچیده است یا ساده ،فقط هر کی هرچی میدونه به اشتراک بذاره(در ضمن ،سعی شود از موضوعات تکراری جلوگیری شود واگر یکی اشتباهی مورد تکراری قرار داد ،اون رو حذف کنه).اینجوری دوستان مبتدی هم میتونن به پیشرفت یادگیریشون سرعت بدن....................از ساده ها شروع میکنیم تا پیشرفته ها.................

[Javid Mokhtari]

RE: property ، method و event ها در اکسل

سلام آقای وطن پرست.میشه توضیحی در مورد کدتون بدین(اونی که زیرش خط کشیدم)...میخوام اینجارو پر بارش کنم.
myList = myList & i & " - " & ActiveWorkbook.Sheets(i).Name & " " & vbCr

[~M*E*H*D*I~]

RE: property ، method و event ها در اکسل

من خواستم به صورت ستونی تو input box اضافه بشه mylist دوم باعث شده شیت ها پشت سر هم بچسبن به هم یعنی
sheet1-sheet2.... بعد به input box اضافه کردم این ساده بود که

[Javid Mokhtari]

RE: property ، method و event ها در اکسل

اقای وطن پرست اینارو میدونم.گفتم که;می خوام تایپیک رو جامع کنم تا همه استفاده کنن.لطفاً اگه ممکنه توضیحاتتون رو کامل کنید.انگار دارید برای یک تازه کار توضیح میدین.(مثل اینکه تا از دوستان سئوال نشه،نمی خوان اطلاعاتشون رو در اختیار دیگران قرار بدن.خودم هم سعی می کنم هر روز حداقل یک مورد رو توضیح بدم.البته در حد سواد خودم.)
با نشکر

[~M*E*H*D*I~]

RE: property ، method و event ها در اکسل

با سلام
در ادامه توضیح طبق خواسته آقا جاوید این مطالبم اضافه میکنم راستش تو توضیح قبل من فقط به mylist توجه کردم.
در زبان VBA ثابت هایی وجود دارند که اصطلاحا بهش میگن Miscellaneous Constants که به شرح زیر هستند

نوع ثابت

vbCrLf
vbCr
vbLf
vbNewLine
vbNullChar
vbNullString
vbObjectError
vbTab
vbBack
vbFormFeed
vbVerticalTab 

این ثابت ها با اضافه شدن به کد اعمالی از قبیل رفتن به سر سطر، ایجاد تب خالی ، ایجاد line جدید انجام می دن ، به عنوان مثال تو کدی که آقا جاوید پرسیدن Vbcr باعث میشه به سر سطر بریم یعنی لیست شیت ها زیر هم قرار بگیرند در ادامه هم برای ایجاد فاصله بین Select sheet to go to و لیست شیت ها 2بار از این ثابت استفاده شده که اگه حذف بشه این فاصله از بین میره در واقع حذف این ثابت ها در ساختار برنامه خللی ایجاد نمیکنه و استفاده از اونها جهت تنظیمهای ظاهر برنامه کاربرد داره برای درک بهتر پیشنهاد می کنم عملا از این ثابت ها استفاده بشه تا تغییرات حاصل رو ببینید

[Javid Mokhtari]

RE: property ، method و event ها در اکسل

Do...untilحلقه هست ولی select case یک شرط چندگانه است.

حلقه Do While ... Loop :
این حلقه نسبت به حلقه های دیگر بسیار ساده می باشد.در این حلقه،ابتدا شرط را بررسی می کند و اگر شرط درست باشد حلقه را ادامه می دهد در غیر اینصورت حلقه متوقف می شود و به شکل زیر می باشد:

DO WHILE condition
کدی که باید اجرا شود
LOOP

مثال:
Dim x as integer
Do while x<5
msgbox x
Loop
توضیح:
در خط اول متغیری(x)از نوع عددی تعریف کردیم.
در خط دوم شرط می گذاریم که تا زمانی که x<5 باشد،حلقه را اجرا کند.
در خط سوم مقدار کنونی x از طریق یک کادر پیغام نشان داده می شود
و خط سوم اشاره به ابتدای حلقه دارد.
یعنی اولین بار که حلقه اجرا می شود،x=1می شود.بررسی می کند که آیا xکوچکتر از 5 است یا نه.اگر شرط درست باشد وارد حلقه می شود و در انتهای حلقه یک واحد به x اضافه میشود.یعنی x=2می شود.دوباره شرط را چک می کند که آیا x<5است یا نه.چون2 کوچکتر از 5 است،پس وارد حلقه می شود و دستورات داخل حلقه را اجرا می کند(یعنی مقدار x از طریق کادر پیغام اعلام می شود).
__________________________________________________ __________________________________________________ ____________________
حلقه Do...until :
تا زمانی که شرط به یک مقدار مورد نظر نرسد،حلقه ادامه دارد ولی اگر حلقه به مقدار مورد نظر برسد،حلقه متوقف می شود.
مثال:
c=0............................................... ...مقدار دهی اولیه به متغیر c (نوشتن این قسمت اختیاری است).
Do until c =10..........اینجا می گوئیم که: "تا زمانی که cبرابر ده نشده است،حلقه را اجرا کن
c=c+1..................یک واحد به مقدار cاضافه می شود
loop.....................اشاره به ابتدای حلقه دارد
تا زمانی که cبه عدد ده نرسیده است حلقه تکرار می شود.

__________________________________________________ __________________________________________________ __________________
Select Case:
از این دستور برای انجام عملیات زیاد بر رو یک متغیر استفاده می شود
مثال:
Select Case Cells(1, 1)..........سلول(1,1)را در نظر بگیر یا انتخاب کن
Case 1...............................اگر مقدار شیئ انتخابی (A1) برابر 1 باشد
MsgBox 1...........................پیغام مبنی بر اینکه مقدار برابر 1 است ، صادر کن
Case 2...............................اگر مقدار شیئ انتخابی (A1) برابر 2 باشد
MsgBox 2...........................پیغامی مبنی بر اینکه مقدار برابر 2است ، صادر کن
End Select
یا می توان به صورت زیر نیز نوشت:
Select Case Sheet1.Range("a1")
Case Is = 1
MsgBox Sheet1.Range("a1")
Case Is = 2
MsgBox Sheet1.Range("a1")
Case Is = 3
MsgBox Sheet1.Range("a1")
End Select

__________________________________________________ __________________________________________________ __________________
حلقه FOR...NEXT :
این حلقه بیشتر برای شمارش مورد استفاده قرار می گیرد و صورت کلی آن را می توان به شکل زیر در نظر گرفت:

FOR Dim=start TO end
دستوراتی که باید اجرا شود
NEXT

در بالا:
Dim:نام متغیر اختیاری ما می باشد.
start:نقطه ی شروع حلقه می باشد(منفی هم می تواند باشد).
end:نقطه پایانی حلقه می باشد(منفی هم می تواند باشد).
NEXT:اشاره به ابتدای حلقه دارد.
هر بار که حلقه تکرار می شود،مقداری به مقدار (i) اضافه می شود.

مثال:

for i =1 to 10
msgbox i
next i

در مثال بالا...
ابتدا(i)مقدار 1 را در خود ذخیره می کند و وارد حلقه می شود.
پیغامی صادر می شود که مقدار (i)را نشان می دهد.
عبارت NEXT باعث می شود که حلقه از نو اجرا شود ،با این تفاوت که یک واحد به مقدار (i)اضافه شده و دوباره وارد حلقه می شود.پس (i) ابتدا مقدار 1 سپس 2 سپس 3 سپس 4 و ... را به خود می گیرد.این عمل تا عدد 10 انجام می گیرد.در واقع ما 10 بار پیغام (i) را دریافت می کنیم.

افزایش انعطاف حلقه با Step:
در مثال بالا که گفته شد یک مشکل وجود دارد و آن هم گامهای حلقه می باشد.پیش فرض گام های(step) حلقه برای پیمایش ،1 واحد است.یعنی هر بار که حلقه تکرار می شود فقط 1 واحد به مقدار قبلی متغیر اضافه می شود.حال قصد داریم با دستور Step این مشکل رو حل کنیم.

FOR Dim=start TO end STEP step_value
دستوراتی که باید اجرا شود
NEXT

در بالا step_value ،نشان دهنده ی گام های حلقه می باشد.به مثال زیر توجه کنید:


for i =2 to 8 step 2
msgbox i
next i

ابتدا (i) مقدار 2 را به خود می گیرد و وارد حلقه می شود.دستورات را اجرا می کند و وقتی به Next می رسد 2 واحد به مقدار قبلی (i) اضافه می کند.یعنی i=4 می شود و دوباره وارد حلقه میشود.در واقع ما 4 بار پیغام دریافت خواهیم کرد.چون در 8 ،4 تا 2 داریم.مقدار i به صورت روبرو می شود 8 <--6 <--4 <--2

یک مثال کاربردی:

فرض کنید می خواهیم از طریق حلقه FOR...NEXT عددهای بزرگتر از 5 را از طریق کادر پیغام نشان دهیم:

For i = 1 To 10
If i > 5 Then
MsgBox i
End If
Next i
__________________________________________________ __________________________________________________ ________________
حلقه For...Each:
صورت کلی آن را می توان چنین در نظر گرفت:
FOR EACH dim IN location
دستوراتی که باید اجرا شود
NEXt

dim:نام متغیر ماست که به دلخواه می توان هر نامی را برای آن انتخاب کرد(که قبل از حلقه باید نوع متغیرتان را مشخص کنید)
location:محدوده یا محل متغیر را در خود ذخیره می کند(محدوده ای که متغیر در آن قرار دارد)

این حلقه شباهت زیادی به حلقه For...Next دارد.اما حلقه For..Each یک خاصیت شیئ گرائی دارد و هدف خود را بیشتر در مجموعه ای از آرایه ها دنبال می کند.جست و جوی این حلقه بصورت تک به تک است و تمام اعضای موجود در خود را دنبال می کند.برای مثال وقتی می نویسیم:for each c in range("A1:A10")v
c:نام متغیر ماست(از نوع محدوده)که در محدوده ی A1:A10 وجود دارد.
یا به طور عامیانه کد بالا می گوید:«برای هر c که در محدوده ی A1:A10 وجود دارد»

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

Dim c As Range
For Each c In Range("a1:a10")
c = 1
Next

در خط اول ابتدا متغیری به نام c و از نوع Range تعریف کردیم
در خط دوم تعیین کردیم که متغیر c در محدوده یA1:A10 قرار دارد
در خط سوم به c مقدار 1 نسبت دادیم
خط چهارم Next اشاره به ابتدای حلقه دارد.
طریقه عملکرد حلقه:
اولین بار که حلقه اجرا می شود متغیر c سلول A1 را به خود نسبت می دهد بعد وارد حلقه می شود و مقدار 1 را به c(که همان A1 است)می دهد
وقتی به Next رسید،میره به ابتدای حلقه و میره سراغ محدوده ی بعدی،یعنی A2.پس c سلول A2 را به خود نسبت می دهد.و باز مقدار 1 را به c اختصاص می دهد و وقتی به Next رسید دوباره میره ابتدای حلقه و میره سراغ محدوده ی بعدی،یعنی A3.دوباره عملیات بالا را تکرار می کند.این کار آنقدر ادامه پیدا میکند تا به انتهای محدوده یعنی A10 برسد.در واقع ما به سلول های A1:A10 مقدار 1 را دادیم.

مثال:
فرض کنید محدوده ای را داریم و از طریق حلقه ی For...Each می خواهیم آدرس محدوده مورد نظر را سلول به سلول از طریق یک کادر پیغام(Msgbox)نشان دهیم.

Dim c As Range
For Each c In Range("a1:a5")
MsgBox c.Address
Next

[intro]

RE: property ، method و event ها در اکسل

سلام خدمت اساتيد محترم
نوشته ها تون بسيار زيبا ست ولي بنظر من اگه اين موارد همراه با تمرين عملي نباشه زياد خاطرمون نخواهد موند بنابراين پيشنهاد ميكنم براي هر يك از موارد تمرين بسيار ساده اي هم قرار بديد تا بتونيم خودمونو آزمايش كنيم .

[Javid Mokhtari]

RE: property ، method و event ها در اکسل

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

http://persiandrive.com/67479

[mahsa shayesteh]

RE: property ، method و event ها در اکسل

سلام به دوستای گلم
ممنون از آقای مختاری که پیش قدم شدن برای آموزش سیستماتیک ، فک میکنم موضوعات یه کمی پراکندس اگه جهت داشته باشه خیلی عالی میشه

[Javid Mokhtari]

RE: property ، method و event ها در اکسل

سلام به دوستای گلم
ممنون از آقای مختاری که پیش قدم شدن برای آموزش سیستماتیک ، فک میکنم موضوعات یه کمی پراکندس اگه جهت داشته باشه خیلی عالی میشه

با تشکر از خانم شایسته.در جهت بهبود و آرایش مطالب،دوستان اگر نظری دارن حتماً بگن...

[~M*E*H*D*I~]

RE: property ، method و event ها در اکسل

سلام
البته این موضوعی که آقا جاوید روش کار میکنه ( مبحث event method,...) بحثی بسیار مهم و البته خیلی گسترده هس، دوستان نباید انتظار داشته باشن مباحث از پایه اینجا مطرح بشه مباحث اولیه رو خود دوستان مطالعه کنن اینجا نکات کاربردی و ریز مطرح بشه خیلی بهتر هست ، فک کنم اگه بحث یه کم بیشتر پیش بره جهت خودشو پیدا میکنه

[Javid Mokhtari]

RE: property ، method و event ها در اکسل

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

[Javid Mokhtari]

RE: property ، method و event ها در اکسل

لینک ها...:

نادیده گرفتن خطا در اجرای کد
دسترسی به توابع داخلی اکسل از طریق وی بی
کار با Spin Button
ایجاد فرم سفارشی با VB
قفل کردن کلید های کیبورد با VB
استفاده از آرایه ها در کد نویسی
بدست آورد کد رنگ و قلم سلول

[Javid Mokhtari]

RE: property ، method ، event و سایر کدها در اکسل

برخی Event های عمومی در اکسل :

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

click:
وقتی بر روی یک کنترل یک بار کلیک شود،کد های موجود در این رویداد اجرا می شود.

DBLclick:
وقتی بر روی یک کنترل دو بار کلیک شود،کد های موجود در این رویداد اجرا می شود.

KeyDown:
اگر کنترل مورد نظر فعال باشد و دکمه ای از کیبورد فشار داده شود،کد های این رویداد اجرا می شود.

Key Press:
زمانی که کلید کیبورد فشار داده شود و پائین نگه داشته شود،کد های موجود در این رویداد اجرا می شود.

Keyup:
اگر دکمه ای از کیبورد فشار داده شود و سپس رها شود،کد های موجود در این رویداد اجرا می شود.یعنی وقتی که دکمه به حالت اول بر می گردد.

Resize:
اگر اندازه کنترل تغییر پیدا کند،کد های موجود در این رویداد اجرا می شود.

MouseDown:
زمانی که کلید موس فشار داده شود،کد های موجود در این رویداد اجرا می شود.

MouseUp:
زمانی که کلید موس فشار داده شده و رها شود،کد های موجود در این رویداد اجرا می شود.یعنی وقتی که دکمه موس به حالت اول بر می گردد.

GotFocus:
زمانی که یک کنترل فوکوس را به دست می گیرد،کد های موجود در این رویداد اجرا می شود.

LostFocus:
زمانی که یک کنترل فوکوس را از دست می دهد،کد های موجود در این رویداد اجرا می شود.

برخی Event های کاربردی مهم اختصاصی کنترل ها:

change:
این رویداد مختص کنترل های کادر متنی(مثل textbox)می باشد.این رویداد زمانی فعال می شود که محتویات کنترل مورد نظر تغییر کند.فرض کنید یک Textbox داریم،حال اگر در داخل تکست باکس یک کاراکتر تایپ کنیم،این رویداد فعال می شود.چون محتویات تکست باکس مورد نظر تغییر پیدا کرده است.اگر ما بخواهیم در تکست باکس مورد نظر کلمه "علی" را بنویسیم، رویداد change سه بار اجرا می شود.می نویسیم "ع" محتویات باکس تغییر کرد،پس رویداد اتفاق می افتد.دوباره،مینویسیم "عل" محتویات باکس تغییر کرد،پس رویداد دوباره اتفاق می افتد.دوباره،مینویسیم "علی" محتویات باکس تغییر کرد،پس رویداد دوباره اتفاق می افتد.

Enter:
این رویداد زمانی اتفاق می افتد که ما وارد یک کنترل شویم.فرض کنید 2 تا تکست باکس داریم و ما در باکس اولی هستیم(یعنی باکس 1 فعال است یا فوکوس را در دست دارد)حال برای باکس2 و در رویداد مذکور کد زیر را می نویسیم:
Private Sub TextBox2_Enter()
MsgBox "Hi"
End Sub
حالا اگر ما وارد باکس 2 شویم یا انتخاب کنیم،پیام "Hi" ظاهر می شود.

Exit:
بر عکس رویداد Enter می باشد.یعنی اگر از یک کنترل خارج شویم،این رویداد اتفاق می افتد.

رویداد های مهم Userform:
Activate:
زمانی که فرم فعال می شود این رویداد اتفاق می افتد
Deactivate:
عکس رویداد Activate می باشد.یعنی زمانی که فرم غیر فعال یا بسته می شود،این رویداد اتفاق می افتد
Initialize:
قبل از اینکه فرم فعال شود،این رویداد اتفاق می افتد.یعنی قبل از اینکه رویداد Activeteاتفاق بیافتد،این رویداد اتفاق می افتد.از این رویداد بیشتر برای مقدار دهی اولیه به یک شیئ یا یک متغیر مورد استفاده می شود.
QueryClose:
این رویداد زمانی اتفاق می افتد که بخواهیم از طریق دکمه ی خروج سریع(x)فرم استفاده کنیم(همون دکمه ی Close پنجره ها).

[khakzad]

RE: property ، method ، event و سایر کدها در اکسل

سلام
ممنون
فرق این 3تا دقیقا چیه keydown,key press,key up
اخه دو حالت داریم یا کلید رو پایین نگه می داریم.یا اینکه ی بار می زنیم میاد بالا و برمی گرده یر جاش
حالت سومش مال چیه؟