💢پنجره ورودی(inputbox)💢
✍پنجره ورودی یک پیغام است که یک کادر متنی دارد وکاربر می تواند در پاسخ به این پنجره مقداری را وارد کند
روی پنجره ورودی فقط دکمه های okوcancel وجو‌د دارند
✅فرم کلی این دستور به شکل زیر خواهد بود:
inputbox(prompt[Title ],[default ],[Xpos ],[Ypos],[ help file,context ])

🎯prompt:
پیغامی که نمایش داده خواهد شد
🎯Title:
موضوع کادر محاوره
🎯default:
متن پیش فرض
🎯Xpos:
مختصات قرارگرفتن پنجره محاوره
🎯Ypos:
مختصات قرار گرفتن پنجره محاوره
🎯helpfile,context:
فایل ضمیمه راهنما

‼️درساختارinputbox
وجودpromptالزامی وبقیه اختیاری است

حالا نوبتیم باشه نوبته تمرینه🤗

برنامه ای بنویسد که درکادر محاوره ازشما درخواست سن تون راداشته باشد❓❓
Sub test()
inputbox" شما چند سال دارید"
End sub()

✅اگر کاربر مقداری وارد نکند ویا دکمهcancelرا انتخاب نماید تابع inputboxرشته ای بطول صفر (معادل" "یاEmpty)رابرمی گرداند

⛔️✍لازم به ذکر است تنها یک مثال بود وشما دوستان گلم میتونید مثال های مختلفی رو تمرین کنید
مثلا میتونید مقدار پیش فرض برای سن تون قراربدید و........‌😄

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

ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___
لینک گروه پرسش وپاسخ
🈹 https://telegram.me/joinchat/B4zCAz_Av3O8DSXaPDIb7w

🎗 #توابع
❗️مجموعه آموزشی فرمول نویسی در اکسل
❕قسمت چهارم : توابع آماری
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___

💢Rangeوcell💢

✍برای اینکه ما دستوراتی که در محیط Vbaنوشتیم رادر صفحه اکسل ذخیره کنیم
از دستور Rangeوcellاستفاده می کنیم
🎯Range=محدوده

🎯cell=سلول


✅درمحیط کدنویسیRangeدرمقیاس باcellکاربرد بیشتری دارد و می تواند به خانه ویا چند دامنه اشاره کند
✅فرم کلی این دستور‌به شکل زیر خواهد بود:
Range(cell.[cell2]) as Range

🎯cell:سلول

🎯range:محدوده

حالا نوبتیم باشه نوبت مثال😍

Range("A1")=۱۰
Range("A1:A10")=۵
Range("B1")=۲۰

❌شما دوستان گلم اونقدر مثال بزنید وتمرین کنید که مسلط بشید چرا که خیلی مهم اند🙈
⁉️حالا اگر ستونAوB همه رو میخوایم تو یک کد تعریف کنیم
چطوری😊

Range("A1:A10","B1:B10")=20

✅همچنین می توانید بجای آدرس یک دامنه از نامی که برای دامنه تعریف کرده اید استفاده کنید
Range("test")

✅برای اشاره به یک دامنه در صفحه دیگر به ترتیب زیر عمل می کنیم
Worksheet("sheet1").Range("A10")

✅کد زیر درون خانه پایین فعال مقدار۵رادرج می کند
Activecell.range("A3")=۵

حالا cellچیه🤔
✍درواقعه cellبه خانه های درون صفحه ویا دامنه اشاره می کند

✅فرمول کلی این دستور به شکل زیر خواهد بود:
Cell([Row],[column])

🎯Row:ردیف

🎯column:ستون

واما مثال😉
Cell(2,2)=۵
یعنی تو ستون Bوردیف ۲مقدار۵رو قرار بده
Cell(3,4)=۶
یعنی تو ستون Dوردیف۳مقدار۶رو قرار بده

کمی پیشرفته🙈بریم جلو
✅Worksheets("sheet1").cells(2,3)=۴
درون خانهc2ازصفحه sheet1مقدار۴را درج کن
✅Activecell.cells(2,1)=5
درون خانه پایین فعال مقدار5را درج کن

راهنما💡🎌
🎯worksheet
صفحه های موجوددرفایل جاری
🎯Activecell
سلول فعال
✍⛔️ یادتون باشه که مثالهای ذکر شده را بین
Sub test()

End sub()
🎗مدرس:موالی
🌺🌺هزینه این آموزش صلوات برمحمد وآل محمد🌺🌺
ㄟ(ツ)ㄏ
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 ✍___

🎗 #توابع
❗️مجموعه آموزشی فرمول نویسی در اکسل
❕قسمت پنجم : توابع جستجو
ㄟ(ツ)ㄏ
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 ✍___

🔐 آموزش تصویری شکستن پسورد پروژه های VBA( کمتر از ۱ دقیقه)
💢 مدرس : مسعود حسینی
💢 هرگونه سواستفاده از این آموزش به عهده خود شخص می باشد.
❌ بزودی ❌
🈹 @vba_excel

🎗 #توابع
❗️مجموعه آموزشی فرمول نویسی در اکسل
❕قسمت هفتم : ترکیب سلول ها
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___

🎗 #توابع
❗️مجموعه آموزشی فرمول نویسی در اکسل
❕قسمت هشتم : شمارش
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___

💢 دستورات شرطی💢

✍🤔در بسیاری از موارد برنامه نویس ویژوال احتیاج‌دارد که در صورت بروز شرایطی خاص کدهایی را اجرا کند ویا به کاربر پیام بدهد

✍کاربردهای دستورات وساختار های شرطی در برنامه نویسی نامحدود می باشد فهم ودرک کاربرد ونحوه ی استفاده از ساختارهای شرطی را می توان یکی از پایه ای ترین اساس یادگیری زبان برنامه نویسی 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 ✍___

‼️ با استفاده از دستورات زیر میتوانید دسترسی کاربر را به قسمت های مختلف اکسل محدود نمایید .

Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayGridlines = False

🎗 کلیپ آموزشی در پست بعد
🎗 مدرس : سید مسعود حسینی
🌺صلوات بر محمد و آل محمد 🌺
________
🈹 @vba_excel
🈹 www.excellearn.ir
‼️ www.blog.excellearn.ir

محدود کردن دسترسی کاربر به اکسل
🈹 @vba_excel
🈹 www.excellearn.ir
توضیحات بیشتر(وبلاگ) :
🈹 yon.ir/B035

🎗 #توابع
❗️مجموعه آموزشی فرمول نویسی در اکسل
❕قسمت نهم: SUMPRODUCT
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___
🈹 www.blog.excellearn.ir
🈹 www.video.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 ✍___

🎗 #توابع
❗️مجموعه آموزشی فرمول نویسی در اکسل
❕قسمت دهم : Offset
ㄟ(ツ)ㄏ
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 ✍___

#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