💢 برای ساخت فولدر به واسطه ی کدهای 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
به مثال های زیر توجه فرمایید :
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
👍1💔1
Forwarded from Administrator
This media is not supported in your browser
VIEW IN TELEGRAM
‼️ کاربرد اکسل در حسابداری
❕ قسمت : قسمت نوزدهم
______Application of excel in Accounting
🈹 @vba_excel ✍____
🈹 www.excellearn.ir ✍___
🈹 @talant_ir
❕ قسمت : قسمت نوزدهم
______Application of excel in Accounting
🈹 @vba_excel ✍____
🈹 www.excellearn.ir ✍___
🈹 @talant_ir
Forwarded from Excellearn [3]
💢 قسمت 57 تا 60
💢 لینک دانلود :yon.ir/yt9i
💢 قیمت : 4000 تومان
🎗آموزش : طراحی و کدنویسی
______Visual Basic for Applications
‼️ www.excellearn.ir
‼️ @vba_excel
💢 لینک دانلود :yon.ir/yt9i
💢 قیمت : 4000 تومان
🎗آموزش : طراحی و کدنویسی
______Visual Basic for Applications
‼️ www.excellearn.ir
‼️ @vba_excel
👍1
💢 یک راه سریع برای مقایسه دویا چند ستون در اکسل😯
✍ حالا اون راه سریع چیه🤗🤔
ابتدا اکسل رو اجرا کنید وفایل مورد نظرتون رو فراخوانی کنید
اکنون با استفاده از ماوس دویا چند ستون مدنظرتون را به حالت انتخاب قرار بدید
بطوریکه کل سلولهای هرستون انتخاب شود .
سپس کلید f5 را فشاردهید تا پنجره Go to نمایش داده شود
اکنون برروی دکمه special کلیک کنید درقدم بعدی گزینه Row differencess را انتخاب نموده و ok کنید .
اکنون درصورتی که بین محتوای دوستون تفاوتی وجودداشته باشد ستون متفاوت پررنگ شده وبه این ترتیب مشخص خواهدشدکه دارای محتوایی متفاوت با سلول همسان درستون دیگر است.
🌷صلوات برمحمد و آل محمد🌷
تهیه شده توسط : مهندس موالی
ارسال شده توسط : سید مسعود حسینی
🈹 @talant_ir
🈹 @vba_excel
🈹 www.excellearn.ir
🈹 https://telegram.me/joinchat/B4zCAzwpRGuIRyo_MIeaxg
✍ حالا اون راه سریع چیه🤗🤔
ابتدا اکسل رو اجرا کنید وفایل مورد نظرتون رو فراخوانی کنید
اکنون با استفاده از ماوس دویا چند ستون مدنظرتون را به حالت انتخاب قرار بدید
بطوریکه کل سلولهای هرستون انتخاب شود .
سپس کلید f5 را فشاردهید تا پنجره Go to نمایش داده شود
اکنون برروی دکمه special کلیک کنید درقدم بعدی گزینه Row differencess را انتخاب نموده و ok کنید .
اکنون درصورتی که بین محتوای دوستون تفاوتی وجودداشته باشد ستون متفاوت پررنگ شده وبه این ترتیب مشخص خواهدشدکه دارای محتوایی متفاوت با سلول همسان درستون دیگر است.
🌷صلوات برمحمد و آل محمد🌷
تهیه شده توسط : مهندس موالی
ارسال شده توسط : سید مسعود حسینی
🈹 @talant_ir
🈹 @vba_excel
🈹 www.excellearn.ir
🈹 https://telegram.me/joinchat/B4zCAzwpRGuIRyo_MIeaxg
👍4
Forwarded from Excellearn [3]
💢 تبدیل اعداد مثبت به منفی و برعکس
‼️ تمرینی از دستورات حلقه For i .. Next
🈹 www.excellearn.ir
🈹 @vba_excel
👇👇👇👇👇👇👇👇
‼️ تمرینی از دستورات حلقه For i .. Next
🈹 www.excellearn.ir
🈹 @vba_excel
👇👇👇👇👇👇👇👇
Forwarded from Excellearn [3]
Practice-VBA(1).mp4
10.9 MB
🈹 #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
سلام خدمت دوستان گلم 😍❤️ مجموعه آموزشی الفبای 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
👍2💔1
💢 با استفاده از تابع زیر میتوانید تعداد 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
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
❤2
Forwarded from Excellearn [3]
Number_Space.mp4
11.2 MB
Forwarded from Administrator
This media is not supported in your browser
VIEW IN TELEGRAM
‼️ کاربرد اکسل در حسابداری
❕ قسمت : قسمت بیستم
______Application of excel in Accounting
🈹 @vba_excel ✍____
🈹 www.excellearn.ir ✍___
🈹 @talant_ir
❕ قسمت : قسمت بیستم
______Application of excel in Accounting
🈹 @vba_excel ✍____
🈹 www.excellearn.ir ✍___
🈹 @talant_ir
Forwarded from Administrator
درس بیستم.pdf
199.5 KB
Forwarded from Excellearn [3]
🥇مسابقه اکسل پیشرفته VBA
🥇به تمامی نفراتی که جواب صحیح ارسال کنند هدیه تعلق میگیرد
🏆 www.excellearn.ir 🎗
🏆 @vba_excel 🎗
🥇به تمامی نفراتی که جواب صحیح ارسال کنند هدیه تعلق میگیرد
🏆 www.excellearn.ir 🎗
🏆 @vba_excel 🎗
❤1
⁉️ سوال مسابقه ⁉️
تفاوت این دو خط کد در عمل چیست ؟
💢 دستور اول :
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
تفاوت این دو خط کد در عمل چیست ؟
💢 دستور اول :
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
آموزش اکسل | Ms Excel
⁉️ سوال مسابقه ⁉️ تفاوت این دو خط کد در عمل چیست ؟ 💢 دستور اول : ActiveWorkbook.SaveCopyAs Filename:="D:\Microsoft\MyPro1.xls" 💢 دستور دوم : ActiveWorkbook.SaveAs Filename:="D:\Microsoft\MyPro1.xls" ❌ مهلت ارسال تا ساعت ۲۴ سی دیماه ❌ ارسال : @adm_Masoudhosseini…
دوستان عزیزم نکته در نحوه ذخیره کردن عبارت SaveAs و SaveCopyAs است . این ۲ عبارت در ذخیره کردن یکسان هستند ولی یک تفاوت خیلی ریز در این ۲ عبارت وجود دارد .
🏆 ممنونم از دوستانی که تا به الان جواب ارسال نمودند 🌺🌷😍
🏆 ممنونم از دوستانی که تا به الان جواب ارسال نمودند 🌺🌷😍
آموزش اکسل | Ms Excel
⁉️ سوال مسابقه ⁉️ تفاوت این دو خط کد در عمل چیست ؟ 💢 دستور اول : ActiveWorkbook.SaveCopyAs Filename:="D:\Microsoft\MyPro1.xls" 💢 دستور دوم : ActiveWorkbook.SaveAs Filename:="D:\Microsoft\MyPro1.xls" ❌ مهلت ارسال تا ساعت ۲۴ سی دیماه ❌ ارسال : @adm_Masoudhosseini…
🎗 با تشکر از همه ی عزیزانی که در این مسابقه شرکت کردند .
جوایز اهدا شد .
😍🌺 برنده ی این مسابقه تمام عزیزانی بودند که شرکت کردم نه مختص افرادی که جواب صحیح ارسال کردند .
🎗 ممنونم از اینکه به خودتون جرات دادید و شرکت کردید پس همتون برنده بودید ❤
ارادتمندم / مسعود حسینی
جوایز اهدا شد .
😍🌺 برنده ی این مسابقه تمام عزیزانی بودند که شرکت کردم نه مختص افرادی که جواب صحیح ارسال کردند .
🎗 ممنونم از اینکه به خودتون جرات دادید و شرکت کردید پس همتون برنده بودید ❤
ارادتمندم / مسعود حسینی
Forwarded from Excellearn [3]
با سلام🌷
در پی حادثه ناگوار ساختمان پلاسکو در تهران شهادت آتش نشانان عزیز را تسلیت عرض می نماییم.
از طرف فعالان اکسل - تیم تالانت
🌹 @talant_ir
🌹 @vba_excel
در پی حادثه ناگوار ساختمان پلاسکو در تهران شهادت آتش نشانان عزیز را تسلیت عرض می نماییم.
از طرف فعالان اکسل - تیم تالانت
🌹 @talant_ir
🌹 @vba_excel
👍3
Forwarded from Excellearn [3]
💢 آموزش تصویری کدنویسی بک آپ
💢 لینک دانلود :yon.ir/H2bu
💢 قیمت : 2000 تومان
🎗مدرس : مسعود حسینی
__Visual Basic for Applications
‼️ @vba_excel
💢 لینک دانلود :yon.ir/H2bu
💢 قیمت : 2000 تومان
🎗مدرس : مسعود حسینی
__Visual Basic for Applications
‼️ @vba_excel
❤1
Excellearn [3]
💢 آموزش تصویری کدنویسی بک آپ 💢 لینک دانلود :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 ✍___
💢منظور از عبارت DoubleClick در VBA
💢منظور از StatusBar در VBA
💢منظور از DoEvents در VBA
💢منظور از SaveAs,SaveCopyAS در VBA
💢منظور از Union,intersect در VBA
🛍لینک خرید این آموزش : yon.ir/H2bu
🍉🍉🍉
ㄟ(ツ)ㄏ
Visual Basic for Applications
🈹 @vba_excel
🈹 www.excellearn.ir ✍___
👍1
Forwarded from Excellearn [3]
This media is not supported in your browser
VIEW IN TELEGRAM
💢 تابعی جهت خارج کردن فرمول از سلول
💢 آموزش اکسل پیشرفته
‼️ @vba_excel
‼️ @talant_ir
⁉️ www.talant.ir
⁉️ www.excellearn.ir
💢 آموزش اکسل پیشرفته
‼️ @vba_excel
‼️ @talant_ir
⁉️ www.talant.ir
⁉️ www.excellearn.ir