FREE
Румен 
Присъединил се: юли 2016
Постоянство бета
0
Аула точки
8700
Постижения
44
Изгледани уроци
595
Харесани отговора
4
Общо отговора
1
Въпроса
1
Последвани
0
Интереси
Microsoft Excel
MS Word
Excel VBA
VBA за Excel
SolidWorks
SolidWorks
Потвърдени умения
от харесани отговори разделени по софтуер
4
Microsoft Excel
Записани курсове
Завършени обучения
PDF удостоверения могат да се се свалят от лични настройки и документи.
Постижения
В АУЛА винаги се стремим да подобрим начина на обучение и поради това въведохме точкова система с постижения.
Принципът на работа е съвсем прост - за определено действие в АУЛА (като преминати уроци, преминат тест,
отговор на въпрос от друг колега) се получават точки и постижения. Така ще възнаграждаваме хората, които
регулярно гледат уроците и помагат на другите в сайта.
Експерт!
Професионалист!
Научихте 200 урока!
Богатството на образованието
Непрекъснато израстване
Образованието е ключът
Благодарност
Научихте 150 урока!
Инвестиция в знания
Обучение под пара :)
Научихте 120 урока!
Научихте 100 урока!
Потенциал!
Продължаваме напред
Научихте 80 урока!
Най-мощното оръжие
Добро утро!
Здрав напредък
Пет влизания за една седмица!
Научихте 40 урока!
Записани осем курса!
Който дава живот на ума и знанието, той не умира
Записани седем курса!
Научихте 20 урока!
Стабилен напредък
Доказани знания
Научихте десет урока!
Напредък
Който се учи, той ще сполучи
Научихте пет урока!
Първи стъпки
Добро начало
Напред, напред, напред
Записан втори курс!
Записани три курса!
Профил със снимка
Три влизания за една седмица
Имейл новини. Ниво 3
Имейл новини. Ниво 2
Имейл новини. Ниво 1
Последни форум дискусии
Sub DelZero()
Dim i As Long
Dim tOld
tOld = Now
DoEvents
i = 2
Do
If Cells(i, 5) = 0 Then
Rows(i).Delete Shift:=xlUp
Else
i = i + 1
End If
Loop While Cells(i, 1) <> ""
MsgBox ("Времето за изтриване е :" & Format(Now - tOld, "ss:ms"))
End Sub
Това е което аз нещото което мога аз да ти предложа. Като трябва да се има предвид, че i показва началото на таблицата ти с данни. За да работи коректно функцията е необходимо на първата колона задължително да пише нещо. При мен тази функция се изпълнява за 1s и 120ms при над 15 000 реда.
Това е таблицата
Това е времето за изпълнение
