Note: The other languages of the website are Google-translated. Back to English

Πώς να αναβοσβήνει ή να αναβοσβήνει κείμενο συγκεκριμένου κελιού στο Excel;

Για να κάνετε ένα συγκεκριμένο κελί εξαιρετικό στο φύλλο εργασίας σας, τι θα λέγατε για να αναβοσβήνει το κείμενο αυτού του κελιού; Αυτό το άρθρο θα σας δείξει τη μέθοδο αναβοσβήνει το κείμενο ενός συγκεκριμένου κελιού στο Excel.

Αναβοσβήνει ή αναβοσβήνει κείμενο συγκεκριμένου κελιού με κωδικό VBA


Αναβοσβήνει ή αναβοσβήνει κείμενο συγκεκριμένου κελιού με κωδικό VBA

Κάντε τα εξής για να αναβοσβήσετε το κείμενο ενός συγκεκριμένου κελιού στο Excel.

1. Τύπος άλλος + F11 ταυτόχρονα για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στο παράθυρο Κωδικός.

Κωδικός VBA: Αναβοσβήνει κείμενο συγκεκριμένου κελιού στο Excel

Sub StartBlink()
'Updated by ExtendOffice 20181010
    Dim xCell As Range
    Dim xTime As Variant
      On Error Resume Next
    Set xCell = Range("Sheet2!A1")
  On Error Resume Next
   
        If xCell.Font.Color = vbRed Then
            xCell.Font.Color = vbWhite
        Else
            xCell.Font.Color = vbRed
        End If
    xTime = Now + TimeSerial(0, 0, 1)
    Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , True
End Sub

Note: σε αυτόν τον κώδικα VBA, τα Φύλλα2 και Α1 υποδεικνύουν ότι το κείμενο στο κελί Α1 του Φύλλου2 θα αναβοσβήνει στο τρέχον βιβλίο εργασίας.

3. Πάτα το άλλος + Q ταυτόχρονα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

Τώρα χρειάζεστε ένα κουμπί για να ξεκινήσετε και να σταματήσετε να αναβοσβήνει.

4. κλικ Εργολάβος > Κύριο θέμα > Κουμπί (Έλεγχος φόρμας). Δείτε το στιγμιότυπο οθόνης:

5. Σχεδιάστε ένα κουμπί στο φύλλο εργασίας σας και μετά ένα Εκχώρηση μακροεντολής εμφανίζεται το παράθυρο διαλόγου, κάντε κλικ Έναρξη συνδέσμου στο Macro όνομα πλαίσιο και, στη συνέχεια, κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

6. Κάντε δεξί κλικ στο εισαγμένο κουμπί και κάντε κλικ Επεξεργασία κειμένου από το μενού με δεξί κλικ. Στη συνέχεια, αλλάξτε το κείμενο του κουμπιού στο κείμενο που χρειάζεστε, όπως Έναρξη / Διακοπή αναβοσβήνει.

Από τώρα και στο εξής, όταν κάνετε κλικ στο κουμπί, το κείμενο του κελιού Α1 αρχίζει να αναβοσβήνει. Και όταν κάνετε ξανά κλικ στο κουμπί, το κείμενο του κελιού Α1 σταματά να αναβοσβήνει.


Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2019 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (26)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτός ο κωδικός δεν θα σταματήσει να αναβοσβήνει, κολλάει. Τι κάνω λάθος?
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Θα μπορούσε αυτό το κείμενο που αναβοσβήνει να εφαρμοστεί σε μια συνθήκη. π.χ. εάν επιτευχθεί μια ημερομηνία ή πλησιάζει σε ένα φύλλο εργασίας, ένα κελί σε ένα φύλλο εξωφύλλου/μενού αναβοσβήνει
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς μπορεί να κάνει ένα τυχαίο κελί να αναβοσβήνει σε ένα συγκεκριμένο εύρος;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λειτουργεί... Τέλεια
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς μπορώ να συμπεριλάβω αυτόν τον κωδικό στα παρακάτω, ώστε να μην χρειάζομαι κουμπιά, αλλά να αναβοσβήνει αυτόματα στο άνοιγμα του βιβλίου εργασίας;

Ιδιωτικό Sub Workbook_Open ()

Κωδικός εδώ

Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Dayle,
Βάλτε αυτόν τον κωδικό στο παράθυρο ThisWorkbook.

«Τοποθετήστε το παράθυρο «This Workbook».
Ιδιωτικό Sub Workbook_Open ()
StarBlink
Sub End

Βάλτε τον παρακάτω κώδικα στο παράθυρο Module. Στη συνέχεια, αποθηκεύστε το βιβλίο εργασίας ως βιβλίο εργασίας με δυνατότητα μακροεντολής του Excel. Ελπίζω να μπορώ να βοηθήσω. Ευχαριστώ για το σχόλιο σου.

'Αρχισε να αναβοσβήνει
Sub StarBlink()
Dim xCell ως εύρος
Dim xTime As Variant
Ορισμός xCell = Εύρος ("A1")
Με ThisWorkbook.Worksheets("Sheet1").Range("A1").Font
Αν xCell.Font.Color = vbRed Τότε
xCell.Font.Color = vbWhite
Αλλού
xCell.Font.Color = vbRed
End If
Τέλος με
xTime = Now + TimeSerial (0, 0, 1)
Application.OnTime xTime, "" & ThisWorkbook.Name & "!StarBlink", , True
Sub End
«Σταμάτα να αναβοσβήνει
Sub StopBlink()
xTime = Now + TimeSerial (0, 0, 1)
Application.OnTime EarliestTime:=xTime, Procedure:="" & ThisWorkbook.Name & "!StarBlink", Schedule:=False
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,
δουλεύει καλά, αλλά όταν προστατεύω το φύλλο μου, το να αναβοσβήνει δεν λειτουργεί εμφανίζοντας μήνυμα εντοπισμού σφαλμάτων.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καλή σας μέρα,
Δοκιμάστε τον παρακάτω κώδικα.

Sub StartBlink()
Dim xCell ως εύρος
Dim xTime As Variant
On Error Συνέχιση Επόμενη
Ορισμός xCell = Εύρος ("A1")
On Error Συνέχιση Επόμενη

Αν xCell.Font.Color = vbRed Τότε
xCell.Font.Color = vbWhite
Αλλού
xCell.Font.Color = vbRed
End If
xTime = Now + TimeSerial (0, 0, 1)
Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , True
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εργαζόμενος. Καλός
Αλλά μετά την προστασία του φύλλου μου LOCK & Hidden (εκτός από το κελί που αναβοσβήνει) δεν λειτουργεί.
Όποιος μπορεί να με βοηθήσει να λύσω αυτό το πρόβλημα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ΜΑΝΤΕΜΠ ΓΚΑΝ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς μπορώ να το αλλάξω σε φύλλο 1;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Σαμ,
Εάν θέλετε να κάνετε το κελί A1 στο Φύλλο1 ή σε άλλο συγκεκριμένο φύλλο εργασίας να αναβοσβήνει, προσθέστε το "Φύλλο1!" ή άλλο όνομα φύλλου εργασίας πριν από τη διεύθυνση του κελιού. Δείτε την παρακάτω γραμμή κώδικα:

Ορισμός xCell = Εύρος ("Φύλλο1!A1")
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
γεια, χρειάζομαι βοήθεια στα φύλλα Google..

Χρειάζομαι μια ολόκληρη σειρά για να αναβοσβήνει εάν το F3:F1001 περιέχει το "STAT". ολόκληρη η σειρά πρέπει να είναι πορτοκαλί αλλά και να αναβοσβήνει μέχρι να επιλεγεί το πλαίσιο ελέγχου της στήλης W3:W1001.

Είναι δυνατόν? μπορεις να βοηθησεις? παρακαλώεεεεεεεεεεεεε
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Mekka,
Συγγνώμη δεν μπορώ να σε βοηθήσω με αυτό. Σας ευχαριστούμε για το σχόλιό σας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
όταν προστατεύετε το φύλλο, αυτός ο κωδικός δεν λειτουργεί
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
δεν δουλεύει,

Παρακαλώ βοηθήστε
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
πώς να φτιάξω ένα συγκεκριμένο κελί που αναβοσβήνει που περιέχει μόνο συγκεκριμένο κείμενο;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
πώς μπορώ να δημιουργήσω φλας αναβοσβήνει για το φύλλο ώρας μου .όπου το κελί περιέχει χρόνο πάνω από 10 ώρες . παρακαλώ προτείνετε
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Jass,
Ο παρακάτω κώδικας VBA μπορεί να λύσει το πρόβλημά σας. Δοκιμάστε το.
Μην ξεχάσετε να αλλάξετε το όνομα του φύλλου και το εύρος ωρών στον κωδικό.

Sub StartBlink()
'Updated by ExtendOffice 20220707
Dim xCell As Range
Dim xTime As Variant
Dim xRg As Range
Dim xWb As Workbook
On Error Resume Next
Set xCell = Range("'blinking cells'!D2:E27") 'If there are spaces in your sheet name, enclose the sheet name in single quotes. If no space exists, enter the sheet name without the signe quotes
'On Error Resume Next
For Each xRg In xCell
If xRg >= TimeValue("10:00:00") Then
If xRg.Font.Color = vbRed Then
xRg.Font.Color = vbWhite
Else
xRg.Font.Color = vbRed
End If
Else
xRg.Font.Color = vbBlack
End If
Next
Set xWb = xCell.Worksheet.Parent
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime xTime, "'" & xWb.Name & "'!StartBlink", , True
End Sub
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, πρέπει να κάνω το ίδιο για την τιμή του διπλού κελιού στην επιλεγμένη στήλη, όπου η τιμή του κελιού θα αναβοσβήνει εάν η διπλότυπη τιμή εμφανιστεί στο excel
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χαίρετε Κ.
Αναζητώ λύση για να αναβοσβήνει / αναβοσβήνει μια σειρά κελιών που πλησιάζουν σε μια μελλοντική ημερομηνία, ας πούμε σε μια εβδομάδα. Εννοώ κάτι σαν ημερομηνία παράδοσης παραγγελίας αγοράς είναι 30 Αυγούστου. Θα ήθελα να ξεκινήσω να αναβοσβήνουν τα κελιά από τις 25 Αυγούστου και μετά και ακόμη και μετά τις 30 Αυγούστου μέχρι να παραδοθεί.
Μπορεί κάποιος να μου δώσει μια λύση;
Ευχαριστώ,
Sanjeev.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Sanjeev Raghavan,
Ο παρακάτω κώδικας VBA μπορεί να σας κάνει τη χάρη. Στον κώδικα, πρέπει να αλλάξετε Φύλλο5!Δ2:Δ5 στο όνομα του φύλλου και στην περιοχή που θέλετε να αναβοσβήνει.

Sub StartBlink2()
'Updated by ExtendOffice 20220830
Dim xCell As Range
Dim xTime As Variant
Dim xRg As Range
Dim xWb As Workbook
On Error Resume Next
Dim xToday
Set xCell = Range("Sheet5!D2:D5") 'If there are spaces in your sheet name, enclose the sheet name in single quotes. If no space exists, enter the sheet name without the signe quotes
'On Error Resume Next
xToday = Now()
For Each xRg In xCell
If (xRg - xToday > -1) And (xRg - xToday <= 5) Then
If xRg.Font.Color = vbRed Then
xRg.Font.Color = vbWhite
Else
xRg.Font.Color = vbRed
End If
Else
xRg.Font.Color = vbBlack
End If
Next
Set xWb = xCell.Worksheet.Parent
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime xTime, "'" & xWb.Name & "'!StartBlink2", , True
End Sub
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ Crystal. Επιτρέψτε μου να προσπαθήσω να επικοινωνήσω μαζί σας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Sheet name Summary and column O

i would like to have a code to make the cell flash red/white on due date. Can someone please help?
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
είναι δυνατόν να το φτιάξω χωρίς κουμπί και να τρέχει αυτόματα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Hi Malek,
The user Sanjeev Raghavan asked a question similar to yours, you can check the replies and see if it solves your problem.
@Sanjeev Raghavan
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες