Primjer 002 – VBA

Posted: decembar 6, 2011 in Uncategorized
Oznake:, ,

Programirati makro:
• koji se startuje sa Standard palete alatki, pri čemu je ime dugmeta Prvi;
• nakon startovanja se pojavljuje forma, na kojoj se nalaze tri komandna dugmeta;
• prvo dugme otvara Open dijalog Excel-a, koji korisniku omogućava odabir tekstualnog fajla, čiji ćemo
sadržaj iskopirati u radni list Excel-a, pri čemu kopiramo samo redove fajla koji ne počinju karakterom #;
• drugo dugme aktivira kopiranje teksta.
• treće dugme zatvara formu.

Ovo ide u ThisWorkBook modul:
Private Sub Workbook_Open()
Dim D As CommandBarButton
Set D = Application.CommandBars(„Standard“).Controls.Add_
(Type:=msoControlButton, Temporary:=True)
With D
.Style = msoButtonCaption
.Caption = „Prvi“
.OnAction = „Filter_text“
End With
End Sub
Ovo ide u standardni modul:
Sub Filter_text()
Forma1.Show Modeless
End Sub
Ovo ide u modul forme:
Public S As String
Private Sub CommandButton1_Click()
S = Application.GetOpenFilename(„Tekstualni (*.txt), *.txt“)
End Sub
Private Sub CommandButton2_Click()
Dim I As Integer, STR As String
Open S For Input As #1
I = 0
Do Until EOF(1)
Line Input #1, STR
If Mid(STR, 1, 1) <> „#“ Then
I = I + 1
ActiveSheet.Cells(I, 1) = STR
End If
Loop
Close #1
End Sub
Private Sub CommandButton3_Click()
Forma1.Hide
End Sub

Advertisements

Zatvoreno za komentare.