14-01-15, 23:17
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.321
| |
Το Μήνυμα σφάλματος, λέει ότι δεν έχει δηλωθεί κάποια μεταβλητή.
Δήλωσε την Result As VbMsgBoxResult. Συμπληρωματικά να πούμε το εξής:
Προφανώς, θέλεις με κάποιο msgbox Yes/No, να παίρνεις κατά περίπτωση, κάποια αποτελέσματα.
Καλύτερα, να μην χρησιμοποιήσεις, ούτε μεταβλητή, ούτε Select case. Κώδικας: If MsgBox("Το κείμενό σας!", vbYesNo Or vbQuestion, "Ο Τίτλος σας!") = vbYes Then
'Τι θα κάνει στο Yes
MsgBox "Το κείμενό σας!", vbInformation, "Ο Τίτλος σας!"
Else
'Τι θα κάνει στο No
End If
Αυτό είναι αρκετό και πιο σωστό.
|