🎗 #Education
تابع INSTR فقط در محیط VBA اکسل کارایی و به منظور جستجو میان متنی مشخص مورد استفاده قرار میگیرد.دستور کلی تابع INSTR بصورت زیر می باشد :

InStr( [start], string, substring, [compare] )

در دستور فوق عبارت Start به منظور " شروع " شمارش است . ( به عنوان مثال : اگر عدد 3 در نظر گرفته شود یعنی از سومین کارکتر شمارش صورت بگیرید )

عبارت String به متن مورد نظر اشاره دارد .

عبارت Substring به متنی که قرار است جستجو گردد اشاره دارد .

توضیحات بیشتر در لینک زیر :
🆔 www.yon.ir/jJw0

__Visual Basic for Applications
‼️ www.excellearn.ir
⁉️ @vba_excel

💢 آموزش حقوق و دستمزد تحت اکسل
💢 لینک دانلود
http://yon.ir/j9LV
💢 قیمت : ۵۰۰۰ تومان
____Visual Basic for Applications
‼️ www.excellearn.ir
⁉️ @vba_excel

💢 قسمت 50 تا 56
💢 لینک دانلود :yon.ir/6jh9
💢 قیمت : 1000 تومان
🎗آموزش : دستورات پرکاربرد
______Visual Basic for Applications
‼️ www.excellearn.ir
‼️ @vba_excel

💢 برای ساخت فولدر به واسطه ی کدهای VBA میتوانید از دستور ساده ی Mkdir استفاده نمایید ، ساختار این دستور بسیار ساده و گویا است که تنها کافی است آدرس محل ذخیره فولدرها را بعد از عبارت Mkdir تعیین نمایید .
به مثال های زیر توجه فرمایید :
olderVBA()
MkDir "C:\MonthlyFiles\January"
End Sub
ساخت فولدری به نام January

حتی میتوان از دستورات حلقه برای ایجاد فولدرها استفاده نمود :
Sub Masoudhosseini()
Dim i as Integer

For i=1 to 5
MkDir "C:\MonthlyFiles\" & Range("A" & i)
Next i
End sub

🎗 yon.ir/vtU4

Visual Basic for Applications
🈹 @vba_excel ✍__
🈹 www.excellearn.ir ✍___
🈹 https://telegram.me/joinchat/B4zCAzwpRGuIRyo_MIeaxg

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

💢 قسمت 57 تا 60
💢 لینک دانلود :yon.ir/yt9i
💢 قیمت : 4000 تومان
🎗آموزش : طراحی و کدنویسی
______Visual Basic for Applications
‼️ www.excellearn.ir
‼️ @vba_excel

💢 یک راه سریع برای مقایسه دویا چند ستون در اکسل😯

✍ حالا اون راه سریع چیه🤗🤔
ابتدا اکسل رو اجرا کنید وفایل مورد نظرتون رو فراخوانی کنید
اکنون با استفاده از ماوس دویا چند ستون مدنظرتون را به حالت انتخاب قرار بدید
بطوریکه کل سلولهای هرستون انتخاب شود .
سپس کلید f5 را فشاردهید تا پنجره Go to نمایش داده شود
اکنون برروی دکمه special کلیک کنید درقدم بعدی گزینه Row differencess را انتخاب نموده و ok کنید .

اکنون درصورتی که بین محتوای دوستون تفاوتی وجودداشته باشد ستون متفاوت پررنگ شده وبه این ترتیب مشخص خواهدشدکه دارای محتوایی متفاوت با سلول همسان درستون دیگر است.
🌷صلوات برمحمد و آل محمد🌷

تهیه شده توسط : مهندس موالی
ارسال شده توسط : سید مسعود حسینی
🈹 @talant_ir
🈹 @vba_excel
🈹 www.excellearn.ir
🈹 https://telegram.me/joinchat/B4zCAzwpRGuIRyo_MIeaxg

💢 تبدیل اعداد مثبت به منفی و برعکس
‼️ تمرینی از دستورات حلقه For i .. Next
🈹 www.excellearn.ir
🈹 @vba_excel
👇👇👇👇👇👇👇👇

⛔️ www.excellearn.ir
⛔️ @vba_excel
⛔️ @talant_ir

🈹 #Education
سلام خدمت دوستان گلم 😍❤️ مجموعه آموزشی الفبای VBA در اکسل به پایان رسید و باید به حالت اول برگردیم نظرتون چیه ؟🤔
باز مثل سابق با رویه مثال + فیلم آموزشی جلو خواهیم رفت ..

بریم سراغ یک مثال کاربردی دیگه ! اطلاعاتی در مورد دستور EnableEvents دارید ؟ چیزی در موردش شنیدید ؟
این دستور مرتبط با Events های ما است . به مثال زیر دقت کنید :

وارد محیط ویژوال بیسیک و Event مربوط به selectionChange را باز نمایید .
دستورات زیر را درج نمایید و یک بار بررسی کنید :
Msgbox "You Changed Selection"
مشاهده میکنید که با تغییر دادن Target پیغامی ظاهر میگردد .

حال یک ماژول رو عبارات زیر را درج و اجرا نمایید :

Sub Masoudhosseini()
'www.excellearn.ir
Application.EnableEvents=false
ActiveCell.offset(1).select
Application.EnableEvents=True
end sub

نتایج را بررسی نمایید .
🎗مسعود حسینی
💢 کلیپ آموزشی این مطلب بزودی ارسال میگردد .

Visual Basic for Applications
______________
🈹 @vba_excel
🈹 www.excellearn.ir ✍___
🈹 https://telegram.me/joinchat/B4zCAzwpRGuIRyo_MIeaxg

💢 آموزش کاربرد دستور EnableEvents در Vba Excel
⁉️ @vba_excel
⁉️ www.excellearn.ir

💢 با استفاده از تابع زیر میتوانید تعداد 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