Makro zaznaczajęce komórki zawierające podany tekst
Tworzenie formularza
Z menu Narzędzia | Makro wybieramy Edytor Visual Basic. W uruchomionym edytorze Visual Basica z menu Insert wybieramy "User form".
Do formularza, który się pojawił dodajemy komponenty: Label, TextBox i CommandButton. Właściwości formularza i jego komponentów
zmieniamy tak aby jego wygląd był następujący:
Kod programu
Następnie klikamy dwukrotnie w przycisk z napisem "Wykonaj". Spowoduje to wygenerowanie szablonu metody:
Private Sub CommandButton1_Click()
End Sub
Szablon ten uzupełniamy następującym kodem:
Private Sub CommandButton1_Click()
Dim i, tekst
tekst = TextBox1.Text
i = 1
Do While ActiveSheet.Cells(i, 1) <> ""
If InStr(ActiveSheet.Cells(i, 1), tekst) > 0 Then
ActiveSheet.Cells(i, 1).Select
Selection.Font.Bold = True
End If
i = i + 1
Loop
End Sub