Новости:

Из правил форума: Тема должна отражать суть вопроса, топики типа "help please" будут удаляться!

Главное меню

сортировка слов в ячейке по алфавиту

Автор Paha_L, 13.07.2011, 19:09

« назад - далее »

Paha_L

сортировка слов в ячейке по алфавиту. как?
пример ячейки
leisure, bowling, club, bowl, ball, lane, game, play, good, action, lot, happy, many, fun, fast, great, health, roll, pin, target, score, point, design, bright, entertainment, strike, indoor, pinsetter, mechanic, ten-pin, automated, illumination, interior, inside, recreation, hit, dark,

MCH

UDF:
Function sorttxt(txt As String) As String
Dim s, i, j, tmp
s = Split(txt, ", ")
For i = LBound(s) To UBound(s) - 1
    For j = i + 1 To UBound(s)
        If Trim(s(i)) > Trim(s(j)) Then
            tmp = Trim(s(j)): s(j) = Trim(s(i)): s(i) = tmp
        End If
Next j, i
sorttxt = Replace(Trim(Join(s)), " ", ", ")
End Function


nilem

Еще вариант с QSortNonRecursive и зеленой кнопочкой.

Paha_L

Цитата: MCH от 13.07.2011, 20:37
UDF:
Function sorttxt(txt As String) As String
Dim s, i, j, tmp
s = Split(txt, ", ")
For i = LBound(s) To UBound(s) - 1
    For j = i + 1 To UBound(s)
        If Trim(s(i)) > Trim(s(j)) Then
            tmp = Trim(s(j)): s(j) = Trim(s(i)): s(i) = tmp
        End If
Next j, i
sorttxt = Replace(Trim(Join(s)), " ", ", ")
End Function


а как сделать, если макросу пришлось поработать, то ячейка одним цветом, а если всё и так было по алфавиту, то другим?