89614
🌱 اینجا محل خدمت است🌱 سایت رسمی اکسللرن: 🔻 https://excellearn.ir محصولات فیزیکی اکسل: 🔻 https://shop.excellearn.ir دونیت(حمایت - Donate): 🔻 https://reymit.ir/excellearn
📚 #Education
سوال ؟ 🤔
✍ فرض کنید تعداد زیادی متغیر نیاز هست ، مثلا قصد دارید برای تمام کارمندای یک واحد تجاری یک متغیر تعریف کنید:
Dim Num1 As string
Dim Num2 As string
Dim Num3 As string ...
Num1= " Masoud "
Num2= " Moh3n "
Num3= " U3f " ...
✍ آیا بنظرتون راه بهتری وجود دارد؟
آموزش امشب کانال ، پیرامون همین مطلب می باشد . همراه باشید ..
🎗حسینی
_ Visual basic for applications _
🆔 @vba_excel
🌐 www.excellearn.ir
___Supporter___
🆔 @excelroom
🆔 @hsExcel_Bot
🔖آموزش محاسبه ی مالیات حقوق
لینک مجموعه : http://yon.ir/ccvq
لینک دانلود : http://yon.ir/G4cl
⛔️قسمت 8 این مجموعه به منظور جبران اشتباه بنده ، کاملا رایگان برای دانلود قرار گرفت.
🎗تشکر / حسینی
💡 #education
حلقه Do Until .. Loop :
این حلقه به چه صورت است ؟
Do until [شرط]
[Sدستورات]
Loop
کاربردش چی هست ؟🤔
با یک مثال جلو بریییم قبول ؟
✍ ماژولی ایجاد و دستورات زیر را درج کنید :
Do Until Q1=vbCancel
تا وقتی که Q1 کنسل نشده ، حلقه رو بچرخون ( ⛔️تاکید : تا کنسل نشده!! )
✍حلقه رو مینویسیم :
Q1=Msgbox("Row" &ActiveCell.Row&"Delete?",3)
✍ تا اینجا که سوال کردیم آیا ردیف سلولی که الان انتخاب شده است حذف شود ؟ 😉
حالا :
if Q1=vbYes Then
ActiveCell.EntireRow.Delete
تا اینجا گفتیم اگه پاسخ Yes بود کل ردیف سلولی که فعال است رو حذف کن.
Else
در غیر اینصورت ( یعنی No بود ! )
ActiveCell.Offset(1,0).Select
End if
Loop
✍ گفتیم که اگر جواب No بود بیا یک ردیف به ActiveCell ما اضافه کن و مجددا سوال کن که حذف بشود یا خیر 😘🌹
📳 @vba_excel
🎗کلیپ این قسمت رو ارسال میکنم ، اگر متوجه نشدید باز مثال میزنم 🤗🌹
___ www.excellearn.ir ___
🆔 @vba_excel 👌Like
🆔 @ExcelRoom
🆔 @hsExcel_Bot
🔖 #Practice
تمرین:
✍ دستوراتی بنویسید که بیشترین مقدار ستون A را پیدا کند و از مقادیر ستون B کم کند و این عمل را تا جایی ادامه دهد که مقادیر ستون B منفی نشود.
🎭 راهنمایی :
از حلقه های For each و Do while استفاده شود .
پاسخ : فکر کنیییید🍉😍 آسوونه
_____
🆔 @vba_excel ✍__
🆔 www.excellearn.ir ✍__
🆔 @adm_masoudhosseini
📋 #Learn
آموزش Replace :
✍ سلام به دوستان گلم ، در این قسمت از آموزش میخوایم به دستورات Replace در vba اشاره کنیم .🤓🌺
✍ برای درک مطلب با یک مثال خیلی سخت شروع میکنیم 😩💪
اصلا Replace یعنی چی؟😯
یعنی جایگزین کردن ، بنظرتون برای جایگزین کردن چه چیزهایی لازم است؟
✍ خلاصه : در ابتدا نیاز داریم که تک تک سلولهای اکسل رو بررسی کنیم تا عبارت قدیم رو پیدا و عبارت جدید رو جایگزین کنیم ( خلاص )
یک متغیر تعریف کنید که از نوع شیت باشد.
Dim Sht As worksheet
✍ حالا نیاز به یک حلقه داریم که تمام شیتهارو بیاره و بعد تمام سلولهاش رو بررسی کنه، در نتیجه :
For each sht in WorkSheets
✍ حالا میگیم شیت رو بگیر،روی تک تک سلولهاش دستورات رو اجرا کن :
Sht.Cells.replace "Old text","new text"
Next
👌تمام شد ، کافیه old text و new text رو تغییر بدید.
کلیپ این آموزش بزودی در این کانال ارسال خواهد شد .
_____excellearn.ir_____
🆔 @vba_excel ⛔️
🆔 @excelRoom
🆔 @HsExcel_Bot
🌐 www.excellearn.ir
🏅 #footnote
پاورقی :
در جایی بنویسید هنوز هیچکس دوبار زندگی نکرده است و روزی دوبار بخوانید ..
🔖 @vba_excel
🎁 #Match
نتایج مسابقه اول
کاربرانی که جواب صحیح دادند :
🏅Hosein forooghi
💠 £$!
💠 Hadi dehnavi
💠 Sayyed Ali
💠 A Esmaeli
💠 Tabrizi
برنده ی این قسمت جناب
🏅hosein forooghi
هستند.
⚠️ سایر عزیزان هم عالی بودند ، تشکر میکنم بابت اهمیتی که به این مسابقه دادید.
🎁جایزه انتخاب یکی از دو مجموع آموزشی داخل سایت .
🎦 کلیپ تمرینی این مسابقه بزودی تقدیمتون خواهد شد .
_____excellearn_____
🆔 @vba_excel
⚛ www.excellearn.ir
🆔 @adm_masoudhosseini
🎁 #Match
مسابقه کدنویسی همراه با جایزه
🔖نفرات برنده: 1 نفر
💰جایزه: رمز مجموعه آموزشی دلخواه
🕙 شروع مسابقه: راس ساعت 10 شب 1395/01/05
❓سوال: در پست بعدی
_____
🆔 @vba_excel
🆔 @adm_masoudhosseini
📚 #book
کتابهای آموزشی VBA
🔖دو کتاب به آرشیو سایت اضافه شد.
لینک دانلود :
🌐 http://excellearn.ir/?p=196
_____Excellearn.ir_____
🆔 @vba_excel
🆔 @adm_masoudhosseini
🔖 #Practice
حذف اطلاعات اکسل در تاریخ معین :
سلام به اعضای محترم کانال و خیر مقدم خدمت دوستانی که تازه به جمع ما پیوستند 😍❤️
آقا چند وقت پیش دیدم خیلی ها درخواست دستوری رو دارند که در تاریخ مشخصی اطلاعات اکسل رو حذف کنه 😳.
امروز شمارو با یک روش آشنا میکنم.
همراه باشید ..
اول باید با تابع ()Now آشنا بشید،این تابع تاریخ اکنون سیستم رو نمایش میده.(قبول؟)
کار راحت شد، حالا نیاز به یکسری دستورات داریم که بررسی کنه که اگه تاریخ اکنون سیستم از تاریخ مشخصی بزرگتر بود ، تمام اطلاعات اکسل رو حذف کند.(ترسناک شد😎)
پس یک ماژول ایجاد کنید :
Sub Masoudhosseini()
Dim i As integer
✍ یک متغیر به نام " i " از نوع عدد داریم .
حالا شرط رو تعریف میکنیم :
if Now() >"3/19/2016" Then
✍اگر تاریخ اکنون کامپیوتر از 3/19/2016 بزرگتر بود ، چه اتفاقی بیوفته ؟
For i = 1 to Sheets.count
With sheets(i)
.visible=true
.Cells.Clear
End with
Next
End if
✍ از شماره 1 تا به تعداد(Sheets.Count) شیتهای فایل اکسل ، اول چک کن که حتما پنهان نباشد(visible=true) و بعد تمام سلول هاش رو پاک کن(Clear).
حالا نیاز داریم که دستورات رو ذخیره و بعد اکسل رو ببنده . میشه این دستورات :
ActiveWorkbook.save
ActiveWorkBook.Close
End Sub
حالا فقط یک چیز نیاز هست.اینکه دستورات باید با یک اتفاق فعال شوند نه توسط کاربر😏
این قسمت رو داخل کلیپ آموزشی توضیح میدم.
🎗کانال آموزش برنامه نویسی در محیط اکسل
@vba_excel
_____excellearn.ir_____
_Supporters :
@ExcelRoom
@HsExcel_Bot
_Official channel:
@vba_excel
_Official website
www.excellearn.ir
👇👇👇
🎦 #form
قسمت سوم :
در قسمت سوم مجموعه طراحی و کدنویسی فرم در اکسل شما خواهید آموخت :
1_ الزام به تکمیل تمام فیلدهای فرم
2_ کد پرسنلی حتما بصورت عدد درج شود.
مشخصات دانلود :
🎗 حجم 12 مگابایت
🎗 زمان آموزش 5 دقیقه
🎗 لینک دانلود : yon.ir/xgSk
⛔️ اخیرا درگاه پرداخت اینترنتی با مشکل مواجه شده است لطفا هنگام خرید ، از فیلتر شکن استفاده کنید تا درگاه نمایش داده شود.
_____excellearn_____
🆔 @vba_excel ✍__
🌐 www.excellearn.ir ✍__
🆔 @adm_masoudhosseini ✍__
🎗قسمت دوم طراحی و کدنویسی فرم در اکسل
@vba_excel
yon.ir/xgSk
🌺مژده مژده قسمت 10 به مجموعه اضافه شد🌺
🎗yon.ir/xgSk
🎗 @vba_excel
قسمت اول :
طراحی و کدنویسی فرم در اکسل
🆔 @vba_excel
✍سلام به دوستان خودم، در قسمت اول آموزش بنده یک فرم کاملا ساده طراحی میکنم که شامل چندین بخش به شرح زیر می باشد :
1_ کد پرسنلی
2_نام
3_نام خانوادگی
4_نام پدر
5_آدرس
و جایگاهی برای قرار دادن تصویر پرسنل.
در پایان یک Button ایجاد و با نام ثبت اطلاعات ذخیره میکنم .
دانلود فیلم آموزشی :
yon.ir/xgSk
تصویر فرم نهایی در پایان قسمت اول آموزش 👇👇👇
#form
آموزش کنترل خطاها ( On error Goto Name ) :
دوستان خوبم سلام .🙈🌺
امشب قسمت سوم کنترل خطاهارو آموزش دادم.
این قسمت از آموزش بسیار با اهمیت و کاربردی هست.
در ضمن مجموعه آموزشی طراحی و کدنویسی فرم روی وبسایت قرار گرفت بزودی خبر شروع دوره رو منتشر میکنم.
🎗حسینی
www.excellearn.ir
_____@Vba_Excel_____
🌐Supporters :
@ExcelRoom
@HsExcel_Bot
🌐Official Channel :
@Vba_Excel
اکسل پیشرفته VBA
🌐Official website :
www.excellearn.ir
👇👇👇👇👇
🆔 #Education
آموزش کلیدهای میانبر پرکاربرد(قسمت اول) :
✅ دستور اول
انتخاب ستون سلول فعال
Ctrl + Space
و دستورات Vba :
ActiveCell.EntireColumn.Select
✅دستور دوم
انتخاب ردیف سلول فعال
Ctrl + Shift
و دستورات VBA :
ActiveCell.EntireRow.Select
✅دستور سوم
تغییرات در فونت
Ctrl + Shift + F
و دستورات VBA :
With Selection.Font
.name = "Arial"
.Size = 10
.fontStyle = "Bold"
End with
✅دستور چهارم
درج سلول جدید
Ctrl + Shift + =
و دستورات VBA :
Selection.insert Shift:XlDown
Selection.insert Shift:XlToRight
هزینه این آموزش :
🌹تنها یک صلوات بر محمد و آل محمد
تهیه توسط : کاربر گرامی سرکار خانم موالی
🌺🌺🌺🌺🌺🌺🌺
ادامه دارد ...
_____ www.excellearn.ir_____
📳 @vba_excel
📳 www.excellearn.ir
♻️ @ExcelRoom
♻️ @hsExcel_Bot
🎦 #Practice
خلاصه : با کمک حلقه های Do while و For Each دستوراتی نوشتیم که بزرگترین مقدار ستون A را بیابد و از تک تک مقادیر ستون B کم کند ..
📳 @vba_excel ✅
📴 @excelRoom
📴 @hsExcel_Bot
✅ #Practice
جواب تمرین :
✍دوستان ابتدا دوتا متغیر تعریف میکنیم .
Dim Rng1 As integer
Dim Rng2 As Range
✍متغیر اول جهت پیدا کردن بزرگترین مقدار ستون A و متغیر دوم جهت ایجاد حلقه.
✍دستورات پیدا کردن بزرگترین مقدار ستون A :
Rng1=application.Max(Columns(1))
توجه کنید منظور از
Columns(1)
همون ستون A است.
✍حالا حلقه رو ایجاد میکنیم :
For each Rng2 in Range("B1:B10")
در این قسمت تک تک سلول های B1 تا B10 رو بررسی میکنیم .
Do while Rng2>Rng1
تا وقتی که Rng2 بزرگتر از Rng1 است ( یعنی تا زمانی که نتیجه مقداری مثبت است ) این حلقه را ادامه بده.
Rng2=Rng2 - Rng1
Loop
Next
تمام شد.😏🎗
🎦 به محض وصل شدن اینترنتم کلیپ آموزشی این قسمت رو ارسال میکنم .
نگران نباشید خاصیت نوشتن این هست سطح گیرایی رو کاهش میده .
حسینی🌹🌹
____⚠️excellearn.ir⚠️___
❗️ @vba_excel ✍__
❗️ www.excellearn.ir ✍__
❗️ @excelRoom
❗️ @hsExcel_Bot
🎦 #form
قسمت ششم
طراحی و کدنویسی فرم در اکسل
🔖حجم : 11مگابایت
🔖مدت آموزش : 3 دقیقه
🔖لینک دانلود : yon.ir/xgSk
_____
🆔 @vba_excel
🆔 @adm_masoudhosseini
🎦 #Match
جواب تصویری مسابقه اول
🔖 آموزش محاسبه مالیات حقوق در اکسل (کدنویسی)
🔖مدت آموزش : 3 دقیقه
🔖 حجم : 9 مگابایت
🔖لینک دانلود : yon.ir/2nY6
_____
🆔 @vba_excel
🆔 @adm_masoudhosseini
_____Support_____
🆔 @ExcelRoom
🆔 @HsExcel_Bot
🎁 #Match
✍آموزش :
دوستان هدف از این مسابقه تقویت مهراتهای شما عزیزان است.
✍نحوه ی مسابقه :
تا ساعت 10 شب 1395/01/05 فرصت دارید دستورات درخواستی را به تلگرام بنده ارسال کنید. نفر اولی که دستوراتش صحیح است برنده ی ما خواهد بود.
🆔 @adm_masoudhosseini
⚠️سوال مسابقه :
دستوراتی بنویسید که اگر مقدار سلول A1 :
✅ بین 1 تا 11.500.000 بود ، در سلول B1 " معاف " نوشته شود.
✅ بین 11.500.001 تا 80.500
000 بود ، سلول A1 را در 10درصد ضرب و جواب را در B1 بنویسد.
✅از 80.500.001 تا بی نهایت بود ، سلول A1 را در 20 درصد ضرب و جواب را در سلول B1 بنویسد .
🚸راهنمایی :
از دستور Select Case استفاده کنید.
⛔️لطفا پیام شخصی پیرامون سوال به بنده ندید🙈🌹
_____excellearn____
🆔 @vba_excel
🌐 www.excellearn.ir
🎦 #form
قسمت پنجم
طراحی و کدنویسی فرم در اکسل
🔖حجم : 10مگابایت
🔖مدت آموزش : 3 دقیقه
🔖لینک دانلود : yon.ir/xgSk
⛔️ برای دانلود از فیلترشکن استفاده کنید.
_____
🆔 @vba_excel
🆔 @adm_masoudhosseini
🎦 #form
قسمت چهارم
طراحی و کدنویسی فرم در اکسل
🔖حجم : 9مگابایت
🔖مدت آموزش : 5 دقیقه
🔖لینک دانلود : yon.ir/xgSk
⛔️ برای دانلود از فیلترشکن استفاده کنید.
_____
🆔 @vba_excel
🆔 @adm_masoudhosseini
📗 #Book
فصل اول
ترجمه کتاب Excel VBA Made Easy
با سلام خدمت تمام دوستان گلم ، با کمک شما عزیزان توانستیم کتابی در زمینه برنامه نویسی در محیط اکسل را به زبان فارسی ترجمه کنیم .
قسمت ترجمه شده توسط هرکاربر را به نام آن کاربر ذخیره و ثبت کردم.😘🌺
⛔️ نحوه ی ارسال کتاب فصل به فصل در کانال صورت میگیرد .
ارادتمندم / مسعود حسینی
_____excellearn_____
🆔 @vba_excel ✍__
🌐 www.excellearn.ir ✍__
🆔 @adm_masoudhosseini ✍__
توضیحات :
در قسمت دوم این مجموعه شما با نحوه ی ثبت اطلاعات فرم در اکسل آشنا خواهید شد.
به اینصورت که با کلیک روی Button ثبت اطلاعات ، تمامی اطلاعات شما روی سلول های اکسل ذخیره میگردد.
این قسمت از آموزش از موارد با اهمیت تلقی میشود به همین دلیل با مثالی متنوع توضیح داده ام.
🎗ارادتمند شما / مسعود حسینی
🌐 yon.ir/xgSk 👈لینک دانلود
_____excellearn.ir____
🆔 @adm_masoudhosseini
🆔 @vba_excel
🌐 #form
با توجه به استقبال گرم شما عزیزان قسمت 10 به این مجموعه اضافه شد که مکمل قسمت های قبل می باشد .
🎗دوستان با همان پسورد قدیمی دانلود نمایید .
نظرات شما عزیزان بسیار دلگرم کننده بود که بنده را وادار به ساخت قسمت 10 کرد ( جهت جبران ) .
🎗سایر دوستانی که هنوز اقدام به خرید این مجموعه نکردند دست روی دست نزارند.
@Vba_excel
www.excellearn.ir
سلام خدمت تمامی عزیزان و علاقه مندان به اکسل پیشرفته.😊🌺
امروز مجموعه ی آموزش طراحی و کدنویسی فرمها در اکسل روی وبسایت قرار گرفت.
yon.ir/xgSk
فقط چند نکته را توجه کنید :
⚠️قیمتی که برای این مجموعه در نظر گرفته شده ، مبلغ 2.000 تومان می باشد.
⚠️ دوستانی که در ترجمه کتاب کمک کردند نیاز به خرید ندارند و پسورد به ایمیل هایشان ارسال میشود.
🎗مسعود حسینی :
از دستم ناراحت هستید ؟😔🌺
هدفی که در ذهنم دارم اینه افرادی که در ترجمه کتابها کمک کنند ، مجموعه ها بصورت رایگان در اختیارشان قرار بگیرد بدین ترتیب ما کلی کاربر پیدا میکنیم که آماده همکاری در ترجمه هستند ، از طرفی هم کلی کتاب آموزشی به زبان فارسی در زمینه VBA داریم که با اسم خوده کاربر ثبت میشود.
⚠️یک خواهش هم داشتم ، لطفا این مجموعه رو در فضای مجازی منتشر نکنید.این مجموعه تنها دلیل همکاری بیشتر اعضاء با کانال است🌹
مثل همیشه سعی کردم آموزش بصورت آسون باشه تا براحتی درک و در ذهن ماندگار بشود.
در پایان ..
دوستتون دارم
🎗مسعود حسینی
@adm_masoudhosseini
www.excellearn.ir
@vba_excel
آموزش کنترل خطاها در VBA :
سلام🙈🌺
آماده هستید برای یک آموزش بعد مدتها تنبلی ؟
چیزی در مورد کنترل خطاها تا حالا شنیدید ؟ 😢
یعنی زمانی که خطا در دستورات رخ داد چه عکس العملی انجام بده 😏
بحث ما پیرامون :
1_ on Error goto 0
2_ on Error Resume Next
3_ on Error goto [Name]
______@vba_excel______
⚠️on Error goto 0 :
The first form , on Error Goto 0 is the default mode in VBA .
This indicates that when a run time error occurs VBA should display its standard run time error message box , allowing you to enter the code in debug mode or to terminate the VBA program ...
✍خلاصه ترجمه :
این فرم بصورت پیشفرض برای VBA فعال است.
زمانی که خطایی رخ بدهد ، بصورت خودکار جعبه ای حاوی اطلاعات خطا به همراه دستورات Continue,End,Debug,Help برای شما نمایش داده میشود.
⚠️on Error resume next :
✍ این دستور بسیار خطرناک است
یعنی خطای پیش آمده را نادیده بگیر و عبور کن.
متوجه شدید ؟
کلیپ آموزشی به همراه مثال تقدیم به شما برای درک بیشتر ..
لینک دانلود غیر مستقیم :
yon.ir/IfyR
____@vba_Excel____
_Supporters :
@ExcelRoom
@HsExcel_Bot
_Official Channel :
@vba_excel
_Official website :
www.excellearn.ir
👇👇👇👇