نمونه کدهای VBA در اکسل: شروعی آسان برای خودکارسازی کارها

VBA (Visual Basic for Applications) زبان برنامه‌نویسی داخلی مایکروسافت اکسل است که به شما امکان می‌دهد وظایف تکراری، پردازش داده‌ها و ایجاد ابزارهای تعاملی را با کمترین زمان ممکن انجام دهید. در این مقاله به مجموعه‌ای از نمونه کدهای VBA پرداخته می‌شود که برای کاربران تازه‌کار و پیشرفته مفید هستند.

۱‑ ایجاد یک ماکرو ساده برای محاسبه مجموع ستون

این ماکرو مجموع تمام مقادیر موجود در ستون A را محاسبه و در سلول B1 نمایش می‌دهد.

Sub SumColumnA()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.ActiveSheet
    
    Dim total As Double
    total = Application.WorksheetFunction.Sum(ws.Range("A:A"))
    
    ws.Range("B1").Value = total
End Sub

۲‑ جستجو و جایگزینی خودکار در تمام شیت‌ها

کد زیر به‌طور خودکار کلمه «پایان» را در تمام شیت‌های موجود در کتاب‌کار با «تمام شد» جایگزین می‌کند.

Sub ReplaceInAllSheets()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        sh.Cells.Replace What:="پایان", Replacement:="تمام شد", _
            LookAt:=xlPart, MatchCase:=False
    Next sh
End Sub

۳‑ اضافه کردن یک دکمه به شیت و اتصال به ماکرو

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

Sub AddButton()
    Dim btn As OLEObject
    Set btn = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
        Left:=100, Top:=50, Width:=120, Height:=30)
    
    btn.Object.Caption = "محاسبه مجموع"
    btn.Name = "btnSum"
    
    ' اتصال ماکرو به دکمه
    btn.OnAction = "SumColumnA"
End Sub

۴‑ استخراج داده‌ها به یک فایل متنی

این ماکرو تمام داده‌های موجود در محدوده A1:C10 را به صورت CSV در یک فایل متنی ذخیره می‌کند.

Sub ExportToCSV()
    Dim rng As Range
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:C10")
    
    Dim fso As Object, txt As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set txt = fso.CreateTextFile("C:\Temp\output.csv", True, True)
    
    Dim r As Long, c As Long, line As String
    For r = 1 To rng.Rows.Count
        line = ""
        For c = 1 To rng.Columns.Count
            line = line & rng.Cells(r, c).Value
            If c < rng.Columns.Count Then line = line & ","
        Next c
        txt.WriteLine line
    Next r
    txt.Close
End Sub

۵‑ اعتبارسنجی داده‌های ورودی با پیام هشدار

به‌منظور جلوگیری از ورود داده‌های نامعتبر به سلول B2، می‌توانید از کد زیر استفاده کنید.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("B2")) Is Nothing Then
        If Not IsNumeric(Target.Value) Then
            MsgBox "لطفاً فقط عدد وارد کنید.", vbExclamation, "خطا"
            Application.EnableEvents = False
            Target.ClearContents
            Application.EnableEvents = True
        End If
    End If
End Sub

نتیجه‌گیری

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

نمونه کدهای vba در اکسل