Безплатно! Онлайн събитие: От претоварване с информация до фокус и структура с Gemini & NotebookLM Регистрация тук.
FREE
Penev.penio
Присъединил се: Ноември 2013
Серия
0
Аула точки
570
Постижения
14
Изгледани уроци
19
Харесани отговора
2
Общо отговора
5
Въпроса
2
Последвани
2
Напредък по курсове
Тайните на Excel
13%
Интереси
Microsoft Excel
Електронни таблици
Тайните на Excel
Notepad++
Записани курсове
Постижения
В АУЛА винаги се стремим да подобрим начина на обучение и поради това въведохме точкова система с постижения.
Принципът на работа е съвсем прост - за определено действие в АУЛА (като преминати уроци, преминат тест,
отговор на въпрос от друг колега) се получават точки и постижения. Така ще възнаграждаваме хората, които
регулярно гледат уроците и помагат на другите в сайта.
Разгледайте всички налични постижения тук.
Страхотна екипна работа
Добра екипна работа
Благодарност
Добър приятел
Профил със снимка
Напредък
Научихте десет урока!
Който се учи, той ще сполучи
Научихте пет урока!
Напред, напред, напред
Добро начало
Първи стъпки
Имейл новини. Ниво 1
Последни форум дискусии
Благодаря но исках друго нещо да постигна.
Вижте това https://aula.bg/u/MzgwODUzMDg2Ng
и ако може някой да ми обясни как е постигнато.
Ще ви бъда много благодарен !
Ако ползваме
VBA :
Sub myrepl()
Dim rrr As Integer, ccc As Integer
ss = Selection.Count
If ss <> 2 Then
MsgBox "Трябва да са селектирани точно 2 клетки!"
Exit Sub
End If
i = 0
For Each c In Selection
i = i + 1
If i = 1 Then
tt = c.Value
rrr = c.Row
ccc = c.Column
End If
If i = 2 Then
Cells(rrr, ccc) = c.Value
c.Value = tt
End If
Next
End Sub
