💢 آموزش تصویری کدنویسی بک آپ
💢 لینک دانلود :yon.ir/H2bu
💢 قیمت : 2000 تومان
🎗مدرس : مسعود حسینی
__Visual Basic for Applications
‼️ @vba_excel

سایر آموزش های که بصورت هدیه موجود است :

💢منظور از عبارت DoubleClick در VBA
💢منظور از StatusBar در VBA
💢منظور از DoEvents در VBA
💢منظور از SaveAs,SaveCopyAS در VBA
💢منظور از Union,intersect در VBA
🛍لینک خرید این آموزش : yon.ir/H2bu
🍉🍉🍉
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___

💢 تابعی جهت خارج کردن فرمول از سلول
💢 آموزش اکسل پیشرفته
‼️ @vba_excel
‼️ @talant_ir
⁉️ www.talant.ir
⁉️ www.excellearn.ir

💢 آموزش دستور Space در Vba
🈹 www.excellearn.ir
🈹 @vba_excel
🈹 @talant_ir

🈹 لینک دانلود تمرینات اکسل پیشرفته : yon.ir/21x6
🈹 لینک سایت اکسل پیشرفته :‌www.excellearn.ir
🎗 تمرینات مهم کانال داخل این قسمت از سایت بایگانی شده است .
🈹 @vba_excel

این قسمت : vbNullString

منظور از عبارت vbNullString چیست ؟🤔⁉️
نه واقعا چیست 😍‼️

‼️ معنای vbNullString به شرح زیر است :
عبارت vb مخفف ویژوال بیسیک
عبارت Null یعنی پوچ و تهی
عبارت String یعنی رشته

در مجموع یعنی " خالی " 🤗🌷
حالا یک مثال داشته باشیم :
یک ماژول مثل همیشه ایجاد و عبارتهای زیر را وارد کنیم
Dim mytext as String
✍ متغیری به نام mytext از نوع رشته داریم
mytext = inputbox("what is your name ? ")
✍ نام کاربر را میگیرد
If mytext = vbNullString then Exit sub
✍ اگر کاربر اسم را وارد نکرده ok رو زد , از ادامه ی مرحله جلوگیری کن
Msgbox "hello"&mytext
✍ در غیر اینصورت عبارت hello را ابتدای متن بنویس و نمایش بده

💢 نتیجه گیری : عبارت vbNullString برای بررسی خالی بودن مورد استفاده قرار میگیرد .
حالا سوال ⁉️ تفاوت این دستور با سایر دستورات مثل "" در چیست ؟
عبارت "" نیز به خالی بودن اشاره دارد منتهی ..

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

⁉️ لینک دانلود : yon.ir/er14
‼️ آموزش فیلتر بصورت اتوماتیک +vba
💢 این آموزش را رایگان از فروشگاه اینترنتی اکسل لرن تهیه کنید
🈹 @vba_excel
🈹 www.excellearn.ir

💢 جمعه ای مفید داشته باشید 💢
⁉️ این آموزش تنها ۲ دقیقه از وقت شما را میگیرد .
❗️لینک دانلود :‌yon.ir/er14
🈹 @vba_excel
🈹 www.excellearn.ir

💢 برگزاری کلاس های آموزشی اکسل پیشرفته 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 ✍___