Forum

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/2146-emfanisi-msgbox-mono-otan-keli-einai-energo.html)

anestaki 28-10-12 12:30
Εμφάνιση msgbox μόνο όταν το κελί είναι ενεργό
 
Καλημέρα σε όλους

Με τον παρακάτω κώδικα εμφανίζετε ένα msgbox όταν το κελί έχει κάποια τιμή μεγαλύτερη του μηδέν(0), αλλά και όταν μετά επιλέξεις κάποιο άλλο.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
i = Range("j26")
If i > 0 Then
Msgbox " χχχχχχχχχχχχχ", vbInformation, "Stella Hellas info"
End If
End Sub
Μπορεί να εμφανίζετε μόνο για το συγκεκριμένο κελί.
Φιλικά Γιώργος

Tasos 28-10-12 12:59
Καλησπέρα!

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

Κώδικας:
Private Sub Worksheet_Change(ByVal Target As Range)
' If Target.CountLarge = 1 Then ' Για φύλλα με 1048576 γραμμές
    If Target.Count = 1 Then
        If Target.Address = "$J$26" Then
            ' Application.Undo    ' Αναίρεση της αλλαγής αν χρειαστεί
            MsgBox " χχχχχχχχχχχχχ", vbInformation, "Stella Hellas info"
        End If
    End If
End Sub
Ίσως αντιμετωπίσεις πρόβλημα αν το συγκεκριμένο κελί ($J$26) ανήκει σε κάποια συγχώνευση κελιών.

Τάσος

anestaki 28-10-12 13:47
Καλησπέρα Τάσο
Καμία σχέση με αυτό που έκανα εγώ.
Στο τέλος θα διαβάσω των κώδικα που θα πάει, κάθε φόρα μαθαίνω κάτι καινούργιο.
Σε ευχαριστώ για ακόμη μια φορά.
Φιλικά Γιώργος


Η ώρα είναι 14:20.

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


Search Engine Optimization by vBSEO 3.3.2