14-12-16, 18:31
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.321
| |
Λύση με UDF
Σε μια περιοχή, με κενά συγχωνευμένα, εισάγουμε την συνάρτηση (*βλέπε εικόνα 1)
Η συνάρτηση σε μια module. Κώδικας: Function JoinEX(ByVal rng As Range, DelimeterX As String) As String
Dim tmpString As String, c As Range
For Each c In rng
If Not IsEmpty(c) Then
tmpString = tmpString & c.Value & DelimeterX & vbCrLf
End If
Next
If Right(tmpString, 3) = DelimeterX & vbCrLf Then _
tmpString = Left(tmpString, Len(tmpString) - Len(DelimeterX & vbCrLf))
JoinEX = tmpString
End Function
Ενεργοποίηση-απενεργοποίηση UDF (*βλέπε εικόνα 2)
|
Υβριδικός τρόπος
