💢 برگزاری کلاس های آموزشی اکسل پیشرفته VBA بزودی در سراسر ایران
💢 پروژه محور از مقدماتی تا پیشرفته
⁉️ www.excellearn.ir
‼️ @vba_excel

💢 با استفاده از دستورات زیر , فهرستی اتوماتیک همراه با لینک از شیت های اکسل خود تهیه کنید .
#فهرست_اکسل

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

❌ اگر فرمهایتان داخل محیط Vba با مشکل بزرگ و کوچک بودن صفحه کاری روبرو هستند , کتابچه زیر را مطالعه کنید .
👇👇👇
🈹 @vba_excel
🈹 Www.excellearn.ir

💢 تفاوت ThisWorkbook با ActiveWorkbook در یک تصویر
🈹 @vba_excel
🈹 www.excellearn.ir

💢#ماژول سورت کردن ستون B در تمام شیتهای اکسل

Sub Sort_Column()
Dim wksht As Worksheet
Dim i
i = 1
For Each wksht In ActiveWorkbook.Worksheets
Sheets(i).Select
Columns("B").Select

Selection.Sort Key1:=Range("b1"), _
Order1:=xlAscending, _
Header:=xlGuess, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom
i = i + 1
Next wksht
End Sub

🌺 صلوات برمحمد وآل محمد 🌺
🎗 ارسال شده توسط جناب آقای سلامت
🈹 @vba_excel
🈹 www.excellearn.ir

💢 مجموعه آموزشی Conditional Formatting
💢 قیمت : ۵۰۰۰ تومان
💢 مدرس : استاد طاهرخانی
💢 لینک دانلود : yon.ir/44n8

❌تخفیف به مناسبت دهه فجر
✨ فقط تا پایان امشب
✨ ۲۰ درصد تخفیف سبد خرید شما
❌فروشگاه : www.excellearn.ir

🈹 expression .AdvancedFilter(Action, CriteriaRange, CopyToRange, Unique)

ابزار AdvancedFilter :
با استفاده از این ابزار میتوانیم چندین شرط را روی داده های خودمون اعمال کنیم .
🈹 توضیحات دستور


🎗 منظور از عبارت Action :
این دوست خوبمون Action دو مقدار xlFilterCopy و xlFilterInPlace رو به خودش میگیره که اولی مقادیر خروجی فیلتر را به محدوده مشخصی منتقل و دومی خروجی فیلتر را تنها در محدوده داده ها اعمال میکند .

🎗 منظور از عبارت CriteriaRange :
همان محدوده شرط به همراه تیتر میباشد .

🎗عبارت CopyToRange :
اگر از قسمت Action عبارت xlFilterCopy انتخاب گردد میبایست در این قسمت آدرس خروجی را مشخص کنیم .

🎗قسمت Unique :
اگر این قسمت را True درنظر بگیریم , یعنی عباراتی که تکراری نیستند و عبارت False یعنی تکرار بلامانع است 😉❤️

🌺 صلوات برمحمد و آل محمد 🌺
🎗آموزش تصویری بزودی ..

‼️ @vba_excel
‼️ @talant_ir
⁉️ www.excellearn.ir ⁉️

💢 آموزش تصویری AdvancedFilter
💢 قیمت : ۵۰۰ تومان
💢 لینک دانلود : yon.ir/L92y
🈹 @vba_excel
🈹 www.excellearn.ir

🈹 قدرت و کاربرد VBA در نمودارها
‼️ بزودی از رسانه ی تصویری اکسل پیشرفته
🈹 @vba_excel
🈹 www.excellearn.ir

🈹 آموزش دستورات کامنت
🈹 آموزش عبارت Str
⁉️ www.excellearn.ir
‼️ @vba_excel

💢 دستوراتی جهت خارج کردن عدد از متن :
✍ در ابتدا نیاز به تعریف تابع با نام دلخواه داریم . نقطه

Function Masoudhosseini(Mytext As String) As Double

✍ نیاز به تعریف دو متغیر جهت بررسی تعداد کارکترهای متن مورد نظر را داریم .

Dim icount As Integer
Dim Mychar As String

✍ با استفاده از تابع Len تعداد کارکترهای متن را شمارش میدیم .

icount = Len(Mytext)

✍ حلقه ای جهت بررسی موارد زیر :
⁉️ اگر عدد بود
⁉️ اگر منفی بود
‼️ اگر ممیز داشت
For i = 1 To icount
If IsNumeric(Mid(Mytext, i, 1)) = True Then
Mychar = Mychar + Mid(Mytext, i, 1)
End If

If Mid(Mytext, i, 1) = "-" Then
Mychar = Mychar + Mid(Mytext, i, 1)
End If

If Mid(Mytext, i, 1) = "." Then
Mychar = Mychar + Mid(Mytext, i, 1)
End If

Next
✍ در انتها خروجی را داخل تابع قرار میدهیم .
Masoudhosseini = Mychar
End Function

💢 جهت دانلود کلیپ آموزشی این مطلب از لینک زیر اقدام کنید :‌
⁉️ yon.ir/X4i0

ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel ✍__
🈹 www.excellearn.ir ✍___

🈹 آموزش تصویری ساخت گزارش پویا + VBA
‼️ آموزش تابع Trim&Match
💢 لینک دانلود رایگان دو مثال کاربردی : yon.ir/Ga32
🈹 @vba_excel
🈹 www.excellearn.ir

💢خطای امنیت ماکروها در اکسل💢
✍درصورتی که ماکروها رادرpcدیگر ذخیره کرده باشیم بصورت پیش فرض ممکن است درpcشما خطا دهد برای جلوگیری از خطا تنظیمات زیر را انجام دهید
Developer------>macro seurity------>macro settings-------->Enabled all macros
🎯توجه داشته باشید درقسمت
Developer macro setting
✅تیک بزنید قسمت trust access......
ودر پایان okکنید 😊

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

ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___

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

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

💢نوشتن فارسی درمحیط vba💢
✍برای اینکار می توانید تنظیمات زیر را انجام دهید
✅در ویندوز
Start>Control Panel>Region and Languaga>Administrative>Change system local>Persian

✅و در محیط vba : :
Option>Editor Format>Font>Courier New (Arabic)
مدرس:موالی
🌺🌺هزینه این آموزش صلوات بر محمد وآل محمد🌺🌺
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___

💢کاهش حجم و افزایش سرعت اجرایی فایلهای اکسل توسط پسوند XLSB💢

✍همانطور که شما میدونید فرمت پیش فرض نرم افزار اکسل برای ذخیره اطلاعات XLSX هست و در صورتی که فایل شما حاوی کد VBA یا ماکرو باشه برای ذخیره اون معمولاً از فرمت XLSM استفاده میشه.
در اکسل فرمت دیگه ی هم برای ذخیره فایل ها(بدون ماکرو یا حاوی ماکرو) وجود داره که کمتر از اون استفاده میشه و اونهم فرمت XLSB هست.
در ادامه کمی بیشتر با فرمت XLSB آشنا میشیم:
این نوع ذخیره سازی که همان ویژگی های فرمت XLSX و XLSM را دارد، کم حجم ترین نوع ذخیره سازی در نرم افزار اکسل است. حجم فایل در این نوع ذخیره سازی کاهش چشمگیری میابد. سرعت محاسبات در این نوع فایل ها بیشتر از فایل ها با پسوند معمولی میباشد. پسوند فایل حاصل XLSB می باشد.
✅Excel workbook(xlsx)
✅Excel macro_Enabled workbook(xlsm)
✅Excel Binary workbook(xlsb)
مدرس:موالی
🌺🌺هزینه این آموزش صلوات بر محمد وآل محمد🌺🌺
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___

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

💢کادر پیغام (Msgbox)💢

✍دستور msgbox معمولا برای ارسال نتایج به کاربر استفاده می شود وهمچنین با استفاده از این دستور می توانید از کاربر سوال کرده و.......

✅فرم کلی این دستور به شکل زیر خواهد بود
Msgbox(prompt[buttons],[ Title],[Help file],[context])
🎯prompt:
پیغامی که نمایش داده خواهدشد
🎯buttons:
دکمه هایی که نمایش داده خواهند شد
🎯Title:
موضوع کادر محاوره
🎯Help file:
فایل ضمیمه راهنما
🎯context:
فایل ضمیمه راهنما

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

حالانوبتیم باشه نوبته تمرینه😍
⁉️برنامه ای بنویسید که در کادر پیغام پیام خوش آمدگویی را درج کند
Sub test()
Msgbox"خوش آمدید"
End sub


✍⛔️لازم بذکر است این تنها یک مثال بود شما دوستان گلم میتونید مثال های مختلفی رو تمرین کنید

🎗مدرس:موالی
🌺🌺هزینه این آموزش صلوات بر محمد وآل محمد🌺🌺
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___