89614
🌱 اینجا محل خدمت است🌱 سایت رسمی اکسللرن: 🔻 https://excellearn.ir محصولات فیزیکی اکسل: 🔻 https://shop.excellearn.ir دونیت(حمایت - Donate): 🔻 https://reymit.ir/excellearn
✍ آموزش ( پیدا کردن آخرین ردیف پر ) :
سلام خدمت دوستای گلم 😘🌺
امشب یک آموزش فوق العاااااده کاربردی دارییییییم ( از جمله فرم ها ).
🙈البته دارم بحث رو تو حاشیه میبرم چون نتونستم مطلب آماده کنمم..
پیدا کردن آخرین ردیف پر ، یکی از مهمترین و پرکاربردترین دستورات VBA است(مثالهای متنوع به زودی).
بسم الله ..
یک ماژول ایجاد کنید .
Dim Rng As integer
✍یک متغیر بنام Rng از نوع عدد داریم.
Rng = Cells(Rows.Count,"A").End(xlup).Row
توضیحات : 😎 دقت کنید ..
دستور (ستون , ردیف )Cells تشکیل شده است .
قبول ؟
حالا منظورم از :
Cells(Rows.Count,"A")
چیه ؟
یعنی تمام ردیف های ستون A . درسته ؟
حالا منظور از End(xlUp).Row
چیه ؟
همون Ctrl+Up هست.
یعنی کنترل رو بگیر و یکبار جهت نمای بالا رو بزن 😉
تا اینجا آخرین سلول پر پیدا شد.حالا برای نمایش از msgbox استفاده میکنیم.
Msgbox Rng
و در پایان ماژول را میبندیم.(تمام)
🎗با تشکر از استاد احسان افشار بابت راهنمایی اینجانب
https://telegram.me/joinchat/BWuoXD1YMWEfBY4Johz-Vw
________
@ExcelRoom
@HsExcel_Bot
✍برنامه نویسی در اکسل
@Vba_Excel
آموزش Listbox :
✍لیست باکس ها در فرم از اهمیت زیادی برخوردار هستند .
به شما این امکان را میدهد که کاربر را در انتخاب و تصمیم گیری محدود سازید.
آموزش و مثال تصویری آماده کرده ام.
🌺آروم بودن صدا را در کلیپ ، به حساب کسالت بزنید 🌺
🎗حسینی
🔹دانلود کلیپ آموزشی :
⏪▶️⏸⏩
yon.ir/WHbD
👆👆👆👆
______
@ExcelRoom
@HsExcel_Bot
👆کاربر حرفه ای اکسل باشید
@Vba_Excel
دوستان خوب و پر انرژی خودم سلام😍🌹
امشب کمی سمت فرم ها در اکسل حرکت کنیم.
فرم ها چی هستند ؟🤔
✍ تاحالا بارها و بارها ثبت نام (کنکور،وام،دانشگاه،سربازی😩و..) کردید.درسته ؟؟
✍ برای ثبت نام همشون یکسری فرم تکمیل کردید(نام،نام خانوادگی،مدرک تحصیلی برای سربازی😩 و..).
فرم های اکسل هم دقیقا همین فرم های عادی هستند که نیاز به تکمیل دارند تا عملیاتی روی اطلاعات آن انجام گیرد.
معرفی بخش های مختلف فرم :
Textbox
یکی از پرکاربردترین قسمت از تشکیل فرم ها همین TextBox ها هستن.
در Textboxها هم میتونید متن و عدد نمایش دهید و هم متن و عدد را از کاربر بگیرید.
✍ مثالی ساده آماده کردم (تصویری) تا کمی آشنایی پیدا کنید.
🎗حسینی
مثال های کاربردی بزودی ..
__________
حامیان :
@ExcelRoom
@HsExcel_Bot
سوپر گروپ پرسش و پاسخ :
https://telegram.me/joinchat/BWuoXD1YMWEfBY4Johz-Vw
🎗مدیریت استاد افشار
👌اولین کانال آموزش برنامه نویسی در محیط اکسل
@Vba_Excel
👇👇👇👇👇
آموزش دستور For Each :
سلام به همه ی دوستان خوب خودم 😘🌹 بعد از مدت ها ورزش ، در اوج ناامیدی و کاملا اتفاقی دیشب خودم رو وزن کردم ، دیدم دقیقا 1 کیلو 250 گرم کمتر شده بودم خلاصه انقدر خوشحال شدم😂 فرداش به هرکی گفتم گفت آقا تا 2 کیلو طبیعیه،وزن کم نکردی 😂
ایرادی نداره ، وزن یه عدده مهم روحیه ورزشکاریه که من دارم😉💪
بریم سراغ آموزش ..
دستور For Each هم یک نوع حلقه هست ( تکرار شونده و در چرخش )
✍اول معنی کلمه For Each یعنی چی؟🤔
یعنی " برای هر" .
حلقه ای که تغییرات رو "برای هر" یک از دستورات اجارا میکنه .
شکل کلی این حلقه به صورت زیر هست :
For Each عضو in مجموعه
Statements
Next
ترجمه : " برای هر " عضو داخل یک مجموعه.
مثال سخت :
Dim x As Range
متغیر x از نوع محدوده است.
For Each x in Range("A1:A10")
برای هر x داخل محدوده A1 تا A10.
x.Font.Bold=True
فونت را Bold کن .
Next
بصوت کلی :
Dim x As range
For Each x in Range("A1:A10")
x.Font.Bold=True
Next
این دستورات برای تک تک سلولها اجرا میشه ، بدونه در نظر گرفتن شرط خاصی .😊🌺
کلیپ آموزشی امشب بزودی ..
_______
@ExcelRoom
@HsExcel_Bot
✍ کاربر حرفه ای اکسل باشید
@Vba_Excel
کلیپ آموزشی متمایز کردن ردیف ها با استفاده از حلقه ی شرطی Do while :
سلام .امیدوارم حالتون خوب باشه🤗
امروز یه تمرین عالی و پر کاربرد داریم ( متمایز کردن ردیف ها )
سعی کردم کیفیت صدارو افزایش بدم،ایرادات رو بزنید به حساب بی تجربگی بنده😔 / حسینی
🌺🌺🌺
__________
@ExcelRoom
@HsExcel_Bot
✍اولین کانال آموزش برنامه نویسی در اکسل
@Vba_Excel
👇👇👇👇👇
کتاب آموزشی پیرامون( حلقه ها ) .
Do while ... Loop
_________
@ExcelRoom
@HsExcel_Bot
✍برنامه نویسی در اکسل
@Vba_Excel
تمرین حلقه ها :
امیدوارم تا الان جمعه ی خوبی رو سپری کرده باشید .😘🌹
اول یه عذرخواهی کنم بابت تاخیر در ارسال مطلب 🙈
ولی بجاش دست پر اومدم امروز..
شما در کلیپ آموزشی این قسمت خواهید آموخت:
با کمک حلقه ها چندین سوال از کاربر پرسیده و به ترتیب در سلولها ذخیره نمایید.😊🌹
راهنمای بیشتر را میتوانید در سایت ما مطالعه نمایید .
yon.ir/nWV7
هزینه این آموزش :
🌺اللهم صل علی محمد و آل محمد وعجل فرجهم🌺
__________
حامیان ما :
@ExcelRoom
@HsExcel_Bot
✍ اولین کانال آموزش برنامه نویسی در محیط اکسل
@Vba_Excel
http://excellearn.ir
👇👇👇👇👇
آموزش دستورات پرکاربرد ( قسمت دوم _ پایانی ) :
ادامه بحث قبل رو باهم جلو میریم 😋🌹
معنی کلمه interior یعنی "داخلی" ، Colorindex هم میشه " شاخص رنگ " .
پس :
Range("A1").interior.colorindex = 3
چی میشه ؟ 🤔
میشه شاخص رنگ داخلی سلول A1 برابر است با 3 .
رنگ شماره 3 یعنی قرمز.
رنگ شماره 5 یعنی آبی.
رنگ شماره 10 یعنی سبز و ..
حالا یکم با بحث دیشب مخلوطش کنیم 🤗
ActiveCell.EntireRow.interior.ColorIndex=3
ترجمش میشه :
ردیفه سلولی که الان انتخاب شده است رو کلا قرمز کن .
حالا فونت هم رنگی کنیم ببینیم به چه شکلی میشهههه
Range("A1").Font.Color=vbblue
یعنی رنگ فونت سلول A1 رو آبی کن.
اول رنگ کافیه vb رو درج کنید .
مثلا :
VbRed
Vbyellow
Vbblue ...
دوستان یادگیری این دستورات باعث حرفه ای شدن کار میشود ، ساده از کنار آن رد نشویم .
آموزشهای تصویری همراه با صدای بنده بزودی از همین کانال ..🙈
دوستتون دارم .
لطفا کانال رو به دوستان خود معرفی کنید ..
__________
حامیان :
@ExcelRoom
@HsExcel_Bot
✍اولین کانال برنامه نویسی در محیط اکسل
@Vba_Excel
http://excellearn.ir
فیلم آموزشی Select Case :
سلام و شب زیباتون بخیر 🌹😊
امشب یک تمرین خاص داریم که با کمی پروژه محور بودن آموزش ها آشنا خواهید شد.
هدف از مجموعه (1) ایجاد آشنایی با Vba هست نه چیز دیگه ای پس نگران هیچ چیز نباشید 🤗
شما در تمرین امشب :
1_ نام و نام خانوادگی کاربر را گرفته
2_ آن را در سلول a1 ذخیره میکنید
3_ سپس سال تولد کاربر را گرفته
4_در سلول a2 ذخیره میکنید
و ایجاد شرط میکنید که :
اگر سال تولد شخص بین 1370 تا 1375 بود ، ثبت نام صورت بگیرد و در غیر اینصورت تمام اطلاعان وارد شده حذف گردد .
دوستان خودم ، شما در این آموزشها فقط نحوه ی عملکرد کدهارو متوجه و یاد بگیرید کافیه ، عجولانه عمل نکنید که دلسرد بشید .
قدم به قدم پرقدرت جلو میریم .
خبرهای خوب در راه هستن ..
__________
حامیان کانال برنامه نویسی :
@ExcelROOM
@HsExcel_Bot
✍اولین کانال آموزش برنامه نویسی در محیط اکسل
@vba_Excel
http://excellearn.ir
👇👇👇👇👇👇👇
تمرین Select Case :
✍ تمرین تصویری امشب پیرامون مبحث شب گذشته ، ایجاد شرط توسط Select Case میباشد .
مواردی رو که باید مد نظر داشت ، حتما آموزش شب گذشته رو مرور و
سعی کنید برای خودتون مثالهای مشابه تشریح کنید.
✍این کلیپ آموزشی با بالاترین کیفیت ممکن و کمترین حجم ممکن تهیه شده است تا هیچ عزیزی ، از استفاده بی بهره نماند .
هزینه این آموزش :
🌺یک عدد صلوات بر محمد و آل محمد 🌺
_________
حامیان ما :
@ExcelRoom
@HsExcel_Bot
✍اولین کانال آموزش برنامه نویسی در محیط اکسل
@Vba_Excel
http://excellearn.ir
👇👇👇👇👇
تمرین شروط در VBA :
دوستای گل خودم سلام .
به عزیزانی هم که تازه به جمع برنامه نویس ها پیوستن خیر مقدم عرض میکنم🌹
تمرین امشب پیرامون شروط IF در VBA میباشد .
شما در این تمرین خواهید آموخت :
* چگونه کد ملی کاربر را گرفته
* تعداد کارکترهای آن را شمارش کرده
* در پایان با ارسال پیغام ، کاربر خود را در وارد کردن شماره ملی صحیح راهنمایی نمایید .
این آموزش رو از دست ندید 😊🌹
اگر هم متوجه نشدید اصلا نگران نباشید ، نقد تمرین امشب رو بزودی میفرستم و خط به خط به فارسی ترجمه میکنم🌹🌹
__________
همکاران :
@ExcelRoom
@HsExcel_Bot
اولین کانال آموزش برنامه نویسی در محیط اکسل
@Vba_Excel
👇👇👇👇👇
🌺✨🌺✨🌺✨🌺
✨🌺✨
🌺✨
تمرین :
✍ کلیپ آموزشی ایجاد شرط If در VBA Excel .
در این کلیپ شما با نحوه ایجاد شروط آشنا خداهید شد + مرور و ترکیبی بر inputbox ، Msgbox ،Dim نیز میباشد ( جلسات گذشته ).
🎗ارادتمندیم / حسینی
__________
👥همکاران :
@ExcelRoom
@HsExcel_Bot
منابع :
✍اولین کانال آموزش برنامه نویسی در محیط اکسل
@vba_Excel
✨🌺
🌺✨🌺
✨🌺✨🌺✨🌺
✍ سلام به دوستای خوبم ، امشب براتون یه مثال جامع آماده کردم .
در این مثال تصویری شما از کاربر دو سوال پیاپی پرسیده و سپس بصورت اتوماتیک ذخیره میگردد .
در پایان هم از کاربر تشکر مینماید .
@ExcelRoom
@HsExcel_Bot
✍ اولین کانال آموزش برنامه نویسی در محیط اکسل
@vba_Excel
👇👇👇👇👇👇👇
✍ مثال تصویری متغیرها :
در جلسات قبل با Msgbox و inputbox آشنا شدیم .
حالا وقتشه با استفاده از " متغیرها " این دورو با هم ترکیب کنیم .
(به درخواست دوستان برای جلوگیری از بروز خطا ، اینبار فایل آموزشی بدون RAR شدن ارسال خواهد شد . )
حساب کتاب ما : 🤗🌺
✍ بهای این آموزش
✨🌺✨
الّلهُمَّ صَلِّ عَلی مُحَمَّد وَآلِ مُحَمَّد وَعَجِّل فَرَجَهُم
__________
@ExcelRoom
@HsExcel_Bot
✍اولین کانال آموزش برنامه نویسی در محیط اکسل
@vba_Excel
✨سلام و عرض ادب .✨
امیدوارم حالتون خوب باشه🌺
منکه یه سرما خوردگی شدید خوردم و گلو درد ... 😔
خیلی ها تو پی وی ازم گلایه دارند که چرا مثل سابق پر قدرت جلو نمیریم.
خواستم بگم درگیره کاره ترجمه هستیم و سعی میکنیم نقاط ضعفش رو پوشش بدیم.😊🌹 بابت همه کمکاری هایم عذرخواهی میکنم.
بریم سراغ یکی دیگه از ادوات فرم ها در اکسل 🏃🏃🏃
SpinButton
محاله اسمش رو شنیده باشید☹️
چرا ؟ چون از کارایی این ابزار کمتر در فرمها استفاده میشود.
ساختار Spin از سه دستور پیروی میکند :
Min
Max
SmallChange
👌توضیحات :
Min
یعنی مقدار اولیه ( نقطه شروع )
Max
یعنی مقدار پایانی ( نقطه پایان )
SmallChange
یعنی گام های سعود و نزول .
مثال کاربردی از این ابزار در جلسه بعد ..
_____
@ExcelRoom
@HsExcel_Bot
🎗کاربر حرفه ای اکسل شوید
@Vba_Excel
کتاب سوم آموزش برنامه نویسی در اکسل
🌐لینک دانلود :
yon.ir/0ELZ
لینک کانال :
@Vba_Excel
تمرین دستور For Each :
سلام به همه ی علاقه مندان و کاربران حرفه ای اکسل 🤗
امروز یه اموزش مناسب آماده کردم تا معنی حلقه ی For Each رو به خوبی درک کنید.
کلیپ + صدای بنده 🙊
🎗 دوستانی که ترجمه دارند لطفا ترجمه رو فراموش نکنند .
دوستان جدید هم که مایل به ترجمه هستند ( نهایت 4 خط ) پیام بدن تا کتاب رو ارسال و صفحه رو مشخص کنم .
@adm_Masoudhosseini
_____
@ExcelRoom
@HsExcel_Bot
🎗اولین کانال آموزش برنامه نویسی در محیط اکسل ( کاربر حرفه ای اکسل شوید ).
@Vba_Excel
👇👇👇👇👇❤️
دوستان همکاریتون بابت ترجمه عالی بود،لطفا ایمیلهاتون رو بررسی کنید.
😊🌺
کتاب آموزش کامل برنامه نویسی در محیط اکسل
http://yon.ir/6EJd 👈👈
_________
@ExcelRoom
@HsExcel_Bot
👌اولین کانال برنامه نویسی در محیط اکسل
آموزش حلقه ها ( Do while ) :
سلام به دوستای خوب خودم 😘🌹
امشب آموزش حلقه ی شرطی Do while رو تهیه کردم ولی خیلی خیلی متفاوت 🙈
چون همراه با صدای خودم هست🙈
خیلی سعی کردم آروم و شمرده صحبت کنم ولی تجربه ای در این زمینه نداشتم و استرس زیاد ..😔
جزوه همین بخش + مثال های متنوع بزودی..
__________
@Excelroom
@HsExcel_Bot
✍ اولین کانال آموزش برنامه نویسی در محیط اکسل
@Vba_Excel
http://excellearn.ir
👇👇👇👇👇👇
آموزش حلقه ها :
سلاام به همه ی دوستای خوب خودم ، امشب یه آموووزش توووپ دارییییم 😋🌹
حلقه ها !
بسیار پرکاربرد و بسیار شیرین.
خب اول مفهموم حلقه هارو درک کنیم تا یادگیریش آسون باشه .🤗
قبوله ؟
من یادمه بچه که بودم یه قطار داشتم، ریلش زیاد بزرگ نبود و مجبور بودم به صورت دایره ( حلقه ) ریلش رو بچینم تا هرچقدر دوست داره این مسیر رو بچرخهه و دور بزنه 😋
نکته ی آموزشی تو دل همین قطار کودکیم بود ، یعنی تکرار و گردش .
بریم سراغ مثال های سخت 😩
Sub Masoud()
Dim A as integer
✍توضیحات :متغیر A مقداری عددی است.
For A = 1 To 5
✍توضیحات : برای مقدار A ، اعداد 1 تا 5 را در نظر بگیر و بترتیب بشمار ، یعنی اول 1 بعد 2 و بعد 3 و ... رو داخل ظرف A قرار بده.
تا اینجا سخت که نبود😏
حالا
Cells(A,1).value="Masoudhosseini"
✍توضیحات : دستور Cells رو خاطرتون هست ؟
Cells( ستون , ردیف )
تو دستور بالا نوشتم :
Cells( A , 1 )
یعنی بجای A مقدار 1 تا 5 را قرار بده .
یعنی به ترتیب :
(1,1)
(2,1)
(3,1)
(4,1)
(5,1)
قرار بگیرید و با مقدار MasoudHosseini تکمیل شود.
در پایان با عبارت
Next A
End Sub
خاتمه میابد .
معنی Next A یعنی بچرخ ، اول 1 بعد برو 2 و بعد 3 و ...
نگاه کلی :
Sub Masoud()
Dim A as integer
For A = 1 To 5
Cells(A,1).value="Masoudhosseini"
Next A
End Sub
دوستان یکم سخت شد😔
نگران نباشید انقدر مثال حل میکنیم تا جا بیوفته.
فقط نا امیدی نداریم 😘🌹
با کمک هممم همرووو یاد میگیریم.
🌺اللهم صل علی محمد و آل محمد وعجل فرجهم🌺
__________
حامیان :
@ExcelRoom
@HsExcel_Bot
✍ اولین کانال آموزش برنامه نویسی در اکسل
@Vba_Excel
http://excellearn.ir
سوپر گروپ سوال و پاسخ Vba با مدیریت استاد افشار
https://telegram.me/joinchat/BWuoXD1YMWEfBY4Johz-Vw
آموزش دستورات پرکاربرد ( قسمت اول ) :
مثل همیشه یک ماژول ایجاد و کدهای زیر را اعمال کنید.🤗🌹
اکسل از ستون ها Columns و ردیف ها Rows تشکیل شده !
قبوله ؟🤔
ما یه دستور پرکاربرد به نام Select داریم ، که به معنای انتخاب است.
Range("A1").select
یعنی سلول A1 رو انتخاب کن.
Columns(3).Select
یعنی ستون C را انتخاب کن
(ستون 3 سومی میشه همون ستون C )
حالا ردیف رو چطوری انتخاب کنیم ؟😩
کاری نداره که ..😏
Rows(3).Select
به همین راحتی ردیف 3 سوم رو انتخاب کردیم .
بزارید یکم پیچیدش کنیم تا جذاب تر بشه.
دستور ActiveCell رو یادتون هست؟
یعنی سلولی که در حال حاضر ، انتخاب شده است.
ActiveCell.value=1000
یعنی سلولی که الان انتخاب شده بهش مقدار 1000 بده .
عبارت Entire یعنی تمام و کمال.
EntireRow
میشه تمام ردیف.
EntireColumn
یعنی تمام ستون.
حالا :
ActiveCell.EntireColumn
چی میشه ؟
میشه تمام ستونه سلولی که در حال حاضر انتخاب شده است.😋🌹
ActiveCell.EntireRow.Value=100
یعنی تمام ردیفه سلولی که در حال حاضر انتخاب شده است رو مقدار 100 بده.
✍ ادامه دارد ..
🌺اللهم صل علی محمد و آل محمد وعجل فرجهم🌺
__________
حامیان ما :
@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
سلام خدمت تمامی دوستان خودم ، عذرخواهی میکنم بابت تاخیر در ارسال مطلبم ، این روزها شدیدا مشغله کاری پیدا کردم 😘🌹🌹
پر قدرت شروع میکنیم 😋
✍ در جلسات پیش شروط 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
تمرین جملات شرطی :
دوستان 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
جملات شرطی(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
ذخیره سازی ماژول :
✍ از این به بعد برای ذخیره کردن تمرین ها در اکسلتون باید دقت کنید .🤗🌷
چون اکسل شما محتوای ماژول دارد باید با فرمت خوده ماژول هم ذخیره شود وگرنه هنگام اجرای مجدد اکسل با خطا روبرو میشود .
✍ برای ذخیره سازی :
اول : روی Office Button کلیک کنید .
دوم : روی گزینه Save As کلیک کنید.
سوم : فرمت ذخیره را از قسمت Save As Type روی Excel Macro - Enabled Workbook قرار داده و ذخیره نمایید .
ارادتمندیم / حسینی🤗🍇
___________
@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
✍ دوستانی که بعد از مطالعه مطالب فوق احساس میکنند هیچ چیز متوجه نمیشن ، کاملا کاملا حق دارند 🤗🌺
اصلاااا نگران نباشید،چون مباحث جالبی هستن این متغیرها شده 100 تا مثال تصویری تهیه میکنم 😉
منتظر مثال تصویری باشید.
ارادتمند/ مسعود حسینی
✨🌺الّلهُمَّ صَلِّ عَلی مُحَمَّد وَآلِ مُحَمَّد وَعَجِّل فَرَجَهُم✨🌺