کد ویژوال بیسیک درج خودکار فهرست
یکی از مواردی که جذابیت ویژه ای به فایلهای شما میدهد ایجاد فهرست برای آنهاست. منظور از فهرست (نه مثل فهرست ورد) این است که اسامی همه (یا برخی از) برگههای اکسل رو در برگه اول قرار دهیم. البته شرط فهرست بودن به این است که با کلیک روی هر نام به همان برگه مربوطه برویم
اما هرچه تعداد برگههای موجود در یک فایل بیشتر میشود، درج فهرست برای آن از ضرورت بیشتری برخوردار است و البته با افزایش این ضرورت درجه سختی درج فهرست نیز افزایش مییابد. یعنی شما اگر ۵۰ برگه در یک فایل دارید و میخواهید برای فایل خود فهرست ایجاد کنید، باید اسامی تک تک برگه ها را تایپ نموده و لینک دهید. این کار زمان زیادی از شما خواهد گرفت.
یک روش برای درج فهرست بصورت خودکار در فایلهای شما استفاده از کد VBA زیر است:
Sub CreateLinksToAllSheets() Dim sh As Worksheet Dim cell As Range For Each sh In ActiveWorkbook.Worksheets If ActiveSheet.Name <> sh.Name Then ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "'" & sh.Name & "'" & "!A1", TextToDisplay:=sh.Name ActiveCell.Offset(1, 0).Select End If Next sh End Sub
درباره حسین صابری
عضو هیئت علمی دانشگاه آزاد - ارشد حسابداری (دانشجوی دکتری حسابداری) - کارشناس رسمی قوه قضاییه (حسابداری و حسابرسی) - برنامه نویس و مدرس کامپیوتر
نوشته های بیشتر از حسین صابریمطالب زیر را حتما مطالعه کنید
ساخت تابع TEXTJOIN اکسل با VBA
ما در این آموزش قصد نداریم که به این توابع بپردازیم دلیل ما از این کار این است که اغلب کاربران اکسل نسخه آفیس 365 را ندارند و قطعا از امکانات آن محروم هستند.اما به جای این توابع ما می خواهیم یاد بگیریم که چگونه با ضبط ماکرو این کار ها را انجام دهیم و همچنین خودمان یک تابع شخصی بسازیم که عملیات تابع TEXTJOIN را برای ما انجام دهدبرای یاد گرفتن این موضوع نیاز به دانش برنامه نویسی نداریم و با چند دستور ساده یک تابع می سازیم و از کاربرد آن در عملیات روزانه مان لذت خواهیم برد.
Max
این تابع از بین ورودیهای دریافت شده، بزرگترینورودی را در خروجی نمایش میدهد. بنابراین خروجی این تابع نیز از نوع عددی است. بهعبارتدیگر خروجی این تابع عبارت است از بزرگترین عدد از بین اعداد وارد شده در ورودیهای Number1…Number255.
تابع افزوده برای محاسبه جمع سلولهای رنگی
یک نمونه کد vba برای محاسبه جمع سلول هایی که رنگ خاصی دارند.
ماکرو جهت تهیه لیست فایلهای یک پوشه
جمع اعداد بر حسب رنگ فونت سلولها در اکسل
فرمول جمع اعداد بر اساس رنگ فونت آنها
دیدگاهتان را بنویسید