Ранг 4
FREE

Румен

Присъединил се: юли 2016
Постоянство
бета

0

най-дълъг период: 0 дни
Аула точки

8680

 
Постижения

44

за седмица 0
Изгледани уроци

595

за седмица 0
Харесани отговора

4

за седмица 0
Общо отговора

1

за седмица 0
Въпроса

1

за седмица 0
Последвани

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

Последни форум дискусии

Блок-оператори за повторение (loops): For ... Next
Здравейте, имам следният казус Таблица с динамичен брой на редовете /средно по 4000/ и 31 колони . Опитвам се да напиша процедура, която да открива нулеви стойности в две конкретни клетки и като ги намери да изтрие реда. Това което направих работи, но много бавно. Public Sub DeLL_nula() Dim i As Integer Dim row_last As Long row_last = Range("C2").CurrentRegion.Rows.Count For i = 2 To row_last If Cells(i, 10) = 0 And Cells(i, 17) = 0 Then Range(Cells(i, 1), Cells(i, 31)).Delete i = i - 1 End If Next i End Sub Имали друг вариант? Благодаря предварително
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 реда. ![](https://upload.aula.bg/screenshot25f598e-fa590a91.jpg) Това е таблицата ![](https://upload.aula.bg/screenshot4414a65-fb21fcbc.jpg) Това е времето за изпълнение