🎦 #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

آموزش اضافه کردن شیت به اکسل
در این آموزش با دستورات اضافه کردن شیت آشنا خواهید شد.
لطفا این آموزش را به دوستان خود معرفی کنید 🌺
_________
🆔 @vba_excel
🆔 www.excellearn.ir

✅ #form
🎦 فصل اول / قسمت اول
آموزش طراحی و کدنویسی فرم در اکسل
لینک دانلود : yon.ir/JhIp
⛔️این مجموعه شامل ۱۰ قسمت است .
______
🔖 @vba_excel
🔖 www.excellearn.ir

مبعث حضرت رسول اکرم (ص) مبارک باد .

فصل دوم طراحی و کدنویسی فرم ( آموزش انبارداری)
🔖 ۱۴ قسمت آموزشی
⏱ زمان شروع : ۲۵ اریبهشت
__________
🆔 @vba_excel ✍__
🆔 www.excellearn.ir ✍__

دوستان خودم سلام
خیلی ها پیرامون مجموعه ی جدید سوالاتی داشتند که لازم دونستم توضیحاتی رو خدمتتون عرض کنم.
این مجموعه ادامه ی مجموعه طراحی و کدنویسی فرم (فصل اول ) است ولی با این تفاوت که موضوع آموزش کمی وسیع تر شده و محتوای نرم افزاری پیدا کرده است .
این مجموعه شامل ۱۴ قسمت کاملا تصویری به همراه فایل های تمرینی است که از اکثر ابزارهای فرم استفاده شده و برای زیباتر شدن و حرفه ای بودن حتی کلیدهای میانبر هم در فرم لحاظ شده است.
سطح آموزش مانند فصل اول با زبان ساده و روان بوده و توصیه میکنم حتی اگر در طراحی فرم حرفه ای هستید ، دیدن این مجموعه رو از دست ندید.

کلام آخر
برای این مجموعه قیمت ۴.۰۰۰ تومان درنظر گرفتم ، چون معتقدم اگر کسی بابت چیزی بهایی پرداخت کند بدون شک نهایت استفاده را میکند حتی اگر بهای پرداختی ناچیز باشد .
خواهشمندم این مجموعه را در فضای مجازی منتشر نکنید .
دوستتون دارم / مسعود حسینی
www.excellearn.ir 👈خرید مجموعه

قسمت اول آموزش انبارداری
❗️ زمان آموزش : ۰۴:۵۸
❗️حجم : ۱۶ مگابایت
❗️لینک دانلود : http://yon.ir/0ycV
___Visual Basic For Applications
🆔 @vba_excel ✍__

دموی قسمت اول آموزش انبارداری
❗️ سایت : www.excellearn.ir
___Visual Basic For Applications
🆔 @vba_excel ✍__

قسمت دوم آموزش انبارداری
❗️ زمان آموزش : ۰۶:۵۵
❗️حجم : ۲۰ مگابایت
❗️لینک دانلود : yon.ir/kTkF
___Visual Basic For Applications
🆔 @vba_excel ✍__