[VBA] Δημιουργία φόρμας

[Spirosgr]

Χωρίς να αναλύσουμε κάτι άλλο για τους κώδικες,
ο κώδικας που ακολουθεί, ανοίγει (κατ' επιλογή) τρεις φόρμες:

UserForm1, UserForm2, UserForm3
Η ενεργοποίηση της κάθε φόρμας, γίνεται με κλικ στα κελιά a1, a2, a3 της πρώτης (Α) στήλης,
του φύλλου που θα τον αντιγράψουμε.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 1 Then Exit Sub
    If Target.Columns.Count > 1 Then Exit Sub
    If Target.Rows.Count > 1 Then Exit Sub
    
    If Target.Row = 1 Then UserForm1.Show
    If Target.Row = 2 Then UserForm2.Show
    If Target.Row = 3 Then UserForm3.Show
End Sub

Είναι φτιαγμένος, με τέτοιο τρόπο, ώστε να μπορεί κανείς, να προσθέσει κι άλλες φόρμες
αν θέλει και να βάλει σε αυτόν, νέες γραμμές, όπως η (If Target.Row = 1 Then UserForm1.Show)
αντικαθιστώντας πχ το 1 με 7 και το UserForm1 με UserForm(x)
για να ανοίξει, από το a7, μια νέα φόρμα, με όνομα UserForm(x).

Παράδειγμα, στο βιβλίο που ακολουθεί.