Τρόπος προσθήκης της διαδρομής του βιβλίου εργασίας στο υποσέλιδο στο Excel 2000

Αναγν. άρθρου: 213615 - Δείτε τα προϊόντα στα οποία αναφέρεται το συγκεκριμένο άρθρο.
Μηχανικά μεταφρασμένοΠΡΟΕΙΔΟΠΟΙΗΣΗ: ΑΥΤΟ ΤΟ ΑΡΘΡΟ ΜΕΤΑΦΡΑΣΤΗΚΕ ΜΕ ΜΗΧΑΝΙΚΗ ΜΕΤΑΦΡΑΣΗ
Για την έκδοση του Microsoft Excel 2002 αυτό το άρθρο, ανατρέξτε στην ενότητα287482
(http://support.microsoft.com/kb/287482/ )
.

Για το Microsoft Excel 98 έκδοση αυτού του άρθρου, ανατρέξτε στο184507
(http://support.microsoft.com/kb/184507/ )
.

Για το Microsoft Excel δείτε την έκδοση 97 του παρόντος άρθρου,142140
(http://support.microsoft.com/kb/142140/ )
.
Ανάπτυξη όλων | Σύμπτυξη όλων

Σε αυτήν τη σελίδα

Περίληψη

Αυτό το άρθρο περιέχει δείγμα Microsoft Visual Basic για (Μακροεντολής) εφαρμογέςΥπο-διαδικασία) που προσθέτει το όνομα διαδρομής και αρχείου βιβλίου εργασίας για την υποσέλιδο ενός φύλλου εργασίας.
Επιστροφή στην αρχή | Αποστολή σχολίων

Περισσότερες πληροφορίες

Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για επεξήγηση, χωρίς καμία εγγύηση, ρητή ή σιωπηρή. Αυτό περιλαμβάνει αλλά δεν περιορίζεται σε ΣΙΩΠΗΡΩΝ ΕΓΓΥΗΣΕΩΝ ΕΜΠΟΡΕΥΣΙΜΟΤΗΤΑΣ ή ΚΑΤΑΛΛΗΛΟΤΗΤΑΣ για ΣΥΓΚΕΚΡΙΜΕΝΟ ΣΚΟΠΟ. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που παρουσιάζεται, καθώς και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία και τον εντοπισμό σφαλμάτων διαδικασιών. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας, αλλά δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παράσχουν πρόσθετες λειτουργίες, ούτε θα δημιουργήσουν διαδικασίες για να ικανοποιεί συγκεκριμένες απαιτήσεις σας.
Η ακόλουθη μακροεντολή προσθέτει την τρέχουσα διαδρομή και το όνομα αρχείου για το υποσέλιδο αριστερά του ενεργού φύλλου εργασίας. Το βιβλίο εργασίας πρέπει να είναι Αποθήκευση για να προσθέσετε τις πληροφορίες διαδρομής στο υποσέλιδο.
   Sub UpdateFooter()

      ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName

   End Sub

Για να εισαγάγετε μια λειτουργική μονάδα της Visual Basic σε ένα βιβλίο εργασίας στο Το Microsoft Excel, πιέστε το συνδυασμό πλήκτρων ALT + F11 για να ξεκινήσετε το πρόγραμμα επεξεργασίας της Visual Basic. στη συνέχεια, κάντε κλικ στο κουμπίΛειτουργική μονάδασχετικά με τηνΕισαγωγήμενού.

Πριν εκτελέσετε τη μακροεντολή, μεταβείτε στο βιβλίο εργασίας και το φύλλο που θέλετε να εμφανίσετε τη διαδρομή στο υποσέλιδο. Μετά την εκτέλεση της μακροεντολής, το υποσέλιδο θα πρέπει να περιέχει την πλήρη διαδρομή και το όνομα του το βιβλίο εργασίας.

Εναλλακτική μέθοδος

Μπορείτε επίσης να χρησιμοποιήσετε τοBeforePrintσυμβάν βιβλίου εργασίας για την εκτέλεση ενόςΥπο-η διαδικασία που προσθέτει την τρέχουσα διαδρομή και όνομα αρχείου προς τα αριστερά υποσέλιδο του ενεργού φύλλου εργασίας πριν από την εκτύπωση του βιβλίου εργασίας. Το βιβλίο εργασίας πρέπει να αποθηκεύσετε για να προσθέσετε τις πληροφορίες διαδρομής στο υποσέλιδο. Για να δημιουργήσετε τοΥπο-η διαδικασία στο ενεργό βιβλίο εργασίας, ακολουθήστε τα εξής βήματα:
  1. Στο παράθυρο Project Explorer της επεξεργασίας Visual Basic, Κάντε διπλό κλικThisWorkbookστο τρέχον έργο.

    Ανοίγει μια λειτουργική μονάδα κώδικα που σχετίζεται με το βιβλίο εργασίας.
  2. Στη λίστα αντικείμενο για αυτήν τη λειτουργική μονάδα, κάντε κλικ στο κουμπίΤο βιβλίο εργασίας.
  3. Στη λίστα διαδικασία αυτήν τη λειτουργική μονάδα, κάντε κλικ στο κουμπίBeforePrint.
  4. Εισαγάγετε τον κωδικό, έτσι ώστε ηWorkbook_BeforePrintη διαδικασία μοιάζει με το ακόλουθο:
       Private Sub Workbook_BeforePrint(Cancel As Boolean) 
If ThisWorkbook.Path = "" Then ActiveSheet.PageSetup.LeftFooter = ThisWorkbook.Name 
Else ActiveSheet.PageSetup.LeftFooter = 
ThisWorkbook.Path & _ Application.PathSeparator & ThisWorkbook.Name End If 
End Sub

  5. Στο μενού αρχείο, κάντε κλικ στο κουμπίΚλείσιμο και επιστροφή Το Microsoft Excel.
Όταν εκτυπώνετε το βιβλίο εργασίας, το υποσέλιδο είναι αυτόματα ενημέρωση πριν από την εκτύπωση του βιβλίου εργασίας.

Χρήση του εμπορικού και (&) στο όνομα αρχείου

Εάν το όνομα αρχείου περιέχει ένα εμπορικό και (&), ίσως δεν εμφανίζονται σωστά. Αυτό συμβαίνει επειδή το Excel αντιμετωπίζει το εμπορικό "και" ως ένα ειδικό χαρακτήρας στην κεφαλίδα και το υποσέλιδο. Για να εμφανίσετε ένα εμπορικό "και" στην κεφαλίδα και υποσέλιδο, επαναλάβετε δύο φορές το σύμβολο (&). Για να γίνει αυτό, η μακροεντολή, χρησιμοποιήστε τοΑντικατάστασησυνάρτηση της Visual Basic for Applications:
Sub UpdateFooter()
    ActiveSheet.PageSetup.LeftFooter = Replace(ActiveWorkbook.FullName, "&", "&&")
End Sub
Επιστροφή στην αρχή | Αποστολή σχολίων

Αναφορές

Για περισσότερες πληροφορίες σχετικά με την ιδιότητα LeftFooter, στην Επεξεργασία Visual Basic, κάντε κλικ στο κουμπίΒοήθεια για το Microsoft Visual Basicσχετικά με τηνΒοήθειαμενού "," ΤύποςLeftFooter η ιδιότηταστο Βοηθό του Office ή Answer Wizard και, στη συνέχεια, κάντε κλικ στο κουμπίΑναζήτησηΓια να προβάλετε το θέμα.
Επιστροφή στην αρχή | Αποστολή σχολίων

Ιδιότητες

Αναγν. άρθρου: 213615 - Τελευταία αναθεώρηση: Δευτέρα, 19 Σεπτεμβρίου 2011 - Αναθεώρηση: 5.0
Οι πληροφορίες σε αυτό το άρθρο ισχύουν για:
  • Microsoft Excel 2000 Standard Edition
Λέξεις-κλειδιά: 
kbfooters kbmacro kbformat kbdtacode kbhowto kbprogramming kbmt KB213615 KbMtel
Μηχανικά μεταφρασμένο
ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο είναι προϊόν λογισμικού μηχανικής μετάφρασης της Microsoft και όχι ανθρώπινης μετάφρασης. Η Microsoft σάς προσφέρει άρθρα που είναι προϊόντα ανθρώπινης αλλά και μηχανικής μετάφρασης έτσι ώστε να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής Βάσης μας στη δική σας γλώσσα. Ωστόσο, ένα άρθρο που έχει προκύψει από μηχανική μετάφραση δεν είναι πάντα άριστης ποιότητας. Ενδέχεται να περιέχει λεξιλογικά, συντακτικά ή γραμματικά λάθη, όπως ακριβώς τα λάθη που θα έκανε ένας μη φυσικός ομιλητής επιχειρώντας να μιλήσει τη γλώσσα σας. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες της. Επίσης, η Microsoft πραγματοποιεί συχνά ενημερώσεις στο λογισμικό μηχανικής μετάφρασης.
Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη:213615
(http://support.microsoft.com/kb/213615/en-us/ )
Επιστροφή στην αρχή | Αποστολή σχολίων

Αποστολή σχολίων

 
Επιστροφή στην αρχήΕπιστροφή στην αρχή