@Vba_Excel

✍ متغیرها :
من به شخصه گیرایی خیلی پایینی دارم 😞🌺 هیچوقت مفهوم متغیرها رو نفهمیدم تا اینکه به یک ظرف خالی تشبیه کردم.
یعنی چی؟
یعنی اول متغیر رو یک ظرف خالی فرض کردم و بعد تعیین کردم چه چیزی باید داخلش قرار بگیره😊
کار خیلی برام راحت شد.

خب بریم سره اصل مطلب:
متغیرها با عبارت Dim شروع و سپس اسم متغیر مشخص میشود.
مثال :
Dim x
یعنی یه ظرف بنام" x " داریم 😌
Dim Masoud
یعنی یه ظرف بنام" مسعود" داریم 😌

حالا قراره تعیین کنیم چه چیزی داخل ظرف ما قرار بگیره .

ما برای آشنایی به دوتا تعیین کننده پرکاربرد اشاره میکنیم.
اولی String یعنی ظرفی که حاوی کلمه و جمله است .
دومی عبارت integer که حاوی عدد و شماره است .

مثال :
Dim x As String
یعنی ظرف x ، حاوی کلمه است.
Dim x As integer
یعنی ظرف x ، حاوی عدد است .
توجه کردید من در متن بالا As رو نوشتم ؟ این As همون معنی " حاوی " فارسی خودمون هست😊🌺

@ExcelRoom
@HsExcel_Bot

✍ اولین کانال آموزش برنامه نویسی در محیط اکسل
@vba_Excel

✍ با یه مثال ساده جلو بریم .

Dim x As integer
x = 6
Msgbox x
خط اول : ظرفی بنام x داریم با محتوای عدد .
خط دوم : ظرف x دارای عدد 6 است.
خط سوم : نمایش بده محتویات ظرف x را .

@ExcelRoom
@HsExcel_Bot
✍ اولین کانال آموزش برنامه نویسی در محیط اکسل
@vba_Excel

✍ دوستانی که بعد از مطالعه مطالب فوق احساس میکنند هیچ چیز متوجه نمیشن ، کاملا کاملا حق دارند 🤗🌺
اصلاااا نگران نباشید،چون مباحث جالبی هستن این متغیرها شده 100 تا مثال تصویری تهیه میکنم 😉
منتظر مثال تصویری باشید.

ارادتمند/ مسعود حسینی
✨🌺الّلهُمَّ صَلِّ عَلی مُحَمَّد وَآلِ مُحَمَّد وَعَجِّل فَرَجَهُم✨🌺

✍ مثال تصویری متغیرها :
در جلسات قبل با Msgbox و inputbox آشنا شدیم .
حالا وقتشه با استفاده از " متغیرها " این دورو با هم ترکیب کنیم .

(به درخواست دوستان برای جلوگیری از بروز خطا ، اینبار فایل آموزشی بدون RAR شدن ارسال خواهد شد . )

حساب کتاب ما : 🤗🌺

✍ بهای این آموزش
✨🌺✨
الّلهُمَّ صَلِّ عَلی مُحَمَّد وَآلِ مُحَمَّد وَعَجِّل فَرَجَهُم

__________
@ExcelRoom
@HsExcel_Bot

✍اولین کانال آموزش برنامه نویسی در محیط اکسل
@vba_Excel

✍ دوستان یادتون هست دستورات inputbox رو ؟🤔

مروری کنیم با یه عبارت خیلی خیلی دشوار 😩 :

Sub Masoudhosseini()

Inputbox (" لطفا نام خود را وارد کنید")

End Sub
در عبارت فوق از کاربر میخوایم اسم خودش رو وارد کنه !!!

تا حالا به این نکته توجه نکرده بودید که اگه کاربر نام خودش رو درج کنه ، آیا کجا ذخیرش کنیم ؟؟

پاسخ : با تعریف متغیرها میتونیم محل ذخیره رو هم مشخص کنیم .

تمرین :

Sub Masoudhosseini()

Dim x As string

✍توضیحات : ظرفی به نام x داریم که محتوای آن کلمه است .

x = Inputbox (" لطفا نام خود را وارد کنید")

✍توضیحات : ظرف x ما توسط کاربر تکمیل میگردد ( کلمه توسط کاربر تعیین میشود یا میتونیم بگیم ظرف x ما اسم کاربر ما هست که خودش باید وارد کنه )

Range("A1").Value = x

✍توضیحات : سلول ( محدوده ) A1 جایگاه ظرف x میباشد .
از سمت چپ هم بخونیم میشه : سلول A1 برابر است با ظرف x/ یا بعبارتی محتوای ظرف x رو بریز تو سلول A1 😊

End Sub

✍حالا خودتون امتحان کنید 😊🌺
کلیپ همین آموزش هم بزودی ارسال میکنم .
اگر متوجه نشدید جای نگرانی نیست،درک کردنش ابتدا برای همه سخت هست.
مثال های مشابه در راه هستن.🤗🌷

@ExcelRoom
@HsExcel_Bot
✍اولین کانال آموزش برنامه نویسی در محیط اکسل
@vba_Excel

✍ سلام به دوستای خوبم ، امشب براتون یه مثال جامع آماده کردم .
در این مثال تصویری شما از کاربر دو سوال پیاپی پرسیده و سپس بصورت اتوماتیک ذخیره میگردد .
در پایان هم از کاربر تشکر مینماید .
@ExcelRoom
@HsExcel_Bot
✍ اولین کانال آموزش برنامه نویسی در محیط اکسل
@vba_Excel

👇👇👇👇👇👇👇

ذخیره سازی ماژول :

✍ از این به بعد برای ذخیره کردن تمرین ها در اکسلتون باید دقت کنید .🤗🌷
چون اکسل شما محتوای ماژول دارد باید با فرمت خوده ماژول هم ذخیره شود وگرنه هنگام اجرای مجدد اکسل با خطا روبرو میشود .

✍ برای ذخیره سازی :

اول : روی Office Button کلیک کنید .

دوم : روی گزینه Save As کلیک کنید.

سوم : فرمت ذخیره را از قسمت Save As Type روی Excel Macro - Enabled Workbook قرار داده و ذخیره نمایید .

ارادتمندیم / حسینی🤗🍇
___________
@Vba_Excel
✍ اولین کانال آموزش برنامه نویسی در محیط اکسل

@Vba_Excel آموزش جملات شرطی

جملات شرطی(if) :

✍ تاحالا شرط بندی کردید ؟
اگه شرط رو ببرید یه اتفاق میوفته و اگه ببازید هم یه اتفاق ، درسته ؟

جملات شرطی در VBA با عبارت if ( شرط بندی ) شروع میشود .
سپس ( Then ) شرط برقرار باشد .
در غیر اینصورت ( Else ) شرط برقرار نباشد .

یه مثال خیلی خیلی دشوار 😩 :

If Range("A1") >50 Then

✍ توضیحات : اگر سلول A1 بزرگتر (<) از عدد 50 باشد ( تا اینجا شرط بندی بود ) سپس Then ...

Range("B1") = 500

✍ سپس (Then) در سلول B1 عدد 500 را چاپ کن ( شرط برقرار باشد )
Else
✍ در غیر اینصورت (Else)

Range("B1") = 1000

✍ در سلول B1 عدد 1000 را چاپ کن ( شرط برقرار نباشد ) .

در پایان با عبارت End if به شرط بندیمون خاتمه میدیم .

✍ بصورت کلی :

If Range("A1") > 50 Then
Range("B1")=500
Else
Range("B1")=1000
End if

حالا به سلول A1 مقدار بدید و ماژول رو اجرا کنید تا نتیجه رو بازبینی کنید .😊🌺

یه کوچولو داره سخت سخت میشه،اصلا نگران نباشید .
انقدر مثال میزنم تا ملکه ی ذهنتون بشه 👻
فقط لطفی کنید این آموزشهارو در گروه های دیگه نشر بدید تا باقی دوستان هم استفاده کنن ./حسینی

🌺الّلهُمَّ صَلِّ عَلی مُحَمَّد وَآلِ مُحَمَّد وَعَجِّل فَرَجَهُم🌺
__________
تبلیغات :
@ExcelRoom
@HsExcel_Bot
✍ اولین کانال آموزش برنامه نویسی در محیط اکسل
@vba_Excel

🌺✨🌺✨🌺✨🌺
✨🌺✨
🌺✨
تمرین :
✍ کلیپ آموزشی ایجاد شرط If در VBA Excel .
در این کلیپ شما با نحوه ایجاد شروط آشنا خداهید شد + مرور و ترکیبی بر inputbox ، Msgbox ،Dim نیز میباشد ( جلسات گذشته ).
🎗ارادتمندیم / حسینی
__________
👥همکاران :
@ExcelRoom
@HsExcel_Bot
منابع :
✍اولین کانال آموزش برنامه نویسی در محیط اکسل
@vba_Excel

✨🌺
🌺✨🌺
✨🌺✨🌺✨🌺

تمرین جملات شرطی :
دوستان Masgbox رو خاطر دارید ؟
میخوایم امشب Msgbox رو با if ترکیب کنیم.😋👌

اول از همه دوتا ترکیب مهم رو بگم که همین الان حفظ کنید و به خاطر بسپارید.

ActiveWorkbook.Close
ترجمه : یعنی از اکسل در حال اجرا ( فعال ) خارج شوید.
ActiveWorkbook.Save
ترجمه : یعنی اکسل در حال اجرا ( فعال ) را ذخیره کن .

تا اینجا قبول ؟
خب حالا بریم سره اصل مطلب ، یه ماژول مثل من بنویسید تا خط به خط ترجمه کنیم .

Dim X As String
ظرف X حاوی کلمات است .

X = Msgbox("آیا برای خروج مطمئن هستید ؟" , VbYesno )

توضیحات : ظرف X ما شامل یه پیغام با دو دکمه ی Yes و No می باشد .

حالا قسمت اصلی مطلب ، توجه کنید :

if x = vbYes Then
ActiveWorkbook.Close
End if
اگر کاربر دکمه ی Yes را انتخاب نمود ، دستور خروج از اکسل رو صادر کن .

حالا یکبار خودتون امتحان کنید😋🌺
میتونید دستورات دیگه ای هم با سلیقه و نیاز خودتون تعریف و تمرین کنید .

دوستان لطفا مطالب رو در سایر گروها منتشر کنید تا مابقی همکاران هم از آموزش ها استفاده کنند .
تشکر / حسینی
__________

@ExcelRoom
@HsExcel_Bot

اولین کانال آموزش برنامه نویسی در محیط اکسل
@Vba_Excel

تمرین شروط در VBA :

دوستای گل خودم سلام .
به عزیزانی هم که تازه به جمع برنامه نویس ها پیوستن خیر مقدم عرض میکنم🌹
تمرین امشب پیرامون شروط IF در VBA میباشد .
شما در این تمرین خواهید آموخت :
* چگونه کد ملی کاربر را گرفته
* تعداد کارکترهای آن را شمارش کرده
* در پایان با ارسال پیغام ، کاربر خود را در وارد کردن شماره ملی صحیح راهنمایی نمایید .

این آموزش رو از دست ندید 😊🌹
اگر هم متوجه نشدید اصلا نگران نباشید ، نقد تمرین امشب رو بزودی میفرستم و خط به خط به فارسی ترجمه میکنم🌹🌹
__________
همکاران :
@ExcelRoom
@HsExcel_Bot
اولین کانال آموزش برنامه نویسی در محیط اکسل
@Vba_Excel
👇👇👇👇👇

سلام خدمت تمامی دوستان خودم ، عذرخواهی میکنم بابت تاخیر در ارسال مطلبم ، این روزها شدیدا مشغله کاری پیدا کردم 😘🌹🌹

پر قدرت شروع میکنیم 😋
✍ در جلسات پیش شروط if رو باهم کار کردیم،امشب هم تقریبا همون if رو دوره میکنیم ولی با شکل و ویژگی جدید .
جمله شرطی جدید ما با Select Case شروع میشه و با End Select هم خاتمه میابد .

تا اینجا که سخت نبود ؟👌😋
باااز هم مثال سخت 😩

Dim A As integer
✔️ظرفی با محتوای عدد داریم .

A = inputbox("لطفا سن خود را وارد نمایید ")
✔️ظرف ما همان مقدار عددی است که از کاربر دریافت میشود .

Select Case A
✔️ ترجمه : شرطهای لازم بر روی ظرف A اعمال شود .
(خودمونیش میشه کیس مورد نظر ما مقدار داخل A هست 😀 )

Case Is < 10
✔️ کیس مورد نظر کوچکتر(>) از عدد 10 باشد .(شرط)
حالا توجه کنید که خط بعد از این عبارت همیشه مقدار صحیح هست ، یا همان True یا همان دستوری که اگر شرط برقرار باشد باید صورت بگیرد .
در صورت کوچکتر بودن سن شخص از 10سال پیغام زیر نمایش داده شود .

Msgbox"سن شما کمتر از ده سال است "

✍حالا یک شرط دیگه هم اضافه کنیم :
Case Is >20
Msgbox"سن شما بزگتر از بیست سال است "

✍ در پایان
Case Else
یعنی اگر هیچکدام از شروط برقرار نبود .
Msgbox"سن شما بین ده تا بیست سال است "

و با عبارت
End Select
شرط را خاتمه میدهیم .
حالا ..
متوجه فرق Case با if شدید ؟؟
🤔
روش فکر کنید تا در جلسه ی بعد مطرح کنم .
ویدیوی آموزشی امشب بزودی در کانال منتشر میشود.
تا میتونید از این فاصله های زمانی برای مرور کردن استفاده کنید تا کدها و عملکردشون ملکه ی ذهنتون شود .
/ ارادتمندیم * حسینی🍃⚡️
______________
@ExcelRoom
@HsExcel_Bot
✍ اولین کانال آموزش برنامه نویسی در محیط اکسل
@Vba_Excel

تمرین Select Case :

✍ تمرین تصویری امشب پیرامون مبحث شب گذشته ، ایجاد شرط توسط Select Case میباشد .
مواردی رو که باید مد نظر داشت ، حتما آموزش شب گذشته رو مرور و
سعی کنید برای خودتون مثالهای مشابه تشریح کنید.
✍این کلیپ آموزشی با بالاترین کیفیت ممکن و کمترین حجم ممکن تهیه شده است تا هیچ عزیزی ، از استفاده بی بهره نماند .

هزینه این آموزش :
🌺یک عدد صلوات بر محمد و آل محمد 🌺


_________
حامیان ما :
@ExcelRoom
@HsExcel_Bot

✍اولین کانال آموزش برنامه نویسی در محیط اکسل
@Vba_Excel
http://excellearn.ir

👇👇👇👇👇

تفاوت Select Case و if در VBA :

یادتون هست گفتم تفاوت این دو رو توضیح میدم؟ 🤗🌹 حالا وقتش هست.
میخوام از یک آموزش زبان اصلی کمک بگیرم :
Select Case
As you can see the select case statement is very similar to the if statement (1)
in that it will only perform some action if when a condition is met (2)
However , as you will learn the select case is for more flexible (3)

ترجمه :
(1) همانطور که مشاهده میکنید عبارت Select Case شباهت بسیاری با if دارد .
(2) (با این تفاوت ) عبارت if تنها به انجام برخی از اقدامات میباشد .
(3) اما ( however ) شما خواهید آموخت عبارت Select Case انعطاف بیشتری ( نسبت به if ) دارد .

خلاصه مطلب فوق : Select Case قابلیت انعطاف بیشتری را دارد.

✍با یه مثال این مفهوم رو بهتر درک کنیم🤔
مثااال سخت 😩
Dim x As integer
x = Range("a1").value
✍ظرفی بنام x با محتوای عدد داریم ، ظرف x همان مقدار عددی داخل سلول a1 است .

Select Case x
✍کیس مورد نظر ، ظرف x ما است.
Case is = 100 , 200 , 300 , 400 , 500
✍اگر مقدار عددی داخل ظرف x برابر با 100،200،300،400،500 باشد .

در نتیجه :
Range("b1").value=x
اگر شرط فوق برقرار بود ، مقدار داخل ظرف x را در سلول b1 بریز .

حالا در غیر اینصورت :
Case Else
Range("b1").Clear
در غیر اینصورت محتوای b1 را حذف کن 😊🌹
عبارت Clear. یعنی حذف محتوا کردن ، همین الان بخاطر بسپارید .

حالا برنامه را اجرا کنید ..
محاله متوجه تفاوت بشید 😔
برای متوجه شدن تفاوت سعی کنید شرط فوق رو با if بنویسید 😋🌹

بابت نظرای شما عزیزان در سایت بسیااار ممنونم ( حسین جان ، شهریار گل ، جناب ناجی ، جناب سعیدی ، آقا محسن و ... ) یدنیا تشکر که دلگرم میکنید 🌹😘
میدونم فصل امتحانات هست و نگران آموزش هستید ، بزودی pdf های همین نوشته را در سایت قرار میدهم 😉
ارادتمندیم / حسینی

کلیپ همین آموزش بزودی ..

__________
حمایت میشویم از طرف :
@ExcelRoom
@HsExcel_Bot

✍اولین کانال آموزش برنامه نویسی در محیط اکسل
@Vba_Excel
http://excellearn.ir