Πώς να ορίσετε ένα χρώμα κελιού Excel σύμφωνα με μια συνθήκη με το VBA;
Ανακαλύψτε πώς να ρυθμίσετε το χρώμα κελιού Excel ανάλογα με μια συνθήκη χρησιμοποιώντας VBA.
Δυνατότητα εφαρμογής: Word 365, 2019, 2016; Λειτουργικά συστήματα Windows και MAC OS X.
Ακολουθεί μια ερώτηση από έναν αναγνώστη:
Είμαι δάσκαλος συνήθως χρησιμοποιώ το Word 2019 για να γράψω τα έγγραφά μου. Συχνά χρειάζεται να αλλάζω τη γραμματοσειρά και το μέγεθος των παραγράφων του εγγράφου μου. Υπάρχει τρόπος να αυτοματοποιήσω την εργασία μου με Μακροεντολές, ώστε να μπορώ να τροποποιήσω την παράγραφο του εγγράφου μου με ένα κλικ; Είμαι βέβαιος ότι αυτό θα μου εξοικονομήσει μερικές ώρες την εβδομάδα, τις οποίες ευχαρίστως θα επενδύσω σε άλλες εργασίες.
Ευχαριστώ για την ερώτησή σας. Το βασικό πλεονέκτημα των μακροεντολών είναι ότι σας επιτρέπουν να αυτοματοποιείτε τις εργασίες σας σε εφαρμογές του Microsoft Office. Οι μακροεντολές μπορούν είτε να εγγραφούν είτε να κωδικοποιηθούν χειροκίνητα χρησιμοποιώντας τη Visual Basic for Applications (VBA). Το Word αποστέλλει μια συσκευή εγγραφής μακροεντολών που σας επιτρέπει να αναπτύσσετε σενάρια αυτοματισμού χωρίς κωδικοποίηση. Εάν μόλις ξεκινάτε με την αυτοματοποίηση, αυτή μπορεί να είναι μια αρκετά καλή λύση. Τούτου λεχθέντος, με λίγη γνώση VBA, μπορείτε να γράψετε αποτελεσματικές και ισχυρές μακροεντολές.
Ενεργοποίηση της καρτέλας προγραμματιστή στο Word
Εάν δεν βλέπετε την καρτέλα Προγραμματιστής στην κορδέλα του Microsoft Word, θα πρέπει να ρυθμίσετε το περιβάλλον ανάπτυξης Macro.
Εγγραφή μακροεντολής Word – ένα πρακτικό παράδειγμα
Αποθηκεύστε την εργασία σας σε ένα πρότυπο με δυνατότητα Word Macro
Εκτέλεση της μακροεντολής σας
Αντιστοίχιση της μακροεντολής σας σε κουμπιά ή συντομεύσεις πληκτρολογίου
Σημείωση: Αυτό είναι ένα προαιρετικό βήμα που πρέπει να επιχειρήσετε αφού ακολουθήσετε τον παραπάνω οδηγό εγγραφής μακροεντολών.
Εντάξει, μέχρι στιγμής έχουμε λειτουργήσει τα βασικά μας Macro. Τώρα ήρθε η ώρα να βελτιώσουμε λίγο τη χρηστικότητα των Macro στο Word doc. Επιτρέψτε μου να σας δείξω πώς μπορείτε να συσχετίσετε τη μακροεντολή σας με ένα κουμπί γρήγορης πρόσβασης, ώστε να μπορείτε να την εκκινήσετε πιο εύκολα.
Σημείωση: Μπορείτε να συσχετίσετε τη μακροεντολή του Word όχι μόνο με κουμπιά γρήγορης πρόσβασης αλλά και με κουμπιά εντολών που είναι ενσωματωμένα στο έγγραφό σας και συγκεκριμένες προσαρμοσμένες συντομεύσεις πληκτρολογίου.
Δημιουργία μακροεντολών Word με χρήση VBA
Με μερικές απλές δεξιότητες κωδικοποίησης της Visual Basic for Applications μπορούμε να επεξεργαστούμε τις μακροεντολές και να γράψουμε προγράμματα για να αυτοματοποιήσουμε διάφορα είδη εργασιών χρησιμοποιώντας VBA.
Εκτός σημείωσης: FYI – ορισμένες από τις εφαρμογές του Microsoft Office, όπως το Powerpoint και το Outlook, δεν διαθέτουν ενσωματωμένες συσκευές εγγραφής μακροεντολών. Επομένως, η εγγραφή VBA είναι υποχρεωτική για τη σύνταξη μακροεντολών Powerpoint και την αυτοματοποίηση του Outlook.
[code] Selection.Font.Color [/code]
[code] Selection.Font.Color = 16737792[/code]
Χρήσιμο παράδειγμα Word Macro που μπορείτε να γράψετε
Από τη δημοσίευση αυτού του σεμιναρίου, πολλοί αναγνώστες ζήτησαν περισσότερα σε βάθος παραδείγματα μακροεντολών του Word. Αυτή η λίστα καλύπτει τις πιο διαδεδομένες εργασίες που μπορείτε να αυτοματοποιήσετε χρησιμοποιώντας τη Visual Basic στο Word. Ορίστε:
Δημιουργία και αποθήκευση νέου εγγράφου
Sub CreateNewDoc()
'This small snippet first creates a new document, then it checks whether a document with the same name already exists before saving.
Dim myDoc As New Document
Dim filePath As String
'Modify your file path as needed
filePath = "C:\MyNewDoc.docx"
Set myDoc = Documents.Add
With myDoc
If Dir(filePath) = "" Then
.SaveAs2 (filePath)
Else
'You have already an existing document
MsgBox ("Please use a different file name")
End If
End With
myDoc.Close SaveChanges:=wdPromptToSaveChanges
End Sub
Σημείωση: Κατά τη δημιουργία νέων εγγράφων, μπορείτε να καθορίσετε το πρότυπο (αρχεία .dotm/.dotx) που θέλετε να χρησιμοποιήσετε. Τα πρότυπα συνήθως αποθηκεύονται στη διεύθυνση: C:\Users\\AppData\Roaming\Microsoft\Templates
Documents.Add Template:=<your_template_folder>
Ανοίξτε ένα έγγραφο του Word με VBA
Sub OpenDoc()
'This code checks whether your document exists and then opens it
filePath = "C:\MyNewDoc.docx"
If Dir(filePath) = "" Then
MsgBox ("file doesn't exist")
Else
Documents.Open (filePath)
End If
End Sub
Κλείσιμο ενός/όλων των ανοιχτών εγγράφων
Sub CloseDoc()
'This code closes a specific document
filePath = "C:\MyNewDoc.docx"
Documents(filePath).Close SaveChanges:=wdPromptToSaveChanges
End Sub
Sub CloseAllDocs()
'This code closes all opened documents in your computer
Documents.Close SaveChanges:=wdPromptToSaveChanges
End Sub
Αποθήκευση του Word ως PDF
Δείτε πώς μπορείτε να αυτοματοποιήσετε εύκολα την αποθήκευση εγγράφων του Word ως αρχεία PDF.
Sub SaveAsPdf()
'This code saves a word document in a PDF format
FileName = Left(CStr(ActiveDocument.Name), Len(CStr(ActiveDocument.Name)) - 5)
ActiveDocument.SaveAs2 FileName:="c:\" + FileName + ".pdf", FileFormat:=wdFormatPDF
End Sub
Εισαγωγή κεφαλίδας και υποσέλιδου
Αυτός ο κώδικας ορίζει την κεφαλίδα και το υποσέλιδο της πρώτης σελίδας του εγγράφου Word.
Sub InsertHeaderFooterFirstPage()
Dim myDoc As Document
Dim headerText As String
Dim footerText As String
Set myDoc = ActiveDocument
'Replace the header and footer text as needed
headerText = "This document was written by you"
footerText = "All rights reserved to you"
With myDoc.Sections(1)
'We first ensure that we can set different header and footer texts
.PageSetup.DifferentFirstPageHeaderFooter = True
'Setting the header and footer texts
.Headers(wdHeaderFooterFirstPage).Range.Text = headerText
.Footers(wdHeaderFooterFirstPage).Range.Text = footerText
End With
End Sub
Πρόσθετες ιδέες Word Macro
Ακολουθούν μερικές ακόμη ιδέες που θα δημοσιεύσουμε στο προσεχές μέλλον.
Αυτό ολοκληρώνει το σεμινάριο μας για σήμερα. Όπως μόλις είδατε, υπάρχουν πολλά να γίνουν με τη συσκευή εγγραφής μακροεντολών Word και τις μακροεντολές VBA στο Word. Σε περίπτωση που αναζητάτε πιο συγκεκριμένη βοήθεια που υπερβαίνει το πεδίο εφαρμογής αυτού του σεμιναρίου, επικοινωνήστε μαζί μας μέσω της φόρμας επικοινωνίας μας .
Ανακαλύψτε πώς να ρυθμίσετε το χρώμα κελιού Excel ανάλογα με μια συνθήκη χρησιμοποιώντας VBA.
Οδηγίες για την κοπή εικόνων σε κύκλους στο PowerPoint. Ανακαλύψτε πόσο απλά μπορείτε να κόψετε φωτογραφίες σε κύκλους για εντυπωσιακές παρουσιάσεις.
Μάθετε πώς να κάνετε εναλλαγή από πληκτρολόγια LTR σε RTL στο Microsoft Word.
Μάθετε πώς να χρησιμοποιήσετε διαφορετικές γραμματοσειρές στο Discord. Οι επιλογές γραμματοσειρών είναι ποικίλες και πλούσιες.
Κορυφαίες εφαρμογές κοπής ήχων κλήσης στο Android για τη δημιουργία μοναδικών ήχων κλήσης. Ανακαλύψτε τις καλύτερες επιλογές για να προσαρμόσετε το τηλέφωνό σας.
Οδηγίες για την αλλαγή του ονόματος της ομάδας συνομιλίας στο Facebook Messenger. Αυτή τη στιγμή στην ομαδική συνομιλία του Facebook Messenger, μπορούμε εύκολα να αλλάξουμε το όνομα της ομάδας συνομιλίας.
Ανακαλύψτε πώς να επαναφέρετε διαγραμμένες αναρτήσεις στο Facebook εύκολα και γρήγορα. Μαθαίνετε όλες τις λεπτομέρειες για την ανάκτηση διαγραμμένων αναρτήσεων
Οδηγίες για την ακρόαση μουσικής στους Χάρτες Google Επί του παρόντος, οι χρήστες μπορούν να ταξιδέψουν και να ακούσουν μουσική χρησιμοποιώντας την εφαρμογή Google Map στο iPhone. Σήμερα, το WebTech360 σας προσκαλεί
Οδηγίες για τη χρήση του LifeBOX - Η διαδικτυακή υπηρεσία αποθήκευσης της Viettel, το LifeBOX είναι μια νέα διαδικτυακή υπηρεσία αποθήκευσης της Viettel με πολλά ανώτερα χαρακτηριστικά
Πώς να ενημερώσετε την κατάσταση στο Facebook Messenger, το Facebook Messenger στην πιο πρόσφατη έκδοση παρείχε στους χρήστες μια εξαιρετικά χρήσιμη δυνατότητα: αλλαγή