Ξεκινήστε το Excel και κάντε κλικ στην καρτέλα "Προγραμματιστής " . Κάντε κλικ στο " Visual Basic" για να ανοίξετε το Microsoft Visual Basic. 2
Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " Ενότητα " για να εισάγετε μια νέα λειτουργική μονάδα κώδικα VBA . Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να δημιουργήσετε μια νέα διαδικασία ρουτίνας :
Private Sub removeSpaceFromString ( )
Press " . Enter"
εικόνων 3
Πληκτρολογήστε το ακόλουθο κώδικα για να δημιουργήσετε μια νέα μεταβλητή που χρησιμοποιείται για να κρατήσει ένα string :
Dim stringWithSpace Όπως String
Η
4 Πληκτρολογήστε τον ακόλουθο κώδικα για να ορίσετε μια τιμή string στη μεταβλητή :
stringWithSpace = " αυτή η συμβολοσειρά περιέχει κενά "
5
Πληκτρολογήστε τον ακόλουθο κώδικα για να αφαιρέσετε τα κενά από μεταβλητή :
stringWithSpace = Αντικατάσταση ( stringWithSpace , " " , " " )
6
Πληκτρολογήστε τον ακόλουθο κώδικα για να εμφανίσετε το string χωρίς διαστήματα στο παράθυρο άμεσης παρακολούθησης :
Debug.Print stringWithSpace
Εάν χρειαστεί , πατήστε το πλήκτρο " Ctrl " και " G" για να ανοίξετε το παράθυρο άμεσης παρακολούθησης .
Η
7 Κάντε κλικ στο μενού "Run " και κάντε κλικ στο "Run Φόρμα Sub /χρήστη" για να εκτελέσει τον κώδικα και να εμφανίσει το string χωρίς κενά .
Η
Η
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα