مخفی کردن قسمت های مختلف اکسل از دید کاربر

اگه قصد دارید نام صفحه ها یا شیت های اکسل دیده نشود یا نتوانند صفحه ای اضافه کنند.

ActiveWindow.DisplayWorkbookTabs = False

اگه قصد دارید منو های اکسل دیده نشود.

Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"

اگه قصد دارید اسکرول افقی اکسل دیده نشود.

ActiveWindow.DisplayHorizontalScrollBar = False

اگه قصد دارید اسکرول عمودی اکسل دیده نشود.

ActiveWindow.DisplayVerticalScrollBar = False

اگه قصد دارید شماره های عمودی و حروف افقی اکسل دیده نشود.

ActiveWindow.DisplayHeadings = False

اگه قصد دارید خطوط پیش فرض خانه های یک صفحه از اکسل دیده نشود.

ActiveWindow.DisplayGridlines = False

اگه قصد دارید اکسل به صورت تمام صفحه دیده شود.

Application.DisplayFullScreen = True

اگه قصد دارید نوار وضعیت افقی پایین اکسل دیده نشود.

Application.DisplayStatusBar = Not Application.DisplayStatusBar

اگه قصد دارید پنجره بصورت حداکثر دیده شود.

Application.WindowState = xlMaximized

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

ActiveWindow.WindowState = xlMaximized

اگه قصد دارید نوار فرمول اکسل دیده نشود.

Application.DisplayFormulaBar = False

اگه قصد دارید نوار زوم پایین دیده نشود و کاربر نتواند زوم را تغییر دهد.

ActiveWindow.Zoom = 100

اگه قصد دارید در نوار عنوان نام اکسل دیده نشود و بجای آن متن دلخواه خود را بنویسید.

Application.Caption = "DayaAfzar.ir"

Excel VBA: کپی کردن و یا حذف یک TextBox بر روی یک Sheet

کپی یک TextBox در یک شیت

Sub copy_textboxInSheet(row1 As Integer, col1 As Integer)
    Sheet2.Shapes("TextBox 1").Copy
    Application.Goto Reference:=Worksheets("Sheet2").Cells(row1, col1), Scroll:=True
    Sheet2.Paste
End Sub

سطر و ستون را بصورت عددی به این تابع بدهید تا در مکان مورد نظر textBox 1 را کپی نماید.

نکته: بین کلمه TextBox و عدد 1 که هر دو مربوط به نام TextBox می باشد یک فاصله قرار دارد و اگر آن را بچرخانید نقطه موس و بالا را در نظر می گیرد.

حذف همه TextBox ها از یک شیت بجز TextBox 1

Sub del_textboxInSheet()
Dim tb As Object
    For Each tb In ActiveSheet.TextBoxes
        If tb.Name <> "TextBox 1" Then
            tb.Delete
        End If
    Next
End Sub

نکته: این تابع غیر از TextBox 1 بقیه را حذف می نماید.

حذف همه TextBox ها از یک شیت

Sub del_textboxInSheet()
Dim tb As Object
    For Each tb In ActiveSheet.TextBoxes
            tb.Delete
    Next
End Sub

زبان برنامه نویسی ویژوال بیسیک در اکسل (VBA)

VBA  چیست؟

زبان برنامه نویسی ویژوال بیسیک در برنامه های کاربردی Office را VBA می نامند که مخفف Visual Basic For Applications می باشد. این زبان توسط شرکت نرم افزاری مایکروسافت طراحی شده است و در تمامی نرم افزارهای Office قابل استفاده می باشد.

 

کاربرد زبان برنامه نویسی VBA:

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

حل فلوچارت تمرین 6 (اعداد اول بین 1 تا 100)

برای دانلود فلوچارت، بر روی لینک زیر کلیک نمائید.

دریافت فلوچارت اعداد اول بین 1 تا 100
حجم: 257 کیلوبایت