Forum - VBA Κωδικας VBA για άνοιγμα φόρμας

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [VBA] Κωδικας VBA για άνοιγμα φόρμας (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/1652-kodikas-visual-basic-applications-gia-anoigma-formas.html)

ΘΟΔΩΡΟΣ

15-02-12 17:30

Κωδικας VBA για άνοιγμα φόρμας

Καλησπέρα,
¨Εχω το παρακάτω τμήμα ενός κώδικα που δημιουργεί ένα button αυτόματα, το μετονομάζει και αλλάζει και τα χαρακτηριστικά. Θέλω αφού εκτελεστεί αυτό ο κώδικας, πατώντας στο button να μου ανοίγει ένα userform που έχω φτιάξει. Πως μπορώ?

ActiveSheet.Buttons.Add(500.5, 20, 151, 36).Select
Selection.Name = "New Button"
Selection.OnAction = "create table"
ActiveSheet.Shapes("New Button").Select
Selection.Characters.Text = "create table"

With Selection.Characters(Start:=1, Length:=22).Font
.Name = "Arial"
.FontStyle = "¸íôïíá"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With

Range("A1").Select

gr8styl

15-02-12 19:48

Θόδωρε η γραμμή

MyForm.Show

εμφανίζει την φόρμα "MyForm"

Tasos

15-02-12 21:27

καλησπέρα σε όλους!

Φίλε Θόδωρε δοκίμασε:

Κώδικας:



Option Explicit
 

Sub MakeButton()

    With ActiveSheet.Buttons.Add(500, 20, 140, 40)

        .Name = "Mybutton"

        .Caption = "Open Userform"

        .OnAction = "ShowUserForm"

        '...άλλες ιδιότητες...

    End With

End Sub
 

Sub ShowUserForm()

    MsgBox "Πάτησες το κουμπί: " & Application.Caller ' δοκιμή λειτουργίας

    'Userform1.Show  ' ανοίγει τη φόρμα

End Sub

Φιλικά

Τάσος

ΘΟΔΩΡΟΣ

15-02-12 23:37

Καλησπέρα και πάλι,
Θανάση ο κώδικας που αναφέρεις θέλω να ενσωματωθεί στον κώδικα μου ο οποίος δημιουργεί αυτόματα μπουτόν που "όταν πατηθεί να ανοιγεί τη φόρμα". Το εντός '''' κείμενο πως μεταφράζεται σε VBA?
Φίλε Τάσο τον δικό σου κώδικα τον αντέγραψα σε ένα αρχείο αλλά δεν κάνει τίποτα. Επειδή είμαι αρχάριος στον προγραμματισμό, μήπως κάνω κάτι λάθος?

Η ώρα είναι 18:55.

Search Engine Optimization by vBSEO 3.3.2