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

**khakzad** · 2012/03/30, 13:49

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

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

**Javid Mokhtari** · 2012/03/30, 22:30

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

نوشته اصلی توسط khakzad

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

رویدادهای keydown,key press فرق آنچنانی با هم ندارند.همینکه کلیدی از کیبورد فشار داده شود،کد مورد نظر اجرا می شود
اما KeyUP زمانی اجرا می شود که شما کلیدی را فشار داده اید ،زمانی که آن را رها می کنید تا کلید به حالت اول خود برگردد،کد اجرا می شود.
مثلاً فرض کنید کلید enter را فشار داده و پائین نگه داشته اید.تا زمانی که کلید enter پائین است کد اجرا نمی شود اما همینکه کلید enter را رها کنید،کد اجرا می شود.

**Javid Mokhtari** · 2012/03/31, 02:32

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

[align=center]توابع[/align]

توابع مهم و کاربردی در VB

Len:
تعداد کاراکتر های موجود در یک رشته را نشان می دهد:
msgbox Len("Hello..............که جواب برابر 5 خواد بود
یا
textbox1.text=Len("Hello.............که مقدار 5 در باکس 1 قرار می گیرد.

Sqr:
جذر عدد را می گیرید...........................Msgbox Sqr(25..........که جواب برابر 5 خواهد بود.

َAbc:
قدر مطلق عدد را نشان می دهد...........Msgbox Abs(-25..........که جواب برابر 25 خواهد بود.

Int:
عدد را به طرف عدد صحیح گرد می کند.....Int(6.4...Int(5.7...که جواب به ترتیب برابر 5 و 6 خواهد بود

Mid:
برای انتخاب بک قسمت از یک رشته مورد استفاده قرار می گیرد.
صورت کلی آن را به این صورت می توان فرض کرد: Mid(string,start,length
string:رشته ای که می خواهید عمل جست و جو در آن صورت گیرد.
Start:شماره کاراکتری که عمل انتخاب کاراکتر باید از آن شروع شود.
length:تعداد کاراکتری که بعد از کاراکتر start باید انتخاب کند.
فرض کنید که می خواهید رشته ی "excel" را از رشته ی "exceliaranian" جدا کنید.....Mid("exceliaranian", 1, 5
در مثال بالا،از اولین کاراکتر شروع و تا5 کاراکتر بعد از آن را انتخاب می کند.که جواب excel می شود.
اگر در قسمت length چیزی نوشته نشود،اکسل از کاراکتر start شروع و تا آخرین کاراکتر رشته را انتخاب می کند.
مثال...:
Mid("exceliaranian", 6 ....که حاصل iranian خواهد بود

Mod:
باقیمانده حاصل از تقسیم دو عدد بر هم را نشان می دهد.
مثال:
5 8Mod که حاصل 3 خواهد بود

LEFT:
برای جداسازی تعدادی کاراکتر(تعداد را خودمان تعیین می کنیم) از قسمت چپ رشته ، مورد استفاده قرار می گیرد.

صورت کلی آن به شکل زیر است:

LEFT(string,length as long

string:نام رشته ای که می خواهید جداسازی در آن صورت گیرد که باید از نوع رشته ای باشد(یعنی بین " " نوشته شود)
long:تعداد کاراکتر که باید جدا شود.

برای مثال فرض کنید رشته ای به نام Myiran دارین و می خواهید از قسمت چپ رشته ، دو کاراکتر را انتخاب کنید.کد مربوطه به شکل زیر خواهد بود
Left("Myiran", 2
کد بالا از قسمت چپ رشته و از اولین کاراکتر شروع و تا 2 کاراکتر را انتخاب می کند که حاصل ، My خواهد بود.

RIGHT:
همانند LEFT است با این تفاوت که عمل جداسازی رو از سمت راست آغاز می کند.
مثل:
Right("Myiran", 4
که نتیجه ، iran خواهد شد.

UCase(Upper case:
برای تبدیل حروفات کوچک به بزرگ یک رشته مورد استفاده قرار می گیرد.
مثال:
UCase("hello
که نتیجه به صورت HELLO خواهد بود.

LCase(Lower Case:
عکس حالت UCase می باشد.
برای تبدیل حروفات بزرگ به کوچک یک رشته مورد استفاده قرار می گیرد.
مثال:
LCase("HELLO
که نتیجه به صورت hello خواهد بود.

توابعی برای تبدیل:----------------------------------------------------------------------------------------------------

Cstr(convert to string:
مقدار عددی را به مقدار رشته ای تبدیل می کند.
مثال:
Cstr(43
که نتیجه "43" خواهد بود

Cint(convert to integer:
برای تبدیل اعداد(چه رشته ای باشد ، چه عددی)به یک عدد صحیح مورد استفاده قرار می گیرد
مثال:
Cint(58.13.........که حاصل ، 58 خواهد بود
Cint("58.13.........که حاصل باز 58 خواهد بود

Val(convert to value:
برای تبدیل مقادیر رشته ای به عددی مورد استفاده قرار می گیرد.
تفاوتی که این تابع با سایر توابع تبدیل کننده رشته به عدد(مثل Cint و CDbi)دارد ،در این است که تابع Val مقادیر غیر عددی را نیز قبول می کند.درواقع این تابع مقادیر عددی را از داخل یک رشته که شامل عدد و حروف می باشد ، جدا می کند.
مثال:
Val("43...........که نتیجه 43 خواهد بود
Val("43excel...........که نتیجه 43 خواهد بود

توجه داشته باشید که اگر عدد قبل از متن قرار گیرد،عدد را تشخیص داده و جدا می کند.ولی اگر عدد بعد از متن قرار گیرد ، هیچ مقدار برگشتی نخواهید داشت.
برای مثال:حاصل مقادیر برگشتی زیر صفر خواهد بود(زیرا عددی قبل از متن وجود ندارد)..................
Val("excel43
Val("excel

CLng(convert to long:
برای تبدیل اعداد یا رشته های بزرگ به عدد مورد استفاده قرار می گیرد
مثال

CLng(200000000.9...................که حاصل 2000000001 خواهد بود
(CLng(200000000.3...................که حاصل 200000000 خواهد بود
چون CLngعمل گرد کردن را نیز انجام می دهد.

CDbl(convert to double:
مقدار عددی را رشته ای را به عددی با دقت اعشار دوبل(مضاعف)تبدیل می کند.
مثال:
CDbl("43.1254............که جواب 43.1254

**Javid Mokhtari** · 2012/04/05, 23:03

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

[align=center]MsgBox و InputBox[/align]

MsgBox(MessageBox:
از این تابع برای نمایش دادن کادر پیام(که حاوی پیامی برای اخطار؛هشدار،اطلاع رسانی،نمایش مقادیر برگشتی توابع به صورت لحظه ای،تعیین موقعیت و ...)استفاده می شود.
شکل عمومی آن بصورت زیر می باشد:
MsgBox (strPrompt,intStyle,strTitle

strPrompt:متنی که توسط کادر پیام باید نمایش داده شود.

intStyle:نوع و تعداد دکمه هایی که باید در کادر پیام نشان داده شود.که به شرح زیر می باشد:
مقدار عددی..........نام..............................شرح
0 ......................VbOKOnly.................... دکمه ی OK در کادر پیام ظاهر می شود
1.......................VbOKCancel................ .دکمه های OK و Cancel در کادر پیام ظاهر می شود
2.......................VbAbortRetryIgnore......دک مه های Abort ، Retry و Ignore در کادر پیام ظاهر می شود
3.......................VbYesNoCancel............. دکمه های No ، Yes و cancel در کادر پیام ظاهر می شود
4.......................VbYesNo................... ...دکمه های No ، Yes در کادر پیام ظاهر می شود
5.......................VbRetryCancel............. ..دکمه های Retry و cancel در کادر پیام ظاهر می شود

strTitle:عنوان کادر پیام را در خود ذخیره می کند.

به مثال زیر توجه کنید:
MsgBox "exceliranian", vbOKOnly, "Hi
در کد بالا کادری ظاهر می شود که بر چسب یا عنوان این کادر Hi و یک دکمه ی OK و توضیحات داخل کادر exceliranian خواهد بود.
برای تعیین نوع دکمه هایی که در کادر پیام باید ظاهر شود به جای نوشتن نام دکمه ، می توان از مقدار عددی آن نیز استفاده کرد.یعنی کد بالائی را به شکل زیر نیز می توان نوشت:
MsgBox "exceliranian", 0, "Hi

تعیین دکمه پیش فرض در MsgBox:
فرض کنید در کادر پیامی که تعیین کرده اید ،بیش از یک دکمه وجود دارد.و حالا دوست دارید وقتی کادر پیام ظاهر می شود دکمه ای را که شما تعیین می کنید را به طور پیش فرض انتخاب کند(این حالت برای جلوگیری از اشتباهات استفاده می شود.مثلاً در همین اکسل اگه تغییراتی را در فایلتون انجام بدهید و بدون ذخیره کردن بخواهید خارج شوید،کادر پیامی ظاهر می شود که سه دکمه دارد و دکمه ی Save به طور پیش فرض انتخاب شده است.)

مقدار عددی.......................نام.................... ...........شرح
0 .........................VbDefaultButton1......... ...........اولین دکمه از سمت چپ پیش فرض است
256.......................2 VbDefaultButton..................دومین دکمه از سمت چپ پیش فرض است
512.......................VbDefaultButton3........ ............سومین دکمه از سمت چپ پیش فرض است

برای این کار کافیه بعد از تعیین نوع دکمه های نمایش ، با علامت جمع(+)دکمه ی پیش فرض خودتون رو انتخاب کنید.
مثال:
MsgBox "exceliranian", 1 + vbDefaultButton2, "Hi
یا
MsgBox "exceliranian", vbOKCancel + vbDefaultButton2, "Hi
یا
MsgBox "exceliranian", vbOKCancel +256, "Hi

در مثال بالا دو دکمه OK و Cancel ظاهر می شود و دکمه ی دوم (کهCancel است)پیش فرض قرار می گیرد.

ایجاد نشانه یا علامت در کادر MsgBox:
این کار مزایای زیادی دارد.مثلاً برای آنکه کاربر را از اهمیت پیام آگاه کنید ، می توانید یک نشانه در پشت پیام کادر قرار دهید.در زیبائی کار هم نقش بسزائی دارد.

مقدار عددی..........نام..............................شرح
16 ......................VbCritical.................. ..نشانه بحرانی(یک دایره ی قرمز که وسطش یک ضربدر کشیده شده است)
32.......................VbQuestion............... ..علامت سئوال
48.......................VbExclamation............ ..نشانه اخطار(یک مثلث که وسطش یک علامت تعجب وجود دارد.)
64.......................VbInformation............ .نشانه اطلاعات
مثال:
MsgBox "exceliranian", vbOKCancel + vbCritical + vbDefaultButton2, "Hi

تعیین مقدار برگشتی در MsgBox(تعیین اینکه چه دکمه ای توسط کاربر فشار داده شده است):
ما اینجا یک کادر پیام درست کردیم و به نظر همه چیز درسته.اما یک مشکل اساسی وجود دارد که باید حل شود.و اون این هست که ، چگونه باید مشخص کنیم که چه دکمه ای توسط کاربر انتخاب شده است تا دستورات مربوط به اون اجرا شود.چون اگر این مشکل حل نشود،شما هر دکمه ای از MsgBox را که انتخاب کنید همگی یک دستور مشابه رو اجرا می کنند.
برای حل این مشکل کافیه MsgBox را در یک متغیر ذخیره کرده و با یک دستور شرطی ، دستورات مربوط به هر دکمه را تعیین کنید(تعیین نام متغیر اختیاری است).
به یک نقطه باید توجه کرد که اگر MsgBox به یک متغیر نسبت داده شود باید مشخصات MsgBox داخل پرانتز ()قرار گیرد.
مثال:
x = MsgBox("exceliranian", vbOKCancel + vbCritical + vbDefaultButton2, "Hi")
If x = vbOK Then
MsgBox "OK is selected"
ElseIf x = vbCancel Then
MsgBox "cancel is selected"
End If
یا برای راحتی می توان از مقدار عددی آنها نیز استفاده کرد:
x = MsgBox("exceliranian", vbOKCancel + vbCritical + vbDefaultButton2, "Hi")
If x = 1 Then
MsgBox "OK is selected"
ElseIf x = 2 Then
MsgBox "cancel is selected"
End If
__________________________________________________ __________________________________________________
InputBox:
از این تابع بیشتر برای دریافت مقادیر از طریق پرسش و پاسخ مورد اسفاده قرار می گیرد.
InputBox بسیار شبیه MsgBox می باشد اما با چند مورد تفاوت:
1_دکمه های موجود در InputBox همیشه OK و Cancel می باشد که ثابت هستند.
2_هیچ نشانه یا علامتی نمی توان در آن مشخص کرد.
3_InputBox علاوه بر نمایش یک پیام،می تواند مقادیری را نیز دریافت کند.
صورت کلی آن به شکل زیر است:

INPUTBOX(strprompt,strtitle,strdefault,intXpos,intYpos
strprompt:متن یا پرسشی که باید داخل کادر نمایش داده شود.
strtitle:عنوان کادر.
strdefault:مقدار پیش فرض که باید داخل کادر ورود مقادیر قرار گیرد.
intXpos,intYpos:مختصات کادر پیام برای ظاهر شدن(تعیین می کنیم که کادر تحت چه مختصاتی ظاهر شود).
مثال:فرض کنید می خواهیم مساحت مربع یا مستطیل را بدست آوریم:
b = InputBox("b_value")
c = InputBox("c_value")
A = b * c
ما اینجا دو تا Inputbox گذاشتیم تا مقادیر bوc را از کاربر دریافت کند و بعد مساحت را از طریق فرمول A = b * c بدست آوردیم.حال مساله اینجا این است که چگونه مقدار محاسبه شده ی A را نشان دهیم.چون اگر فقط کد بالا را بنویسیم ، مساحت محاسبه می شود ولی مقدار آن نمایش داده نمی شود.اولین روش و ساده ترین روش استفاده از MsgBox است.یعنی کد بالا را می توان به شکل زیر کامل کرد:
b = InputBox("b_value")
c = InputBox("c_value")
A = b * c
MsgBox A

**~M*E*H*D*I~** · 2012/04/07, 11:38

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

سلام
ممنون از دوست پرتلاشمون اقا جاوید

**~M*E*H*D*I~** · 2012/04/07, 16:55

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

با سلام خدمت دوستان

در ادامه موضوعاتی که دوست عزیزمون آقا جاوید ارائه کردن من هم مطالب زیر رو اضافه می کنم

1-خصوصیت filedialog
به طور كلي هنگامي كه شما قصد داريد پنجره هايي كه امكان ذخيره كردن، و يا باز كرد فايل را دارد باز كنيد از اين خصوصيت استفاده مي كنيد، درواقع به 4 نوع زير از اين خصوصيت استفاده مي شود
1-1:.open
از اين خصوصيت جهت باز كردن فايل (ها) استفاده ميشود
1-2:.saveas
از اين خصوصيت جهت ذخيره فايل استفاده مي شود
1-3:.file picker
از اين خصوصيت عمدتا براي انتخاب فايل و يافتن مسيري كه فايل در آن ذخيره شده استفاده مي شود
1-4:.folder picker
اين خصوصيت نيز همانند خصوصيت فوق عمل ميكند با اين تفاوت كه مسير فولدر را برميگرداند.
نحوه تعريف:
نحوه تعريف متغيري با اين خصوصيت از قوانين تعريف متغير پيروي نموده به شرح زير تعريف مي گردد
Dim fd as filedialog
بعد از تعريف متغير مي بايست نوع dialog box يا همان پنجره مورد نظر را به متغير اختصاص دهيد
Set fd=application.filedialog(….)
در كد فوق داخل پرانتز بايد يكي از 4 نوع پنجره كه بالا تعريف شد انتخاب كنيد با باز كردن پرانتز از ليستي كه مشاهده مي كنيد مي توانيد نوع باكس يا پنجره مورد نظرتان را انتخاب كنيد مثلا msoFileDialogFolderPicker
با اجراي كد بالا باكس مورد نظر شما باز ميشود فرض كنيد folderpicker را انتخاب كرده ايد در اين صورت پنجره اي كه باز ميشود ليست فولدر هاي درايو جاري را نشان مي دهد شما ميتوانيد يك فولدر را انتخاب كنيد( درصورتي كه file بود چند انتخاب مي توانستيد انجام دهيد) براي اينكه يك باكس باز شود filedialog از متد show استفاده مي كند وقتي باكس راOK كنيد show مقدار -1 و اگر cancel كنيد مقدار 0 برمي گرداند.
مثلا با انتخاب folderpicker مي توانيد تعيين كنيد كه اگر show مقدارش -1 بود مسيرفولدر انتخاب شده را را در يك متغير ذخيره كن بعد فايل جاري را در اين مسير ذخيره كن.

**Javid Mokhtari** · 2012/04/08, 18:40

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

با سلام و تشکر از آقای وطن پرست.
مثل اینکه دوستان نمی خوان منو تو این راه کمک کنن...!!

**~M*E*H*D*I~** · 2012/04/08, 21:15

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

سلام

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

**~M*E*H*D*I~** · 2012/04/09, 17:23

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

با سلام

2-intersect
اين متد اشتراك بين 2 يا چند محدوده را برمي گرداند، تعداد محدوده هايي كه اين متد ساپورت مي كند 30 ناحيه است ، در ضمن انچه اين متد برمي گرداند از نوع range است.
نحوه استفاده:

[align=left]
Dim iters as range
Set inters=application.intersect(range("rng1"),range(" rng2")….)

[/align]

**Javid Mokhtari** · 2012/04/16, 11:28

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

[align=center]کنترل نوع داده ها[/align]

IsDate:
کنترل می کند که آیا آرگومان از نوع تاریخ است.
IsEmpty:
کنترل می کند که آیا آرگومان مقدار گرفته است.
IsNull:
کنترل می کند که آیا آرگومان مقدار Null دارد( Null مقدار محسوب می شود).
IsNumeric:
کنترل می کند که آیا آرگومان مقدار عددی گرفته است.

برای مثال فرض کنید یک باکس دارید و مقادیری که در این باکس قرار می گیرند باید از نوع عددی باشند(مثل کد،شماره ملی،مبلغ،شماره تلفن و ...)و می خواهید در هنگام ورود اطلاعات در این باکس ، عددی بودن این باکس را کنترل کند.

If Not IsNumeric(TextBox1) Then
MsgBox "Format is not numeric"
End If

**mokaram** · 2012/04/21, 01:25

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

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

**Javid Mokhtari** · 2012/04/24, 02:35

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

[align=center]قالب بندی ها(Formats)[/align]

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

فرمت های پر کاربرد خود اکسل:

Currency:
نمایش اعداد را با جدا کننده ی هزارتائی،نمایش تا دو رقم اعشاری،نمایش واحد ارزی(ریال)
مثال:
قالب بندی سلول A1:فرض کنید A1=10000 می باشد...:
Range("a1").Value = Format(Range("a1").Value, "currency
که عدد A1 به شکل «ريال 10,000.00»در خواهد آمد

Standard:
نمایش اعداد را با جدا کننده ی هزارتائی،نمایش تا دو رقم اعشاری(بدون نمایش واحد ارزی)
مثال:
Range("a1").Value = Format(Range("a1").Value, "standard
که عدد A1 به شکل « 10,000.00»در خواهد آمد

Percent:
مقدار را به صورت درصدی(%) نمایش می دهد.

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

0:
به جای آن یا یک عدد وارد می شود یا صفر قرار می گیرد(یعنی اگر ما فرمت را 000 تعیین کنیم و عدد 15 را وارد کنیم عدد حاصل به شکل 015 در خواهد آمد )

#:
به جای آن یا یک عدد قرار می گیرد یا هیچ چیز قرار نمی گیرد(یعنی اگر ما فرمت را ### تعیین کنیم و عدد 15 را وارد کنیم عدد حاصل به شکل 15 در خواهد آمد )

,:
جدا کننده ی هزارتائی است(یعنی اگر ما فرمت را ###,# تعیین کنیم و عدد 15000 را وارد کنیم عدد حاصل به شکل 15,000 در خواهد آمد )
مثال:
Range("a1").Value = Format(Range("a1").Value, "#,###

.(نقطه):
نشانه اعشار است.

%:
عدد را بر 100 تقسیم و با نماد % نشان می دهد.

دو نقطه)
تاریخ را به ساعت ، دقیقه و ثانیه تقسیم می کند
مثال:
Range("a1").Value = Format(Range("a1").Value, "00:00:00

/:
قالب بندی به شکل تاریخ.
مثال:
Range("a1").Value = Format(Range("a1").Value, "00/00/00
یا......
Range("a1").Value = Format(Range("a1").Value, "##/##/##

نمونه......
[hr]
آیا می دانید فرق تقسیم(/) با تقسیم (\) در چیست..!!؟

تقسیم(/) نتیجه را بصورت اعشاری نمایش می دهد.
اما...;
تقسیم (\) نتیجه را بصورت عدد کامل یا همون صحیح نمایش می دهد.
مثال:
5.66666=17/3
5=3\17

**Javid Mokhtari** · 2012/05/14, 11:45

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

[align=center]Method ها و Proprty های کاربردی[/align]

Activecell :
سلول فعال را نشان می دهد.می توان برای مقدار دهی سلول فعال یا پیدا کردن آدرس سلول فعال از آن استفاده کرد.
مثال :Application.ActiveCell = 1 که مقدار سلول فعال را 1 می دهد.
MsgBox Application.ActiveCell.Address که آدرس سلول فعال را از طریق کادر پیام نشان می دهد.
Activeaheet:
گاربرگ فعال را نشان می دهد----------
که نام کاربرگ فعال را نشان می دهد.MsgBox Application.ActiveSheet.Name

ActiveWindow:
کاربرگ فعال را نشان می دهد
MsgBox Application.ActiveWindow.Caption

ActiveWorkbook:
کارپوشه فعال را نشان می دهد.
MsgBox Application.ActiveWorkbook.Name

Rows:
برای پیدا کردن شماره سطر به کار می رود که می تواند در جاهای مختلفی کاربد داشته باشد.
Application.Rows(1).Select که سطر 1 را انتخاب می کند.
Application.Rows(ActiveCell.Row).Select که سطر سلول فعال را انتخاب می کند

Columns:
همانند Row است با این تفاوت که شماره ستون را نشان می دهد.

Quit:
برای خروج از برنامه اکسل(کل برنامه اکسل را می بندد)
Application.Quit

Close:
کاربرگ برنامه اکسل را می بندد
مثال:
ActiveWorkbook.Close

Address:
برای نمایش آدرس یک محدوده به کار می رود.
MsgBox Application.Activecell.address----که آدرس سلول فعال را نشان می دهد

Selection:
برای بدست آوردن آدرس محدوده های انتخاب شده به کار می رود.
MsgBox Application.Selection.Address

Activate:
برای فعال نمودن اشیاء مورد استفاده قرار می گیرد.
مثال:
Sheet2.Activate----که شیت 2 را فعال می کند
Cells(1, 10).Activate---که سلول J1 را فعال می کند

Select:
برای انتخاب نمودن اشیاء مورد استفاده قرار می گیرد.
مثال:
Sheet2.Select----که شیت 2 را انتخاب می کند
Cells(1, 10).Select---که سلول J1 را انتخاب می کند

RecentFiles:
مجموعه ای از فایل هایی که قبلاً توسط اکسل باز شده است را بر می گرداند.
مثال:
ّFor each filename in Application.RecentFoles
MsgBox filename.Name
Next filename

PrintOut:
برای فرستادن شیت ها به حالت چاپ مورد استفاده قرار می گیرد.
مثال:
Sheet1.PrintOut--------که شیت 1 را چاپ می کند
یا:
Sheets("sheet1").PrintOut

PrintPreview:
برای فرستادن شیت ها به حالت پیش نمایش چاپ مورد استفاده قرار می گیرد.
مثال:
Sheet1.PrintPreview
یا:
Sheets("sheet1").PrintPreview

visible:
برای نمایش یا عدم نمایش اشیاء مورد استفاده قرار می گیرد که مقدار آن به صورت منطقی(True_False)مشخص می شود.
مثال:
Sheet1.Visible = False---که شیت 1 را غیر قابل نمایش(مخفی) می کند.
Sheet1.Visible = True---که شیت 1 را قابل نمایش(آشکار) می کند.

اما در کنار حالت True_False برای نمایش اشیاء(که حالت پیشنهادی VB هستش) می توان از خاصیت های زیر هم استفاده کرد:
xlSheetHidden:شیت مربوطه را در حالت مخفی تنظیم می کند.
xlSheetVeryHidden:شیت مربوطه را در حالت مخفی تنظیم می کند.
xlSheetVisible:شیت مربوطه را در حالت نمایش(آشکار) تنظیم می کند.

فرق بین xlSheetHidden و xlSheetVeryHidden :

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

Clear:
برای پاک کردن تمام حالت های اعمال شده(اعم از:قالب بندی ها،محتویات،کامنت ها و ...)بر روی سلول ها مورد استفاده قرار می گیرد.
Range("A1:B10").Clear

ClearContents:
فقط محتویات سلول مورد نظر را پاک می کند
Range("A1:B10").ClearContents

ClearFormats:
قالب بندی های سلول های مورد نظر را پاک می کند.
Range("A1:B10").ClearFormats

ClearComments:
برای پاک کردن توضیحات سلول های مورد نظر مورد استفاده قرار می گیرد.
Range("A1:B10").ClearComments
================================================== ===========================================
[align=center]91/03/20[/align]
================================================== =============
Count:
برای شمارش به کار می رود.
مثال:
Sheets.Count.........که تعداد شیت های موجود را می شمارد.برای مشاهده مقدار برگشتی میتوانید از MsgBox استفاده کنید:
MsgBox Sheets.Count

Index:
برای پیدا کردن ایندکس(شماره یا رتبه)به کار میرود.
مثال:
MsgBox ActiveSheet.Index.................که شماره شیت فعال را بر میگرداند.

Union:
برای کار با چندین سطر یا ستون مختلف به کار می رود:
Union(Rows(1), Rows(3), Rows(5)).Activate..............که سطر های 1و3و5 را انتخاب میکند.
Union(Columns(1), Columns(3), Columns(5)).Activate..................که ستون های 1و3و5 را انتخاب میکند.
.
.
.
یا می توانید ترکیبی از هر دو را استفاده کنید:
Union(Columns(1), Rows(3), Rows(5)).Activate........................که سطر های 3و5 و ستون 1 را انتخاب میکند.

Name:
نام والد ها رو نشون میده.
MsgBox Sheet1.Name.....................................نا م شیت 1 را نشان میدهد.
MsgBox ActiveWorkbook.Name.........................نام ورک بوک را نشان می دهد.
MsgBox Application.Name................................ نام عنوان برنامه(Application)را نشان می دهد.

Full Name:
مسیر ذخیره شده ی فایل را نام و فرمت آن نشان می دهد:
MsgBox ActiveWorkbook.FullName

Pach:
مسیر ذخیره شده ی فایل را نشان می دهد:
MsgBox ActiveWorkbook.Path

Window State:
برای تنظیم نمای پنجره اکسل به کار می رود که داری سه حالت ثابت است که در زیر با مثال آورده شده است:
Application.WindowState = xlMaximized...................حالت بزرگ نمائی
Application.WindowState = xlMinimized.................... حالت عدم نمایش(حالت پنجره)
Application.WindowState =xlNormal

Open:
برای باز کردن WorkBook به کار می رود:
Workbooks.Open ("D:|ExcelFiles|Book1.xls

Save:
برای ذخیره کردن فایل مورد نظر:
Workbooks("D:|ExcelFiles|Book1.xls").Save

Save As:
همانند Save است با این تفاوت که در قسمت آخر باید مسیر جدید و نام جدید فایل را وارد کنید:
Workbooks("D:|ExcelFiles|Book1.xls").SaveAs ("E:|ExcelFiles|NewBook1.xls

ایجاد WorkSheet جدید:
برای این کار از دستور WorkSheets.Add استفاده می شود:
مثال:
Worksheets.Add

می توان از طریق Name نامی را نیز برای آن تعیین کرد:
Worksheets.Add.Name = "Newsheet

می توان از طریق before و after محل قرار گیری شیت جدید را تعیین کرد:
Worksheets.Add(before:=Sheet7).Name = "Mysheet
Worksheets.Add(after:=Sheet7).Name = "MySheet
دقت کنید که اگر نام شیت ها تکراری باشد Error خواهد داد.

می توان از طریق Count تعداد شیت جدیدی که قرار است درست شود را نیز تعیین کرد:
Worksheets.Add(after:=Sheet4).Count = 1

**Javid Mokhtari** · 2012/06/08, 18:06

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

پست 30 به روز آوری شد %

**~M*E*H*D*I~** · 2012/06/12, 09:53

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

با سلام خدمت دوستان
در چند بخش اطلاعاتی در موردCommand bars تقدیم میکنم امیدوارم مفید باشه
1-نحوه ساختن Command bar
به طور کلی در مجموعه نرم افزار های آفیس به دو شیوه می توان به شخصی سازی Toolbar پرداخت :
الف: استفاده از Customize dialog box
ب: Microsoft® Visual Basic® for Applications (VBA) code
در نرم افزار Access شما قادر هستید از روش الف منو ها و pop-up منو ها(منوهای جهنده) را تولید نمایید ،اما در سایر نرم افزار های مجموعه افیس می بایست از VBA برای توسعه منو ها و pop-up منو ها استفاده نمایید.
جهت ساخت command bar یا همان منو های شخصی مجموعه ای از روش ها(method) گرد آوری شده است.
برای ساخت toolbar , menu bar,و pop-menu bar می بایست از متد msoBarMenuBar یا msoBarPopup استفاده نمود.
در زیر نمونه ای جهت ایجاد موارد فوق مشاهده می کنید:
[align=left]

کد PHP:




Sub Create_Menu()

Dim MyBar As CommandBar

Dim MyPopup As CommandBarPopup

Dim MyButton As CommandBarButton



Delete_Menu



Set MyBar = CommandBars.Add(Name:="My Menu", _

    Position:=msoBarFloating, temporary:=True)



With MyBar

    .Top = 125

    .Left = 850



    Set MyPopup = .Controls.Add(Type:=msoControlPopup)

    With MyPopup

        .Caption = "Popup 1"

        .BeginGroup = True

        Set MyButton = .Controls.Add(Type:=msoControlButton)

        With MyButton

            .Caption = "Button 1a"

            .Style = msoButtonCaption

                       .BeginGroup = True

            .OnAction = "Macro1a"

        End With

        Set MyButton = .Controls.Add(Type:=msoControlButton)

        With MyButton

            .Caption = "Button 1b"

            .Style = msoButtonCaption

            .BeginGroup = False

            .OnAction = "Macro1b"

        End With

    End With

    Set MyPopup = .Controls.Add(Type:=msoControlPopup)

    With MyPopup

        .Caption = "Popup 2"

        .BeginGroup = False

        Set MyButton = .Controls.Add(Type:=msoControlButton)

        With MyButton

            .Caption = "Button 2a"

            .Style = msoButtonCaption

            .BeginGroup = True

            .OnAction = "Macro2a"

        End With

        Set MyButton = .Controls.Add(Type:=msoControlButton)

        With MyButton

            .Caption = "Button 2b"

            .Style = msoButtonCaption

            .BeginGroup = False

            .OnAction = "Macro2b"

        End With

    End With

    .Width = 100

    .Visible = True

End With

    

End Sub

[/align]