تمرین 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

فیلم آموزشی Select Case :
سلام و شب زیباتون بخیر 🌹😊
امشب یک تمرین خاص داریم که با کمی پروژه محور بودن آموزش ها آشنا خواهید شد.
هدف از مجموعه (1) ایجاد آشنایی با Vba هست نه چیز دیگه ای پس نگران هیچ چیز نباشید 🤗

شما در تمرین امشب :
1_ نام و نام خانوادگی کاربر را گرفته
2_ آن را در سلول a1 ذخیره میکنید
3_ سپس سال تولد کاربر را گرفته
4_در سلول a2 ذخیره میکنید

و ایجاد شرط میکنید که :

اگر سال تولد شخص بین 1370 تا 1375 بود ، ثبت نام صورت بگیرد و در غیر اینصورت تمام اطلاعان وارد شده حذف گردد .

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

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

آموزش دستورات پرکاربرد ( قسمت اول ) :
مثل همیشه یک ماژول ایجاد و کدهای زیر را اعمال کنید.🤗🌹

اکسل از ستون ها 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

آموزش دستورات پرکاربرد ( قسمت دوم _ پایانی ) :

ادامه بحث قبل رو باهم جلو میریم 😋🌹

معنی کلمه 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

آموزش حلقه ها :

سلاام به همه ی دوستای خوب خودم ، امشب یه آموووزش توووپ دارییییم 😋🌹
حلقه ها !
بسیار پرکاربرد و بسیار شیرین.

خب اول مفهموم حلقه هارو درک کنیم تا یادگیریش آسون باشه .🤗
قبوله ؟
من یادمه بچه که بودم یه قطار داشتم، ریلش زیاد بزرگ نبود و مجبور بودم به صورت دایره ( حلقه ) ریلش رو بچینم تا هرچقدر دوست داره این مسیر رو بچرخهه و دور بزنه 😋
نکته ی آموزشی تو دل همین قطار کودکیم بود ، یعنی تکرار و گردش .

بریم سراغ مثال های سخت 😩
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

تمرین حلقه ها :

امیدوارم تا الان جمعه ی خوبی رو سپری کرده باشید .😘🌹
اول یه عذرخواهی کنم بابت تاخیر در ارسال مطلب 🙈

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

با کمک حلقه ها چندین سوال از کاربر پرسیده و به ترتیب در سلولها ذخیره نمایید.😊🌹
راهنمای بیشتر را میتوانید در سایت ما مطالعه نمایید .
yon.ir/nWV7
هزینه این آموزش :
🌺اللهم صل علی محمد و آل محمد وعجل فرجهم🌺
__________
حامیان ما :
@ExcelRoom
@HsExcel_Bot
✍ اولین کانال آموزش برنامه نویسی در محیط اکسل
@Vba_Excel
http://excellearn.ir
👇👇👇👇👇

آموزش حلقه ها ( Do while ) :

سلام به دوستای خوب خودم 😘🌹
امشب آموزش حلقه ی شرطی Do while رو تهیه کردم ولی خیلی خیلی متفاوت 🙈
چون همراه با صدای خودم هست🙈
خیلی سعی کردم آروم و شمرده صحبت کنم ولی تجربه ای در این زمینه نداشتم و استرس زیاد ..😔
جزوه همین بخش + مثال های متنوع بزودی..

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

کتاب آموزشی پیرامون( حلقه ها ) .
Do while ... Loop
_________
@ExcelRoom
@HsExcel_Bot
✍برنامه نویسی در اکسل
@Vba_Excel

کتاب آموزش کامل برنامه نویسی در محیط اکسل
http://yon.ir/6EJd 👈👈
_________
@ExcelRoom
@HsExcel_Bot
👌اولین کانال برنامه نویسی در محیط اکسل

کلیپ آموزشی متمایز کردن ردیف ها با استفاده از حلقه ی شرطی Do while :
سلام .امیدوارم حالتون خوب باشه🤗
امروز یه تمرین عالی و پر کاربرد داریم ( متمایز کردن ردیف ها )
سعی کردم کیفیت صدارو افزایش بدم،ایرادات رو بزنید به حساب بی تجربگی بنده😔 / حسینی
🌺🌺🌺
__________
@ExcelRoom
@HsExcel_Bot
✍اولین کانال آموزش برنامه نویسی در اکسل
@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

تمرین دستور For Each :
سلام به همه ی علاقه مندان و کاربران حرفه ای اکسل 🤗
امروز یه اموزش مناسب آماده کردم تا معنی حلقه ی For Each رو به خوبی درک کنید.
کلیپ + صدای بنده 🙊

🎗 دوستانی که ترجمه دارند لطفا ترجمه رو فراموش نکنند .
دوستان جدید هم که مایل به ترجمه هستند ( نهایت 4 خط ) پیام بدن تا کتاب رو ارسال و صفحه رو مشخص کنم .
@adm_Masoudhosseini

_____
@ExcelRoom
@HsExcel_Bot
🎗اولین کانال آموزش برنامه نویسی در محیط اکسل ( کاربر حرفه ای اکسل شوید ).
@Vba_Excel

👇👇👇👇👇❤️