💢 با استفاده از تابع زیر میتوانید تعداد Space های یک متن را شمارش کنید ، کافیه کدهای زیر را داخل یک ماژول درج و سپس از تابع Number_Space در اکسل استفاده نمایید :

Function number_space(itext As String) As Integer
Dim icount As Integer
'www.excellearn.ir
icount = Len(itext)
number_space = 0
For i = 1 To icount
If (Mid(itext, i, 1)) = " " Then
number_space = number_space + 1
End If
Next i
End Function

💢برای مشاهده ی کلیپ آموزشی این مطلب میتوانید آن را از لینک زیر بصورت کاملا رایگان دریافت نمایید .
🈹 yon.ir/C7Vf
🌺🌺 صلوات برمحمد و آل محمد 🌺🌺
‼️از سایر تمرینات سایت استفاده نمایید .
⁉️ www.excellearn.ir
‼️ @vba_excel

‼️ کاربرد اکسل در حسابداری
❕ قسمت : قسمت بیستم
______Application of excel in Accounting
🈹 @vba_excel ✍____
🈹 www.excellearn.ir ✍___
🈹 @talant_ir

‼️ کاربرد اکسل در حسابداری
‼️ کتابچه قسمت : بیستم
🈹 @vba_excel

🥇مسابقه اکسل پیشرفته VBA
🥇به تمامی نفراتی که جواب صحیح ارسال کنند هدیه تعلق میگیرد
🏆 www.excellearn.ir 🎗
🏆 @vba_excel 🎗

⁉️ سوال مسابقه ⁉️

تفاوت این دو خط کد در عمل چیست ؟

💢 دستور اول :
ActiveWorkbook.SaveCopyAs Filename:="D:\Microsoft\MyPro1.xls"

💢 دستور دوم :
ActiveWorkbook.SaveAs Filename:="D:\Microsoft\MyPro1.xls"

❌ مهلت ارسال تا ساعت ۲۴ سی دیماه ❌
ارسال : @adm_Masoudhosseini

🏆 برنده تمام افرادی هستند که پاسخ صحیح ارسال کنند
🏆 هدیه یک آموزش تصویری مفید از فروشگاه www.excellearn.ir خواهد بود

Application of excel in Accounting
📕 @vba_excel
🈹 www.excellearn.ir ✍___
🈹 @talant_ir

دوستان عزیزم نکته در نحوه ذخیره کردن عبارت SaveAs و SaveCopyAs است . این ۲ عبارت در ذخیره کردن یکسان هستند ولی یک تفاوت خیلی ریز در این ۲ عبارت وجود دارد .
🏆 ممنونم از دوستانی که تا به الان جواب ارسال نمودند 🌺🌷😍

🎗 با تشکر از همه ی عزیزانی که در این مسابقه شرکت کردند .
جوایز اهدا شد .
😍🌺 برنده ی این مسابقه تمام عزیزانی بودند که شرکت کردم نه مختص افرادی که جواب صحیح ارسال کردند .

🎗 ممنونم از اینکه به خودتون جرات دادید و شرکت کردید پس همتون برنده بودید ❤

ارادتمندم / مسعود حسینی

با سلام🌷
در پی حادثه ناگوار ساختمان پلاسکو در تهران شهادت آتش نشانان عزیز را تسلیت عرض می نماییم.
از طرف فعالان اکسل - تیم تالانت
🌹 @talant_ir
🌹 @vba_excel

💢 آموزش تصویری کدنویسی بک آپ
💢 لینک دانلود :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