ماکروی روز -روز اول -مخفی کردن worksheets

 

مخفی کردن worksheets

ماکروی اکسل

در اولین روز از سری آموزش های ماکروی روز می خواهیم به بررسی ماکرویی بپردازیم که با استفاده از آن می توانیم به  مخفی کردن worksheets  کاری موجود در اکسل خود بپردازیم . به گونه ای که این مخفی کردن worksheets شامل تمامی شیت ها بغیر از شیت کاری جاری ما شود . 

  1. نرم افزار اکسل را اجرا نموده . با استفاده از کلیدهای ترکیبی ALT+F11  وارد محیط برنامه نویسی شوید .
  2. یک ماژول به محیط کار خود اضافه نمایید .
  3. کدهای زیر را کپی و در محیط مزبور وارد نمایید ..

Sub hide_sheet()

Dim wb As Workbook
Dim ws As Worksheet
Set wb = ThisWorkbook

For Each ws In ThisWorkbook.Worksheets
If ws.Name <> ActiveSheet.Name Then
ws.Visible = xlSheetHidden
End If

Next ws

اکنون کافی است در یکی از شیت های اکسل قرار گرفته و ماکروی خود را اجرا نمایید . 

مشاهده خواهید نمود که تمامی شیت ها بغیر از شیت جاری شما به حالت محفی در می آیند . 

 

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

برای دانلود کتاب بر روی تصویر زیر کلیک نمایید . 

کتاب کار با ماکروها در اکسل

آموزش اکسل,دسته‌بندی نشده,یک ترفند بازدید : 271 views ۴ بهمن, ۱۳۹۷ ۰