89614
🌱 اینجا محل خدمت است🌱 سایت رسمی اکسللرن: 🔻 https://excellearn.ir محصولات فیزیکی اکسل: 🔻 https://shop.excellearn.ir دونیت(حمایت - Donate): 🔻 https://reymit.ir/excellearn
💢do until💢
حلقه ها شرطی حلقه هایی هستند که تا زمانیکه شرط باشد یا نباشد برحسب نیاز برنامه مورداستفاده قرار می گیرند.
ساختار کلی :
Do untilشرط
دستورات
Loop
این حلقه همانند do while می باشد با این تفاوت در بررسی شرطها متفاوت عمل میکنند .
✍ در روش do while ابتدا شرط بررسی می شود وبعد دستورالعمل اجرا می شود وممکن است حالتهایی پیش آید که دستورالعمل های حلقه اصلا اجرا نگردند
ولی درروش do untilشرط درانتهای حلقه کنترل می گردد وحداقل یک مرتبه دستورالعمل های حلقه اجرا می شوند .
✨✨ بطور خلاصه اگه بخوایم بگیم do untilآنقدر گردش حلقه را ادامه می دهد تا شرط برقرار شود درحالیکه do whileتا وقتی که شرط برقرار بود حلقه رابه گردش در می آورد ✨✨
حالا نوبتیم باشه نوبت مثاله🤗
⁉️ میخواهیم با استفاده از do untilدستوری بنویسیم که تا زمانی که iبزرگتر از ۳دستور اجرا شود
Sub mavali()
Dim i as integer
i=1
Do until i>3
Cells(i,1).value=10
i=i+1
Loop
End sub
🎗 مدرس:مهندس موالی
🌺🌺هزینه این آموزش صلوات برمحمد وآل محمد🌺🌺
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___
Related Content :
/channel/VBA_Excel/280
#آموزش
در این قسمت از آموزش شما خواهید آموخت :
💢 منظور از دستور isEmpty
💢 منظور از دستور isNumeric
💢 کاربرد حلقه با اهمیت For each
دو دستور اول علاوه بر سادگی , پرکاربردترین دستورات در زبان شیرین وی بی ای هستند , حسابی به یاد بسپارید .
📕 www.excellearn.ir
📕 @vba_excel
📕 @word_vba
📒 /channel/VBA_Excel/1453
🎗 #توابع
❗️مجموعه آموزشی فرمول نویسی در اکسل
❕قسمت شانزدهم: ایجاد اعداد متغیر
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___
🔜 /channel/VBA_Excel/1540
🎗 #توابع
❗️مجموعه آموزشی فرمول نویسی در اکسل
❕قسمت پانزدهم: Proper,Rept
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___
🔜 /channel/VBA_Excel/1556
#آموزش
💢for Each💢
✍حلقه ها دستوارتی هستند که می توان جهت انجام دستورات تکراری از آنها استفاده کرد
حلقه For each برای کار برروی عضوهای یک مجموعه استفاده می شود
مجموعه شامل تعدادی شی یکسان باشد به عنوان مثال
Range("a1:a10")
یک مجموعه است
✅دستور کلی:
For each عضو in مجموعه
دستوارت
Next عضو
✅✅حالا نوبیتم باشه نوبت مثاله🤓
میخواهیم با استفاده از دستور for each دستوری بنویسم که محدوده a۱تاa10را رنگشو آبی رنگ کنیم😉
Sub mavali()
Dim rng as range
For each rng in range("a1:a10")
Rng.interior. color=vbblue
Next rng
End sub
🎗مدرس :موالی
🌺🌺هزینه این آموزش صلوات برمحمد وآل محمد🌺🌺
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___
🈹 آموزش های مرتبط :
‼️ /channel/VBA_Excel/111
🎗 #VBA
‼️ آموزش ایجاد Sheet با VBA
⁉️ تمرین
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___
🈳 @Word_VBA
آموزش حلقه ها :
سلاام به همه ی دوستای خوب خودم ، امشب یه آموووزش توووپ دارییییم 😋
حلقه ها !
بسیار پرکاربرد و بسیار شیرین.
خب اول مفهموم حلقه هارو درک کنیم تا یادگیریش آسون باشه .🤗
قبوله ؟
من یادمه بچه که بودم یه قطار داشتم، ریلش زیاد بزرگ نبود و مجبور بودم به صورت دایره ( حلقه ) ریلش رو بچینم تا هرچقدر دوست داره این مسیر رو بچرخهه و دور بزنه 😋
نکته ی آموزشی تو دل همین قطار کودکیم بود ، یعنی تکرار و گردش .
بریم سراغ مثال های سخت 😩
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
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈳 @Word_VBA
🈹 www.excellearn.ir ✍___
💢 برای ساخت فولدر به واسطه ی کدهای VBA میتوانید از دستور ساده ی Mkdir استفاده نمایید ، ساختار این دستور بسیار ساده و گویا است که تنها کافی است آدرس محل ذخیره فولدرها را بعد از عبارت Mkdir تعیین نمایید .
به مثال های زیر توجه فرمایید :
olderVBA()
MkDir "C:\MonthlyFiles\January"
End Sub
ساخت فولدری به نام January
حتی میتوان از دستورات حلقه برای ایجاد فولدرها استفاده نمود :
Sub Masoudhosseini()
Dim i as Integer
For i=1 to 5
MkDir "C:\MonthlyFiles\" & Range("A" & i)
Next i
End sub
Visual Basic for Applications
🈹 @vba_excel ✍__
🈳 @Word_VBA
🈹 www.excellearn.ir ✍___
🈹 https://telegram.me/joinchat/B4zCAzwpRGuIRyo_MIeaxg
#مسابقه🎁🎁
سوال مسابقه : ملک چند کوزه از حضرت نوح را شکست ؟
🎁 جایزه : آموزش تصویری AdvancedFilter در VBA
🚸راهنمایی: کافیه یکبار این فایل را ببینید و دقت کنید .
@adm_Masoudhosseini 👈
@ghiamat1394
#داشبورد_مدیریتی
🈹 آموزش تصویری طراحی نمودار Gauge منتشر شد
🈹 علاقه مندان میتوانند از فروشگاه سفارش خرید دهند
🈹قیمت: ۳۰۰۰ تومان
🈹 لینک : yon.ir/DEzhh
🎗مدرس : مسعود حسینی
#تبلیغات
‼️ مجموعه کتابچه های VBA
‼️ فرمت PDF
⁉️ مدرس : مهندس موالی
🈹 yon.ir/3MZus
🈹 www.excellearn.ir
🈹 www.blog.excellearn.ir
‼️ تفاوت دستور Byval و Byref
⁉️ آموزش اکسل پیشرفته VBA
🈹 www.excellearn.ir (shop)
🈹 www.blog.excellearn.ir (weblog)
🈹 www.video.excellearn.ir (aparat)
#practice
با استفاده دستورات زیر فهرستی از شیت های اکسل تهیه میشود (شیتهایی که در فهرست درج میشوند با تغییر رنگ مشخص میشود )
Sub Button1_Click()
Dim wksht As Worksheet
Dim i
i = 1
For Each wksht In ActiveWorkbook.Worksheets
Sheets(1).Range("a" & i).Value = wksht.Name
wksht.Name = Sheets(1).Range("a" & i).Value
wksht.Tab.Color = i * i * i * 30
Range("a" & i).Hyperlinks.Add Anchor:=Range("a" & i), Address:="", SubAddress:= _
"'" & wksht.Name & "'" & "!A1", TextToDisplay:=wksht.Name
Range("a" & i).Offset(1, 0).Select
i = i + 1
Next wksht
End Sub
🚸 راهنما :
یک ماژول ایجاد و عبارت فوق را درج و اجرا نمایید .
🌷این کدتوسط کاربر دوست داشتنی جناب آقای سلامت تهیه شده است🌷
🌺صلوات بر محمد و آل محمد 🌺
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___
🈹 www.blog.excellearn.ir
🎗 مجموعه های آموزشی داشبوردهای مدیریتی
🎗 لینک دانلود : http://yon.ir/S283
‼️ بصورت کاملا تصویری
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍
🈹 www.blog.excellearn.ir
💢مثال دستورات شرطی💢
✅دستور ساختار اولیه
If condition then
Statements
Else if condition
Statements
End
⁉️مثال
میخوایم دستوری بنویسیم که اگر عدد بزرگتر از ۱۸یا خود ۱۸را وارد کردیم در سلول a1
در مقابلش درسلول b1عالی را درج کند
در غیر اینصورت اگر کوچکتر از۱۰را وارد کردیم درسلول b1 ضعیف را درج کند
☺️
👇
Sub test()
If Range("a1").value>=18 then
Range("b1")=" عالی"
Elseif range ("a1").value<10
Range("b1")="ضعیف"
End if
End sub
🎗مدرس:موالی
🌺🌺صلوات بر محمد وآل محمد🌺🌺
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___
📒 www.excellearn.ir
📒 @vba_excel
📕 @word_vba
‼️ آموزش طراحی و کدنویسی نرم افزار دریافت و پرداخت
⁉️ ۱۸ قسمت آموزشی کاملا تصویری
💢 مدرس : مسعود حسینی
‼️ اطلاعات بیشتر : yon.ir/5BgO5
💢do while💢
✍حلقه ها شرطی حلقه هایی هستند که تا زمانیکه شرط برقرار باشد ویا نباشد برحسب نیاز برنامه مورد استفاده قرار می گیرند
✅ساختار کلی :
Do whileشرط
دستورات
Loop
♻️مفهوم:انجام بده این کارراتازمانی که بتونی انجام بدی
یا
انجام بده این کار را تا زمانیکه نتونی انجام بدی
حالا نوبتیم باشه نوبته مثاله🤗
⁉️میخوایم با استفاده از حلقه do whileدستوری بنویسم که اگر iکوچکتر از۳بود بیاد محدودهی a1تاa10را مقدارشوبرابر۱۰قرار بدهد
Sub mavali()
Dim i as integer
i=1
Do while i<3
Range("a1:a10").value=10
i=i+1
Loop
End sub
🎗مدرس :موالی
🌺🌺هزینه این آموزش صلوات برمحمد وآل محمد🌺🌺
‼️ /channel/VBA_Excel/779
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___
#ایجاد_فهرست_اتوماتیک
💢 با استفاده از دستورات زیر , فهرستی اتوماتیک همراه با لینک از شیت های اکسل خود تهیه کنید .
#فهرست_اکسل
Sub Masoudhosseini()
Dim isheet As Worksheet
For Each isheet In ActiveWorkbook.Worksheets
If ActiveSheet.Name <> isheet.Name Then
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'" & isheet.Name & "'" & "!A1", TextToDisplay:=isheet.Name
ActiveCell.Offset(1, 0).Select
End If
Next isheet
End Sub
🌷 هزینه این مطلب : صلوات برمحمد و آل محمد 🌷
⁉️ کلیپ آموزشی این مطلب بزودی ..
____Visual Basic For Applications
🈹 @vba_excel
🈹 www.excellearn.ir
🔜 /channel/VBA_Excel/965
🎗 #توابع
❗️مجموعه آموزشی فرمول نویسی در اکسل
❕قسمت چهاردهم : ABS,Min,Max
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___
🈳 @Word_VBA
#تخفیف
🎉 سال نو پیشاپیش مبارک 🎉
🎁 کد تخفیف ۳۰% سبد خرید
🎁 کد تخفیف : eydi96
🛍 فروشگاه : www.excellearn.ir
‼️انقضا : تا ۱ فروردین ماه ۱۳۹۶
🎗 #توابع
❗️مجموعه آموزشی فرمول نویسی در اکسل
❕قسمت سیزدهم: Dcount
ㄟ(ツ)
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___
🈹 www.blog.excellearn.ir
🈳 @Word_VBA
#تبلیغات
🈚️ آموزش تصویری حقوق و دستمزد
✴️ اضافه کار و مزایای حقوق
🈺 کسورات حقوق و دستمزد
💢 لینک دانلود : yon.ir/Z4Tew
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___
🎗 #توابع
❗️مجموعه آموزشی فرمول نویسی در اکسل
❕قسمت دوازدهم: Choose
ㄟ(ツ)
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___
🈹 www.blog.excellearn.ir
🈹 www.video.excellearn.ir
#داشبورد_مدیریتی
🈹 آموزش تصویری طراحی نمودار Gauge منتشر شد
🈹 علاقه مندان میتوانند از فروشگاه سفارش خرید دهند
🈹قیمت: ۳۰۰۰ تومان
🈹 لینک : yon.ir/DEzhh
💢دستورselect case💢
✍یکی از دستورات شرطی است که کاربردی به مانند دستور if را دارداین دستور زمانی استفاده می شود که برای چند حالت مربوط به یک عبارت تصمیم گیری کنید
⛔️‼️تفاوتselect caseبا if
دراین است که درselect caseفقط یک عبارت مورد ارزیابی قرار می گیرد سپس مجموعه دستورات اجرا می شود اما در دستور if چندین شرط مورد ارزیابی قرار میگیرد
✅دستور کلی :
Select case نام متغییر
Caseحالت اول
دستورات
Case حالت دوم
دستورات
.
.
.
.
Case Else
دستورات
End select
حالا نوبتم باشه نوبته تمرینه😉
میخوایم دستوری بنویسیم بااستفاده از select caseکه وقتی یکی از ایام هفته را وارد کردیم بهمون بگه که" زوج" یا "فرد"
👇👇👇👇
Sub test()
Dim a as string
a=inputbox("لطفا ایام هفته را وارد نمایید")
Select case a
Case"شنبه","دوشنبه","چهارشنبه"
Msgbox"روز زوج"
Case Else
Msgbox"روز فرد"
End select
End sub
🎗مدرس:موالی
🌺🌺هزینه این آموزش صلوات برمحمد وآل محمد🌺🌺
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___
🎗 #توابع
❗️مجموعه آموزشی فرمول نویسی در اکسل
❕قسمت یازدهم : توابع متن
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___
🈹 www.blog.excellearn.ir
🈹 www.video.excellearn.ir
⁉️ تهیه داشبوردهای مدیریت حرفه ای
‼️ بدون نوشتن حتی یک خط کد (VBA)
‼️ بزودی ..
🎗 مدرس : مسعود حسینی
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___
🎗 #توابع
❗️مجموعه آموزشی فرمول نویسی در اکسل
❕قسمت دهم : Offset
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___
🈹 www.blog.excellearn.ir
🈹 www.video.excellearn.ir
🎗 #توابع
❗️مجموعه آموزشی فرمول نویسی در اکسل
❕قسمت نهم: SUMPRODUCT
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___
🈹 www.blog.excellearn.ir
🈹 www.video.excellearn.ir