Οι μακροεντολές διαγραφή τύπων συνδέσεων στο Excel για Mac

ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο είναι προϊόν λογισμικού μηχανικής μετάφρασης της Microsoft και όχι ανθρώπινης μετάφρασης. Η Microsoft σάς προσφέρει άρθρα που είναι προϊόντα ανθρώπινης αλλά και μηχανικής μετάφρασης έτσι ώστε να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής Βάσης μας στη δική σας γλώσσα. Ωστόσο, ένα άρθρο που έχει προκύψει από μηχανική μετάφραση δεν είναι πάντα άριστης ποιότητας. Ενδέχεται να περιέχει λεξιλογικά, συντακτικά ή γραμματικά λάθη, όπως ακριβώς τα λάθη που θα έκανε ένας μη φυσικός ομιλητής επιχειρώντας να μιλήσει τη γλώσσα σας. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες της. Επίσης, η Microsoft πραγματοποιεί συχνά ενημερώσεις στο λογισμικό μηχανικής μετάφρασης.

Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη:192895
Αυτό το αρχείο έχει αρχειοθετηθεί. Προσφέρεται “ως έχει” και δεν θα ενημερώνεται πια.
Για Microsoft Excel 97 ή παλαιότερη έκδοση αυτού του άρθρου, ανατρέξτε στο126093.
Περίληψη
Όταν ανοίγετε ένα βιβλίο εργασίας που περιέχει συνδέσεις σε άλλο βιβλίο εργασίας, το Microsoft Excel σας ρωτά αν θέλετε να ενημερώσετε τις συνδέσεις. Εάν υπάρχει το αρχείο που η σύνδεση αναφέρεται πλέον σε ή έχει μετακινηθεί σε διαφορετικό φάκελο, ενδέχεται να θέλετε να διαγράψετε τις συνδέσεις για να αποφύγετε αυτό το μήνυμα.
Περισσότερες πληροφορίες
Ένας από τους πιο κοινούς τύπους συνδέσεων είναι τύπου σύνδεσης. Ένας τύπος σύνδεσης σε ένα κελί μπορεί να αναφέρεται σε ένα κελί σε ένα αρχείο κλειστό βιβλίο εργασίας. Εάν αυτό το αρχείο δεν υπάρχει πλέον, ο τύπος δεν είναι πλέον έγκυρη. Για να διαγράψετε μια σύνδεση, κάντε κλικ στο κουμπίΕύρεσηΣτο διακομιστήΕπεξεργαστείτε τη διαδρομήμενού και να αναζητήσετε ένα θαυμαστικό (!). Ή, εάν αυτή η ενέργεια αποτύχει, αναζητήστε μια αγκύλη ([]). Αυτό θα εμφανίσει κάθε σύνδεση σε ένα φύλλο. Στη συνέχεια, μπορείτε να μεταβείτε σε κάθε κελί, διαγράψτε τον τύπο και την αντικαταστήσετε με την τιμή που είχε στο κελί. Εάν πολλά κελιά περιέχουν συνδέσεις, διαγράφοντας τις συνδέσεις ενδέχεται να διαρκέσει λίγη ώρα. Για να επιταχύνετε τη διαδικασία διαγραφής, ίσως θελήσετε να χρησιμοποιήσετε μία από τις ακόλουθες μεθόδους. Οι μακροεντολές θα σας επιτρέψει να διαγράψετε ορισμένες συνδέσεις και όχι από άλλους. Δεν διαγράφει τις συνδέσεις σε βιβλία εργασίας που είναι ανοιχτά ή μέσα στο ενεργό βιβλίο εργασίας.

ΣΗΜΕΙΩΣΗ: Αυτές οι μακροεντολές ενδέχεται να μην λειτουργούν, εάν το αρχείο προέλευσης για μια σύνδεση βρίσκεται σε μια μονάδα δίσκου δικτύου. Εάν συμβαίνει αυτό, η σύνδεση θα βρεθεί αλλά θα δεν διαγράφονται.

Παράδειγμα κώδικα της Visual Basic

Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για λόγους επεξήγησης, χωρίς να παρέχει καμία εγγύηση, σιωπηρή ή ρητή. Σε αυτά περιλαμβάνονται, ενδεικτικά, οι σιωπηρές εγγυήσεις εμπορευσιμότητας ή/και καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που παρουσιάζεται, καθώς και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία και τον εντοπισμό σφαλμάτων κώδικα διαδικασιών. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας, αλλά δεν θα τροποποιήσουν αυτά τα παραδείγματα, για να παράσχουν πρόσθετες λειτουργίες, ούτε θα δημιουργήσουν διαδικασίες, για να καλύψουν τις συγκεκριμένες απαιτήσεις σας.
  1. Πληκτρολογήστε τον ακόλουθο κώδικα μακροεντολής σε ένα νέο φύλλο λειτουργικής μονάδας:
        Option Base 1    'This macro deletes all formula links in a workbook.    '    'This macro does not delete a worksheet formula that references an open    'book, for example:    '    '   =[Book1.xls]Sheet1!$A$1    '    ' To delete only the links in the active sheet, see the comments    ' provided in the Delete_It macro later in this article.    Public Times As Integer    Public Link_Array As Variant    Sub Should_Delete()    Items = 0 'initialize these names    Times = 0    Link_Array = ActiveWorkbook.LinkSources 'find all document links    Items = UBound(Link_Array) 'count the number of links    For Times = 1 To Items    'Ask whether to delete each link    Msg = "Do you want to delete this link:  " & Link_Array(Times)      Style = vbYesNoCancel + vbQuestion + vbDefaultButton2      Response = MsgBox(Msg, Style)      If Response = vbYes Then Delete_It      If Response = vbCancel Then Times = Items    Next Times    End Sub    Sub Delete_It()    Count = Len(Link_Array(Times))    For Find_Bracket = 1 To Count - 1      If Mid(Link_Array(Times), Count - Find_Bracket, 1) = ":" _      Then Exit For    Next Find_Bracket    'Add brackets around the file name.    With_Brackets = Left(Link_Array(Times), Count - Find_Bracket) & _      "[" & Right(Link_Array(Times), Find_Bracket) & "]"    'Does the replace.    'If you want to remove links only on the active sheet, change the    'next two lines into comments by placing an (') apostrophe in front of    'them as well as the line, "Next Sheet_Select", that closes the loop.    For Each Sheet_Select In ActiveWorkbook.Worksheets    Sheet_Select.Activate    Set Found_Link = Cells.Find(what:=With_Brackets, After:=ActiveCell, _            lookin:=xlFormulas, lookat:=xlPart, searchorder:=xlByRows, _            searchdirection:=xlNext, matchcase:=False)       While UCase(TypeName(Found_Link)) <> UCase("Nothing")           Found_Link.Activate           On Error GoTo anarray           Found_Link.Formula = Found_Link.Value           Set Found_Link = Cells.FindNext(After:=ActiveCell)       Wend    Next Sheet_Select 'To remove links only on the active sheet                     'place an (') apostrophe at the front of this line.    Exit Sub    anarray:    Selection.CurrentArray.Select    Selection.Copy    Selection.PasteSpecial Paste:=xlValues    Resume Next    End Sub					
  2. Εκτελέστε τη μακροεντολή Should_Delete.
  3. Προσδιορίζεται κάθε σύνδεση στο βιβλίο εργασίας και για κάθε σύνδεση ερωτηθείτε αν θέλετε να διαγράψετε τη σύνδεση. Εάν κάνετε κλικ στο κουμπίYES, διαγράφεται η σύνδεση και η τρέχουσα τιμή του κελιού που είναι αποθηκευμένο σε κάθε ένα από τα κελιά που ήταν προηγουμένως συνδεδεμένα.
XL98 MacXLX XL2001

Προειδοποίηση: Αυτό το άρθρο έχει μεταφραστεί αυτόματα

Ιδιότητες

Αναγνωριστικό άρθρου: 192895 - Τελευταία αναθεώρηση: 12/05/2015 09:18:30 - Αναθεώρηση: 4.0

Microsoft Excel 2004 for Mac, Microsoft Excel X for Mac, Microsoft Excel 2001 για Mac, Microsoft Excel 98 για Macintosh

  • kbnosurvey kbarchive kbdtacode kbhowto kbmt KB192895 KbMtel
Σχόλια