Forum - VBA msgBox Μήνυμα

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [VBA] msgBox Μήνυμα (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/2959-msgbox-minyma.html)

msgBox Μήνυμα

Χαιρετίζω συντονιστές και όλα τα μέλη του forum,
Θα ήθελα το εξεις, αν σε μια περιοχή π.χ C2:G20 πληκτρολογίσω κάποια αριθμητική τιμή,
και στο κελί π.χ. Α1 δεν υπάρχει κάποια αριθμητική τιμή είναι κενό να παίρνω αυτόματο μήνυμα
msgBox
Το έχω κάνει με συνάρτηση IF, αν είναι δυνατόν θα ήθελα με VBA.

Ευχαριστώ για όποια βοήθεια.

Καλημέρα

Γιώργο, δοκίμασε τον κώδικα:

Κώδικας:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rngIn As Range, rngCheck As Range

    

    'Θα πρέπεινα οριστούν οι πραγματικές περιοχές

    Set rngIn = Range("C2:G20")

    Set rngCheck = Range("A1")

    

    If Not Application.Intersect(Target, rngIn) Is Nothing Then

        If IsNumeric(Target) And _

           (Not IsNumeric(rngCheck) Or Len(rngCheck) = 0) Then

            MsgBox "Πληκτρολογήσατε αριθμητική τιμή, ενώ το 'Α1' δεν περιέχει αριθμό."

        End If

    End If

End Sub

Φιλικά/Γιώργος

Γιώργο τέλειο! ΕΥΧΑΡΙΣΤΩ ΠΟΛΛΗ

Καλησπέρα!

Γιώργο (gfevran), αφού συμπληρώνεις τα κελιά της περιοχής C2:G20, θα μπορούσες επίσης να περιορίσεις την καταχώρηση δεδομένων σύμφωνα με τα κριτήρια που ανέφερες χρησιμοποιώντας την ενσωματωμένη επικύρωση δεδομένων της εφαρμογής (βλ. εικόνα).

Συνημμένο Αρχείο 5445

Καλή συνέχεια!

Με εκτίμηση

Τάσος

Τάσο Ευχαριστώ πολλή για την πρόταση
στο τέλος της συνάρτησης ήθελε μια παρένθεση ακόμη,
δεν είναι παρατήρηση! αλλά (δαίμονας πληκτρολόγησης) ξέρω πόσο καλός γνώστης της excel είσαι,
εγώ παιδεύτηκα μέχρι να το καταλάβω

Γιώργο σ' ευχαριστώ αλλά δεν λείπει καμία παρένθεση από τον τύπο που φαίνεται στην εικόνα.

Κάνε κλικ πάνω στην εικόνα για να φανούν καλύτερα οι λεπτομέρειες.

Με εκτίμηση

Τάσος

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

Κανένα πρόβλημα φίλε μου.

Όλοι μας κάνουμε λάθη. Αλίμονο σε αυτόν που είναι αλάνθαστος!

Καλή συνέχεια!

Τάσος

Γεια σας παιδιά,
παρατήρησα μια "δυσλειτουργία" στον κώδικα VBA!
όταν το Α1 δεν περιέχει αριθμό και πληκτρολογήσω στην περιοχή C2:G20 κάποιο αριθμό βγαίνει το μήνυμα σωστά μέχρι εδώ, όταν όμως σβήσω τον αριθμό από την περιοχή C2:G20 για να καταχωρίσω στο Α1 αριθμό το μήνυμα εμφανίζεται πάλι.
Υπάρχει κάποια λύση γ' αυτό?
Ευχαριστώ εκ των προτέρων.

Μετά τις 2 γραμμές με τα Set
Βάλε:
If Target <> vbNullString Then
και στο τέλος ένα
End If
ακόμη

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

Κώδικας:

Private Sub Worksheet_Change(ByVal Target As Range)
 'Ονομασία περιοχής G2:G20 = rngData
 'Ονομασία κελιού A1 = CheckCell
 'Ονομασία της κεφαλίδας κελί G1 = Header
 'Έλεγχος αν επιλέξουμε την κεφαλίδα από λάθος

    If Target.Row = Range("Header").Row Then Exit Sub

    'Έλεγχος αν επιλέξουμε περισσότερα του ενός κελιά από λάθος

    If Target.Cells.Count > 1 Then Exit Sub

    'Έλεγχος αν επιλέξουμε κελί της περιοχής με τιμή (όχι κενό)

    If Target <> vbNullString Then

        Αν όλα Ok τότε

        'Αν η επιλογή είναι "μέσα" στην περιοχή rngData

        If Not Intersect(Target, Range("rngData")) Is Nothing Then

            'και έχουμε αριθμό ενώ ΤΑΥΤΌΧΡΟΝΑ το A1 δεν έχει αριθμό ή έχει μηδενικό μήκος

            If IsNumeric(Target) And _

               (Not IsNumeric(Range("CheckCell")) Or Len(Range("CheckCell")) = 0) Then

                'Τότε μήνυμα

                MsgBox ("Έχετε πληκτρολογήσει αριθμητική τιμή" & vbLf & _

                        "και το κελί A1 δεν περιέχει αριθμό." & vbLf & _

                        "Παρακαλώ δοκιμάστε ξανά."), vbInformation, "Spirosgr_INFO!"

            End If

        End If

    End If

End Sub

Σπύρο σ' ευχαριστώ
Με κάλυψε πλήρως η πρώτη πρόταση σου τη δεύτερη,
τη φύλαξα για άλλες περιπτώσεις.

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

Τελικά είχες δίκιο Σπύρο,
χρησιμοποίησα το δεύτερο.
Σ' Ευχαριστώ.