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

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

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

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

Φοβερο! Χρήση αποτελεσματικών καρτελών στο Excel όπως το Chrome, το Firefox και το Safari!

Εξοικονομήστε 50% του χρόνου σας και μειώστε χιλιάδες κλικ ποντικιού για εσάς κάθε μέρα!

Μπορείτε να εκτελέσετε τον παρακάτω κώδικα 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 ημερών.

Διαβάστε περισσότερα ... ΔΩΡΕΑΝ Λήψη... Αγορά...

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

Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!

Διαβάστε περισσότερα ... ΔΩΡΕΑΝ Λήψη... Αγορά...

Σχόλια (28)

Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!

Joel

περίπου 5 χρόνια

#20884

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Πώς επεκτείνουμε αυτό για να προσθέσουμε περισσότερο εύρος κελιών; Πρόσθεσα ένα επιπλέον κελί με εύρος στον κώδικα : (Στόχος, Εύρος ("C10:C19", "D10:D19", "E10:E19")) ωστόσο μου δίνει ένα σφάλμα μεταγλώττισης που λέει "λάθος αριθμός ορισμών ή μη έγκυρες εκχωρήσεις ιδιοτήτων" και, στη συνέχεια, επισημαίνει την πρώτη γραμμή κώδικα που παρείχατε "Ιδιωτικό δευτερεύον φύλλο εργασίας_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)" Παρακαλώ βοηθήστε με.

απάντηση

Νίκος Joel

περίπου 5 χρόνια

#20885

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Joel, δεν ξέρω αν εξακολουθείς να ψάχνεις για λύση, αλλά πρέπει να αλλάξεις τον κωδικό σου:

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

Αυτό θα το κάνει για εσάς.

απάντηση

Αττίλας Νίκος

περίπου 5 χρόνια

#20886

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

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

απάντηση

κρύσταλλο Αττίλας

περίπου 5 χρόνια

#20887

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Αγαπητέ Αττίλα,
Δοκιμάστε το παρακάτω στιγμιότυπο οθόνης για να εισαγάγετε τον πραγματικό χρόνο στο κελί σε ένα συγκεκριμένο εύρος όταν κάνετε κλικ σε αυτό.
(Η λειτουργία αυτόματου κλειδώματος κελιών δεν μπορεί να επιτευχθεί, συγγνώμη για αυτό)

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

απάντηση

Αναφορά

Παύλος

περίπου 5 χρόνια

#23478

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Ο κωδικός λειτουργεί πραγματικά... Ευχαριστώ...Έχω προσθέσει έναν άλλο κωδικό για την προστασία του κυττάρου μετά την εισαγωγή των δεδομένων. Τώρα το πρόβλημα είναι ότι, μόλις εισαγάγω τα δεδομένα και το κελί είναι προστατευμένο και κατά λάθος αν κάνω διπλό κλικ στο προστατευμένο κελί, τότε ο παραπάνω κωδικός πάει στραβά για ολόκληρο το φύλλο. Τότε δεν λειτουργεί. Πρέπει να καταργήσω την προστασία του φύλλου για να φέρω τον κωδικό ζωντανό. Κάποια λύση;

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

Προσωπικό φύλλο εργασίας 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

απάντηση

κρύσταλλο Παύλος

περίπου 4 χρόνια

#23479

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

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

απάντηση

Αναφορά

κρύσταλλο Παύλος

περίπου 4 χρόνια

#23480

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Συγγνώμη καταλαβαίνω την άποψη σου. (χάσει τον παραπάνω κωδικό)

απάντηση

Αναφορά

Παύλος

περίπου 5 χρόνια

#23483

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Ο κωδικός εισαγωγής διπλού κλικ που δημιουργήθηκε είναι:

Ιδιωτικό δευτερεύον φύλλο εργασίας_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

απάντηση

κρύσταλλο Παύλος

περίπου 4 χρόνια

#23484

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Αγαπητέ Παύλο,
Δοκιμάστε τον παρακάτω κώδικα 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

απάντηση

Αναφορά

Dre

περίπου 4 χρόνια

#24772

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Έκανα αντιγραφή και επικόλληση του κώδικα ενημερώνοντας το εύρος και δεν λειτούργησε :-(

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

απάντηση

κρύσταλλο Dre

περίπου 4 χρόνια

#24773

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Καλή σας μέρα,
Ο κώδικας λειτουργεί καλά στην περίπτωσή μου. Μπορείτε να μου πείτε την έκδοση του Office;

απάντηση

Αναφορά

Tee

περίπου 4 χρόνια

#25590

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σας, ο κωδικός που δώσατε λειτουργεί τέλεια. Απλώς είμαι περίεργος αν υπάρχει τρόπος να υπάρχει το κείμενο "διπλό κλικ για προσθήκη ημερομηνίας" στο κελί μέχρι να εισαχθεί η ημερομηνία. Σας ευχαριστώ εκ των προτέρων (Προσπαθώ να κάνω το έγγραφό μου όσο το δυνατόν πιο φιλικό προς τον χρήστη ώστε να μην μπερδεύω τους συναδέλφους μου)

απάντηση

Travis

περίπου 4 χρόνια

#25591

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σας, ο παραπάνω κώδικας λειτούργησε εξαιρετικά για μένα. Τώρα απλώς αναρωτιέμαι αν υπάρχει τρόπος να εμφανίζεται το κείμενο "Διπλό κλικ για εισαγωγή ημερομηνίας" στο κελί μέχρι να εισαχθεί η ημερομηνία. Στόχος μου είναι να κάνω το έγγραφο όσο το δυνατόν πιο φιλικό προς τον χρήστη. Ευχαριστώ εκ των προτέρων

απάντηση

Αναφορά

κρύσταλλο Travis

περίπου 4 χρόνια

#25592

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

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

Ιδιωτικό δευτερεύον φύλλο εργασίας_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

απάντηση

Αναφορά

max

περίπου 4 χρόνια

#27152

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σου,

Αντέγραψα και επικόλλησα τον παραπάνω κώδικα ακριβώς όπως είναι γραμμένος σε ένα κενό βιβλίο εργασίας, ωστόσο, δεν μου λειτουργεί. Κοίταξα διαφορετικές πηγές στον ιστό και οι περισσότεροι ιστότοποι έχουν παρόμοια μορφή με αυτό που γράφτηκε παραπάνω. Νομίζω ότι ίσως κάτι δεν πάει καλά με το VBA μου ή κάποιες ρυθμίσεις δεν είναι ενεργοποιημένες. Οποιαδήποτε συμβουλή θα ήταν πολύτιμη. Εκτελώ το Excel για Office 365 MSO (16.0.11001.20097) 32-bit στα Windows 10.

απάντηση

Dylan

περίπου 3 χρόνια

#30120

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Λατρεύω τον κώδικα και λειτουργεί τέλεια. Πώς μπορώ να το κάνω έτσι όταν κάνω διπλό κλικ για να εκτελέσω τον κώδικα, δείχνει την ώρα σε στρατιωτική ώρα;

απάντηση

κρύσταλλο Dylan

περίπου 3 χρόνια

#30121

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σου Dylan,
Λυπάμαι, δεν μπορώ να σας βοηθήσω ακόμα σε αυτό. Σας ευχαριστούμε για το σχόλιό σας.

απάντηση

Αναφορά

Ερείκη Dylan

περίπου 3 χρόνια

#30122

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Νομίζω ότι εάν επιλέξετε τη μορφή στρατιωτικής ώρας για αυτό το κελί από τις επιλογές Μορφή -> Αριθμός -> Ώρα στο φύλλο σας, θα πρέπει να λειτουργήσει. Για παράδειγμα, δίνει την επιλογή 1:30 μ.μ. ή 13:30, οπότε απλά θα επιλέγατε 13:30 και θα το κάνετε.

απάντηση

Ερείκη Dylan

περίπου 3 χρόνια

#30123

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Θα πίστευα ότι εάν απλώς επιλέξετε τη μορφή Military Time για αυτό το κελί από τις επιλογές μορφής Number -> Time, θα πρέπει να το κάνετε. Για παράδειγμα, θα επιλέγατε 13:30 αντί για 1:30 μ.μ. και μετά θα πρέπει να εμφανίζεται σε στρατιωτική ώρα.

απάντηση

Αναφορά

Ερείκη

περίπου 3 χρόνια

#30720

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Ξέρει κανείς αν υπάρχει τρόπος να εισαγάγετε αυτόν τον κώδικα στο Excel Online; Το είχα χρησιμοποιήσει με την έκδοση για επιτραπέζιους υπολογιστές και λειτούργησε τέλεια, αλλά τώρα έχουμε μετεγκαταστήσει τα πάντα στην ηλεκτρονική πλατφόρμα και οι σημάνσεις ημερομηνίας και ώρας με διπλό κλικ έχουν εξαφανιστεί και δεν μπορώ να καταλάβω πώς να προβάλω ή να επεξεργαστώ τον κώδικα. Ευχαριστώ.

απάντηση

Αναφορά

Lee Hoemann

περίπου 3 χρόνια

#31773

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Έτσι, έβαλα κώδικα και λειτουργεί άψογα σε πολλά φύλλα στο βιβλίο εργασίας μου, ωστόσο σε ορισμένα φύλλα σταματάει ξαφνικά να λειτουργεί μετά από μια συγκεκριμένη σειρά, παρόλο που έχω εισαγάγει το σωστό εύρος. Οποιεσδήποτε σκέψεις σχετικά με το γιατί μπορεί να συμβεί αυτό.

απάντηση

Joe

περίπου 2 χρόνια

#32665

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Αυτό ήταν ακριβώς αυτό που έψαχνα - αυτό εξοικονομεί έναν τόνο χρόνου και εκτιμώ τις καλογραμμένες οδηγίες. Σας ευχαριστώ!

απάντηση

Ahmad

περίπου 8 μήνες πριν

#38235

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σας, ο κωδικός έκανε πολλά για μένα, Πώς μπορώ να περιορίσω τον κωδικό να λειτουργεί μόνο εάν το πεδίο είναι κενό. Εάν μια ημερομηνία υπάρχει ήδη στο κελί, το διπλό κλικ δεν πρέπει να κάνει τίποτα, με εκτίμηση

απάντηση

κρύσταλλο Ahmad

περίπου 8 μήνες πριν

#38368

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σου 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

απάντηση

Αναφορά

Βαρίδι

περίπου 7 μήνες πριν

#38392

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Αυτή η λειτουργία δεν λειτούργησε. Με διπλό κλικ εισάγεται απλώς η μη αυτόματη επεξεργασία του κελιού.

απάντηση

κρύσταλλο Βαρίδι

περίπου 7 μήνες πριν

#38499

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σας Bob,
Ο κώδικας λειτουργεί καλά στην περίπτωσή μου. Πρέπει να μάθω πιο συγκεκριμένα για το πρόβλημά σας, όπως την έκδοση του Excel.
Και ο κώδικας λειτουργεί μόνο στα κελιά που ορίσατε.

απάντηση

Αναφορά

Louis

περίπου 3 μήνες πριν

#40831

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια χαρά σε όλους,

Προσπαθώ να χρησιμοποιήσω αυτήν τη μακροεντολή για να χρησιμοποιήσω τη σήμανση ημερομηνίας κάνοντας διπλό κλικ στη στήλη Ε και λειτουργεί, αλλά όταν προσπαθώ να αναπαράγω τη μακροεντολή για να κάνω το ίδιο, αλλά για την τρέχουσα ώρα στη στήλη 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

Προβολή συνημμένων (1 / 5)

απάντηση

Αναφορά

κρύσταλλο Louis

περίπου 3 μήνες πριν

#40869

Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου

Γεια σου 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

απάντηση

Αναφορά

Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα

Αφήστε τα σχόλιά σας

Δημοσίευση ως επισκέπτης

Σύνδεση

Όνομα (Απαραίτητο)

Email (απαιτείται)

Αξιολογήστε αυτήν την ανάρτηση:

Επαναφορά

0 Χαρακτήρες

συμφωνώ στο όρους και προϋποθέσεις