Osoita makro

Tee solusta kuva

1. Nauhoita haluamasi makro ( tai jos sinulla on jo makro siirrry kohtaan 2)
2. Avaa muokkaa valikko pitämällä vaihto - näppäin pohjassa ja valitse kopioi kuva
3. Valitse avautuvasta valikosta vaihtoehto kopioi kuva kuten näytössä
4.Toista kohta 2
5.Valitse liitä kuva vaihtoehto
6. Klikkaa oikealla liitettyä solua ja valitse vaihtoehto liitä makro
7. Valitse liitettävä makro

Testaa solua

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
If Target.Value > 10 Then
MsgBox "Laita tähän kohtaan koodia..."
End If
End If
End Sub

Sama kuin edellinen tapaus

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address(False, False)
Case "D6"
MsgBox "Tämä on D6:n makro"
Case "E16"
MsgBox "Tämä onE16:n makro"
Case "B18"
MsgBox "Tämä on B18:n makro"
Case "G22", "H18", "I20"
MsgBox "Tämä on G22:n,H18:n ja I20:n makro"
End Select
End Sub

Laita soluun hyperlinkki

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Select Case Target.Name
Case "Linkki1"
MsgBox "Tämä on linkki1:n makro"
Case "Linkki2"
MsgBox "Tämä on linkki2:n makro"
Case "Linkki3", "Linkki4", "Linkki5"
MsgBox "Tämä on linkki3:n,linkki4:n ja linkki5:n makro"
End Select
End Sub