89614
🌱 اینجا محل خدمت است🌱 سایت رسمی اکسللرن: 🔻 https://excellearn.ir محصولات فیزیکی اکسل: 🔻 https://shop.excellearn.ir دونیت(حمایت - Donate): 🔻 https://reymit.ir/excellearn
#تخفیف
🎉 سال نو پیشاپیش مبارک 🎉
🎁 کد تخفیف ۳۰% سبد خرید
🎁 کد تخفیف : 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
‼️ با استفاده از دستورات زیر میتوانید دسترسی کاربر را به قسمت های مختلف اکسل محدود نمایید .
Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayGridlines = False
🎗 کلیپ آموزشی در پست بعد
🎗 مدرس : سید مسعود حسینی
🌺صلوات بر محمد و آل محمد 🌺
________
🈹 @vba_excel
🈹 www.excellearn.ir
‼️ www.blog.excellearn.ir
🎗 #توابع
❗️مجموعه آموزشی فرمول نویسی در اکسل
❕قسمت هشتم : شمارش
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___
🎗 #توابع
❗️مجموعه آموزشی فرمول نویسی در اکسل
❕قسمت هفتم : ترکیب سلول ها
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___
💢مثال متغییر ومحدوده درقالب فرم💢
می خوایم با استفاده ازمتغییر ومحدوده برنامه ای بنویسم که وقتی روی باتن نام کلیک شد نام را برای ما بیاره
و اگر روی باتن نام خانوادگی کلیک شد نام خانوادگی را برای ما بیاره
ودرنهایت درصفحه اکسل ذخیره کنه
چطوری🙈
✍⏯خوب فایل که براتون فرستادم نگاه کنید با استفاده از دستورات ساده وترکیب آنها باهم به نتیجه خوبی رسیدم🤗
⁉️برای دیدن کدها به محیط کدنویسی میریم روی هرباتنی کلیک میکنیم ودستور مربوطه رو نگاه می کنیم😉
✅کدهای باتن نام
Dim a as string
a="sh"
Textbox1.text=a
Range("a1")=a
✅باتن نام خانوادگی
Dim a as string
a="mavali"
Textbox2.text=a
Range("b1")=a
🎗مدرس:موالی
🌺🌺هزینه این آموزش صلوات بر محمد وآل محمد🌺🌺
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___
💢متغییرها(Variables)💢
✍گاهی اوقات درفرمول نویسی دراکسل نیاز به متغییر می شویم
🎯عددی
🎯حروفی
🎯تاریخ
🎯ومتغییرهای منطقی
✅به عبارتی انواع متغییر ها عبارتنداز
🎯long:
اعداد صحیح
🎯Integer:
اعدادصحیح
🎯byte:
اعداد صحیح بدون اعشار
🎯Date:
تاریخ
🎯string:
متغییرهای رشته که در برگیرنده داده های متنی هستند
🎯 boolean:
متغییری که دومقدار trueویاfalseمی تواند داشته باشد
🎯currency:
اعداد صحیح تا ۴رقم بعداز اعشارو۱۵رقم قبل از اعشار
🎯decimal:
اعداد صحیحی هستند که بصورت ضرب یک عدد اعشاری درتوانی از عدد۱۰نمایش داده می شوند
🎯single:
اعداد صحیح با یک رقم اعشار
🎯object:
برای ارجاع دادن به objectهادرجایی که احتیاج داریم از سلول های اکسل که objectمی باشند به عنوان متغییر استفاده می شود
🎯double:
اعداد صحیح باهر تعداد رقم اعشار
🎯 variant:
متغییری از نوع دیگر
🎯Array:
آرایه می تواند یک بعدی یا چند بعدی باشد
🎯user_defined:
در ویژوال به کاربران این امکان راداده که کاربران خود متغییرشون راتعریف کنند
✍⛔️متغییرها براخودشون قوانینی دارند:
این قوانین چی هستند🤔
✅کاراکتر اول نام باید از حرف باشه یعنی اعدادو....قبول نیست
✅از کاراکترهای فاصله،علامت تعجب،وکاراکترهایی مثل@,#,$،*نمی توان استفاده کرد
✅تعداد کاراکترها نباید بیشتر از۲۵۵تا باشد
✅کلمات معنادار اعم کلمات کلیدی ودستوری را که در ویژوال تعریف شدن را نمی توان تعریف کرد
خوب اینم از قوانینش☺️🙈
✍حالادستور کلیش چیه
✅Dimنام متغییرAsنوع متغییر
حالا مثال🤗
⁉️Dim password as string
⁉️Dim birthday as date
تا یادم نرفته بگم که متغییرهای تاریخ رادرداخل # #و متغییرهای حروفی در" "گذاشته می شوند
‼️لازم به ذکر است که تفاوت متغییرهاlongوintegerکه مربوط به اعدادصحیح هستند در بازه ی آنهاست
🎗مدرس:موالی
🌺🌺هزینه این آموزش صلوات بر محمد وآل محمد🌺🌺
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.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
ㄟ(ツ)ㄏ
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 ✍___
محدود کردن دسترسی کاربر به اکسل
🈹 @vba_excel
🈹 www.excellearn.ir
توضیحات بیشتر(وبلاگ) :
🈹 yon.ir/B035
💢 دستورات شرطی💢
✍🤔در بسیاری از موارد برنامه نویس ویژوال احتیاجدارد که در صورت بروز شرایطی خاص کدهایی را اجرا کند ویا به کاربر پیام بدهد
✍کاربردهای دستورات وساختار های شرطی در برنامه نویسی نامحدود می باشد فهم ودرک کاربرد ونحوه ی استفاده از ساختارهای شرطی را می توان یکی از پایه ای ترین اساس یادگیری زبان برنامه نویسی vba دانست😊
♻️ساختار شرطی ifدر ویژوال بیسیک برای ایجاد شرط ها مورد استفاده قرار می گیرد
✅ساختار شرطی if
ساختار اولیه👇👇👇
If condition then
Statements
Else if
Statements
End
🎯condition
شرط
🎯statements
عبارت یا دستورات
✅کلمه کلیدی Else ifوElse
اگر بخواهیم چند شرط رابصورت متوالی ونه همزمان اجرا کنیم می توانیم از کلمه کلیدی Else if درساختار شرطی if در vba استفاده کنیم پس از نوشتن Else if می توان شرط موردنظر را نوشت وپس از آن دستورات مربوط به آن را درخط های بعدی درج کرد
⛔️❌لازم به ذکراست که برنامه نویس می تواند به تعداد دلخواه Else if درساختار شرطی if در vbaاستفاده کرد ولی تنها یکبار می تواند از Else استفاده کرد
⁉️مثال بهزودی ........
🎗مدرس:موالی
🌺🌺هزینه این آموزش صلوات بر محمد وآل محمد🌺🌺
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___
‼️ آموزش شکستن قفل پروژه های VBA(کمتر از ۱ دقیقه)
⁉️لینک دانلود : yon.ir/823T
❌ عواقب هرگونه سواستفاده از این فایل آموزشی به عهده شخص استفاده کننده می باشد❌
💢 www.excellearn.ir
💢 @vba_excel
🔐 آموزش تصویری شکستن پسورد پروژه های VBA( کمتر از ۱ دقیقه)
💢 مدرس : مسعود حسینی
💢 هرگونه سواستفاده از این آموزش به عهده خود شخص می باشد.
❌ بزودی ❌
🈹 @vba_excel
🎗 #توابع
❗️مجموعه آموزشی فرمول نویسی در اکسل
❕قسمت پنجم : توابع جستجو
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___
🌷 هدیه به روح شهید مهدی حاجیوند🌷
🌺الّلهُمَّ صَلِّ عَلَی مُحَمَّدٍ وَآلِ مُحَمَّدٍوَعَجِّلْ فَرَجَهُمْ🌺