Visual Basic/Fampiasana Visual Basic amin'ny Excel

Torolàlana Visual Basic amin'ny Excel: Endri-javatra Fototra sy Mandroso

Visual Basic for Applications (VBA) dia fiteny fandaharana ampiasaina ao amin'ny Microsoft Excel mba hamoronana macros sy hampandehanana asa maro amin'ny fomba mandeha ho azy. Ity cheatsheet ity dia manome topi-maso fohy momba ny endri-javatra fototra sy mandroso amin'ny VBA ao amin'ny Excel.

Fomba fototra amin'ny VBA amin'ny Excel

• Fidirana amin'ny Visual Basic Editor :

Mba hanoratana kaody VBA dia mila miditra amin'ny Visual Basic Editor ianao amin'ny alalan'ny fanindriana ny Alt + F11 ao amin'ny Excel.

• Famoronana Macro Tsotra :

Macro dia andiana kaody VBA izay azo alefa mivantana avy ao amin'ny Excel. Ity misy ohatra amin'ny macro tsotra izay mampiseho hafatra.

Sub Fiarahabana()
    MsgBox "Tonga soa amin'ny Excel VBA!"
End Sub

• Fampiharana Macro :

Azonao atao ny mampandeha macro amin'ny alalan'ny fanindriana Alt + F8, safidio ny anaran'ny macro, ary tsindrio ny Run.

• Fikarakarana Tranga (Event Handling) :

Ny VBA dia mamela anao hamorona kaody izay mandeha ho azy rehefa mitranga ny hetsika iray, toy ny fidiran'ny angona na ny fisafidianana sela.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        MsgBox "Nisy fiovana tao amin'ny sela A1!"
    End If
End Sub

• Fametrahana Angona ao amin'ny Sela :

Azonao atao ny mametraka angona mivantana ao amin'ny sela amin'ny alalan'ny VBA.

Sub MametrakaAngona()
    Range("A1").Value = "Salama, Excel!"
End Sub

• Famafana Angona ao amin'ny Sela :

Azonao atao ny mamafa angona amin'ny sela na manadio sela iray.

Sub MamafaAngona()
    Range("A1").ClearContents
End Sub

Endri-javatra Mandroso amin'ny VBA amin'ny Excel

• Fifandraisana amin'ny Tahiry (Database) :

VBA dia ahafahanao mifandray amin'ny tahiry toy ny Access na SQL Server mba haka na handefa angona.

Sub MifandrayAminTahiry()
    Dim conn As Object
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\database.accdb;"

    Dim rs As Object
    Set rs = conn.Execute("SELECT * FROM Table1")

    Do While Not rs.EOF
        MsgBox rs.Fields("Anarana").Value
        rs.MoveNext
    Loop

    rs.Close
    conn.Close
End Sub

• Mandefa Mailaka miaraka amin'ny Angona ao amin'ny Excel :

Azonao atao ny mandefa mailaka miaraka amin'ny angona ao amin'ny Excel amin'ny alalan'ny Outlook mampiasa VBA.

Sub MandefaMailaka()
    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .To = "mpandray@example.com"
        .Subject = "Tatitra avy amin'ny Excel"
        .Body = "Ity ny tatitra momba ny angona."
        .Attachments.Add ActiveWorkbook.FullName
        .Send
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

• Fampiasa miaraka amin'ny Formulara (Forms) :

Ny formulara (UserForm) dia ahafahanao mamorona interface graphique ho an'ny mpampiasa mba hampidirana angona sy hampandehanana kaody VBA.

Sub AsehoyFormulary()
    UserForm1.Show
End Sub

Ohatra Formulary

Private Sub CommandButton1_Click()
    Dim name As String
    name = TextBox1.Text
    MsgBox "Miarahaba, " & name & "!"
End Sub

• Fikarohana sy Fanesorana Duplicates :

Azonao atao ny mampiasa VBA mba hitady sy hanesorana duplicates ao amin'ny angona ao amin'ny Excel.

Sub EsoryDuplicates()
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row

    Dim i As Long
    For i = lastRow To 2 Step -1
        If WorksheetFunction.CountIf(Range("A1:A" & i), Cells(i, 1)) > 1 Then
            Rows(i).Delete
        End If
    Next i
End Sub

• Fampidirana Macro ao amin'ny bokotra :

Azonao atao ny mampifandray macro amin'ny bokotra iray ao amin'ny pejy Excel mba hampandehanana ilay macro rehefa tsindriana ny bokotra.

Sub MamoronaBokotra()
    Dim btn As Object
    Set btn = ActiveSheet.Buttons.Add(100, 100, 100, 30)
    btn.OnAction = "Fiarahabana"
    btn.Caption = "Tsindrio Aho"
End Sub

Fehiny

Visual Basic for Applications (VBA) dia fitaovana mahery vaika ao amin'ny Excel izay ahafahanao mamorona macros sy mamolavola asa maro amin'ny fomba mandeha ho azy. Amin'ny alalan'ny fahalalana ireo endri-javatra fototra sy mandroso ireo, dia afaka manatsara ny fahombiazanao amin'ny asa ao amin'ny Excel ianao, ary mamorona rindrambaiko sy asa mivantana ho an'ny mpampiasa.