Excel / VBA - Ένα συμβάν που θα σας ζητήσει σχόλια
Θέμα
Προσπαθώ να δημιουργήσω μια εκδήλωση μέσα σε πολλαπλά κελιά που θα ζητούσε ένα σχόλιο αν πληρούνται ορισμένες προϋποθέσεις.
Για παράδειγμα:
- Αν c1 <3.2 τότε [run event]
- Θέλω το γεγονός να λάβει τις φόρμες ένα αναδυόμενο παράθυρο σχολίου το οποίο θα σώσει σε ένα σχόλιο για το κελί.
Λύση
Δοκιμάστε αυτό:
("C1") <3.2 Στη συνέχεια MyMessage = InputBox ("Παρακαλώ εισάγετε το σχόλιό σας") Αν δεν υπάρχει τίποτα στη συνέχεια, ) Με εύρος ("C1") .ClearComments.AddComment.Comment.Visible = False .Comment.Text Κείμενο: = MyMessage Τέλος με τέλος Αν τελειώσει Sub
Χάρη στην TrowaD για αυτή την συμβουλή.