🎦 #form
قسمت چهارم
طراحی و کدنویسی فرم در اکسل
🔖حجم : 9مگابایت
🔖مدت آموزش : 5 دقیقه
🔖لینک دانلود : yon.ir/xgSk
⛔️ برای دانلود از فیلترشکن استفاده کنید.
_____
🆔 @vba_excel
🆔 @adm_masoudhosseini

📚 #book
کتابهای آموزشی VBA
🔖دو کتاب به آرشیو سایت اضافه شد.
لینک دانلود :

🌐 http://excellearn.ir/?p=196

_____Excellearn.ir_____
🆔 @vba_excel
🆔 @adm_masoudhosseini

🎦 #form
قسمت پنجم
طراحی و کدنویسی فرم در اکسل
🔖حجم : 10مگابایت
🔖مدت آموزش : 3 دقیقه
🔖لینک دانلود : yon.ir/xgSk
⛔️ برای دانلود از فیلترشکن استفاده کنید.
_____
🆔 @vba_excel
🆔 @adm_masoudhosseini

🎁 #Match
مسابقه کدنویسی همراه با جایزه
🔖نفرات برنده: 1 نفر
💰جایزه: رمز مجموعه آموزشی دلخواه
🕙 شروع مسابقه: راس ساعت 10 شب 1395/01/05
❓سوال: در پست بعدی
_____
🆔 @vba_excel
🆔 @adm_masoudhosseini

🎁 #Match
✍آموزش :
دوستان هدف از این مسابقه تقویت مهراتهای شما عزیزان است.
✍نحوه ی مسابقه :
تا ساعت 10 شب 1395/01/05 فرصت دارید دستورات درخواستی را به تلگرام بنده ارسال کنید. نفر اولی که دستوراتش صحیح است برنده ی ما خواهد بود.
🆔 @adm_masoudhosseini

⚠️سوال مسابقه :
دستوراتی بنویسید که اگر مقدار سلول A1 :
✅ بین 1 تا 11.500.000 بود ، در سلول B1 " معاف " نوشته شود.
✅ بین 11.500.001 تا 80.500
000 بود ، سلول A1 را در 10درصد ضرب و جواب را در B1 بنویسد.
✅از 80.500.001 تا بی نهایت بود ، سلول A1 را در 20 درصد ضرب و جواب را در سلول B1 بنویسد .

🚸راهنمایی :
از دستور Select Case استفاده کنید.
⛔️لطفا پیام شخصی پیرامون سوال به بنده ندید🙈🌹
_____excellearn____
🆔 @vba_excel
🌐 www.excellearn.ir

🎁 #Match
نتایج مسابقه اول
کاربرانی که جواب صحیح دادند :

🏅Hosein forooghi
💠 £$!
💠 Hadi dehnavi
💠 Sayyed Ali
💠 A Esmaeli
💠 Tabrizi

برنده ی این قسمت جناب
🏅hosein forooghi
هستند.
⚠️ سایر عزیزان هم عالی بودند ، تشکر میکنم بابت اهمیتی که به این مسابقه دادید.
🎁جایزه انتخاب یکی از دو مجموع آموزشی داخل سایت .
🎦 کلیپ تمرینی این مسابقه بزودی تقدیمتون خواهد شد .

_____excellearn_____
🆔 @vba_excel
⚛ www.excellearn.ir
🆔 @adm_masoudhosseini

🎦 #Match
جواب تصویری مسابقه اول
🔖 آموزش محاسبه مالیات حقوق در اکسل (کدنویسی)
🔖مدت آموزش : 3 دقیقه
🔖 حجم : 9 مگابایت
🔖لینک دانلود : yon.ir/2nY6
_____
🆔 @vba_excel
🆔 @adm_masoudhosseini
_____Support_____
🆔 @ExcelRoom
🆔 @HsExcel_Bot

🏅 #footnote
پاورقی :
در جایی بنویسید هنوز هیچکس دوبار زندگی نکرده است و روزی دوبار بخوانید ..
🔖 @vba_excel

🎦 #form
قسمت ششم
طراحی و کدنویسی فرم در اکسل
🔖حجم : 11مگابایت
🔖مدت آموزش : 3 دقیقه
🔖لینک دانلود : yon.ir/xgSk

_____
🆔 @vba_excel
🆔 @adm_masoudhosseini

📋 #Learn
آموزش Replace :
✍ سلام به دوستان گلم ، در این قسمت از آموزش میخوایم به دستورات Replace در vba اشاره کنیم .🤓🌺

✍ برای درک مطلب با یک مثال خیلی سخت شروع میکنیم 😩💪
اصلا Replace یعنی چی؟😯
یعنی جایگزین کردن ، بنظرتون برای جایگزین کردن چه چیزهایی لازم است؟

✍ خلاصه : در ابتدا نیاز داریم که تک تک سلولهای اکسل رو بررسی کنیم تا عبارت قدیم رو پیدا و عبارت جدید رو جایگزین کنیم ( خلاص )

یک متغیر تعریف کنید که از نوع شیت باشد.

Dim Sht As worksheet

✍ حالا نیاز به یک حلقه داریم که تمام شیتهارو بیاره و بعد تمام سلولهاش رو بررسی کنه، در نتیجه :

For each sht in WorkSheets

✍ حالا میگیم شیت رو بگیر،روی تک تک سلولهاش دستورات رو اجرا کن :

Sht.Cells.replace "Old text","new text"
Next

👌تمام شد ، کافیه old text و new text رو تغییر بدید.
کلیپ این آموزش بزودی در این کانال ارسال خواهد شد .
_____excellearn.ir_____
🆔 @vba_excel ⛔️
🆔 @excelRoom
🆔 @HsExcel_Bot
🌐 www.excellearn.ir

روز مادر مبارک 🌺
@vba_excel ✍___

🔖 #Practice
تمرین:
✍ دستوراتی بنویسید که بیشترین مقدار ستون A را پیدا کند و از مقادیر ستون B کم کند و این عمل را تا جایی ادامه دهد که مقادیر ستون B منفی نشود.

🎭 راهنمایی :
از حلقه های For each و Do while استفاده شود .

پاسخ : فکر کنیییید🍉😍 آسوونه

_____
🆔 @vba_excel ✍__
🆔 www.excellearn.ir ✍__
🆔 @adm_masoudhosseini

✅ #Practice
جواب تمرین :
✍دوستان ابتدا دوتا متغیر تعریف میکنیم .
Dim Rng1 As integer
Dim Rng2 As Range
✍متغیر اول جهت پیدا کردن بزرگترین مقدار ستون A و متغیر دوم جهت ایجاد حلقه.
✍دستورات پیدا کردن بزرگترین مقدار ستون A :
Rng1=application.Max(Columns(1))
توجه کنید منظور از
Columns(1)
همون ستون A است.

✍حالا حلقه رو ایجاد میکنیم :
For each Rng2 in Range("B1:B10")
در این قسمت تک تک سلول های B1 تا B10 رو بررسی میکنیم .
Do while Rng2>Rng1
تا وقتی که Rng2 بزرگتر از Rng1 است ( یعنی تا زمانی که نتیجه مقداری مثبت است ) این حلقه را ادامه بده.
Rng2=Rng2 - Rng1
Loop
Next
تمام شد.😏🎗
🎦 به محض وصل شدن اینترنتم کلیپ آموزشی این قسمت رو ارسال میکنم .
نگران نباشید خاصیت نوشتن این هست سطح گیرایی رو کاهش میده .
حسینی🌹🌹
____⚠️excellearn.ir⚠️___
❗️ @vba_excel ✍__
❗️ www.excellearn.ir ✍__
❗️ @excelRoom
❗️ @hsExcel_Bot

💡 #education

حلقه Do Until .. Loop :
این حلقه به چه صورت است ؟

Do until [شرط]
[Sدستورات]
Loop

کاربردش چی هست ؟🤔
با یک مثال جلو بریییم قبول ؟

✍ ماژولی ایجاد و دستورات زیر را درج کنید :

Do Until Q1=vbCancel

تا وقتی که Q1 کنسل نشده ، حلقه رو بچرخون ( ⛔️تاکید : تا کنسل نشده!! )

✍حلقه رو مینویسیم :

Q1=Msgbox("Row" &ActiveCell.Row&"Delete?",3)

✍ تا اینجا که سوال کردیم آیا ردیف سلولی که الان انتخاب شده است حذف شود ؟ 😉
حالا :

if Q1=vbYes Then
ActiveCell.EntireRow.Delete

تا اینجا گفتیم اگه پاسخ Yes بود کل ردیف سلولی که فعال است رو حذف کن.
Else

در غیر اینصورت ( یعنی No بود ! )

ActiveCell.Offset(1,0).Select
End if
Loop

✍ گفتیم که اگر جواب No بود بیا یک ردیف به ActiveCell ما اضافه کن و مجددا سوال کن که حذف بشود یا خیر 😘🌹
📳 @vba_excel
🎗کلیپ این قسمت رو ارسال میکنم ، اگر متوجه نشدید باز مثال میزنم 🤗🌹

___ www.excellearn.ir ___
🆔 @vba_excel 👌Like
🆔 @ExcelRoom
🆔 @hsExcel_Bot

🎦 #Practice
خلاصه : با کمک حلقه های Do while و For Each دستوراتی نوشتیم که بزرگترین مقدار ستون A را بیابد و از تک تک مقادیر ستون B کم کند ..
📳 @vba_excel ✅
📴 @excelRoom
📴 @hsExcel_Bot

🔖آموزش محاسبه ی مالیات حقوق
لینک مجموعه : http://yon.ir/ccvq
لینک دانلود : http://yon.ir/G4cl
⛔️قسمت 8 این مجموعه به منظور جبران اشتباه بنده ، کاملا رایگان برای دانلود قرار گرفت.
🎗تشکر / حسینی

🆔 #Education
آموزش کلیدهای میانبر پرکاربرد(قسمت اول) :

✅ دستور اول
انتخاب ستون سلول فعال
Ctrl + Space
و دستورات Vba :
ActiveCell.EntireColumn.Select

✅دستور دوم
انتخاب ردیف سلول فعال
Ctrl + Shift
و دستورات VBA :
ActiveCell.EntireRow.Select

✅دستور سوم
تغییرات در فونت
Ctrl + Shift + F
و دستورات VBA :
With Selection.Font
.name = "Arial"
.Size = 10
.fontStyle = "Bold"
End with
✅دستور چهارم
درج سلول جدید
Ctrl + Shift + =
و دستورات VBA :
Selection.insert Shift:XlDown
Selection.insert Shift:XlToRight

هزینه این آموزش :
🌹تنها یک صلوات بر محمد و آل محمد
تهیه توسط : کاربر گرامی سرکار خانم موالی
🌺🌺🌺🌺🌺🌺🌺
ادامه دارد ...
_____ www.excellearn.ir_____
📳 @vba_excel
📳 www.excellearn.ir
♻️ @ExcelRoom
♻️ @hsExcel_Bot

📚 #Education

سوال ؟ 🤔
✍ فرض کنید تعداد زیادی متغیر نیاز هست ، مثلا قصد دارید برای تمام کارمندای یک واحد تجاری یک متغیر تعریف کنید:
Dim Num1 As string
Dim Num2 As string
Dim Num3 As string ...

Num1= " Masoud "
Num2= " Moh3n "
Num3= " U3f " ...

✍ آیا بنظرتون راه بهتری وجود دارد؟
آموزش امشب کانال ، پیرامون همین مطلب می باشد . همراه باشید ..
🎗حسینی

_ Visual basic for applications _
🆔 @vba_excel
🌐 www.excellearn.ir
___Supporter___
🆔 @excelroom
🆔 @hsExcel_Bot

📖 #Education
آموزش آرایه ( Array ) :
با کمک آرایه ها به راحتی میتونید از انجام چنین کارهای وقت گیری و دردسر ساز جلوگیری کنید .😉
خب اصلا این Array چی هست ؟
با مثال بریم جلو ..

Dim Personel(1 To 20) As String
👌 یعنی متغیر Personel تعداد 1 تا 20 را پوشش میدهد و از نوع String است . قبول ؟
Personel(1)= " Masoud "
Personel(2)= " PariYa "
Personel(3)= " Abbas "
Personel(4)= " Shima "
Personel(5) = " Reza "
.
.
.
Personel(20) = " Sara "
تا اینجا گفتیم پرسنل 1 تا 20 ما این اشخاص هستند ..
حالا کافیه دستورات را مشاهده کنیم :
MsgBox Personel(4)
👌به هنگام اجرای دستورات ، نام پرسنل " شیما " نمایش داده میشود.
چرا ؟ چون پرسنل شماره (4) به نام شیما است .
🎦 مثال های متنوع بزودی .. 👉
🌷🌷🌷
🎗ارادتمندم / حسینی
___Supporter___
📳 @vba_excel ✍__
📳 www.excellearn.ir ✍__
🆔 @ExcelRoom
🆔 @HsExcel_Bot

♻️ #footnote
خطاهای اکسل و راه حل های پیشنهادی :
⛔️مطالب امشب رو یکبار مطالعه کنید.
برای متخصص شدن در اکسل ، تشخیص دلیل بروز خطاها بسیار حائز اهمیت است.

1_ #⃣VALUE :
در فرمول ریاضی وارد شده بجای مقادیر عددی از مقادیر متنی استفاده شده است.
✅ راه حل :
مقادیر ورودی وسلول های مورد استفاده در فرمول را کنترل میکنیم.

2_ #⃣DIV/0 :
تقسیم بر صفر تعریف نشده است و وقتی که یک عدد بر صفر تقسیم شده باشد این خطا رخ می دهد .
✅ راه حل :
مقادیر وسلول های مورداستفاده در فرمول را بررسی میکنیم تا تقسیم بر صفر نشوند خصوصا اگر درفرمول سلولی را استفاده کرده ایم که خالی باشد .

3_ #⃣NAME :
نام یا برچسبی در فرمول استفاده شده که Excel نمی تواند آن را تشخیص دهد مثلا ممکن است عبارتی را بدون قرار دادن در بین علائم درفرمول استفاده کرده باشیم یا نام سلول یا متغییری را که حذف شده است استفاده کرده باشیم یا حتی نام آنها را غلط تایپ کرده باشیم .
✅ راه حل :
نام متغییرها وبرچسب های استفاده در فرمول ونحوه استفاده آنها را کنترل می کنیم .

4_ #⃣N/A :
وقتی که یک مقدار در دسترس تابع یا فرمول نباشد اتفاق می افتد مثلا داده های مورد استفاده درفرمول غلط است یا هنوز درسلولهای وجود ندارند .
✅ راه حل :
مقادیر وسلولها ی مورد استفاده در فرمول را بررسی میکنیم .

5_ #⃣REF! :
وقتی که سلول ارجاع شده وجود نداشته باشد اتفاق می افتد
✅ راه حل :
سلولهای مورد اشاره درفرمول را بررسی میکنیم تاحذف نشده باشند ووجود داشته باشند .

6_ #⃣NUM!
وقتی که یک پارامتر نادرست در توابع وفرمول استفاده کنیم اتفاق می افتد .
✅ راه حل :
مقادیر وپارامترهای مورد استفاده در فرمول وتوابع رابررسی میکنیم .

7_ #⃣NULL!
وقتی که در یک فرمول از آدرس اشتراک دو آدرس استفاده کرده باشیم که این اشتراک وجود نداشته باشد اتفاق می افتد .
✅ راه حل :
پارامترها ونحوه استفاده صحیح آنها را در فرمول بررسی میکنیم .

تهیه شده توسط :
کاربر کانال / خانم موالی🌺

____excellearn.ir____
🆔 @vba_excel ✍__
🆔 www.excellearn.ir ✍__
🆔 @excelRoom
🆔 @hsExcel_Bot

📚 #practice
تمرین :
سلام خدمت دوستان گل خودم 🙏😍

✍ در این قسمت میخوایم بااز پیرامون آرایه ها صحبت کنیییم , یک ماژووول ایجاد کنیییم :

Dim Dep As variant

✍متغیری بنام Dep داریم از نوع چی؟ این چه نوع متغیری هست بنظرتون ؟
پاسخ : متغیری است که نوع آن مجهول است. ادامه بدیم ..

Dep = Array ( "V1" , "V2","V3")

حالا نتیجه رو بفرستیم رو برد :

Msgbox Dep(1)

نتیجه : V2 توسط پیغام به ما نمایش داده میشود. چرا ؟؟
✍ چون شروع آرایه از "0" است یعنی در اصل Dep ما به ترتیب زیر است :

Dep = Array ( "0" , "1" , "2")

⚠️ کسی نظر و ایده ای دارد که شروع شمارش آرایه از 1 باشد ؟(تمرین)
🎦 کلیپ تصویری بزودی ..

چند نکته :
⛔️ برای خرید مجموعه های آموزشی سایت از فیلتر شکن استفاده کنید تا درگاه پرداخت به شما نمایش داده شود .
⛔️ آموزش ها راس ساعت 21 شب ارسال میشوند .
🎗 بابت تبادلات از تمامی شما عزیزان عذرخواهی میکنم.
_____ Supporter _____
🆔 @vba_excel ✍__
🌀 www.excellearn.ir ✍__
🆔 @excelRoom
🆔 @hsExcel_bot