[offtop]Николай Леонтьевич Шустов (? — 1898) — российский предприниматель, владелец товарищества «Шустовъ и сыновья», одного из крупнейших производителей алкогольной продукции в царской России начала XX века[1].
[offtop]Николай Леонтьевич Шустов (? — 1898) — российский предприниматель, владелец товарищества «Шустовъ и сыновья», одного из крупнейших производителей алкогольной продукции в царской России начала XX века[1].Hugo
Sub БубликSort(ByRef List) Dim First As Integer, Last As long Dim i As long, j As long Dim Temp As string First = LBound(List) Last = UBound(List) For i = First To Last - 1 For j = i + 1 To Last If List(i) > List(j) Then Temp = List(j) List(j) = List(i) List(i) = Temp End If Next j Next i End Sub
[/vba] PS:Завод Шустов в 3 км от меня, именно завод
Писал в блокноте,промахнулся [vba]
Код
Sub БубликSort(ByRef List) Dim First As Integer, Last As long Dim i As long, j As long Dim Temp As string First = LBound(List) Last = UBound(List) For i = First To Last - 1 For j = i + 1 To Last If List(i) > List(j) Then Temp = List(j) List(j) = List(i) List(i) = Temp End If Next j Next i End Sub
[/vba] PS:Завод Шустов в 3 км от меня, именно заводdoober
Сообщение отредактировал doober - Вторник, 02.12.2014, 20:49
Если ячейка в столбце G пустая то значение получается 0 (х*0=0) значит нужно либо ставить в пустые ячейки 1 или 100%, ну или наверно добавить в макрос обработку типа ЛОЖ 0 (пусто), то не выполнять, а если ИСТИНА то обработать, блин белеберда какая-то ??????
Если ячейка в столбце G пустая то значение получается 0 (х*0=0) значит нужно либо ставить в пустые ячейки 1 или 100%, ну или наверно добавить в макрос обработку типа ЛОЖ 0 (пусто), то не выполнять, а если ИСТИНА то обработать, блин белеберда какая-то ?????? ZamoK
Я не Гуру, но стремлюсь!
Сообщение отредактировал ZamoK - Вторник, 02.12.2014, 21:15
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
(х*0=0) значит нужно либо ставить в пустые ячейки 1 или 100%, ну или наверно добавить в макрос обработку типа ЛОЖ 0 (пусто), то не выполнять, а если ИСТИНА то обработать, блин белеберда какая-то ?????? 
