Function ColumnLetter(ColumnNumber As Integer) As String
If ColumnNumber > 26 Then

ColumnLetter = Chr(Int((ColumnNumber - 1) / 26) + 64) & _
Chr(((ColumnNumber - 1) Mod 26) + 65)
Else

ColumnLetter = Chr(ColumnNumber + 64)
End If
End Function

🚸 این تابع با گرفتن شماره ی ستون ، نام ستون را نمایش میدهد .

#Sarbazi_Part14
______Visual Basic for Applications
🈹 @vba_excel ✍____
🈹 www.excellearn.ir ✍___
🈹 @excelRoom
🈹 @hsExcel_Bot
🈹 https://telegram.me/joinchat/B4zCAz_Av3O8DSXaPDIb7w

خرید پستی ۷ مجموعه آموزشی ویژوال بیسیک در اکسل
yon.ir/T9jf
__________Visual Basic for applications
🆔 @vba_excel ✍___
🆔 www.excellearn.ir ✍___

عدم نمایش اعداد در تکست باکسها به منظور افزایش امنیت به دو روش قابل انجام است : ( نمایش اعداد بصورت ستاره ***)

روش اول :

Private Sub TextBox2_Change()
TextBox1.PasswordChar = "*"
End Sub

روش دوم :
روی تکست باکس کلیک کنید ، Categorized از قسمت Properties و سپس مقدار PasswordChar را برابر با * قرار دهید .

#Sarbazi_Part15
______Visual Basic for Applications
🈹 @vba_excel ✍____
🈹 www.excellearn.ir ✍___
🈹 @excelRoom
🈹 @hsExcel_Bot
🈹 https://telegram.me/joinchat/B4zCAz_Av3O8DSXaPDIb7w

با استفاده از دستورات زیر ، اقلام تکراری به رنگ قرمز تغییر میکنند .

Sub FindDuplicateCells()
cellValueOne = ActiveCell.Value
cellValueTwo = ActiveCell.Offset(1, 0).Value
Offsetcount = 1
Do While ActiveCell <> ""
If cellValueOne = cellValueTwo Then
ActiveCell.Offset(Offsetcount, 0).Interior.Color = RGB(255, 0, 0)
Offsetcount = Offsetcount + 1
cellValueTwo = ActiveCell.Offset(Offsetcount, 0).Value
Else
ActiveCell.Offset(Offsetcount, 0).Select
cellValueOne = ActiveCell.Value
cellValueTwo = ActiveCell.Offset(1, 0).Value
Offsetcount = 1
End If
Loop
End Sub


#Sarbazi_Part17
______Visual Basic for Applications
🈹 @vba_excel ✍____
🈹 www.excellearn.ir ✍___
🈹 @excelRoom
🈹 @hsExcel_Bot
🈹 https://telegram.me/joinchat/B4zCAz_Av3O8DSXaPDIb7w

⚠️افزونه ی توابع تاریخ شمسی به همراه آموزش قدم به قدم نصب ، معرفی توابع و نحوه ی استفاده از آن .
+ نمونه فایل تمرینی


#Sarbazi_Part18
______Visual Basic for Applications
🈹 @vba_excel ✍____
🈹 www.excellearn.ir ✍___
🈹 @excelRoom
🈹 @hsExcel_Bot
🈹 https://telegram.me/joinchat/B4zCAz_Av3O8DSXaPDIb7w

⚠️گاهی اوقات نیاز دارید که فاصله ی بین دو تاریخ را فیلتر کنید .
نمونه فایلی تقدیم حضورتان میگردد .

#Sarbazi_Part19
______Visual Basic for Applications
🈹 @vba_excel ✍____
🈹 www.excellearn.ir ✍___
🈹 @excelRoom
🈹 @hsExcel_Bot
🈹 https://telegram.me/joinchat/B4zCAz_Av3O8DSXaPDIb7w

⚠️با استفاده از دستورات زیر نام شیت از سلول A1 پیروی میکند .
این دستور توسط کاربر محترم جناب اقای یگانه در گروه پرسش و پاسخ مطرح شده است .

Sub Worksheet_Change (ByVal mhy As Range)

Sheet1.Name = Sheet1.Range("A1").Value

End Sub


#Sarbazi_Part20
______Visual Basic for Applications
🈹 @vba_excel ✍____
🈹 www.excellearn.ir ✍___
🈹 @excelRoom
🈹 @hsExcel_Bot
🈹 https://telegram.me/joinchat/B4zCAz_Av3O8DSXaPDIb7w

#Education
ایجاد فهرست اتوماتیک
سلام خدمت دوستای خودم 😍❤️
اولین کلیپ بعده ۵۰ روز ، چقدر زود گذشت عمر ..
امیدوارم حال تک تکتون خوب باشه و تشکر میکنم از اینکه با وجودتون بهم دلگرمی و انگیزه میدید .
ایشالله برنامه های جدیدی دارم مخصوصا برای افرادی که شدیدا علاقه به ساخت نرم افزار دارند .

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

______Visual Basic for Applications
🈹 @vba_excel ✍____
🈹 www.excellearn.ir ✍___
🈹 @excelRoom
🈹 @hsExcel_Bot
🈹 https://telegram.me/joinchat/B4zCAz_Av3O8DSXaPDIb7w

🔖 @vba_excel
🔖 www.excellearn.ir

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

#Sarbazi_Part21
______Visual Basic for Applications
🈹 @vba_excel ✍____
🈹 www.excellearn.ir ✍___
🈹 @excelRoom
🈹 @hsExcel_Bot
🈹 https://telegram.me/joinchat/B4zCAz_Av3O8DSXaPDIb7w

#Education
درج اتوماتیک تاریخ
دوستان سلام🙏😍🌷 ، اول از هرچیزی عذرخواهی میکنم که مطالب کمی از نظم و ترتیب آموزشی خارج شده است ، به امید خدا کانال جدید در راه است ..
امیدوارم آموزش امشب براتون جذاب و مفید باشد 🌺🌺🌺
ارادتمند شما
مسعود حسینی

______Visual Basic for Applications
🈹 @vba_excel ✍____
🈹 www.excellearn.ir ✍___
🈹 @excelRoom
🈹 @hsExcel_Bot
🈹 https://telegram.me/joinchat/B4zCAz_Av3O8DSXaPDIb7w

درج اتوماتیک تاریخ با استفاده از حلقه ها
🈳 @vba_excel ✍__
🈳 www.excellearn.ir ✍__

#KelidMiyanBar
پرکاربردترین کلیدهای میانبر اکسل که شما را یک کاربر مسلط به اکسل میکند🌺🌺
هزینه این آموزش : صلوات بر محمد و آل محمد 🌷🌷🌷

🔸CTRL+PGUP🔻
این کلید میانبر اکسل شیت بعدی اکسل رو فعال میکنه.

🔸CTRL+PGDOWN 🔻
این کلید میانبر شیت قبلی اکسل رو فعال میکنه.

🔸⬆️⬇️⬅️➡️ +CTRL 🔻
ترکیب کلید کنترل با هر یک از چهار جهت اصلی باعث میشه به آخرین بخش اطلاعات در جهتی که از کلیدش استفاده کردید برید. به عنوان مثال اگر شما 10 سطر اطلاعات داشته باشید و یکی از سلول های سطر اول فعال باشه با استفاده از ترکیب کلید کنترل و جهت پایین به سطر دهم خواهید رفت. این کلیدها زمانی که حجم اطلاعات شما خیلی زیاده و برای رسیدن به اول یا آخر اطلاعات باید کلی اسکرول کنید خیلی مفیده.

🔸CTRL+HOME🔻
این کلید میانبر باعث میشه تا اولین سلول شیت یعنی سلول A1 فعال بشه.

🔸CTRL+1🔻
این کلید میانبر اکسل پنجره مخصوص فرمت کردن سلول رو نمایش میده.

🔸CTRL+SHIFT+L🔻
این کلید میانبر ابزار فیلتر رو برای اطلاعات شیت اکسل فعال میکنه.

🔸’+CTRL🔻
این کلید میانبر فرمول سلول بالایی رو در سلولی که انتخاب کردیم کپی میکنه.

🔸CTRL+T🔻
این کلید میانبر محدوده ای رو که در اکسل انتخاب کردیم به جدول یا همون TABLE تبدیل میکنه.

🔸CTRL+S🔻
همونطوری که اکثر شما حتماً میدونید این یکی برای ذخیره کردن فایل استفاده میشه.

🔸CTRL+N🔻
این کلید میانبر یک ورکبوک جدید باز میکنه.

🔸CTRL+O🔻
این کلید میانبر پنجره ای رو برای باز کردن فایل اکسل باز میکنه.

🔸CTRL+W🔻
این کلید میانبر اکسل ورکبوک فعلی رو که در حال کار با اون هستیم میبنده.

🔸CTRL+F🔻
با استفاده از این کلید میانبر پنجره جستجو در اکسل باز میشه.

🔸F9🔻
این کلید باعث میشه که محاسبات شیت، PIVOT TABLE یا DATA TABLE ما مجددا انجام بشه. زمانی که ما نحوه محاسبات خودمون رو دستی قرار میدیم این کلید کاربرد زیادی داره.

🔸ALT+F11🔻
این کلید میانبر اکسل پنجره ویرایشگر Visual Basic رو که برای ماکرونویسی مورده استفاده قرار میگیره باز میکنه.

🔸CTRL+SPACE🔻
با استفاده از این کلید میانبر میتونیم کل ستونی رو که در حال ویرایش یکی از سلول های اون هستیم انتخاب کنیم.

🔸SHIFT+SPACE🔻
با استفاده از این کلید میانبر میتونیم کل سطری رو که در حال ویرایش یکی از سلول های اون هستیم انتخاب کنیم.

🔸ALT+=🔻
این کلید میانبر برای استفاده از قابلیت AUTOSUM اکسل استفاده میشه. اگر تعدادی سلول رو انتخاب کنبم و از این کلید میانبر استفاده کنیم اکسل به صورت خودکار جمع مقادیر اونها در انتهای سلول ها اضافه میکنه.

🔸CTRL+B🔻
این کلید میانبر اکسل برای ضخیم کردن یا همون BOLD کردن نوشته های سلول استفاده میشه.

🔸CTRL+F1🔻
با استفاده از این کلید ترکیبی میتونیم ریبون یا همون نوار ابزار قسمت بالای اکسل رو مخفی یا ظاهر کنیم. با مخفی کردن ریبون تعداد سطرهایی که میتونیم یکجا ببینیم افزایش پیدا میکنه و میتونیم بهتر روی کار با فایلمون تمرکز کنیم.

🔸CTRL+END🔻
با استفاده از این کلید ترکیبی میتونیم آخرین سلول حاوی اطلاعات رو انتخاب کنیم.

🔸ALT+ENTER🔻
با استفاده از این کلید میتونیم زمانی که میخوایم داخل یک سلول چند خط مطلب بنویسیم بریم به خط بعد.

🔸CTRL+D🔻
این کلید ترکیبی فرمول اولین سلول محدوده انتخاب شده رو در تمام سلول های پایینتر کپی میکنه.

🔸CTRL+SHIFT+V🔻
این کلید پنجره Paste Special رو باز میکنه که برای Paste کردن محتویات اطلاعات حافظه موقت با فرم های خاص استفاده میشه. مثلاً زمانی که میخوایم به جای فرمول، مقدار سلول Paste بشه.

🔸CTRL+SHIFT+END🔻
این کلید ترکیبی از سلول فعلی تا آخرین سلول شیت رو انتخاب میکنه.

🔸CTRL+SHIFT+%🔻
این کلید ترکیبی فرمت سلولهای انتخابی رو به فرمت درصد تغییر میده.

🔸CTRL+0🔻
با استفاده از این کلید میانبر اکسل، ستون یا ستون های انتخاب شده مخفی و ظاهر میشن.

🔸CTRL+9🔻
با استفاده از این کلید میانبر، سطر یا سطرهای انتخاب شده مخفی و ظاهر میشن.

❌ انتشار این مطلب آموزشی حتی بدون ذکر منابع فقط با درج 🌺صلوات بر محمد و آل محمد🌺 جایز و اخلاقی است .

______Visual Basic for Applications
✴️ @vba_excel
✴️ www.excellearn.ir
✴️ @excelRoom
✴️ @hsExcel_Bot
✴️ https://telegram.me/joinchat/B4zCAz_Av3O8DSXaPDIb7w

دانلود کتاب فارسی آموزش مقدماتی ویژوال بیسیک در اکسل
این کتاب شامل تمام نوشته های داخل کانال می باشد که توسط کاربر محترم جناب اقای مهدی خدادادی تهیه شده است .
🌺🌺 صلوات بر محمد و آل محمد


______Visual Basic for Applications
🈹 @vba_excel ✍____
🈹 www.excellearn.ir ✍___
🈹 @excelRoom
🈹 @hsExcel_Bot
🈹 https://telegram.me/joinchat/B4zCAz_Av3O8DSXaPDIb7w

﷽
💡 #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

______Visual Basic for Applications
🈹 @vba_excel ✍____
🈹 www.excellearn.ir ✍___
🈹 @excelRoom
🈹 @hsExcel_Bot
🈹 https://telegram.me/joinchat/B4zCAz_Av3O8DSXaPDIb7w

کلیپ آموزش AutoFilterMode در VBA
🛍 لینک خرید :
🈳 http://yon.ir/MVV6
🔖قیمت : ۵۰۰ تومان
🔖توضیحات : آموزش قدم به قدم کدنویسی عمل فیلترینگ
🔖مدرس : مسعود حسینی