Forum

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

Πάμε!
ms-office.gr > Forum > Microsoft Excel > Excel - Ερωτήσεις / Απαντήσεις > [Συναρτήσεις] διπλοεγγραφες με τυχαια σειρα

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 29-10-19, 15:45
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-12-2013
Περιοχή: Θεσσαλονίνη
Μηνύματα: 14
Προεπιλογή διπλοεγγραφες με τυχαια σειρα

Καλημέρα σας,

Θα ήθελα τη βοήθειά σας.

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

Υπάρχει συνημμένος ένας πίνακας όπου φαίνεται το σημείο της ίδιας εγγραφής.

Ευχαριστώ.
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm ίδια καταχώρηση.xlsm (11,9 KB, 8 εμφανίσεις)
Απάντηση με παράθεση
  #2  
Παλιά 29-10-19, 19:35
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.044
Προεπιλογή

Καλησπέρα

Οι εγγραφές (γραμμές του πίνακα) που έχουν ίδιες λέξεις (ανεξάρτητα από τη σειρά τους) θεωρούνται «ίσες».

Μια λύση για να βρούμε τις «ίσες» είναι να ταξινομήσουμε τις λέξεις της εγγραφής και στη συνέχεια να τις ενώσουμε σε μία συμβολοσειρά (string).

Μετά την ταξινόμηση και τη συνένωση όλες οι «ίσες» εγγραφές θα μας δώσουν την ίδια συμβολοσειρά.

Συνεπώς αντί να εργαστούμε με τις αρχικές εγγραφές (γραμμές του πίνακα) εργαζόμαστε με τις αντίστοιχες συμβολοσειρές.

Για την ταξινόμηση των λέξεων και τη συνένωση δημιούργησα, με κώδικα, τη συνάρτηση SortWords.

Η ίδια συνάρτηση κάνει και κάποιες αλλαγές ώστε να μπορούμε να έχουμε στον πίνακα και λέξεις με πεζά τόνους και διαλυτικά..

Δες το συνημμένο.
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm CompareRecords.xlsm (22,4 KB, 12 εμφανίσεις)
Απάντηση με παράθεση
  #3  
Παλιά 29-10-19, 20:49
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-12-2013
Περιοχή: Θεσσαλονίνη
Μηνύματα: 14
Προεπιλογή

Καλησπέρα,

Σε ευχαριστώ πάρα πολύ για την βοήθεια και τον χρόνο που αφιερώνεις.

Να είσαι καλά.

Αν μπορείς και έχεις την διάθεση να μου εξηγήσεις πως δουλεύει η μακροεντολή θα ήταν υπέροχο.
Ασχολούμαι με μαρκοεντολές αλλά όχι κάτι ιδιαίτερο.
Ευχαριστώ και πάλι.
Απάντηση με παράθεση
  #4  
Παλιά 29-10-19, 23:20
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.044
Προεπιλογή

Ελπίζω να βοηθήσουν τα σχόλια που πρόσθεσα στον κώδικα.

Κώδικας:
Option Explicit

Public Function SortWords(rng As Range) As String
    Dim x() As String, i As Long, j As Long
    Dim k As Long, rep As Boolean, c As Range
    Dim ua As Variant, ub As Variant, wd As String

    'Τα γράμματα στο array ua θα αντικατασταθούν από τα αντίστοιχα του ub
    ua = Array("Ά", "Έ", "Ή", "Ί", "Ϊ", "Ό", "ς", "Ύ", "Ϋ", "Ώ")
    ub = Array("Α", "Ε", "Η", "Ι", "Ι", "Ο", "Σ", "Υ", "Υ", "Ω")
    
    'Το πλήθος των κελιών του ορίσματος rng και δήλωση του array x
    k = rng.Count
    ReDim x(1 To k) As String

    For Each c In rng
        i = i + 1
        x(i) = UCase(c) 'Η τιμή του κελιού c σε κεφαλαία αποδίδεται στο x(i)
        
        'Στις τιμές x(i) αντικαθίστανται τα τονισμένα κλπ γράμματα
        For j = 0 To UBound(ua)
            x(i) = Replace(x(i), ua(j), ub(j))
        Next
    Next
    
    rep = True

    'Οι λέξεις, τα στοιχεία x(i), ταξινομούνται
    'με τη μέθοδο φυσαλlίδας (bubble)
    Do While rep
        rep = False
        For i = 1 To k - 1
            If x(i) > x(i + 1) Then
                wd = x(i)
                x(i) = x(i + 1)
                x(i + 1) = wd
                rep = True
            End If
        Next
    Loop

    'Συνενώνονται τα στοιχεία του array x() και επιστρέφονται
    SortWords = Join(x, "|")

End Function
Απάντηση με παράθεση
  #5  
Παλιά 30-10-19, 08:27
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 02-12-2013
Περιοχή: Θεσσαλονίνη
Μηνύματα: 14
Προεπιλογή

Σε ευχαριστώ πολύ και πάλι. Για τον χρόνο που διαθέτεις αλλά και για την βοήθεια.
Να είσαι καλά.
Απάντηση με παράθεση
  #6  
Παλιά 30-10-19, 11:15
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.044
Προεπιλογή

Καλή συνέχεια και να είσαι καλά.
Απάντηση με παράθεση
  #7  
Παλιά 31-10-19, 12:59
Όνομα: Χρήστος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 01-06-2017
Μηνύματα: 16
Προεπιλογή

Καλησπέρα φίλοι μου, Μια ερώτηση, αυτό θα μπορούσε να γίνει με χρήση κάποιας συνάρτησης όπως για παράδειγμα στο βιβλίο που επισυνάπτω όπου θέλω στο πίνακα 2 να έχω μόνο τα ονόματα από μια φορά
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsx Βιβλίο2.xlsx (12,1 KB, 4 εμφανίσεις)
Απάντηση με παράθεση
  #8  
Παλιά 31-10-19, 18:26
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.044
Προεπιλογή

Καλησπέρα

Χρήστο, δες μια πρόταση στο συνημμένο.
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsx Unique.xlsx (13,5 KB, 12 εμφανίσεις)
Απάντηση με παράθεση
  #9  
Παλιά 31-10-19, 21:42
Όνομα: Χρήστος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 01-06-2017
Μηνύματα: 16
Προεπιλογή

Πάρα πολύ καλή και εύκολη λύση Γιώργο.
Σε ευχαριστώ πολύ για άλλη μια φορά. Καλό βράδυ.
Απάντηση με παράθεση
Απάντηση στο θέμα

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

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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[Συναρτήσεις] Τυχαία Επιλογή Spirosgr Excel samples - Χρήσιμα αρχεία & παραδείγματα 0 16-05-19 12:18
[Συναρτήσεις] Τυχαία επιλογή κελιών kellis Excel - Ερωτήσεις / Απαντήσεις 18 17-12-18 10:20
[Excel07] διπλοεγγραφες σε excel pnemtsa Excel - Ερωτήσεις / Απαντήσεις 9 08-02-17 10:26
Συγχρονισμός - Ενημέρωση, Διπλοεγγραφές kellis Access - Ερωτήσεις / Απαντήσεις 0 27-11-13 20:40
[Συναρτήσεις] Διπλοεγγραφές pierrita Excel - Ερωτήσεις / Απαντήσεις 9 28-03-12 15:08


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