Yuk Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код:  Private Sub SortArray(ByRef a As Variant)     Dim i As Long, j As Long     Dim t As Variant       'standard bubble sort loops     For i = LBound(a) To UBound(a) - 1         For j = i + 1 To UBound(a)             If UCase(a(i)) > UCase(a(j)) Then    'change to < for descending order                 t = a(i)                 a(i) = a(j)                 a(j) = t             ElseIf UCase(a(i)) = UCase(a(j)) And a(i) < a(j) Then 'change to > to prefer upper case                 t = a(i)                 a(i) = a(j)                 a(j) = t             End If         Next j     Next i End Sub   Всего записей: 1182 | Зарегистр. 02-07-2001 | Отправлено: 23:02 07-09-2006

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Excel VBA

ShIvADeSt (23-04-2007 01:59): http://forum.ru-board.com/topic.cgi?forum=33&topic=8273

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование