✍ آموزش ( پیدا کردن آخرین ردیف پر ) :
سلام خدمت دوستای گلم 😘🌺
امشب یک آموزش فوق العاااااده کاربردی دارییییییم ( از جمله فرم ها ).

🙈البته دارم بحث رو تو حاشیه میبرم چون نتونستم مطلب آماده کنمم..

پیدا کردن آخرین ردیف پر ، یکی از مهمترین و پرکاربردترین دستورات VBA است(مثالهای متنوع به زودی).

بسم الله ..
یک ماژول ایجاد کنید .
Dim Rng As integer

✍یک متغیر بنام Rng از نوع عدد داریم.

Rng = Cells(Rows.Count,"A").End(xlup).Row

توضیحات : 😎 دقت کنید ..

دستور (ستون , ردیف )Cells تشکیل شده است .
قبول ؟
حالا منظورم از :
Cells(Rows.Count,"A")
چیه ؟
یعنی تمام ردیف های ستون A . درسته ؟
حالا منظور از End(xlUp).Row
چیه ؟
همون Ctrl+Up هست.
یعنی کنترل رو بگیر و یکبار جهت نمای بالا رو بزن 😉
تا اینجا آخرین سلول پر پیدا شد.حالا برای نمایش از msgbox استفاده میکنیم.
Msgbox Rng
و در پایان ماژول را میبندیم.(تمام)

🎗با تشکر از استاد احسان افشار بابت راهنمایی اینجانب
https://telegram.me/joinchat/BWuoXD1YMWEfBY4Johz-Vw
________
@ExcelRoom
@HsExcel_Bot
✍برنامه نویسی در اکسل
@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
👇👇👇👇

آموزش کنترل خطاها ( On error Goto Name ) :
دوستان خوبم سلام .🙈🌺
امشب قسمت سوم کنترل خطاهارو آموزش دادم.
این قسمت از آموزش بسیار با اهمیت و کاربردی هست.
در ضمن مجموعه آموزشی طراحی و کدنویسی فرم روی وبسایت قرار گرفت بزودی خبر شروع دوره رو منتشر میکنم.
🎗حسینی
www.excellearn.ir

_____@Vba_Excel_____
🌐Supporters :
@ExcelRoom
@HsExcel_Bot
🌐Official Channel :
@Vba_Excel
اکسل پیشرفته VBA
🌐Official website :
www.excellearn.ir
👇👇👇👇👇

سلام خدمت تمامی عزیزان و علاقه مندان به اکسل پیشرفته.😊🌺
امروز مجموعه ی آموزش طراحی و کدنویسی فرمها در اکسل روی وبسایت قرار گرفت.
yon.ir/xgSk

فقط چند نکته را توجه کنید :
⚠️قیمتی که برای این مجموعه در نظر گرفته شده ، مبلغ 2.000 تومان می باشد.
⚠️ دوستانی که در ترجمه کتاب کمک کردند نیاز به خرید ندارند و پسورد به ایمیل هایشان ارسال میشود.

🎗مسعود حسینی :
از دستم ناراحت هستید ؟😔🌺
هدفی که در ذهنم دارم اینه افرادی که در ترجمه کتابها کمک کنند ، مجموعه ها بصورت رایگان در اختیارشان قرار بگیرد بدین ترتیب ما کلی کاربر پیدا میکنیم که آماده همکاری در ترجمه هستند ، از طرفی هم کلی کتاب آموزشی به زبان فارسی در زمینه VBA داریم که با اسم خوده کاربر ثبت میشود.

⚠️یک خواهش هم داشتم ، لطفا این مجموعه رو در فضای مجازی منتشر نکنید.این مجموعه تنها دلیل همکاری بیشتر اعضاء با کانال است🌹
مثل همیشه سعی کردم آموزش بصورت آسون باشه تا براحتی درک و در ذهن ماندگار بشود.

در پایان ..
دوستتون دارم

🎗مسعود حسینی
@adm_masoudhosseini
www.excellearn.ir
@vba_excel

قسمت اول :
طراحی و کدنویسی فرم در اکسل
🆔 @vba_excel

✍سلام به دوستان خودم، در قسمت اول آموزش بنده یک فرم کاملا ساده طراحی میکنم که شامل چندین بخش به شرح زیر می باشد :

1_ کد پرسنلی
2_نام
3_نام خانوادگی
4_نام پدر
5_آدرس

و جایگاهی برای قرار دادن تصویر پرسنل.
در پایان یک Button ایجاد و با نام ثبت اطلاعات ذخیره میکنم .

دانلود فیلم آموزشی :
yon.ir/xgSk

تصویر فرم نهایی در پایان قسمت اول آموزش 👇👇👇
#form

🎗طراحی و کدنویسی فرم در اکسل
@vba_excel

🌺مژده مژده قسمت 10 به مجموعه اضافه شد🌺
🎗yon.ir/xgSk
🎗 @vba_excel

با توجه به استقبال گرم شما عزیزان قسمت 10 به این مجموعه اضافه شد که مکمل قسمت های قبل می باشد .

🎗دوستان با همان پسورد قدیمی دانلود نمایید .
نظرات شما عزیزان بسیار دلگرم کننده بود که بنده را وادار به ساخت قسمت 10 کرد ( جهت جبران ) .

🎗سایر دوستانی که هنوز اقدام به خرید این مجموعه نکردند دست روی دست نزارند.

@Vba_excel
www.excellearn.ir

🎗قسمت دوم طراحی و کدنویسی فرم در اکسل
@vba_excel
yon.ir/xgSk

توضیحات :
در قسمت دوم این مجموعه شما با نحوه ی ثبت اطلاعات فرم در اکسل آشنا خواهید شد.
به اینصورت که با کلیک روی Button ثبت اطلاعات ، تمامی اطلاعات شما روی سلول های اکسل ذخیره میگردد.
این قسمت از آموزش از موارد با اهمیت تلقی میشود به همین دلیل با مثالی متنوع توضیح داده ام.
🎗ارادتمند شما / مسعود حسینی

🌐 yon.ir/xgSk 👈لینک دانلود

_____excellearn.ir____
🆔 @adm_masoudhosseini
🆔 @vba_excel
🌐 #form

🎦 #form
قسمت سوم :
در قسمت سوم مجموعه طراحی و کدنویسی فرم در اکسل شما خواهید آموخت :

1_ الزام به تکمیل تمام فیلدهای فرم
2_ کد پرسنلی حتما بصورت عدد درج شود.

مشخصات دانلود :
🎗 حجم 12 مگابایت
🎗 زمان آموزش 5 دقیقه
🎗 لینک دانلود : yon.ir/xgSk
⛔️ اخیرا درگاه پرداخت اینترنتی با مشکل مواجه شده است لطفا هنگام خرید ، از فیلتر شکن استفاده کنید تا درگاه نمایش داده شود.


_____excellearn_____
🆔 @vba_excel ✍__
🌐 www.excellearn.ir ✍__
🆔 @adm_masoudhosseini ✍__

📗 #Book

فصل اول
ترجمه کتاب Excel VBA Made Easy

با سلام خدمت تمام دوستان گلم ، با کمک شما عزیزان توانستیم کتابی در زمینه برنامه نویسی در محیط اکسل را به زبان فارسی ترجمه کنیم .

قسمت ترجمه شده توسط هرکاربر را به نام آن کاربر ذخیره و ثبت کردم.😘🌺
⛔️ نحوه ی ارسال کتاب فصل به فصل در کانال صورت میگیرد .
ارادتمندم / مسعود حسینی

_____excellearn_____
🆔 @vba_excel ✍__
🌐 www.excellearn.ir ✍__
🆔 @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
قسمت چهارم
طراحی و کدنویسی فرم در اکسل
🔖حجم : 9مگابایت
🔖مدت آموزش : 5 دقیقه
🔖لینک دانلود : yon.ir/xgSk
⛔️ برای دانلود از فیلترشکن استفاده کنید.
_____
🆔 @vba_excel
🆔 @adm_masoudhosseini

📚 #book
کتابهای آموزشی VBA
🔖دو کتاب به آرشیو سایت اضافه شد.
لینک دانلود :

🌐 http://excellearn.ir/?p=196

_____Excellearn.ir_____
🆔 @vba_excel
🆔 @adm_masoudhosseini

🎦 #form
قسمت پنجم
طراحی و کدنویسی فرم در اکسل
🔖حجم : 10مگابایت
🔖مدت آموزش : 3 دقیقه
🔖لینک دانلود : yon.ir/xgSk
⛔️ برای دانلود از فیلترشکن استفاده کنید.
_____
🆔 @vba_excel
🆔 @adm_masoudhosseini