Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [VBA] Εμφάνιση σταθερού κειμένου κατά την εκτέλεση κώδικα (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/1624-emfanisi-statheroi-keimenoy-kata-tin-ektelesi-kodika.html)

ΘΟΔΩΡΟΣ 09-02-12 12:21
Εμφάνιση σταθερού κειμένου κατά την εκτέλεση κώδικα
 
Καλημέρα σας,
Εχω τον παρακάτω κώδικα που αυτόματα αντιγράφει (δημιουργεί) και ταυτόχρονα μετονομάζει κάποιο φύλλο εργασίας.

Sub Button173_Click()
'Replace "RankingList" with the name of the sheet to be copied.
ActiveWorkbook.Sheets("RankingList").Copy _
after:=ActiveWorkbook.Sheets("RankingList")
Sheets("RankingList (2)").Name = "RankingListNew"
End Sub

1) Θέλω όταν εκτελείται αυτή η διαδικασία να εμφανίζεται κάποιο κείμενο με οδηγίες χρήσεις στο νέο φύλλο που δημιουργείται, και
2) Αν υπάρχει η δυνατότητα σε αυτό το κείμενο να συμπεριλαμβάνονται πλήκτρα εντολών με αντίστοιχους κώδικες

gr8styl 09-02-12 14:58
Φίλε μου ο κώδικάς σου θα δουλέψει μια φορά μόνο γιατί την δεύτερη φορά θα κολλήσει στο
Sheets("RankingList (2)").Name = "RankingListNew"
γιατί το φύλλο "RankingListNew" θα υπάρχει ήδη !!!

Αφου διορθώσεις αυτό τότε, για την εμφάνιση μηνύματος και κουμπιά, μπορείς να αξιοποιήσεις το MsgBox
Παράδειγμα:
Μετά το Sub Button173_Click() βάλε
Κώδικας:
Dim Answer
και πριν το End Sub βάλε
Κώδικας:
Answer = MsgBox("Here comes you text message", vbYesNoCancel)
Select Case Answer
Case vbYes
'code for Button Yes
    MsgBox "You pressed Yes"
Case vbno
'code for Button No
    MsgBox "you pressed No"
Case vbcancel
'code for Button Cancel
    MsgBox "You pressed Calcel"
End Select

ΘΟΔΩΡΟΣ 09-02-12 23:38
Η μέθοδος που προτείνεις είναι αποτελεσματική αλλά δεν είναι αυτό που ζητώ. Λάθος δικό μου που δεν έγινα πιο σαφής. Θέλω να μου εμφανίζει κείμενο εντός του φύλλου (οδηγίες χρήσεις), σε κάποια κελιά που θα καθορίσω (ίσως και εντός text box που θα δημιουργείται). Σε ένα τμήμα των οδηγιών πιέζοντας ένα πλήκτρο θέλω αυτόματα να ταξινομεί στοιχεία ενός πίνακα που βρίσκονται στο ίδιο φύλλο (αν αυτό το σκέλος είναι δύσκολο δεν πειράζει, θα βάλω οδηγίες για τον κλασσικό τρόποτ του excel).
Οσον αφορά την παρατήρηση σου το έχω υπόψη μου, το φύλλο αυτό θα σβήνεται μετά από την ολοκλήρωση της διαδικασίας.

gr8styl 11-02-12 23:50
1 Συνημμένο(α)
Καλησπέρα / καλημέρα
Θεόδωρε δες μια προταση στο συνημμένο με χρήση φόρμας που χρησιμοποιεί ένα στοιχείο ελέγχου Κειμένου και μπορείς να προσθέσεις κουμπιά ανάλογα των απαιτήσεων.
Νομίζω θα σε βοηθήσει αν έχω καταλάβει το ζητούμενο.

Πες μας αν έγινε.

Θανάσης


Η ώρα είναι 13:10.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2