ماکروهای جالب برای اکسل. کار موثر در MS Office

این راهنما حاوی ماکروهایی در مورد موضوعات زیر است:
اجرای ماکرو با جستجوی سلول.
هنگام باز کردن یک کتاب کار، یک ماکرو اجرا کنید.
ماکرو را هنگام تایپ در سلول "2" اجرا کنید.
اجرای ماکرو با فشار دادن "Enter".
برگه «افزونه‌ها» (فرمت سلولی) را به پانل اضافه کنید.
کار با فایل ها (به عنوان مثال تبادل داده با TXT، RTF، XLS، و غیره).
بررسی وجود یک فایل در مسیر مشخص شده.
فایل مورد نظر را جستجو کنید.
اتوماسیون حذف فایل
متن رایگان در نوار وضعیت.
بازیابی نوار وضعیت
پیمایش خط در نوار وضعیت.

به سرعت عنوان پنجره را تغییر دهید.
تغییر عنوان پنجره (پنهان کردن نام فایل).
به عنوان اصلی برمی گردد.
آنچه در حال حاضر باز است.
کار با فایل های متنی
نوشتن و خواندن فایل متنی.
پردازش چندین فایل متنی
تعیین انتهای خط یک فایل متنی
کپی کردن از یک فایل متنی در اکسل.

محتوا را در یک فایل متنی کپی کنید.
داده ها را به txt صادر کنید.
صادرات داده به html
وارد کردن داده هایی که به بیش از 256 ستون نیاز دارد.
ایجاد پشتیبان گیریفایل های ارزشمند
شمارش تعداد باز شدن فایل ها
خروجی مسیر فایل به سلول فعال.
مطالب را کپی کنید فایل RTFدر اکسل
کپی کردن داده ها از یک کتاب کار بسته
استخراج داده ها از یک فایل بسته
جستجوی کلمه در فایل ها
یک فایل متنی ایجاد کنید و متن را در فایل وارد کنید.
یک فایل متنی ایجاد کنید و متن را وارد کنید (تشخیص انتهای فایل).
ایجاد اسناد Wordمستقر جداول اکسل.
دستورات برای ایجاد و حذف دایرکتوری ها.
دریافت دایرکتوری فعلی
تغییر دایرکتوری

مشاهده تمام فایل های موجود در دایرکتوری
مشاهده تمام فایل های موجود در دایرکتوری
فضای کاری مایکروسافت اکسل.
کتاب کار.
تعداد نام کتاب کار
حفاظت از کتاب کار
ممنوعیت چاپ کتاب
باز کردن یک کتاب (یا فایل های متنی).
باز کردن یک کتاب و افزودن متن به سلول A1.
چقدر کتاب باز است.
بستن تمام کتاب ها
بستن کتاب کار فقط در صورت رعایت یک شرط.
کتاب کار را با نامی ذخیره می کند که نشان دهنده تاریخ فعلی باشد.
آیا کتاب کار ذخیره شده است یا خیر.
با یک برگه کتاب بسازید.
یک کتاب ایجاد کنید.
حذف اسامی غیر ضروری
تکثیر سریع یک کتاب کار.
مرتب کردن برگه ها
جستجو کردن حداکثر مقداردر تمام برگه های کتاب
کاربرگ.
بررسی اینکه آیا کاربرگ محافظت شده است یا خیر.
لیست برگه های مرتب شده
ايجاد كردن برگ تازه.
یک برگه جدید ایجاد کنید.
حذف ورق ها بسته به تاریخ
کپی کردن برگه در کتاب
کپی کردن یک برگه به کتاب جدید(ایجاد شده).
یک ورق را در یک کتاب جابجا کنید.
چندین برگه را به یک کتاب کار جدید منتقل کنید.
جایگزین کن فایلی که وجود داره.
"ورق زدن" کتاب.
یک سرصفحه و پاورقی با نام کتاب، برگه و تاریخ فعلی درج کنید.
آیا برگه وجود دارد
آیا برگه وجود دارد
تعداد برگه های کتاب کار فعال را نمایش می دهد.
تعداد برگه های موجود در کتاب کار فعال را به عنوان لینک نمایش می دهد.
نام برگه های فعال را یکی یکی نمایش می دهد.
نام و شماره برگه کتاب فعلی را نمایش می دهد.
ورق را نامرئی کنید.
در تمام برگه ها چند صفحه وجود دارد؟
سلول و محدوده (ستون ها و ردیف ها).
خطوط را در برگه دیگری کپی کنید.
ستون ها را در برگه دیگری کپی کنید.
تعداد سلول های حاوی مقادیر مشخص شده را می شمارد.
تعداد سلول های یک محدوده را که حاوی مقادیر مشخصی هستند می شمارد.
تعداد سلول های قابل مشاهده در یک محدوده را می شمارد.
تعداد سلول های یک محدوده و مجموع مقادیر آنها را تعیین می کند.
شمارش تعداد سلول ها
محاسبه مجدد خودکار داده های جدول هنگام تغییر مقادیر آن.
وارد کردن داده ها در سلول ها
وارد کردن داده ها با استفاده از فرمول ها
ورود اطلاعات سریال
وارد کردن داده های متنی در سلول ها
خروجی به خانه های عنوان کتاب، برگه و تعداد برگه ها.
حذف خطوط خالی
حذف خطوط خالی
حذف خطوط خالی
حذف یک ردیف به صورت مشروط
در حال حذف خطوط پنهان.
خطوط مخفی استفاده شده یا خطوط با ارتفاع صفر را حذف کنید.
حذف موارد تکراری با ماسک

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

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

جستجو با برجسته کردن داده های یافت شده.
جستجو بر اساس شرایط در محدوده.
آخرین سلول غیر خالی را در یک محدوده پیدا می کند.
آخرین سلول غیر خالی یک ستون را پیدا کنید.
آخرین سلول غیر خالی یک رشته را پیدا کنید.
جستجوی سلولی از رنگ آبیدر محدوده
جستجو کردن ارزش منفیدر محدوده و هایلایت با رنگ آبی.
وجود یک مقدار را در یک ستون پیدا می کند.
جستجو برای مسابقات در یک محدوده.
جستجوی یک سلول در یک محدوده
جستجوی یک سلول در یک محدوده
یافتن یک مقدار تقریبی در یک محدوده
شروع و پایان محدوده ای که حاوی داده است را پیدا می کند.
شروع داده ها را جستجو کنید.
جایگزینی خودکار مقادیر
پر کردن سریع یک محدوده (آرایه).
پر کردن در فواصل زمانی (آرایه).
پر کردن محدوده (آرایه) مشخص شده.
پر کردن محدوده (آرایه).
محاسبه مجموع اولین مقادیر محدوده.
قرار دادن در سلول ساعت الکترونیکی.
"زنگ خطر. هشدار".
تزئین مرزهای بالایی و پایینی محدوده.
آدرس سلول فعال
مختصات سلول فعال
فرمول سلول فعال
یک فرمول از یک سلول دریافت کنید.
نوع داده سلولی
آدرس انتهای محدوده را نشان می دهد.
دریافت اطلاعات در مورد محدوده انتخاب شده
یک کلمه با 13 کاراکتر در یک سلول بگیرید.
ایجاد لیست قابل تغییر (جدول).
بررسی مقدار خالی
تقاطع سلول ها
محدوده انتخاب شده را در ضرب کنید.
ضرب همزمان تمام داده ها در محدوده.
تقسیم محدوده بر.
هر سلول در محدوده را مربع می کند.
فقط داده های سلول های قابل مشاهده را خلاصه کنید.
مجموع سلول ها با مقادیر عددی.
هنگام جمع کردن، مکان نما در محدوده است.

تعلق سود بسته به مبلغ.
تعلق سود بسته به مبلغ.
یک مثال خلاصه از محاسبه کمیسیون.
حرکت برد.
افست از سلول انتخاب شده.
حلقه از طریق سلول های پایین ستون.
یک پرکننده برای یک محدوده ایجاد کنید.
انتخاب پارامتر سلول
تقسیم یک محدوده
ترکیب داده های محدوده
ترکیب داده های محدوده
کشف کردن حداکثر ستونیا یک رشته
محدودیت مقادیر ممکندامنه.
تست محدوده سرعت خواندن و نوشتن
هنگام انتخاب سلول، MsgBox را باز کنید.
پنهان کردن یک ردیف
مخفی کردن چندین خط
پنهان کردن یک ستون
پنهان کردن چندین ستون
یک ردیف را با نام سلول پنهان کنید.
پنهان کردن چندین خط توسط آدرس سلول
یک ستون را با نام سلول پنهان کنید.
پنهان کردن چندین ستون توسط آدرس سلول
سلول چشمک می زند.
کار با یادداشت ها
تمام یادداشت ها را در کاربرگ نمایش می دهد.
تابع استخراج نظر
فهرست یادداشت های برگه های حفاظت شده.

فهرست یادداشت ها در یک لیست جداگانه.
فهرست یادداشت ها در یک لیست جداگانه.

شمارش تعداد نت ها
شمارش یادداشت ها
سلول های دارای یادداشت را انتخاب کنید.
همه یادداشت ها را نمایش می دهد.
رنگ یادداشت ها را تغییر دهید
اضافه کردن یادداشت ها
اضافه کردن یادداشت به محدوده مشروط.
انتقال نظر به سلول و از آن.

انتقال مقادیر از یک سلول به یک نظر.
زبانه های سفارشی روی روبان.
افزودن نوار ابزار
افزودن یک دکمه به نوار ابزار
پنل با یک دکمه
پنل با دو دکمه
یک پنل در سمت راست ایجاد کنید.

ایجاد یک منوی سفارشی (گزینه 1).
ایجاد یک منوی سفارشی (گزینه 2).
ایجاد یک منوی سفارشی (گزینه 3).
ایجاد یک منوی سفارشی (گزینه 4).
ایجاد یک منوی سفارشی (گزینه 5).
ایجاد یک منوی سفارشی (گزینه 6).
ایجاد لیستی از موارد در منوی اصلی Excel.
ایجاد لیستی از آیتم های منوی زمینه
نوار ابزار را تحت یک شرایط خاص نمایش می دهد.
پنهان کردن و نمایش نوار ابزار
یک راهنمای ابزار برای دکمه های من ایجاد کنید.
یک منو بر اساس داده های یک کاربرگ ایجاد می کند.
ایجاد یک منوی زمینه
قفل کردن منوی زمینه
افزودن یک دستور به منوی Tools.
افزودن دستور به منوی View
ایجاد پنل با لیست
کارتون با دستیار در نقش اصلی.
تکمیل کمک کننده با متن، عنوان، دکمه و نماد.
گزینه های دستیار جدید
استفاده از دستیار برای انتخاب رنگ پر.
پنجره های دیالوگ.
تابع INPUTBOX (از طریق مقدار ورودی).
پیش نمایش تماس
پیکربندی ورود داده ها در یک کادر محاوره ای

کادر محاوره ای (Open File) را باز می کند.
کادر محاوره ای (Print) را باز می کند.
کادرهای محاوره ای دیگر
فراخوانی مرورگر از اکسل.
کادر محاوره ای ورود اطلاعات
کادر محاوره ای تنظیمات فونت
مقادیر پیش فرض.
قالب بندی متن جداول. مرزها و پر کردن.
لیستی از فونت های موجود را نمایش می دهد.
انتخاب همه اعداد از متن
حروف بزرگ فقط در ابتدای متن.
شمارش تعداد تکرارهای متن جستجو شده.
یک عنصر دلخواه را از متن انتخاب کنید.
نمایش متن از پشت به جلو.
متن انگلیسی - با حروف بزرگ.
راه اندازی جدول نمادها از اکسل.
اطلاعات در مورد کاربر، کامپیوتر، چاپگر و غیره
دریافت نام کاربری
وضوح نمایشگر مانیتور
در مورد چاپگری که استفاده می کنید اطلاعات کسب کنید.
اطلاعات مربوط به دیسک های موجود در رایانه خود را مشاهده کنید.
USERFORMS.
نمودارها
ساختن نمودار با استفاده از ماکرو
ذخیره نمودار در یک فایل جداگانه.
ساخت و حذف نمودار با فشار دادن یک دکمه.
لیستی از نمودارها را در یک پنجره جداگانه نمایش می دهد.
اعمال یک پالت رنگ تصادفی
تأثیر شفافیت نمودار.
بر اساس داده های چند کاربرگ، نمودار بسازید.
ایجاد برچسب برای داده های نمودار
برنامه های مختلف
برنامه ای برای نوشتن جدول کلمات متقاطع.
کاور DVD ایجاد کنید
بازی میدان مین.
بازی "حیوان را حدس بزنید".
محاسبه بر اساس سلول های یک رنگ خاص.
سایر توابع و ماکروها.
فراخوانی کلیدهای عملکردی
محاسبه میانگین حسابی.
تبدیل اعداد به پول
نزدیکترین دوشنبه را جستجو کنید.
شمارش تعداد سالهای کامل
محاسبه میانگین وزنی
شماره ماه را به نام آن تبدیل کنید.
استفاده از پیوندهای نسبی
تبدیل جدول اکسل به فرمت HTML.
مولد اعداد تصادفی
اعداد تصادفی بر اساس یک محدوده هستند.
اعمال یک تابع بدون وارد کردن آن به سلول.
شمارش اشیاء نامگذاری شده
فیلتر خودکار را با استفاده از ماکرو روشن کنید.
ایجاد خط خزنده.
ایجاد یک تصویر در حال اجرا
خودکارهای چرخان
فراخوانی جدول رنگ
ایجاد یک ماشین حساب.
انحراف نام خانوادگی، نام و نام خانوادگی.
تاریخ و زمان.
نمایش تاریخ و زمان.
نمایش تاریخ و زمان.
گرفتن تاریخ سیستم
تاریخ و ساعت را استخراج کنید.
تابع DateFull. نسخه MS Office استفاده شده مشخص نشده است.

اگر در برنامه نویسی خوب نیستید، اما در عین حال باید هر کدام را پیاده سازی کنیدوظیفه ای خارج از محدوده توابع استانداردو دستورات MS Excel را می توانید در اینترنت جستجو کنید. راه حل، به احتمال زیاد، به صورت کد VBA خواهد بود، که باید کپی و در خود جایگذاری شود کتاب کار، سپس به نحوی این کد را برای شما کار کنید، در این مقاله به شما خواهم گفت که چگونه این کار را انجام دهید.

بیایید به دو مثال نگاه کنیم:

1. ما به دنبال تیم هستیم و از آن استفاده می کنیم

به عنوان مثال، ما به دستوری نیاز داریم که عدد "1" را در سلول های انتخاب شده درج کند. موتور جستجو را راه اندازی کنید، تایپ کنید عبارت جستجو، نتایج را دریافت می کنیم، شروع به جستجو می کنیم، کدی شبیه به این پیدا می کنیم:

Sub Insert1 () Dim q به عنوان شی در خطا از سرگیری مجموعه بعدی q = سلول ها برای هر q در انتخاب q = 1 q بعدی پایان فرعی

برجسته کد داده شده(بدون شماره گذاری خط، با کلمه شروع می شود زیر) و فشار دهید Ctrl + C... به کتاب کار MS Excel خود بروید و میانبر صفحه کلید را فشار دهید Alt + F11، یک پنجره ویرایشگر VBA دریافت خواهید کرد:

در پنجره سمت چپ "Project - VBA Project"، کتاب کار ما را انتخاب کنید (با ماوس کلیک کنید) که باید یک ماکرو در آن وارد کنید، به عنوان مثال، "VBAProject (Book2)":

در آیتم منوی "Insert"، "Module" را انتخاب کنید:

در پنجره سمت چپ "Project - VBA Project" باید مشاهده کنید پوشه جدید"Modules" و در آن یک شی جدید "Module1":

مکان نما را به قسمت سمت راست ورودی "Large" ببرید و فشار دهید Ctrl + V، ماکرو کپی شده در ماژول قرار می گیرد:

ماکروها در MS Excel را می توان در مکان های زیر درج کرد:

• در ماژول، معمولاً کد ماکروها درج می شود که با کلیک کاربر روی دکمه (مثلاً در مورد ما) یا کد توابع (فرمول ها) راه اندازی می شود.
• در کاربرگ، آنها معمولا کد ماکروها را وارد می کنند، که راه اندازی آنها باید به طور خودکار بسته به اقدامات کاربر یا تغییرات داده های موجود در برگه اتفاق بیفتد (این تغییر کرده است، ماکرو اجرا شده است).
• در Workbook معمولا کد ماکروها را درج کنید که بسته به اقدامات انجام شده روی کتاب (فایل) باید به صورت خودکار راه اندازی شوند. به عنوان مثال، یک ماکرو که هنگام باز کردن یا بستن یک کتاب کار یا ذخیره آن اجرا می شود.
• ماکروها همچنین می توانند بخشی از یک فرم سفارشی باشند.

به طور معمول، شخصی که کد را منتشر می کند، جایی که باید در یک ماژول، برگه یا کتاب درج شود، مشخص می کند.

برای درج کد در Worksheet، در پنجره سمت چپ ویرایشگر VBA، برگه مناسب را انتخاب کنید، با دکمه سمت چپ ماوس روی آن دوبار کلیک کنید، مکان نما را به قسمت ورودی سمت راست ببرید و کد را Paste کنید.

برای درج کد در کتاب، «ThisBook» را انتخاب کنید:

بیایید تمرین کنیم. کد ارسال شده در زیر را در "Sheet1" قرار دهید.

Worksheet_Change زیر خصوصی (ByVal Target As Range) در خطا برو به یک If Target = 2 سپس VBA.MsgBox ("Cell" & Target.Address & "= 2") پایان اگر a: خروج Sub End Sub Sub

این ماکرو خروجی می دهد اعلامیهاگر در هر سلول از برگه "2" را وارد کنید.

به کتاب کار برگردید، به "Sheet1" بروید و عدد "2" را در سلول "A1" وارد کنید و فشار دهید. وارد، پس از آن باید پیام زیر را دریافت کنید:

اگر این پیام را می بینید، پس همه چیز را درست انجام داده اید. اگر نه، پس کد را در جایی اشتباه چسبانده‌اید، لطفاً دوباره امتحان کنید.

هنگام چسباندن کد، باید مراقب باشید که آن را کجا قرار می دهید. این را می توان با نگاه کردن به آنچه در عنوان پنجره ویرایشگر VBA نوشته شده است انجام داد:

2. به دنبال و استفاده از تابع

ما در اینترنت کد VBA تابعی را پیدا می کنیم که به عنوان مثال تعداد کلمات یک سلول را می شمارد:

تابع عمومی CountInCell (Cell As Range) Dim q As Variant Application.Volatile q = VBA.Split (Application.WorksheetFunction.Trim (Cell.Value)، "") CountInCell = UBound (q) + 1 تابع انتهایی

کد را کپی کنید، کلید ترکیبی را فشار دهید Alt + F11، ویرایشگر VBA باز می شود:

اضافه کردن ماژول جدیددر کتاب خود و در این ماژول، کد کپی شده را قرار دهید:

ویرایشگر VBA را ببندید و به کتاب کار خود بروید. یک برگه جدید (اختیاری) در یک سلول ایجاد کنید A1متن "قاب صابون مامان" را وارد می کنیم. ما در سلولی که می خواهیم نتیجه (تعداد کلمات) را دریافت کنیم، در منوی "Formulas" روی دکمه "Insert function" کلیک کنید:

در پنجره "Insert Function" که باز می شود، در قسمت "Category"، "User-Defined" را انتخاب کنید.

در لیست توابع موجود"CountSVCell" را انتخاب کنید، "OK" را فشار دهید:

معرفی کنید استدلال های مورد نیازو روی "OK" کلیک کنید:

نتیجه را می گیریم:

مهم:

اگر کتاب کاری را که ماکرو را در آن وارد کرده‌اید به‌عنوان «کتاب دارای ماکرو فعال» ذخیره نکنید، همه ماژول‌های دارای ماکرو حذف می‌شوند و سپس باید همه این کارها را دوباره انجام دهید.

اگر هنگام درج یک ماکرو در یک ماژول، به جای مقداری متن، کاراکترهای قرمز رنگ دارید. ???????? "

این به این معنی است که شما با یک مشکل رمزگذاری روبرو هستید که هنگام کپی کردن متن سیریلیک از برخی مرورگرها رخ می دهد. برای غلبه بر این مشکل، کد کپی شده را در آن جایگذاری کنید ورق خالی MS Excel به عنوان "متن در رمزگذاری یونیکد". برای انجام این کار، به کتاب کار MS Excel بروید، یک صفحه خالی را انتخاب یا ایجاد کنید، در سلول "A1" قرار بگیرید و میانبرهای صفحه کلید را فشار دهید. Ctrl + Alt + V... یک منو باید ظاهر شود " چسب مخصوص"، "Unicode Text" را انتخاب کنید و روی "OK" کلیک کنید.

کد باید بدون علامت سوال در کاربرگ قرار گیرد:

پس از آن، یک بار دیگر کد درج شده در برگه را کپی کرده و آن را در ماژول قرار دهید.

اگر پنجره "Project - VBA Project" را در ویرایشگر VBA نمی بینید، به برگه منوی "View" رفته و مورد "Project Explorer" را در لیست انتخاب کنید یا میانبر صفحه کلید را فشار دهید. Ctrl + R:

صفحات گسترده اکسل یکی از بهترین ها هستند راه های محبوبذخیره سازی و سیستم سازی اطلاعات اگر ماکروها را در اکسل جاسازی کنید، قابلیت های برنامه را می توان تقریباً دو بار افزایش داد. به عنوان مثال، ماکروها به خودکارسازی فرآیندهای روتین و سرعت بخشیدن به کارهای تکراری کمک می کنند. آنها اغلب توسط متخصصانی استفاده می شوند که گزارش ها را از 1C به Excel ترجمه می کنند. با کمک کد تعبیه شده، می توان آنها را به راحتی به یک قالب استاندارد کاهش داد.

ماکروهای اکسل چیست؟

ماکروها نه تنها در جداول، بلکه در همه چیز استفاده می شوند مایکروسافت آفیس... آنها نشان دهنده ایجاد شده با ویژوال بیسیکبرای کد برنامه ها اگر تا حدودی با برنامه نویسی وب آشنایی دارید، می توانید با جاوا اسکریپت یک قیاس ترسیم کنید. ماکروهای اکسل تقریباً همان کار جاوا اسکریپت را با داده های HTML انجام می دهند.

بخش کوچکی از کارهایی که یک ماکرو می تواند در برنامه های اداری انجام دهد:

سند را به سبک تراز کنید و آن را قالب بندی کنید.
... انجام عملیات با داده های عددی و متنی؛
... توسل داشته باشند فایل های خارجی(متن، پایگاه های داده و موارد دیگر)؛
... ایجاد اسناد جدید از ابتدا؛
... چندین عمل را ترکیب کرده و آنها را به صورت خودکار انجام دهید.

برای کار با جدول می توانید خودتان آن را بسازید یا نسخه آماده آن را از اینترنت دانلود کنید. شما باید ماکروها را فقط از سایت های قابل اعتماد دانلود کنید، در غیر این صورت ممکن است ویروس را به اکسل تزریق کنید.

چه چیزی در مورد ماکروها در اکسل می تواند خطرناک باشد؟

فایل های آسیب بر روی کامپیوتر شما؛
... سرقت اطلاعات محرمانه

این ویروس در حالی معرفی می شود که یکی از برنامه های اداری- ورد یا اکسل. پس از توقف کار، آنها شروع به کار خواهند کرد کار مستقلویروس و آلوده کردن کل سیستم به آن.

روش دیگری که یک ماکرو مخرب کار می کند، واسطه گری برای تزریق تهدید به سیستم است. در این صورت به نوعی دروازه ای برای معرفی و تولید نرم افزار تروجان می باشد. دیگر توسط ماکرو اصلاح شده کنترل نمی شود، بلکه توسط خودش کنترل می شود سیستم عاملو در نتیجه، تهدید در حال گسترش بیشتر است. همیشه نمی توان چنین ویروس هایی را درمان کرد، گاهی اوقات باید ویندوز OC یا را به طور کامل تغییر دهید HDD PC (بسته به وظایف تعیین شده توسط هکر هنگام نوشتن کد).

شما می توانید هر روشی را برای محافظت در برابر چنین ماکروهایی انتخاب کنید. محبوب ترین آنها افزایش سطح امنیتی اکسل است، اما در این صورت ممکن است برنامه از ماکروهای مفید نویسنده شما پشتیبانی نکند. به فایل های از منابع ناشناختهزیرا ممکن است آلوده شوند. حتی یک ماکرو از رایانه شخصی یک همکار می تواند خطرناک باشد. اگر دوستی به شما فایلی داده است که از استفاده از ماکروها برای کار پشتیبانی می کند، قبل از اینکه به سیستم اجازه استفاده از آن را بدهید، نحوه دریافت این ماکرو را روشن کنید.

بهترین گزینه این است خودآموزیهنر ایجاد ماکرو برای نیازهای شما در این صورت، می توانید به طور کامل کیفیت و ایمنی آنها را تضمین کنید.

نحوه ضبط ماکروها در اکسل

ساده ترین راه برای ایجاد یک ماکرو برنامه ریزی مستقیم در اکسل است. برای این کار به جدولی با داده های وارد شده و کمی دانش نیاز دارید تا امکان ضبط چنین کدی در برنامه وجود داشته باشد.

ایجاد با منوی "View" آغاز می شود. در آن باید مورد "Macros" و دستور "Record Macro" را انتخاب کنید. در مرحله بعد، باید نامی را بدون فاصله مشخص کنید، به عنوان مثال، "Format" (اگر کد مسئول تغییر قالب متن یا سلول ها باشد).

پس از آن، تمام اقدامات شما به طور خودکار ضبط شده و به کد ماکرو تبدیل می شود. یک دکمه با یک مربع کوچک ("توقف") در پایین سند ظاهر می شود که با کلیک کردن روی آن می توانید ضبط را متوقف کنید. بنابراین می توانید به طور خودکار ماکروهایی را در اکسل بنویسید، نمونه هایی از آنها را می توانید در فرآیند یادگیری بیشتر تجزیه و تحلیل کنید.

نحوه فعال کردن ماکروها در اکسل

برای گنجاندن یک ماکرو ضبط شده در اسناد دیگر، باید پس از پاک کردن جدول، آن را ذخیره کنید. قالب سند باید به عنوان XLTM مشخص شود (از ماکروها پشتیبانی می کند).

دفعه بعد که به سند دسترسی پیدا کردید، برای فعال کردن ماکروها در اکسل، ابتدا باید آنها را در پنجره پاپ آپ فعال کنید. خط بالایی... سپس باید داده‌هایی را وارد کنید که توسط یک ماکرو از یک جدول CSV معمولی ویرایش می‌شوند. پس از تکمیل وارد کردن، باید به منوی «View» برگردید، «Macros» را در آنجا انتخاب کنید و نام کدی که ساخته‌اید را در لیست پیدا کنید. در نهایت روی دکمه "Run" کلیک کنید. پس از آن خواهید دید که برنامه با توجه به الگوریتمی که قبلاً مشخص کرده اید، چگونه محاسبات و قالب بندی اسناد را انجام می دهد.

چگونه می توانم کد برنامه یک ماکرو را ببینم؟

تمام ماکروهای ایجاد شده در اکسل به صورت خودکار و بدون دخالت انسان نوشته می شوند. برنامه به طور مستقل کامپایل می شود کد برنامه، که با تماس با استفاده از منو از جدول باز می شود.

برای انجام این کار، باید دستورات زیر را به صورت متوالی اجرا کنید:

برگه "View" را گسترش دهید؛
... باز کردن "Macros"؛
... نام ماکرو مورد نیاز را انتخاب کنید.
... با استفاده از دکمه "تغییر" یک پنجره را با کد آن فراخوانی کنید.

در کادر محاوره ای جدید، می توانید ماکرو را ویرایش و تغییر دهید. در آنجا کدی را می بینید که برنامه به صورت خودکار ضبط کرده است و می توانید هر عملی را به صورت دستی اضافه کنید. پس از ذخیره اطلاعات هنگام وارد کردن داده های جدید، ماکرو متفاوت عمل می کند.

نحوه راه اندازی ماکرو با کلیک بر روی یک سلول

فرض کنید وقتی سلول A1 را انتخاب می کنید می خواهید یک ماکرو اجرا شود. به طوری که انتخاب شده در سلول اکسلماکرو را اجرا کنید، باید کد برنامه را به ماژول اول اضافه کنید:

کاربرگ فرعی خصوصی_SelectionChange (ByVal Target As Range)
اگر Target.Address = "$ A $ 1" سپس: با module1 تماس بگیرید
پایان فرعی

بهترین راه برای کمک به یادگیری ماکروها در اکسل یک آموزش است. بیش از یک نمونه مشابه وجود دارد و برای کسانی که به تازگی با تمام امکانات جدول آشنا می شوند، این بهترین راهیاد بگیرید که به طور کامل از عملکرد آن استفاده کنید.

از کجا می توانید کار با ماکروها را یاد بگیرید

راه های مختلفی برای یادگیری نحوه ایجاد ماکروهای پیچیده تر وجود دارد. آنها باید در منطق و دنباله ای مشخص از اقدامات متفاوت باشند. چنین ماکروهایی فقط با نوشتن کد VBA با دست ایجاد می شوند. برای ایجاد ماکروهای پیچیده، باید مدتی را صرف یادگیری پیچیدگی های زبان کنید. برنامه نویسی بصریبسیک.

حالا برای مطالعه همه قابلیت های اکسلتعداد زیادی دوره ویژه ایجاد شده است که چندین هفته طول می کشد، اما شما باید به آن سفر کنید مرکز آموزشیا در وبینارها شرکت کنید (که به دلیل اختلاف زمان همیشه راحت نیست). اما یک راه موثرتر و ساده تر برای یادگیری نحوه ایجاد ماکرو در اکسل، یک راهنمای خودآموز همراه با مثال است. شما می توانید آن را در هر زمانی که برای شما مناسب است مطالعه کنید و آموزش های گام به گام به شما در توسعه کمک می کند انواع مختلف: از بیشترین کدهای سادهبه سخت ترین ها مایکروسافت اکسل یک ویرایشگر صفحه گسترده همه کاره است که می تواند برای حل بسیاری از وظایف پیچیده استفاده شود.

نمونه هایی از

کدهایی وجود دارد که می توان از آنها برای خودکارسازی کارهای مختلف استفاده کرد. بنابراین، اجازه دهید یک ماکرو درج ردیف را به عنوان مثال در نظر بگیریم. به نظر می رسد این است:

زیر ماکرو 1 ()

ماکرو برای برجسته کردن سلول A1 در هر صفحه در کتاب کار فعال. این نیز صفحه نمایش را حرکت می دهد.

زیر A1SelectionEachSheet () Dim i As Integer Application.ScreenUpdating = False برای i = 1 To Sheets.Count Sheets (i) .Select ActiveWindow.ScrollColumn = 1 ActiveWindow.ScrollRow = 1 Range ("a1"). برگه های بعدی را انتخاب کنید ("a1"). Application.ScreenUpdating = True End Sub را انتخاب کنید

ماکرو برای کپی کردن برگه فعلی چند بار مشخص. برای آزمایش برخی از ماکروها مفید است - شما ویرایش هایی انجام داده اید، روی یک کپی از داده ها بررسی کرده اید. نسخه تمام شد - ماکرو را دوباره اجرا کنید

Sub SimpleCopy () Dim i به عنوان عدد صحیح، j به عنوان عدد صحیح i = Application.InputBox Application.ScreenUpdating = False برای j = 1 به i ActiveSheet. کپی بعد از: = Sheets (Sheets.Count) ActiveSheet .Name = "Copy" & j Next j Application.ScreenUpdating = True End Sub

برگه هایی با عناوین از یک محدوده مشخص در یک برگه ایجاد کنید

زیر CreateFromList () سلول کم نور به عنوان محدوده برای هر سلول در برگه های انتخابی. بعد از آن اضافه کنید: = برگه ها (Sheets.Count) ActiveSheet.Name = cell.Value سلول بعدی پایان فرعی

نشانگر ارسال نامه با تاخیر ماکرو اصلاح شده از کتاب John Walkenbach Professional VBA Programming

ایمیل فرعی () کم نور کردن OutApp به عنوان شیء تیره کردن OutMail به عنوان Object Set OutApp = CreateObject ("Outlook.Application") OutApp.Session.Logon در خطا رفتن به پاکسازی Set OutMail = OutApp.CreateItem (0) در مورد خطا ادامه با OutMail .To = " [ایمیل محافظت شده]".Subject =" گزارش فروش ".Attachments.Add" C: \ Test.txt ".Body =" Email body ".DeferredDeliveryTime = Replace (Date,". "," / ") &" 11:00:00 " .send" .نمایش برای ایجاد پیام و باز کردن آن پایان با خطای روشن برو به 0 تنظیم OutMail = پاکسازی چیزی: تنظیم OutApp = هیچ چیز پایان فرعی

فهرست مطالب ماکرو اندکی تغییر یافته از نیکولای پاولوف.
اگر برگه «فهرست فهرست مطالب» از قبل در کتاب وجود داشته باشد، ماکرو حذف آن را پیشنهاد می‌کند. در غیر این صورت، یک برگه "فهرست فهرست مطالب" ایجاد می کند و پیوندهایی با نام برگه ها درج می کند.

زیر TableOfContent () صفحه کم نور به عنوان کاربرگ سلول کم نور به عنوان محدوده کم نور پاسخ به عنوان عدد صحیح Application.ScreenUpdating = False با ActiveWorkbook برای هر کاربرگ در ActiveWorkbook.Worksheets If Worksheet.Name = "Table of Contents" سپس workbook دارای یک Mox است. برگه ای با نام فهرست مطالب. حذف شود؟ "، VbYesNo) اگر پاسخ = vbNo سپس از Sub خارج شوید اگر پاسخ = vbYes سپس Application.DisplayAlerts = کاربرگ نادرست. حذف برنامه.DisplayAlerts = پایان واقعی اگر پایان اگر پایان بعدی با برگه ها (آرایه (1) Sheets.Add Sheets (1) .Name = "Table of Contents" With ActiveWorkbook برای هر برگه در ActiveWorkbook.Worksheets If sheet.Name<>"فهرست محتوا" سپس سلول را تنظیم کنید = کاربرگ (1) .سلول ها (ورق. فهرست، 1) .کاربرگ ها (1) .هایپرلینک ها. افزودن لنگر: = سلول، آدرس: = ""، آدرس فرعی: = "" "و برگه .Name & "" "&"! A1 "cell.Formula = sheet.Name end if sheet next end with rows (" 1: 1 "). حذف Application.ScreenUpdating = True End Sub Sub

مرتب سازی برگه ها از جادوگران VBA. انواع کلان از جمله ورق های پنهان... اگر کتاب دارای ساختار محافظت شده باشد، کار نخواهد کرد

زیر SORT_ALL_LISTS () Application.ScreenUpdating = False: Application.EnableEvents = False Dim iSht As Worksheet, oDict As Object, i%, j% Set oDict = CreateObject ("Scripting.Dictionary") "وضعیت مشاهده و مشاهده هر برگه را به خاطر بسپارید همه چیز قابل مشاهده برای هر iSht در ActiveWorkbook.Sheets oDict.Item (iSht.Name) = iSht.Visible: iSht.Visible = True Next With ActiveWorkbook "مرتب کردن برگه های قابل مشاهده برای i = 1 به .Sheets.Count - 1 برای j = i + 1 به .Sheets.Count If UCase (.Sheets (i) .Name)> UCase (. Sheets (j) .Name) سپس .Sheets (j) .Move Before: =. Sheets (i) بعدی j بعدی i پایان با "بازیابی حالت اولیهقابلیت مشاهده هر برگه برای هر iSht در ActiveWorkbook.Sheets iSht.Visible = oDict.Item (iSht.Name) بعدی Application.EnableEvents = True: Application.ScreenUpdating = True End Sub

وارد کردن ستون های "Field1" و "Field2" از صفحه "Sheet1" فایل اکسل"C: \ Manager.xls" از طریق اتصال ADODB و درج محتوا از سلول A1 صفحه فعلی

برای خودکارسازی کارهای تکراری، می توانید با استفاده از ضبط کننده ماکرو در مایکروسافت اکسل، یک ماکرو ضبط کنید. تصور کنید که تاریخ هایی در قالب های تصادفی دارید و می خواهید یک قالب را برای همه اعمال کنید. این را می توان با استفاده از ماکرو انجام داد. می توانید با اعمال یک ماکرو ضبط کنید فرمت مورد نظرو در صورت لزوم ماکرو را پخش کنید.

هنگام ضبط ماکرو، همه اقدامات لازمبه عنوان کد ویژوال بیسیک برای برنامه های کاربردی (VBA) نوشته می شوند. چنین اقداماتی می‌تواند شامل وارد کردن متن یا اعداد، انتخاب سلول‌ها یا دستورات روی نوار یا منوها، قالب‌بندی سلول‌ها، ردیف‌ها یا ستون‌ها و حتی وارد کردن داده‌ها از یک منبع خارجی مانند دسترسی مایکروسافت... ویژوال بیسیک برای برنامه ها (VBA) بخشی از زبان برنامه نویسی ویژوال بیسیک است. در اکثر برنامه های آفیس موجود است. در حالی که VBA به شما اجازه می دهد تا فرآیندهای درون و بین برنامه های آفیس را خودکار کنید، نیازی نیست در برنامه نویسی یا دانستن زبان VBA مهارت داشته باشید، زیرا همه چیز اقدامات لازمضبط کننده ماکرو را اجرا خواهد کرد.

مهم است که بدانید وقتی یک ماکرو ضبط می کنید، تقریباً هر کاری که انجام می دهید ثبت می شود. بنابراین، اگر اشتباهی مانند کلیک کردن روی دکمه اشتباه انجام دهید، ضبط کننده ماکرو آن عملکرد را ثبت می کند. در چنین حالتی، می توانید کل دنباله را بازنویسی کنید یا کد VBA را تغییر دهید. بنابراین، قبل از ضبط فرآیند، باید آن را به خوبی انجام دهید. هر چه توالی را با دقت بیشتری ضبط کنید، ماکرو کارآمدتر کار می کند.

توسعه دهندهکه به طور پیش فرض مخفی است، بنابراین ابتدا باید آن را فعال کنید. برای اطلاعات بیشتر، به مقاله نمایش برگه برنامه نویس مراجعه کنید.

ضبط ماکرو

در برگه توسعه دهندهکلیک ماکروهابرای مشاهده ماکروهای مرتبط با کتاب کار. یا می توانید کلیدها را فشار دهید ALT + F8... با این کار یک کادر محاوره ای باز می شود ماکرو.

توجه:

کار با کدهای ضبط شده در ویرایشگر ویژوال بیسیک (VBE)

با ویرایشگر ویژوال بیسیک (VBE)، می توانید متغیرها، ساختارهای کنترلی و سایر عناصر خود را به کد ضبط شده که ضبط کننده ماکرو پشتیبانی نمی کند، اضافه کنید. از آنجایی که ضبط کننده ماکرو تقریباً هر مرحله ای را که در حین ضبط رخ می دهد ضبط می کند، ممکن است لازم باشد کدهای غیر ضروری را نیز حذف کنید. مشاهده کد ضبط شده - راه عالیبرنامه نویسی در VBA را یاد بگیرید یا مهارت های خود را تقویت کنید.

برای مثالی از تغییر کد ضبط شده، به شروع با VBA در اکسل مراجعه کنید.

ضبط ماکرو

دانستن موارد زیر قبل از ضبط ماکرو مفید است:

ماکرو ضبط شده برای کار با محدوده اکسل، فقط برای سلول های این محدوده اجرا می شود. بنابراین اگر به محدوده اضافه کنید خط جدید، ماکرو روی آن اعمال نخواهد شد.

اگر نیاز به ضبط توالی طولانی از کارها دارید، توصیه می کنیم به جای آن از چندین ماکرو کوچکتر استفاده کنید.

ماکرو همچنین می تواند شامل وظایفی باشد که به اکسل مرتبط نیستند. فرآیند کلان می تواند شامل موارد دیگری نیز باشد برنامه های کاربردی آفیسو سایر برنامه هایی که از ویژوال بیسیک برای برنامه ها (VBA) پشتیبانی می کنند. به عنوان مثال، می توانید یک ماکرو ضبط کنید که ابتدا یک جدول را در اکسل به روز می کند و سپس Outlook را برای ارسال آن از طریق ایمیل باز می کند.

ماکروها و ابزارهای VBA در تب قرار دارند توسعه دهندهکه به طور پیش فرض مخفی است، بنابراین ابتدا باید آن را فعال کنید.

لطفا انتخاب کنید برتری داشتن > مولفه های> روبان و پنل.

برای ضبط یک ماکرو، دستورالعمل های زیر را دنبال کنید.

کار با ماکروهای ضبط شده در اکسل

در برگه توسعه دهندهکلیک ماکروهابرای مشاهده ماکروهای مرتبط با کتاب کار. با این کار یک کادر محاوره ای باز می شود ماکرو.

توجه داشته باشید:ماکروها را نمی توان لغو کرد. قبل از اجرای ماکرو ضبط شده برای اولین بار، برای جلوگیری از آن، یک کپی از کتاب کار ذخیره یا ایجاد کنید تغییرات ناخواسته... اگر از نتایج اجرای ماکرو راضی نیستید، می توانید کتاب کار را بدون ذخیره آن ببندید.

در زیر می باشد اطلاعات اضافیدر مورد کار با ماکروها در اکسل

اطلاعات اضافی

همیشه می‌توانید از انجمن فناوری اکسل سؤالی بپرسید، در انجمن پاسخ‌ها کمک بخواهید و همچنین پیشنهاد دهید عملکرد جدیدیا بهبود در وب سایت