تغيير نام شيت بر اساس مقدار سلول اکسل +vba
- آخرین بروزرسانی: 31 اردیبهشت 1402
تغيير نام شيت بر اساس مقدار سلول اکسل
تغییر نام شیت یکی از ویژگیهای مهم در نرمافزار اکسل است که به کاربر امکان میدهد تا به سادگی نام شیتها را به صورت دلخواه خود تغییر دهد. اما در برخی موارد، تعیین نام مناسب برای شیت میتواند چالش برانگیز باشد، به خصوص اگر کاربر با تعداد زیادی شیت در یک فایل اکسل سر و کار دارد.
در این مواقع، ایجاد یک ماکرو برای تغییر نام شیت بصورت خودکار بر اساس مقدار یک سلول، میتواند بسیار کاربردی باشد. این کار با استفاده از زبان برنامهنویسی VBA (Visual Basic for Applications) در اکسل قابل انجام است.
تغيير نام شيت بر اساس مقدار سلول اکسل
برای انجام این کار، کدی را در ویرایشگر VBA اکسل وارد میکنیم که هر زمان که انتخاب سلولها در شیت تغییر کند، فراخوانی میشود و نام شیت را بصورت خودکار بر اساس مقدار سلول مشخص شده، تغییر میدهد.
با این روش، کاربر میتواند با وارد کردن مقدار مناسب در سلول مربوطه، نام شیت را به راحتی و به صورت خودکار تغییر دهد و نیازی به دستی وارد کردن نام جدید برای شیت نخواهد داشت.
در نهایت، این روش به کاربر اجازه میدهد تا به سرعت و با کمترین تلاش، نام شیتها را با مقادیر موجود در سلولهای مختلف، هماهنگ کند و از ایجاد خطای احتمالی در تغییر نام شیت به دلیل تعداد زیادی از آنها جلوگیری کند.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 'تغيير نام شيت بصورت خودکار بر اساس مقدار سلول اکسل 'https://academyruhollah.com/ Set Target = Range("ab1") If Target = "" Then Exit Sub On Error GoTo Badname ActiveSheet.Name = Left(Target, 31) Exit Sub Badname: MsgBox "Please revise the entry in A1." & Chr(13) _ & "It appears to contain one or more " & Chr(13) _ & "illegal characters." & Chr(13) Range("A1").Activate End Sub |
هیچ دیدگاهی برای این نوشته ثبت نشده است.