لینک کوتاه : https://en.magicfile.ir/?p=2143
دانلود مجموعه از نمونه کد های برنامه نویسی شده برای فایل اکسل ( کتابخانه ماکرو اکسل VBA )
Sample code programmed for Excel file (Macro Excel VBA library) today for you dear users in a collection ready to download that you can easily use in your Excel files
مجموعه کد های که در این فایل قرار گرفته اند به صورت زیر می باشد
1) WorksheetExists
2) CopyRowAboveAndInsert
3) ProperX
این دقیقاً مانند عملکرد مناسب است اما در VBA نیز کار می کند
"این حرف حرف اول را در رشته رشته ورودی می زند
4) Email_part
'قسمت انتخاب شده از آدرس ایمیل را برمی گرداند
5) current_user
'شناسه کاربری کاربر فعلی وارد شده را دریافت می کند
6) current_user_domain
'دامنه کاربری کاربر فعال فعلی وارد شده را دریافت می کند
7) get_user_info
'این تابع برای اطلاعات در مورد کاربر از فهرست فعال جستجو می کند و هر بار یک مقدار را برمی گرداند
8) get_user_id_from_difinguished
"این عملکرد دایرکتوری فعال را برای شناسه کاربری کاربر با یک نام مشخص مشخص جستجو می کند
9) دریافت_کاربر_از_ ایمیل
"این توابع برای زمانی است که پرس و جو LDAP نام Dist را برمی گرداند اما ما ID را می خواهیم
10) ReturnNthPartOfString
'رشته محدود شده را تقسیم می کند و قسمت N را برمی گرداند
11) RegisterDescriptionForUserDefinedFunction ()
"این تابع فقط یکبار برای ثبت متن و دسته راهنما برای عملکرد تعریف شده توسط کاربر مورد نیاز است
12) Custom_GetLastRow
13) Custom_SetRowHeightSheet
'ارتفاع ردیف را برای کل ورق تنظیم کنید.
14) ورق سفارشی_کپی
"زیر روال برای کپی کردن یک صفحه منبع به یک صفحه جدید و تغییر نام صفحه جدید.
15) برگه_NewRename سفارشی
زیر روال برای ایجاد یک ورق جدید و تغییر نام برگه جدید.
16) Custom_CopyPasteColumn
"زیر روال برای کپی کردن یک ستون در موقعیت" columnReferenceNumber "و قرار دادن آن در موقعیت" pastePositionReference ".
17) Custom_InsertRenameColumn
"Sub-procedure To place a new column in the" targetColumnReference "column position on the" targetSheet "page, set the width to" targetColumnWidth "and the name to" targetColumnName ".
18) Custom_AddComment
نظر را به یک سلول اضافه کنید.
19) Custom_RearrangeColumns
زیر روال برای مرتب سازی مجدد ستون ها از یک صفحه به صفحه دیگر.
A continuous column sequence and rearrangement sequence definitions in "formatReferenceSheetName" are expected to work properly for this subroutine.
20) Custom_EnterFormulaAndFillDown
This subroutine enters the formula 'formulaText' in the first cell of the text column (defined by 'targetSheet', 'columnReference' and 'rowOffset').
The formula is added to "lastRow". In addition, this function replaces the cells involved with their values after filling in, and removes the definitions of the formula.
21) Custom_ConvertNumberSavedAsText
زیر روال برای تبدیل شماره ذخیره شده به عنوان متن به شماره.
22) Custom_DeleteColumn
'' targetColumn 'را در' targetSheet 'حذف کنید.
23) Custom_CreatePivotTable
زیر روال برای ایجاد و طراحی یک جدول محوری مطابق تعریف در قالب صفحه مرجع ReferenceSheet.
"در" Excel_Reference_Sheet.xlsx "در مخزن GitHub" excel-macro-vba-library "به برگه" PR_1 "و" PR_2 "مراجعه کنید.
24) Custom_PivotTableAddField
"یک صفحه صفحه (گزارش فیلتر) در جدول محوری" pivotTableName "در صفحه" pivotTableTargetSheet "ایجاد کنید.
25) Custom_PivotTableAddDataField
"Create a DataField in the" pivotTableName "pivot table on the" pivotTableTargetSheet "page, named" dataFieldName "and with the format" dataFieldFormat ".
26) Custom_SetColumnNumberFormat
'قالب اعداد یک ستون خاص را تنظیم کنید.
27) Custom_SortSheetByColumn
'مرتب سازی کل ورق' targetSheet بر اساس 'key1ColumnReference' به ترتیب نشان داده شده توسط 'order1Reference'
28) Custom_RemoveDuplicates
'حذف تمام ردیف هایی که ستون ارجاع شده توسط' indexColumnReference 'مقادیر تکراری دارد.
29) Custom_FreezeView
'نمای صفحه هدف را مسدود کنید. تقسیم در columnSplitLength و rowSplitLength ساخته خواهد شد.
30) Custom_DeleteSheet
'حذف targetSheet.
31) Custom_ColorRange
'رنگ را در محدوده وارد کنید.
32) Custom_HideSheet (targetSheet به عنوان کاربرگ)
'پنهان کردن برگه.
33) Custom_ColumnFilter
"فیلتر را روی ستونی از صفحه هدف فعال کنید. فیلتر برای معیارهای مقدار رشته String.
34) Custom_ReleaseFilter
'همه فیلترها را از صفحه هدف حذف کنید.
35) Custom_DeleteVisibleRows
'Delete all visible rows in targetSheet. This should be used after filtering the current page for the information you want to delete.
36) صفحه تنظیم شده_ ستون سفارشی
'عرض ستون را برای کل ورق تنظیم کنید.
37) Custom_InsertRenameColumn
38) BrowseForFile
' نمایش لیست فایل
39) BrowseForFolder
'نمایش لیست پوشه
40) Copy
'کپی کردن فایل ها
41) FileExists
' بررسی برای موجود بودن فایل در ادرس
42) FindString
' پیدا کردن یک رشته در داخل متن
43) FolderExists
' بررسی وجود دایرکتوری در آدرس وارد شده
44) FullAutomationExamples
45) GetDate
' درستری به زمان
46) GetFileName
47) IsWbOpen
48) Log
49) Mail
50) OpenURL
' باز کردن لینک اینترنتی
51) SheetExists
52) Zip
'ایجاد فایل فشرده
برای شما کاربر عزیز پیشنهاد دانلود داده می شود بدون شک یکی از کاملترین ها در این مجموعه می باشد