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

Πώς να προσθέσετε / εισαγάγετε αυτόματα την τρέχουσα ημερομηνία / ώρα σε ένα κελί με διπλό κλικ στο Excel;

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

Κάντε διπλό κλικ για αυτόματη προσθήκη / εισαγωγή τρέχουσας ημερομηνίας ή ώρας ημερομηνίας με τον κωδικό VBA


Κάντε διπλό κλικ για αυτόματη προσθήκη / εισαγωγή τρέχουσας ημερομηνίας ή ώρας ημερομηνίας με τον κωδικό VBA

Μπορείτε να εκτελέσετε τον παρακάτω κώδικα VBA για να προσθέσετε αυτόματα την τρέχουσα ημερομηνία ή ώρα ημερομηνίας σε ένα κελί με διπλό κλικ. Κάντε τα εξής:

1. Κάντε δεξί κλικ στην καρτέλα Φύλλο που θέλετε να εισαγάγετε την τρέχουσα ημερομηνία στα καθορισμένα κελιά και, στη συνέχεια, επιλέξτε Προβολή κωδικού από το μενού με δεξί κλικ.

2. Στο Microsoft Visual basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο παράθυρο Code.

Κωδικός VBA: Κάντε διπλό κλικ για να προσθέσετε την τρέχουσα ημερομηνία σε ένα κελί

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
End Sub

Notes:

1. Στον κωδικό, A1: B10 είναι το εύρος στο οποίο θα προσθέσετε την τρέχουσα ημερομηνία.
2. Εάν πρέπει να προσθέσετε την τρέχουσα ώρα ημερομηνίας στο κελί, αντικαταστήστε Ημερομηνία με Τώρα() στον κώδικα. Μπορείτε να τα αλλάξετε όπως χρειάζεστε.

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

Από τώρα και στο εξής, όταν κάνετε διπλό κλικ σε οποιοδήποτε κελί στο καθορισμένο εύρος A1: B10. Η τρέχουσα ημερομηνία ή ώρα θα εισαχθεί αυτόματα.


Σχετικά Άρθρα:


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

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

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

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (28)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς επεκτείνουμε αυτό για να προσθέσουμε περισσότερο εύρος κελιών; Πρόσθεσα ένα επιπλέον κελί με εύρος στον κώδικα : (Στόχος, Εύρος ("C10:C19", "D10:D19", "E10:E19")) ωστόσο μου δίνει ένα σφάλμα μεταγλώττισης που λέει "λάθος αριθμός ορισμών ή μη έγκυρες εκχωρήσεις ιδιοτήτων" και, στη συνέχεια, επισημαίνει την πρώτη γραμμή κώδικα που παρείχατε "Ιδιωτικό δευτερεύον φύλλο εργασίας_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)" Παρακαλώ βοηθήστε με.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Joel, δεν ξέρω αν εξακολουθείς να ψάχνεις για λύση, αλλά πρέπει να αλλάξεις τον κωδικό σου:

Από: (Στόχος, Εύρος ("C10:C19", "D10:D19", "E10:E19"))
Προς: (Στόχος, Εύρος ("C10:C19,D10:D19,E10:E19"))

Αυτό θα το κάνει για εσάς.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια Νικ,
Θα ήθελα να λάβω μια συμβουλή από εσάς για αυτό το θέμα....
Έχω ένα αρχείο που το ονομάζω "φύλλο παραγωγικότητας".... Σε αυτό το φύλλο θα ήθελα να εισαγάγω τον πραγματικό χρόνο, σε επιλεγμένα κελιά, όταν γίνεται κλικ στο κελί... (Εάν είναι δυνατόν, θα ήθελα αυτά τα κελιά αφού ο χρόνος φαίνεται να γίνεται αμετάβλητος .....κάτι σαν να είναι κλειδωμένο.)
Εκτιμώ τον χρόνο και τον χρόνο σας εκ των προτέρων
Attila, Ουγγαρία
exyzee@gmail.com
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ Αττίλα,
Δοκιμάστε το παρακάτω στιγμιότυπο οθόνης για να εισαγάγετε τον πραγματικό χρόνο στο κελί σε ένα συγκεκριμένο εύρος όταν κάνετε κλικ σε αυτό.
(Η λειτουργία αυτόματου κλειδώματος κελιών δεν μπορεί να επιτευχθεί, συγγνώμη για αυτό)

Ιδιωτικό δευτερεύον φύλλο εργασίας_SelectionChange(Στόχος ByVal ως εύρος)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("A1:B10")) Is Nothing then
Ακύρωση = Αληθινό
Target.Formula = Ημερομηνία
End If
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο κωδικός λειτουργεί πραγματικά... Ευχαριστώ...Έχω προσθέσει έναν άλλο κωδικό για την προστασία του κυττάρου μετά την εισαγωγή των δεδομένων. Τώρα το πρόβλημα είναι ότι, μόλις εισαγάγω τα δεδομένα και το κελί είναι προστατευμένο και κατά λάθος αν κάνω διπλό κλικ στο προστατευμένο κελί, τότε ο παραπάνω κωδικός πάει στραβά για ολόκληρο το φύλλο. Τότε δεν λειτουργεί. Πρέπει να καταργήσω την προστασία του φύλλου για να φέρω τον κωδικό ζωντανό. Κάποια λύση;

Ο κωδικός προστασίας που χρησιμοποιείται είναι ο παρακάτω:

Προσωπικό φύλλο εργασίας Sub_change (ByVal Target As Range)
Dim xRg ως εύρος
On Error Συνέχιση Επόμενη
Ορισμός xRg = Τομή (Εύρος ("A1:a1000,b1:b1000, G1:G1000"), Στόχος)
Εάν το xRg δεν είναι τίποτα, τότε βγείτε από το Sub
Target.Worksheet.Unprotect Password:="123"
xRg.Locked = True
Target.Worksheet.Protect Password:="123"
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ Παύλο,
Δοκιμάζω τον κωδικό που μου έδωσες. Ολόκληρο το φύλλο εργασίας θα προστατεύεται αμέσως μόλις εισαγάγω δεδομένα σε οποιοδήποτε από τα καθορισμένα προστατευμένα κελιά.
Επιπλέον, όταν κάνετε διπλό κλικ στο προστατευμένο κελί, δεν αλλάζει τίποτα στον κώδικα στην περίπτωσή μου.
Θα μπορούσες να εξηγήσεις τι ακριβώς προσπαθείς να κάνεις με τον κώδικα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Συγγνώμη καταλαβαίνω την άποψη σου. (χάσει τον παραπάνω κωδικό)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο κωδικός εισαγωγής διπλού κλικ που δημιουργήθηκε είναι:


Ιδιωτικό δευτερεύον φύλλο εργασίας_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Εάν δεν διασταυρώνεται (Στόχος, Εύρος ("A1:a1000")) Δεν είναι τίποτα τότε
Ακύρωση = Αληθινό
Target.Formula = Ημερομηνία
End If

If Not Intersect(Target, Range("b1:b1000")) Is Nothing then
Ακύρωση = Αληθινό
Στόχος.Τύπος = Χρόνος
End If

If Not Intersect(Target, Range("g1:g1000")) Is Nothing then
Ακύρωση = Αληθινό
Στόχος.Τύπος = Χρόνος
End If
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ Παύλο,
Δοκιμάστε τον παρακάτω κώδικα VBA.

Προσωπικό φύλλο εργασίας Sub_change (ByVal Target As Range)
Dim xRg ως εύρος
On Error Συνέχιση Επόμενη
Ορισμός xRg = Τομή (Εύρος ("A1:a1000,b1:b1000, G1:G1000"), Στόχος)
Εάν το xRg δεν είναι τίποτα, τότε βγείτε από το Sub
Target.Worksheet.Unprotect Password:="123"
xRg.Locked = True
Target.Worksheet.Protect Password:="123"
Sub End

Ιδιωτικό δευτερεύον φύλλο εργασίας_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.EnableEvents = False
ActiveSheet.Unprotect Password:="123"
Εάν δεν διασταυρώνεται (Στόχος, Εύρος ("A1:a1000")) Δεν είναι τίποτα τότε
Ακύρωση = Αληθινό
Target.Formula = Ημερομηνία
End If
If Not Intersect(Target, Range("b1:b1000")) Is Nothing then
Ακύρωση = Αληθινό
Στόχος.Τύπος = Χρόνος
End If
If Not Intersect(Target, Range("g1:g1000")) Is Nothing then
Ακύρωση = Αληθινό
Στόχος.Τύπος = Χρόνος
End If
ActiveSheet.Protect Password:="123"
Application.EnableEvents = True
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έκανα αντιγραφή και επικόλληση του κώδικα ενημερώνοντας το εύρος και δεν λειτούργησε :-(


Ιδιωτικό δευτερεύον φύλλο εργασίας_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Εάν δεν διασταυρώνεται (Στόχος, εύρος ("B4:B100")) Δεν είναι τίποτα τότε
Ακύρωση = Αληθινό
Target.Formula = Τώρα()
End If
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καλή σας μέρα,
Ο κώδικας λειτουργεί καλά στην περίπτωσή μου. Μπορείτε να μου πείτε την έκδοση του Office;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, ο κωδικός που δώσατε λειτουργεί τέλεια. Απλώς είμαι περίεργος αν υπάρχει τρόπος να υπάρχει το κείμενο "διπλό κλικ για προσθήκη ημερομηνίας" στο κελί μέχρι να εισαχθεί η ημερομηνία. Σας ευχαριστώ εκ των προτέρων (Προσπαθώ να κάνω το έγγραφό μου όσο το δυνατόν πιο φιλικό προς τον χρήστη ώστε να μην μπερδεύω τους συναδέλφους μου)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, ο παραπάνω κώδικας λειτούργησε εξαιρετικά για μένα. Τώρα απλώς αναρωτιέμαι αν υπάρχει τρόπος να εμφανίζεται το κείμενο "Διπλό κλικ για εισαγωγή ημερομηνίας" στο κελί μέχρι να εισαχθεί η ημερομηνία. Στόχος μου είναι να κάνω το έγγραφο όσο το δυνατόν πιο φιλικό προς τον χρήστη. Ευχαριστώ εκ των προτέρων
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Τράβις,
Δεν μπορούμε να τροποποιήσουμε τον κώδικα ώστε να εμφανίζεται κείμενο απευθείας στο κελί. Εναλλακτικά, όμως, ο παρακάτω βελτιστοποιημένος κώδικας θα βοηθήσει στην εμφάνιση του κειμένου στο σχόλιο του κελιού και το σχόλιο θα αφαιρεθεί αυτόματα αφού κάνετε διπλό κλικ στο κελί για να εισαγάγετε την ημερομηνία.

Ιδιωτικό δευτερεύον φύλλο εργασίας_SelectionChange(Στόχος ByVal ως εύρος)
If Not Intersect(Target, Range("A1:B10")) Is Nothing then
Target.NoteText "διπλό κλικ για προσθήκη ημερομηνίας"
End If
Sub End

Ιδιωτικό δευτερεύον φύλλο εργασίας_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:B10")) Is Nothing then
Ακύρωση = Αληθινό
Στόχος.Σχόλιο.Διαγραφή
Target.Formula = Ημερομηνία
End If
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου,

Αντέγραψα και επικόλλησα τον παραπάνω κώδικα ακριβώς όπως είναι γραμμένος σε ένα κενό βιβλίο εργασίας, ωστόσο, δεν μου λειτουργεί. Κοίταξα διαφορετικές πηγές στον ιστό και οι περισσότεροι ιστότοποι έχουν παρόμοια μορφή με αυτό που γράφτηκε παραπάνω. Νομίζω ότι ίσως κάτι δεν πάει καλά με το VBA μου ή κάποιες ρυθμίσεις δεν είναι ενεργοποιημένες. Οποιαδήποτε συμβουλή θα ήταν πολύτιμη. Εκτελώ το Excel για Office 365 MSO (16.0.11001.20097) 32-bit στα Windows 10.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λατρεύω τον κώδικα και λειτουργεί τέλεια. Πώς μπορώ να το κάνω έτσι όταν κάνω διπλό κλικ για να εκτελέσω τον κώδικα, δείχνει την ώρα σε στρατιωτική ώρα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Dylan,
Λυπάμαι, δεν μπορώ να σας βοηθήσω ακόμα σε αυτό. Σας ευχαριστούμε για το σχόλιό σας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Νομίζω ότι εάν επιλέξετε τη μορφή στρατιωτικής ώρας για αυτό το κελί από τις επιλογές Μορφή -> Αριθμός -> Ώρα στο φύλλο σας, θα πρέπει να λειτουργήσει. Για παράδειγμα, δίνει την επιλογή 1:30 μ.μ. ή 13:30, οπότε απλά θα επιλέγατε 13:30 και θα το κάνετε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Θα πίστευα ότι εάν απλώς επιλέξετε τη μορφή Military Time για αυτό το κελί από τις επιλογές μορφής Number -> Time, θα πρέπει να το κάνετε. Για παράδειγμα, θα επιλέγατε 13:30 αντί για 1:30 μ.μ. και μετά θα πρέπει να εμφανίζεται σε στρατιωτική ώρα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ξέρει κανείς αν υπάρχει τρόπος να εισαγάγετε αυτόν τον κώδικα στο Excel Online; Το είχα χρησιμοποιήσει με την έκδοση για επιτραπέζιους υπολογιστές και λειτούργησε τέλεια, αλλά τώρα έχουμε μετεγκαταστήσει τα πάντα στην ηλεκτρονική πλατφόρμα και οι σημάνσεις ημερομηνίας και ώρας με διπλό κλικ έχουν εξαφανιστεί και δεν μπορώ να καταλάβω πώς να προβάλω ή να επεξεργαστώ τον κώδικα. Ευχαριστώ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έτσι, έβαλα κώδικα και λειτουργεί άψογα σε πολλά φύλλα στο βιβλίο εργασίας μου, ωστόσο σε ορισμένα φύλλα σταματάει ξαφνικά να λειτουργεί μετά από μια συγκεκριμένη σειρά, παρόλο που έχω εισαγάγει το σωστό εύρος. Οποιεσδήποτε σκέψεις σχετικά με το γιατί μπορεί να συμβεί αυτό.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό ήταν ακριβώς αυτό που έψαχνα - αυτό εξοικονομεί έναν τόνο χρόνου και εκτιμώ τις καλογραμμένες οδηγίες. Σας ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, ο κωδικός έκανε πολλά για μένα, Πώς μπορώ να περιορίσω τον κωδικό να λειτουργεί μόνο εάν το πεδίο είναι κενό. Εάν μια ημερομηνία υπάρχει ήδη στο κελί, το διπλό κλικ δεν πρέπει να κάνει τίποτα, με εκτίμηση
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Ahmad,
Συγγνώμη για την ταλαιπωρία. Για να συμπληρώσετε μόνο τα κενά κελιά με ημερομηνίες με διπλό κλικ, μπορείτε να εφαρμόσετε τον ακόλουθο κώδικα VBA για να το ολοκληρώσετε.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20220609
    If Not Intersect(Target, Range("B1:C20")) Is Nothing Then
        If Target.Value = "" Then
            Cancel = True
            Target.Formula = Date
        End If
    End If
End Sub
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτή η λειτουργία δεν λειτούργησε. Με διπλό κλικ εισάγεται απλώς η μη αυτόματη επεξεργασία του κελιού.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας Bob,
Ο κώδικας λειτουργεί καλά στην περίπτωσή μου. Πρέπει να μάθω πιο συγκεκριμένα για το πρόβλημά σας, όπως την έκδοση του Excel.
Και ο κώδικας λειτουργεί μόνο στα κελιά που ορίσατε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια χαρά σε όλους,

Προσπαθώ να χρησιμοποιήσω αυτήν τη μακροεντολή για να χρησιμοποιήσω τη σήμανση ημερομηνίας κάνοντας διπλό κλικ στη στήλη Ε και λειτουργεί, αλλά όταν προσπαθώ να αναπαράγω τη μακροεντολή για να κάνω το ίδιο, αλλά για την τρέχουσα ώρα στη στήλη F δεν λειτουργεί όπως μπορείτε να δείτε επισυναπτόμενο έχω ένα μήνυμα σφάλματος που αναφέρει: Εντοπίστηκε διφορούμενο όνομα.
Όταν προσπαθώ να αλλάξω το τμήμα Sub Worksheet για άλλο όνομα και κάνω διπλό κλικ στα κελιά, δεν συμβαίνει τίποτα.

Θα μπορούσε κάποιος να με βοηθήσει σε αυτό;

Ο κωδικός μου:


Δευτερεύον φύλλο εργασίας_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Εάν δεν διασταυρώνεται (Στόχος, Εύρος ("E1:E10000")) Δεν είναι τίποτα τότε
Ακύρωση = Αληθινό
Target.Formula = Ημερομηνία
End If
Sub End

Δευτερεύον φύλλο εργασίας_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Εάν δεν διασταυρώνεται (Στόχος, Εύρος ("F1:F10000")) Δεν είναι τίποτα τότε
Ακύρωση = Αληθινό
Target.Formula = Τώρα()
End If
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Louis,
Η αναπαραγωγή της μακροεντολής θα προκαλέσει δύο ίδιες διαδικασίες με το ίδιο όνομα σε ένα παράθυρο κωδικού φύλλου. Το Excel δεν επιτρέπει δύο ή περισσότερα ίδια ονόματα συναρτήσεων σε μια λειτουργική μονάδα. Ούτε καν στα Events. Οδηγεί σε ασάφεια.
Εάν θέλετε να κάνετε μια διαφορετική εργασία στο ίδιο συμβάν, πρέπει να τροποποιήσετε τον αρχικό κώδικα για να καλύψετε τις ανάγκες σας.
Ο παρακάτω κώδικας VBA μπορεί να σας κάνει τη χάρη. Δοκιμάστε το.
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updated by Extendoffice 20221025
    If Not Intersect(Target, Range("E1:E10000")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
    If Not Intersect(Target, Range("F1:F10000")) Is Nothing Then
        Cancel = True
        Target.Formula = Date
    End If
End Sub
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL