دانلود مجموعه از کد های مفید برای ماکرو اکسل

دانلود مجموعه از کد های مفید برای ماکرو اکسل

در دنیای برنامه‌نویسی VBA برای اکسل، همیشه این دغدغه وجود دارد که برای هر پروژه جدید مجبور نباشیم دوباره چرخ را اختراع کنیم. ویتوش، نویسنده وبلاگ VitoshAcademy، سال‌ها پیش این ایده را داشت که تمام کدهای مفید و پرتکرار خود را در یک فایل شخصی (Personal.xlsb) جمع‌آوری کند. نتیجه این تلاش، مخزن گیت‌هابی به نام VBA_personal شد.

الگوی اولیه (Boilerplate) یک فایل باینری اکسل با کد VBA درون آن است که می‌تواند به عنوان یک الگوی اولیه برای هر پروژه جدید VBA استفاده شود. ایجاد یک الگوی اولیه که به عنوان نقطه شروع برای هر پروژه VBA استفاده شود، مدت‌ها در ذهن من بود.

مجموعه کد های این بسته به شرح زیر است:

• ConstantsAndPublic

  • این ماژول لیستی از ثابت‌های عمومی استفاده شده در کل پروژه را ارائه می‌دهد. همچنین شامل یک متغیر عمومی است که برای ساخت گزارش خطا استفاده می‌شود.

• ExcelAdditional

  • رویه‌های مفید مختلفی اینجا هستند. آن‌ها تاکنون به جای دیگری تعلق ندارند:

    • FreezeRow (ثابت‌نگه‌داشتن ردیف)

    • UnfreezeRows (آزادکردن ردیف‌ها)

    • SumArray (جمع آرایه)

    • ChangeCommas (تغییر کاماها)

    • BubbleSort (مرتب‌سازی حبابی)

    • IsArrayAllocated (تخصیص یافتن آرایه)

    • RangeIsZeroOrEmpty (صفر یا خالی بودن محدوده)

    • MakeRandom (تصادفی‌سازی)

    • IsRangeHidden (مخفی بودن محدوده)

    • ColumnNumberToLetter (تبدیل شماره ستون به حرف)

    • IsValueInArray (وجود مقدار در آرایه)

    • Rgb2HtmlColor (تبدیل RGB به رنگ HTML)

    • NamedRangeExists (وجود محدوده نام‌گذاری شده)

    • GetRgb (گرفتن RGB)

    • CopyValues (کپی مقادیر)

    • OnEnd (در پایان)

    • OnStart (در شروع)

• ExcelDates

  • تاریخ‌ها همیشه برای کاربران اکسل دشوار بوده‌اند. این موارد برای مدت طولانی تست شده‌اند.

    • GetLastDayOfMonth (گرفتن آخرین روز ماه)

    • GetFirstDayOfMonth (گرفتن اولین روز ماه)

    • AddMonths (افزودن ماه‌ها)

    • AddMonthsAndGetFirstDate (افزودن ماه‌ها و گرفتن اولین تاریخ)

    • DateDiffInMonths (تفاوت تاریخ بر حسب ماه)

• ExcelFormatCell

  • قالب‌بندی یک سلول در اکسل به روش‌های مختلفی قابل انجام است. این‌ها چند روش سریع هستند:

    • FormatAsDate (قالب‌بندی به عنوان تاریخ)

    • FormatAsPercent (قالب‌بندی به عنوان درصد)

    • FormatAsCurrency (قالب‌بندی به عنوان ارز)

    • FormatAsEurProM2 (قالب‌بندی به عنوان یورو بر متر مربع)

    • FormatRedAndBold (قالب‌بندی قرمز و پررنگ)

    • WhiteRows (ردیف‌های سفید)

    • WhiteCell (سلول سفید)

    • FormatFontColorToGrey (قالب‌بندی رنگ فونت به خاکستری)

• ExcelLastThings

  • آخرین ردیف، آخرین ستون و غیره... در اکسل هنگامی که با VBA کار می‌کنید، ضروری هستند. مطمئن شوید که آگاه هستید برخی از کدها محدوده‌های مخفی را نادیده می‌گیرند:

    • LastColumn (آخرین ستون)

    • LastRow (آخرین ردیف)

    • LastUsedColumn (آخرین ستون استفاده شده)

    • LastUsedRow (آخرین ردیف استفاده شده)

    • LocateValueRow (مکان‌یابی ردیف مقدار)

    • LocateValueCol (مکان‌یابی ستون مقدار)

    • Increment (افزایش)

    • Decrement (کاهش)

• ExcelPrintToNotepad

  • چاپ در یک فایل .txt قابلیتی است که همه به آن نیاز دارند. فایل در مسیر ThisWorkbook.Path & "\Info folder" قرار می‌گیرد.

    • PrintToNotepad (چاپ در دفترچه یادداشت)

    • CodifyTime (کدگذاری زمان)

    • MakeAllValues (ساخت همه مقادیر)

• ExcelStructure

  • تغییرات در ساختار اکسل در اینجا یافت می‌شود. محدوده‌های نام‌گذاری شده، چاپ PDFها، کار با نظرات، سبک‌ها، بازنشانی و بازکردن قفل موارد در اینجا یافت می‌شوند.

    • LockScroll (قفل پیمایش)

    • StyleKiller (حذف‌کننده سبک)

    • DeleteName (حذف نام)

    • CoverRange (پوشش محدوده)

    • PrintActiveSheetPDF (چاپ برگه فعال PDF)

    • PrintPage (چاپ صفحه)

    • DeleteDrawingObjects (حذف اشیاء ترسیمی)

    • UnhideAll (نمایش همه)

    • UnprotectAll (محافظت‌نکردن از همه)

    • HideNeededWorksheets (مخفی‌کردن برگه‌های مورد نیاز)

    • AddCommentToSelection (افزودن نظر به انتخاب)

    • PrintArray (چاپ آرایه)

    • PrintAllNames (چاپ همه نام‌ها)

    • DeleteAllNames (حذف همه نام‌ها)

    • DeleteCommentInSelection (حذف نظر در انتخاب)

    • SelectMeA1RangeEverywhere (انتخاب محدوده A1 در همه جا)

    • HideShowComments (مخفی/نمایش نظرات)

    • ResetAndUnlock (بازنشانی و بازکردن قفل)

    • EnableMySaves (فعال‌سازی ذخیره‌سازی‌های من)

    • DisabledCombination (ترکیب غیرفعال)

    • DisableShortcutsAndSaves (غیرفعال‌سازی میانبرها و ذخیره‌سازی‌ها)

• ExcelVBE

  • اینجا مراقب باشید. به طور کلی، این می‌تواند خطرناک باشد، زیرا یک زیربرنامه به نام ImportModules دارد. این زیربرنامه همه ماژول‌ها را از یک پوشه مشخص به یک کتاب کار مشخص وارد می‌کند. "مشکل" اینجاست که قبل از وارد کردن آن‌ها، همه ماژول‌های دیگر را در آنجا حذف می‌کند. قبل از استفاده از هر یک از زیربرنامه‌های آنجا، مطمئن شوید که می‌دانید چه می‌کنید.

    • PrintAllCode (چاپ همه کدها)

    • PrintAllContainers (چاپ همه ظروف)

    • ListProcedures (فهرست رویه‌ها)

    • ExportModules (خروجی ماژول‌ها)

    • GetFolderOnDesktopPath (گرفتن مسیر پوشه روی دسکتاپ)

    • CreateFolderOnDesktop (ایجاد پوشه روی دسکتاپ)

    • ImportModules (وارد کردن ماژول‌ها)

    • DeleteAllVba (حذف همه VBAها)

• FormExample

• FormSummaryPresenter

• FrmExample

• FrmInfo

  • چهار مورد بالا با هم ترکیب شده‌اند. برای اجرای فرم، "ShowMainForm" را فراخوانی کنید. بقیه کارها را انجام می‌دهد. فرم‌ها مطابق مقاله اینجا ساخته شده‌اند - userform عالی.

• tblInput (ورودی)

  • یک زیربرنامه برای رویداد selection_change در این یکی وجود دارد. زوم (بزرگنمایی) را بررسی می‌کند.

• tblSettings (تنظیمات)

  • در این یکی هیچ چیز نیست. به طور پیش‌فرض xlVeryHidden است. ایده آن این است که برخی داده‌ها را درون خود قرار دهد و از داده‌های موجود در ConstantsAndPublic جلوگیری کند.

• TddMain

• TddSpecDefinition

• TddSpecExpectation

• TddSpecInlineRunner

• TddSpecSuite

  • این ۵ ماژول و کلاس یک چارچوب هستند که از اینجا گرفته شده‌اند، با تغییرات جزئی. TddMain جایی است که تست‌ها قرار دارند.

• VersionsAbout

  • خب، این #VBA است. پروژه‌های زیادی دیده‌ام که نسخه‌بندی درون یک ماژول پنهان شده است. این احتمالاً دوباره رویه خوبی نیست! اما این‌ها آنجا می‌مانند.

• xl_main

  • Workbook_BeforeClose (قبل از بسته شدن کتاب کار)

  • Workbook_BeforeSave (قبل از ذخیره کتاب کار)

  • Workbook_NewSheet (برگه جدید کتاب کار)

  • Workbook_Open (باز شدن کتاب کار)

چگونه استفاده کنیم؟
فایل را دانلود کرده و باز کنید. می‌توانید مستقیماً از کدهای آماده داخل آن در پروژه خود استفاده کنید یا اگر رویه‌ای نظرتان را جلب کرد، آن را کپی کنید. توجه داشته باشید که ماژول ExcelVBE ابزارهای قدرتمندی برای مدیریت خودکار ماژول‌ها دارد،

برای شما کاربران عزیز پیشنهاد دانلود داده شود.