В АУЛА винаги се стремим да подобрим начина на обучение и поради това въведохме точкова система с постижения.
Принципът на работа е съвсем прост - за определено действие в АУЛА (като преминати уроци, преминат тест,
отговор на въпрос от друг колега) се получават точки и постижения. Така ще възнаграждаваме хората, които
регулярно гледат уроците и помагат на другите в сайта.
Разгледайте всички налични постижения тук.
Здравейте Ваня, на мен в практиката ми се е налагало да използвам тези функции доста.
Ето един реален пример: Имаме склад с артикули, чиито номенклатурни номера са от вида А2452201429. В номенклатурния номер няма интервали и в списъка, който се експортира в Ексел от складовата програма, номерата се експортират в този вид.
Артикулите са около 5000 и са подредени в склада на следния принцип - първо по групи и след това по възходящ ред в рамките на групата, а групата са втората тройка цифри от номенклатурния номер ( в случая с този номер - 220).
За да се ревизира склада, трябва да сортираме по подходящия начин списъка. За целта с mid отделям 3 символа, започвайки от петия, за да извадя групата. После сортирам по колоната с група като първи признак и по целия номер като втори.
Сигурно друг би предложил и нещо по-добро, но тъй като аз не съм сетила за друго, съм го правила по този начин многократно и това ми е спестило доста работа.
За мен варианта с макрос е най-лек. Освен това веднъж направен, макросът може да се ползва постоянно, ако се налага такава операция.
Не мога да кажа, че съм особено добре запозната с макросите, но пробвах и записах макрос с Find/Replace -> Replace All за първите 2-3 букви. После с копиране може да се допълни и за останалите букви, за по-бързо и лесно. Поизчистих това, което мисля, че е излишно от кода и макроса си работи.
Предимство е, че може да си заложиш на коя буква от кирилицата, коя (кои, ако са повече) от латиница искаш да съответства.
На мен за буквите до "ж", например, макросът ми изглежда така:
Sub Macro1()
'
' Macro1 Macro
'
'
Cells.Replace What:="а", Replacement:="a", LookAt:=xlPart, SearchOrder _
:=xlByRows
Cells.Replace What:="б", Replacement:="b", LookAt:=xlPart, SearchOrder _
:=xlByRows
Cells.Replace What:="в", Replacement:="v", LookAt:=xlPart, SearchOrder _
:=xlByRows
Cells.Replace What:="г", Replacement:="g", LookAt:=xlPart, SearchOrder _
:=xlByRows
Cells.Replace What:="д", Replacement:="d", LookAt:=xlPart, SearchOrder _
:=xlByRows
Cells.Replace What:="е", Replacement:="e", LookAt:=xlPart, SearchOrder _
:=xlByRows
Cells.Replace What:="ж", Replacement:="j", LookAt:=xlPart, SearchOrder _
:=xlByRows
End Sub
Анализи с Excel
