Forum
Σελίδα 1 από 2 1 2
Εμφάνιση 40 μηνυμάτων αυτού του θέματος σε μία σελίδα

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)

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

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

kapetang 26-01-14 09:31
Καλημέρα

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

Κώδικας:
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 26-01-14 09:53
Γιώργο τέλειο! ΕΥΧΑΡΙΣΤΩ ΠΟΛΛΗ

Tasos 26-01-14 12:54
1 Συνημμένο(α)
Καλησπέρα!

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

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


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

Με εκτίμηση

Τάσος

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

Tasos 27-01-14 11:21
Γιώργο σ' ευχαριστώ αλλά δεν λείπει καμία παρένθεση από τον τύπο που φαίνεται στην εικόνα.

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

Με εκτίμηση

Τάσος

gfevran 27-01-14 18:33
Τάσο χίλια συγνώμη έχεις δίκιο σωστές είναι οι παρενθέσεις,
μάλλον χρειάζομαι οφθαλμίατρο επειγόντως...

Tasos 27-01-14 20:46
Κανένα πρόβλημα φίλε μου.

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

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

Τάσος

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

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


Η ώρα είναι 07:42.
Σελίδα 1 από 2 1 2
Εμφάνιση 40 μηνυμάτων αυτού του θέματος σε μία σελίδα

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


Search Engine Optimization by vBSEO 3.3.2