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

Πώς να καταγράφετε αυτόματα την ημερομηνία και την ώρα όταν αλλάζει το κελί;

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

Καταγράψτε αυτόματα την ημερομηνία και την ώρα όταν το κελί αλλάζει με τον κωδικό VBA

Office Tab Ενεργοποιήστε την επεξεργασία με καρτέλες και την περιήγηση στο Office και κάντε την εργασία σας πολύ πιο εύκολη ...
Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%
  • Επαναχρησιμοποίηση οτιδήποτε: Προσθέστε τους πιο χρησιμοποιούμενους ή σύνθετους τύπους, γραφήματα και οτιδήποτε άλλο στα αγαπημένα σας και χρησιμοποιήστε τους γρήγορα στο μέλλον.
  • Περισσότερα από 20 χαρακτηριστικά κειμένου: Εξαγωγή αριθμού από συμβολοσειρά κειμένου. Εξαγωγή ή κατάργηση μέρους των κειμένων. Μετατροπή αριθμών και νομισμάτων σε αγγλικές λέξεις.
  • Συγχώνευση εργαλείων: Πολλαπλά βιβλία εργασίας και φύλλα σε ένα. Συγχώνευση πολλαπλών κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων. Συγχώνευση διπλών σειρών και αθροίσματος.
  • Διαχωριστικά εργαλεία: Διαχωρίστε δεδομένα σε πολλαπλά φύλλα με βάση την τιμή. Ένα βιβλίο εργασίας για πολλαπλά αρχεία Excel, PDF ή CSV. Μία στήλη σε πολλές στήλες.
  • Επικόλληση παράλειψης Κρυφές / φιλτραρισμένες σειρές; Καταμέτρηση και άθροισμα ανά χρώμα φόντου; Αποστολή εξατομικευμένων μηνυμάτων ηλεκτρονικού ταχυδρομείου σε πολλούς παραλήπτες μαζικά.
  • Σούπερ φίλτρο: Δημιουργήστε προηγμένα σχήματα φίλτρων και εφαρμόστε σε οποιοδήποτε φύλλο. Είδος ανά εβδομάδα, ημέρα, συχνότητα και άλλα. Φίλτρο με έντονη γραφή, φόρμουλες, σχόλια ...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Λειτουργεί με το Office 2007-2021 και το 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας.

βέλος μπλε δεξιά φούσκα Καταγράψτε αυτόματα την ημερομηνία και την ώρα όταν το κελί αλλάζει με τον κωδικό VBA

Για παράδειγμα, έχω ένα εύρος τιμών και τώρα, όταν αλλάζω ή πληκτρολογώ νέες τιμές στη στήλη B, θέλω να καταγράφει αυτόματα την τρέχουσα ημερομηνία και ώρα στη στήλη C, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης:

doc-ενημέρωση-χρόνος-τιμή-αλλαγές-1

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

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.

2. Στη συνέχεια, επιλέξτε το χρησιμοποιημένο φύλλο εργασίας σας από τα αριστερά Εξερεύνηση έργου, κάντε διπλό κλικ για να ανοίξετε το Μονάδα μέτρησηςκαι, στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA στην κενή ενότητα:

Κωδικός VBA: Εγγραφή ημερομηνίας και ώρας αυτόματα όταν αλλάζει το κελί

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140722
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target)
xOffsetColumn = 1
If Not WorkRng Is Nothing Then
    Application.EnableEvents = False
    For Each Rng In WorkRng
        If Not VBA.IsEmpty(Rng.Value) Then
            Rng.Offset(0, xOffsetColumn).Value = Now
            Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss"
        Else
            Rng.Offset(0, xOffsetColumn).ClearContents
        End If
    Next
    Application.EnableEvents = True
End If
End Sub

doc-ενημέρωση-χρόνος-τιμή-αλλαγές-1

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

:

1. Στον παραπάνω κώδικα, μπορείτε να τροποποιήσετε το "ΒΒ"Σε οποιαδήποτε άλλη στήλη που θέλετε να αλλάξετε τις τιμές κελιών σε αυτό το σενάριο: Ορισμός WorkRng = Intersect (Application.ActiveSheet.Range ("B: B"), Target).

2. Με αυτό xOffsetColumn = 1 script, μπορείτε να εισαγάγετε και να ενημερώσετε την ημερομηνία και την ώρα στην πρώτη στήλη δίπλα στη στήλη αλλαγής τιμής, μπορείτε να αλλάξετε τον αριθμό 1 σε άλλους αριθμούς, όπως 2,3,4,5… που σημαίνει ότι η ημερομηνία θα εισαχθεί το δεύτερη, τρίτη, τέταρτη ή πέμπτη στήλη εκτός από τη στήλη των αλλαγμένων τιμών.

3. Όταν διαγράφετε μια τιμή στην τροποποιημένη στήλη, η ημερομηνία και η ώρα θα καταργηθούν επίσης.


Τα καλύτερα εργαλεία παραγωγικότητας του 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% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (108)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς γράφετε τον κώδικα για να το κάνετε αυτό πολλές φορές σε μία σελίδα Π.χ. κείμενο στη στήλη Β, ημερομηνία στο Γ και κείμενο στο Δ, ημερομηνία στο Ε;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
[quote]Πώς γράφετε τον κώδικα για να το κάνετε αυτό πολλές φορές σε μία σελίδα Π.χ. κείμενο στη στήλη Β, ημερομηνία στο Γ και κείμενο στο Δ, ημερομηνία στο Ε;Από τη Hilary[/quote] Γνωρίζω ότι αυτό είναι παλιό, αλλά, ο μακρύς, αλλά εύκολος τρόπος, είναι να αντιγράψετε τις δηλώσεις μεταβλητών και να δημιουργήσετε νέες μεταβλητές (π.χ. WorkRng1 και Rng1). Πρέπει επίσης να αντιγράψετε τη δήλωση "if" και να αλλάξετε τις μεταβλητές στα νέα ονόματα μεταβλητών.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
[quote]Πώς γράφετε τον κώδικα για να το κάνετε αυτό πολλές φορές σε μία σελίδα Π.χ. κείμενο στη στήλη Β, ημερομηνία στο Γ και κείμενο στο Δ, ημερομηνία στο Ε;Από τη Hilary[/quote] Ακολουθεί ο κωδικός: Private Sub Worksheet_Change(ByVal Target As Range) 'Ενημέρωση 20140722 Dim WorkRng ως εύρος Dim Rng ως εύρος Dim xOffsetΣτήλη ως ακέραιος 'Αλλάξτε το εύρος για να επιλέξετε τη στήλη που ενημερώνετε, π.χ. ("A: A") ή ("B:B") Set WorkRng = Intersect(Application.ActiveSheet.Range("E:E"), Target) xOffsetColumn = 1 'Για δεύτερη φορά σφραγίδα 'Δημιουργία νέων ονομάτων μεταβλητών, όπως WorkRng1, Rng1, κ.λπ. Dim WorkRng1 ως εύρος Dim Rng1 ως εύρος Dim xOffsetColumn1 ως σύνολο ακέραιων αριθμών WorkRng1 = Intersect(Application.ActiveSheet.Range("G:G"), Target) xOffsetColumn1 = 1 'Για πρώτη φορά η σφραγίδα εάν δεν είναι WorkRng Τότε Application.EnableEvents = False For Every Rng In WorkRng Αν όχι VBA.IsEmpty(Rng.Value) Τότε Rng.Offset(0, xOffsetColumn).Value = Now Rng.Offset(0, xOffsetColumn).NumberFormat = "mm/dd/ εεεε" Else Rng.Offset(0, xOffsetColumn).ClearContents End If Next Application.EnableEvents = True End If "Για δεύτερη φορά σφραγίδα If Not WorkRng1 Is Nothing then Application.EnableEve nts = False για κάθε Rng1 στο WorkRng1 Αν όχι VBA.IsEmpty(Rng1.Value) Τότε Rng1.Offset(0, xOffsetColumn1).Value = Τώρα Rng1.Offset(0, xOffsetColumn1).NumberFormat = "μμ/ηη/εεεε" Άλλο Rng1.Offset(0, xOffsetColumn1).ClearContents End If Next Application.EnableEvents = True End If End Sub
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Τι γίνεται αν θέλω να το κάνω αυτό για μια σειρά στηλών;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
αλλάξτε το εύρος (B:B) ως εξής: (10:20) για τις στήλες 10 έως 20 (D5:D40) για τις στήλες 5 έως 40 στη σειρά D Ελπίζω να βοηθήσει.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λυπούμαστε, αλλάζω στήλες με γραμμές, αλλά εξακολουθεί να λειτουργεί. (D:P) Από τη στήλη D έως το P (D5:D5) από τη στήλη D έως το P στη σειρά 5
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
όταν το αποθηκεύω λειτουργεί αλλά όταν το ανοίγω ξανά δεν λειτουργεί
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
[quote]όταν το αποθηκεύω λειτουργεί αλλά όταν το ανοίγω ξανά δεν λειτουργείΑπό τον Aarif[/quote] Ίδιο πρόβλημα με τον Aarif... Λειτουργούσε αρκετά πριν από μισή ώρα, και τώρα δεν... επίσης, ήθελα μόνο την ώρα και όχι την ημερομηνία ΚΑΙ την ώρα, έτσι έκανα επεξεργασία το ".NumberFormat" για να είναι απλά ωω:μμ:σδ, αποθηκεύτηκε, το δοκίμασα... δεν διαφέρει... βάζω ακόμα την ημερομηνία και την ώρα...; άνοιξα ξανά το VB, και πληκτρολόγησα κάποιο οριοθετημένο κείμενο, αποθηκεύτηκε ξανά, δεν ήταν καλό, μετά το έκανα για τρίτη φορά, και η μορφή έκανε όπως μου είπαν και ξαφνικά πήρα ακριβώς την ώρα. ΠΟΛΥ παράξενο Σκέφτηκα εδώ και καιρό ότι το Excel είναι στοιχειωμένο, από τότε που χρησιμοποίησα για πρώτη φορά τη συνάρτηση SEARCH, αναζητώντας μια τιμή σε ένα κελί που μπορούσα να δω με τα μάτια μου, αλλά το Excel επέμενε ότι δεν υπήρχε!; Κάποιοι γκουρού ή εξορκιστές του Excel που μπορεί να βοηθήσει; γιατί αγνοεί το VB μου και ΔΕΝ χρονοσήμανση όπως έκανε...; ευχαριστω :cry:
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
[quote]Πώς γράφετε τον κώδικα για να το κάνετε αυτό πολλές φορές σε μία σελίδα Π.χ. κείμενο στη στήλη Β, ημερομηνία στο Γ και κείμενο στο Δ, ημερομηνία στο Ε;Από τη Hilary[/quote] ποια είναι η απάντηση στο απόσπασμα
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Τι γίνεται αν θέλω να εκτελεστεί αυτό αλλά δεν είμαι σε ενεργό φύλλο, επομένως να εκτελείται στο παρασκήνιο και να ενημερώνεται κάθε φορά που υπάρχει μια καταχώρηση στη στήλη Β;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Τι γίνεται αν η στήλη που επηρεάζει τη στήλη χρονικής σφραγίδας είναι το άθροισμα πολλών άλλων στηλών; Για παράδειγμα... Η στήλη H είναι =Άθροισμα(E+F+G) και θα ήθελα μια χρονική σήμανση να γίνεται στη Στήλη I κάθε φορά που αλλάζει η Στήλη H ή ουσιαστικά όταν έχουν αλλάξει οι Στήλες E, F ή G . Μπορείτε σας παρακαλώ να βοηθήσετε;;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρειάζομαι βοήθεια παρακαλώ! Προσπαθώ να κάνω μια χρονική σήμανση κάθε φορά που αλλάζει ένα από τα τρία κελιά. Ιδανικά θα ήθελα να το κάνω όταν το άθροισμα αυτών των κελιών έχει αλλάξει. Για παράδειγμα. Τα κελιά E, F, G θα αλλάξουν και το κελί H θα είναι το άθροισμα αυτών των τριών κελιών. Όταν το κελί H έχει αλλάξει, θα ήθελα το κελί I να έχει χρονική σήμανση. Είναι δυνατόν?? Σε ευχαριστώ πάρα πολύ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Προσπαθώ να εκτελέσω τον παραπάνω κώδικα. Ωστόσο, το κελί που είναι η αλλαγή που θέλω να καταγράψω είναι συνδεδεμένο με ένα πλαίσιο ελέγχου και επομένως είναι είτε "TRUE" ή "FALSE". Για κάποιο λόγο, ο κωδικός δεν θα λειτουργήσει όταν αλλάξει το κελί. Ωστόσο, εάν εισάγω πείτε "ναι" με μη αυτόματο τρόπο, ο κωδικός λειτουργεί καλά. Γνωρίζετε κάποια λύση για αυτό το ζήτημα; Σας ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Είναι δυνατόν να γίνει αυτό για ιστορικά δεδομένα; Εάν έκανα αλλαγές σε ένα κελί χθες ή πριν από ένα μήνα, μπορώ να χρησιμοποιήσω μια φόρμα αυτού του κώδικα για να ανακτήσω αυτές τις ημερομηνίες;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπάρχει τρόπος για τη σήμανση χρόνου με βάση μια συγκεκριμένη αλλαγή; Για παράδειγμα, έχω ένα υπολογιστικό φύλλο με μια στήλη αναπτυσσόμενων επιλογών, συμπεριλαμβανομένου του να είναι κενό, «ΟΚ» και «Ενεργώ». Όταν ολοκληρωθεί η εργασία, το αναπτυσσόμενο μενού χρησιμοποιείται χειροκίνητα για να επιλέξετε «Ok». Θα ήθελα η σφραγίδα ημερομηνίας να συνδέεται με το πότε είναι επιλεγμένο το "Ok", αλλά όχι όταν είναι επιλεγμένο το "Act". Η επιλογή "Δράση" στο αναπτυσσόμενο μενού χρησιμοποιείται όταν μια εργασία έχει καθυστερήσει, αλλά στην πραγματικότητα απλώς προσπαθώ να παρακολουθήσω πότε ολοκληρώνεται ένα αντικείμενο. Υπάρχει τρόπος να γίνει αυτό με τον παραπάνω κώδικα; Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καταφέρατε να το λύσετε αυτό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
είναι πολύ καλή ερώτηση. το έχεις τακτοποιήσει, μπορείς να μοιραστείς τον τρόπο;
ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μπορώ να αλλάξω το εύρος σε ("A:Q") αλλά χρειάζομαι την ημερομηνία και την ώρα για να μεταβούν στο "S" εάν τα δεδομένα σε οποιοδήποτε κελί AQ αλλάξουν/καταργηθούν. Είμαι VBA πρόκληση. Κάθε βοήθεια είναι ευπρόσδεκτη!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Συγγνώμη, μόλις δημοσίευσα μια ερώτηση και χρειάζομαι την απάντηση σε αυτό...Πρέπει να έχασα αυτό το σχόλιο...ελπίζω ότι κάποιος μπορεί να βοηθήσει!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς μπορώ να το αλλάξω ώστε να αλλάζει μόνο η ημερομηνία του διπλανού κελιού;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς μπορώ να λάβω τη χρονική σήμανση για εγγραφή σε ένα συγκεκριμένο κελί, αντί για το κελί δίπλα σε αυτό που άλλαξε. Προσπαθώ να έχω μια σειρά κελιών με χρονική σήμανση όταν συμβαίνει μια αλλαγή σε οποιοδήποτε από αυτά τα κελιά, θα ήθελα η χρονική σήμανση να καταγράφεται σε ένα συγκεκριμένο κελί...μπορεί κάποιος να βοηθήσει με αυτό; Σας ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, σας ευχαριστούμε θερμά για αυτό, καθώς είναι εξαιρετικό για τη δυνατότητα ελέγχου του WB. Υπάρχει τρόπος να το αλλάξετε αυτό ώστε η ημερομηνία/ώρα να καταγράφεται κάπου στο WB κάθε φορά που προστίθεται ή τροποποιείται ένα σχόλιο; Γνωρίζω ότι αυτή είναι μια γενική ερώτηση, αλλά δεν είμαι σίγουρος αν είναι δυνατό (δυστυχώς για το MS 2010, η ιδιότητα .comment δεν διαθέτει ιδιότητα ημερομηνίας για να προσδιορίσει πότε εισήχθη. Mike
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς μπορώ να ρυθμίσω να διαβάζω τη στήλη A:A και να δίνω χρονική σήμανση σε B:B μόνο όταν έχει εισαχθεί ένας 14ψήφιος αριθμός;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, χρειάζομαι κάποια βοήθεια κωδικοποίησης VBA. Δημιουργώ ένα υπολογιστικό φύλλο με υποθέσεις που θα ανατεθούν σε άτομα και θα έχουν κατάσταση υπόθεσης. Ο εκδοχέας θα είναι στο Col H και χρειάζομαι μια σφραγίδα ημερομηνίας στο Col I όταν το κελί στο Col H ενημερωθεί ή αλλάξει με ένα όνομα. Ομοίως, θα έχω κατάσταση υπόθεσης στο Col J και θα χρειαστώ μια σφραγίδα ημερομηνίας στο Col K όταν εισάγεται ή αλλάξει μια κατάσταση. Επίσης, όταν δεν υπάρχει όνομα ή κατάσταση μη εκδοχέα, χρειάζομαι τη σήμανση ημερομηνίας στο Col I και K να είναι κενή. Οποιαδήποτε βοήθεια θα εκτιμηθεί. Ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Βρήκα αυτόν τον κωδικό αλλού και τον τροποποίησα για δική μου χρήση. Εάν γίνει σωστά, δεν χρειάζεται να ανησυχείτε για την εισαγωγή μιας συνάρτησης σε ένα κελί ή το αρχείο που αλλάζει τις ημερομηνίες στην ημερομηνία εκείνης της ημέρας κάθε φορά που ανοίγει. - ανοίξτε το Excel - πατήστε "Alt+F11" - Κάντε διπλό κλικ στο φύλλο εργασίας στο οποίο θέλετε να εφαρμόσετε την αλλαγή (παρατίθεται στα αριστερά) - αντιγράψτε/επικολλήστε τον παρακάτω κώδικα - προσαρμόστε την είσοδο Range(_:_) ώστε να αντιστοιχεί στη στήλη που θα ενημερώσετε - προσαρμόστε την είσοδο Offset(0,_) ώστε να αντιστοιχεί στη στήλη όπου θα θέλατε να εμφανίζεται η ημερομηνία (στην παρακάτω έκδοση κάνω ενημερώσεις στη στήλη D και θέλω η ημερομηνία να εμφανίζεται στη στήλη F, ως εκ τούτου η καταχώριση "2" για 2 στήλες πάνω από τη στήλη D) - πατήστε αποθήκευση - επαναλάβετε τα παραπάνω βήματα εάν υπάρχουν άλλα φύλλα εργασίας στο βιβλίο εργασίας σας που χρειάζονται τον ίδιο κωδικό - ίσως χρειαστεί να αλλάξετε τη μορφή αριθμού της στήλης που εμφανίζει το ημερομηνία σε "Γενικά" και αυξήστε το πλάτος της στήλης εάν εμφανίζει "####" αφού κάνετε μια ενημερωμένη καταχώριση Αντιγραφή/Επικόλληση κώδικα παρακάτω: ______________________________________________________________ Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range(" D:D")) Is Nothing then Exit Sub Target.Offset(0, 2) = Date End Sub ___ _________________________________________________________ Καλή τύχη...
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτός ο κωδικός θα εμφανίζει την ημερομηνία όταν εμφανίζεται, είναι δυνατή η εμφάνιση της ημερομηνίας μόνο όταν αλλάζει το περιεχόμενο στο κελί, εάν έχει γίνει μόνο κλικ και δεν έχει αλλάξει τίποτα, τότε η ημερομηνία δεν εμφανίζεται ή παραμένει η ημερομηνία που καταχωρίσατε προηγουμένως;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Όταν καταγράφω σε μακροεντολή έναν τύπο vloocup, έτσι πώς μπορώ να το κάνω, αυτή η ημερομηνία άλλαξε αυτόματα σε 1 ημέρα πριν, όπως στις 21/07/2017 και την επόμενη μέρα άλλαξε σε 22/07/2017 Αυτόματα, παρακαλώ κοινοποιήστε εάν υπάρχει κωδικός vba.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
αντικαταστήστε αυτή τη γραμμή
Rng.Offset(0, xOffsetColumn).Τιμή = Τώρα

προς την
Rng.Offset(0, xOffsetColumn).Τιμή = Τώρα+1
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ πολύ για τον κωδικό! Ακριβώς αυτό που έψαχνα!!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστώ για τη βοήθειά σας :-)
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Τοποθετήστε Περισσότερα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

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

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