Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Excel > Excel - Ερωτήσεις / Απαντήσεις > [Μορφοποίηση] Πρόβλημα με την αναζήτηση.

Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 03-06-19, 07:57
Όνομα: ΔΗΜΗΤΡΗΣ
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 01-08-2011
Μηνύματα: 70
Προεπιλογή Πρόβλημα με την αναζήτηση.

Η αωαζήτηση δεν βρίσκει ένα συγκεκριμμένο τμήμα μιάς καταχώρησης.
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsx Πρόβλημα με την αναζήτηση.xlsx (17,8 KB, 4 εμφανίσεις)
Απάντηση με παράθεση
  #2  
Παλιά 03-06-19, 10:45
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.337
Προεπιλογή

Δεν γνωρίζω την μακροεντολή που σου δίνει τα αποτελέσματα (strings)
στην στήλη Α, αλλά τα Ε (και πιθανό τα Α ή και άλλοι χαρακτήρες που ζητάς)
είναι Αγγλικά, και όχι Ελληνικά.

Δεν είναι δυνατόν να βρεί ΛΑΕ στα Ελληνικά, αν το string είναι ΛΑΕ, με Ε λατινικό...

Σε πρώτη φάση τσέκαρε αυτό...

Σε δεύτερη, χρησιμοποίησε την ρουτίνα:
Κώδικας:
Sub FindStr()
    Dim rng         As Range
    Dim c           As Range
    Dim lrow        As Long
    Dim iFound      As Byte
    Dim tSearch     As String

    lrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    Set rng = Sheet1.Range("a1:a" & lrow)

    tSearch = Sheet1.Range("d1").Value

    rng.Interior.Color = xlNone
    
    For Each c In rng
        iFound = InStr(c.Value, tSearch)
        If iFound > 0 Then
            c.Interior.Color = vbYellow
        End If
    Next c
End Sub
είτε αυτόνομα είτε προσαρμόζοντας και ενσωματώνοντάς την στην υπάρχουσα
(εφ' όσον η υπάρχουσα, δεν έχει σφάλματα).

Σημειώσεις:
1. Στο κελί d1, πληκτρολογούμε το string που θέλουμε να αναζητήσουμε.
2. Όπου βρεθεί (να εμπεριέχεται), το κελί της Α στήλης γίνεται κίτρινο.
3. Οι παράμετροι της ρουτίνας μπορούν να αλλάξουν (περιοχή αναζήτησης, κελί αναζήτησης, χρώμα εμφάνισης)
4. Αν κάποιες Dim, υπάρχουν στην μακροεντολή που θα προσαρμόσετε την πιο πάνω ρουτίνα,
θα πρέπει να αλλάξουν.
Απάντηση με παράθεση
  #3  
Παλιά 03-06-19, 15:43
Όνομα: ΔΗΜΗΤΡΗΣ
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 01-08-2011
Μηνύματα: 70
Προεπιλογή Πρόβλημα στην εύρεση

Ευχαριστώ πολύ !
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm ΠΡΟΒΛΗΜΑ ΣΤΗΝ ΕΥΡΕΣΗ.xlsm (25,6 KB, 5 εμφανίσεις)
Απάντηση με παράθεση
  #4  
Παλιά 03-06-19, 16:23
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.337
Προεπιλογή

Έχεις κάποιες παρατηρήσεις μέσα στο βιβλίο σου.
Θα σου πω για την πρώτη, γιατί στις υπόλοιπες συμφωνούμε...

1.
«Αν με το εύρεση αντικατάσταση απαλείψω το , και τα κενά που είναι ανάμεσα στίς καταχωρίσεις και αναζητήσω το LHO από το κελί D1
τότε ο κώδικας δεν λειτουργεί.»

Απάντηση:
Λάθος, ο κώδικας λειτουργεί, και θα μαρκάρει όλα τα κελιά που περιέχουν LHO

Γενικά, ο κώδικας θα κάνει αυτό που πρέπει, αν ό,τι πληκτρολογήσουμε στ d1,
εμπεριέχεται στα κελιά της Α.

Εικόνες 1-3 λειτουργεί
Εικόνα 2, φυσικά και λειτουργεί, αλλά δεν βρίσκει «επαφή»

Μπορούμε να έχουμε και πληροφορία (msgbox) στον κώδικα για το τι βρήκε, αν βρήκε:

1
Βάζουμε μια μεταβλητή
Κώδικας:
Dim k           As Long
2
Ορίζουμε τη μεταβλητή ως μηδέν
Κώδικας:
k = 0
μετά το
Κώδικας:
rng.Interior.Color = xlNone
3
Μέσα στο loop και μέσα στο If, βάζουμε
Κώδικας:
k = k + 1
μετά το
Κώδικας:
c.Interior.Color = vbYellow
4
Τέλος μετά το
Κώδικας:
Next c
προσθέτουμε τις γραμμές
Κώδικας:
    If k = 0 Then
        MsgBox "Δεν βρέθηκαν τιμές"
     Else
        MsgBox "Βρέθηκαν " & k & " τιμές"
    End If
Συνημμένα Thumbnails
Πρόβλημα με την αναζήτηση.-screenshot_1.jpg   Πρόβλημα με την αναζήτηση.-screenshot_2.jpg   Πρόβλημα με την αναζήτηση.-screenshot_3.jpg  
Απάντηση με παράθεση
  #5  
Παλιά 03-06-19, 16:46
Όνομα: ΔΗΜΗΤΡΗΣ
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 01-08-2011
Μηνύματα: 70
Προεπιλογή

Σωστά.
Λειτουργεί αφού τα γράμματα τα έκανα στα αγγλικά.
Με ελληνικά γράμματα δεν λειτουργεί.
Μήπως κάτι πάλι μου διαφεύγει;

Πάντως όπως και να έχει το πρόβλημα λύθηκε και σε ευχαριστώ πολύ !
Απάντηση με παράθεση
  #6  
Παλιά 03-06-19, 17:05
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.337
Προεπιλογή

Δουλεύει πάντα και με οποιαδήποτε γλώσσα.

Σημείωση

Βρίσκει το ΛΑΦ στο string ΚΛΑΦΗΟ
Αλλά δεν βρίσκει το ΛαΦ και
δεν θα βρεί και το ΛΆΦ (τα Ελληνικά έχουν και τονισμό) διότι είναι Case Sensitive.

Μήπως έχεις τέτοια θέματα;
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm ΠΡΟΒΛΗΜΑ ΣΤΗΝ ΕΥΡΕΣΗ.xlsm (33,1 KB, 3 εμφανίσεις)
Απάντηση με παράθεση
  #7  
Παλιά 03-06-19, 18:02
Όνομα: ΔΗΜΗΤΡΗΣ
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 01-08-2011
Μηνύματα: 70
Προεπιλογή

Εδώ δεν λειτουργεί !
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm Πρόβλημα με την αναζήτηση.xlsm (24,6 KB, 2 εμφανίσεις)
Απάντηση με παράθεση
  #8  
Παλιά 03-06-19, 19:25
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.337
Προεπιλογή

Λοιπόν,
για να μην το κουράζουμε άδικα, από την αρχή είπα, ότι δεν ξέρω αν ο κώδικας που έχεις
και φέρνει τα στοιχεία της Α, είναι σωστός.
Δεν ξέρω αν και η μετατροπή που κάνεις σε Ελληνικά, η διαδικασία δηλαδή
είναι αυτή που πρέπει...

Αποδεικνύεται στο βιβλίο, ότι έχεις λάθος.

Πως;

Δες το κελί Α8. Το τελευταίο δεξιά γράμμα είναι Ε. Αν δείς τη συνάρτηση δίπλα δείχνει 69.
Ο χαρακτήρας 69 λοιπόν είναι λατινικό Ε...

Ανάλογα, θα υπάρχουν κι άλλα λάθη σε άλλα φωνήεντα ή και Ρ (R) αλλά δεν το έψαξα.
Αυτά._
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm Πρόβλημα με την αναζήτηση.xlsm (32,9 KB, 5 εμφανίσεις)
Απάντηση με παράθεση
  #9  
Παλιά 03-06-19, 22:00
Όνομα: ΔΗΜΗΤΡΗΣ
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 01-08-2011
Μηνύματα: 70
Προεπιλογή

Σε ευχαριστώ παρα πολυ!
Με κάλυψες πληρως.
Συγνωμη που σε ζαλισα.
Να εισαι παντα καλά!
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
ΠΡΟΒΛΗΜΑ ΜΕ ΤΗΝ ΑΝΑΖΗΤΗΣΗ ΣΤΟ OUTLOOK Alexandraadami Outlook - Ερωτήσεις / Απαντήσεις 0 22-06-17 09:51
[ Ερωτήματα ] Πρόβλημα στην αναζήτηση μεταξύ ημερομηνιών ADREAS Access - Ερωτήσεις / Απαντήσεις 2 09-09-16 11:10
[Γενικά] Πρόβλημα στην αναζήτηση xristos Excel - Ερωτήσεις / Απαντήσεις 0 22-04-15 21:34
[ Συναρτήσεις ] ΠΡΟΒΛΗΜΑ ΚΩΔΙΚΑ ΣΕ ΑΝΑΖΗΤΗΣΗ artchrist73 Access - Ερωτήσεις / Απαντήσεις 2 16-10-14 22:44
[ Φόρμες ] Πρόβλημα με αναζήτηση dalavouras Access - Ερωτήσεις / Απαντήσεις 4 12-09-14 11:46


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