Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [VBA] Προτροπή για ενημέρωση Πεδίου χωρίς δυνατότητα Παράκαμψης ! (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/2554-protropi-gia-enimerosi-pedioy-xoris-dynatotita-parakampsis.html)

Χρήστος 29-05-13 15:32
Προτροπή για ενημέρωση Πεδίου χωρίς δυνατότητα Παράκαμψης !
 
Καλησπέρα. θα ήθελα να ζητήσω την βοήθειά σας στο εξής.

Σ' ένα αρχείο Excel (2007) και συγκεκριμένα στο Φύλλο: Φόρμα θέλω
να κάνω υποχρεωτική την πληκτρολόγηση σ 'ένα συγκεκριμένο κελί (D6). Αν δεν πληκτρολογήσω (Αριθμό) να μην με αφήνει να συνεχίσω. Μάλλον θα έβρισκα βολικό να μην με αφήνει να κάνω κλίκ πουθενά αλλού, βγάζοντας προειδοποιητικό μήνυμα για πληκτρολόγηση.

Πως θα μπορούσα να ξεκινήσω και στην πορεία φαντάζομαι να τελειοποιηθεί!

Φιλικά Χρήστος

Spirosgr 29-05-13 19:52
Καλησπέρα
Ο πιο απλός τρόπος είναι να βάλεις αυτόν τον κώδικα στο φύλλο όχι σε Module
ώστε να μην επιτρέπετε επιλογή αν δεν γεμίσει το συγκεκριμένο κελί
Όπου "ονομασία" το κελί που πρέπει να είναι γεμάτο
και "κείμενο" το κείμενο του Msgbox

Κώδικας:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range(" ονομασία ").Value = "" Then
        MsgBox (" κείμενο ")
        End If
End Sub

Χρήστος 30-05-13 08:37
Σ' ευχαριστώ πολύ.

KostasZK 30-05-13 15:31
Με μόνο αυτόν τον κώδικα επιτρέπει να κάνεις κλικ και να γράψεις και σε οποιοδήποτε άλλο κελί.
Χρειάζεται να είναι κλειδωμένα τα άλλα κελιά και να ξεκλειδώνουν όταν μπει αριθμός στο κελί ονομασία.
Ή κάνω λάθος;

Spirosgr 30-05-13 19:34
1 Συνημμένο(α)
Καλησπέρα
Ο κώδικας αν το κελί πχ Β3 δεν έχει οποιαδήποτε τιμή
αριθμητική ή κείμενο ή ημερομηνία
μας ειδοποιεί συνεχώς μέχρι το κελί να έχει τιμή
νομίζω αρκεί κάτι τέτοιο
αφαιρέστε την τιμή από το κελί να δείτε τι γίνετε
δείτε το συνημμένο

Spirosgr 31-05-13 00:06
1 Συνημμένο(α)
Βλέποντας το ζητούμενο του Χρήστου και πάλι
<<Μάλλον θα έβρισκα βολικό να μην με αφήνει να κάνω κλικ πουθενά αλλού, βγάζοντας προειδοποιητικό μήνυμα για πληκτρολόγηση.>>
Θα έβαζα αυτό τον κώδικα με ένα μήνυμα σε Data Validation στο κελί

Κώδικας:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("xrange").Value <> "" Then
        Exit Sub
    Else
        Range("xrange").Select
    End If
End Sub


Η ώρα είναι 01:18.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2