Безплатно! Онлайн събитие: 7 грешки при AI изображенията с ChatGPT Регистрация тук.
FREE
Miroslav Markov 
Присъединил се: Юли 2015
Серия
0
Аула точки
1080
Постижения
30
Изгледани уроци
121
Харесани отговора
10
Общо отговора
6
Въпроса
0
Последвани
1
Напредък по курсове
Тайните на Excel
28%
Интереси
Photoshop
Microsoft Excel
Lightroom
Тайните на Excel
MS Project
Все още няма публикувани мнения.
Постижения
В АУЛА винаги се стремим да подобрим начина на обучение и поради това въведохме точкова система с постижения.
Принципът на работа е съвсем прост - за определено действие в АУЛА (като преминати уроци, преминат тест,
отговор на въпрос от друг колега) се получават точки и постижения. Така ще възнаграждаваме хората, които
регулярно гледат уроците и помагат на другите в сайта.
Разгледайте всички налични постижения тук.
Записани три курса!
Споделящ знанията си
Страхотна екипна работа
Имейл новини. Ниво 2
Добра екипна работа
Благодарност
Научихте 100 урока!
Продължаваме напред
Научихте 80 урока!
Най-мощното оръжие
Записан втори курс!
Здрав напредък
Имейл новини. Ниво 1
Научихте 40 урока!
Който дава живот на ума и знанието, той не умира
Доказани знания
Научихте 20 урока!
Стабилен напредък
Напредък
Научихте десет урока!
Три влизания за една седмица
Който се учи, той ще сполучи
Научихте пет урока!
Първи стъпки
Напред, напред, напред
Добро начало
Потвърдени умения
от харесани отговори разделени по софтуер
Microsoft Excel 8
Последни форум дискусии
Здравейте,
Във връзка с горния коментар, намерих малко време и си направих един UDF за пресмятане на седмици и дни между две дати, и реших да го споделя с вас:
Public Function WD\_DateDiff (Start\_Date As Variant, End\_Date As Variant, _
Optional Function\_Type\_1\_or\_2 As Integer = 1) As Variant
Dim FResult As Variant
Dim Week\_Value As Integer
Dim Week\_Value\_trunc As Integer
Dim Day\_Value As Integer
Select Case Function\_Type\_1\_or\_2
Case 1
GoTo Weeks\_only
Case 2
GoTo Weeks\_and\_days
Case Else
GoTo Error\_handler
End Select
Exit Function
'------------------------
Weeks\_only:
FResult = (End\_Date - Start\_Date) / 7
WD\_DateDiff = FResult
Exit Function
'------------------------
Weeks\_and\_days:
Week\_Value = (End\_Date - Start\_Date) / 7
Week\_Value\_trunc = Int(Week\_Value)
Day\_Value = (Week\_Value - Week\_Value\_trunc) * 7
Day\_Value = Int(Day\_Value)
FResult = Week\_Value\_trunc & " weeks and " & Day\_Value & " days"
WD\_DateDiff = FResult
Exit Function
'------------------------
Error\_handler:
FResult = "#N/A"
WD\_DateDiff = FResult
Exit Function
End Function
Всъщност, това е комбинация от две функции - при подаване на 1 като опционален аргумент изчислява само седмиците като десетична дроб, а при подаване на 2 като опционален аргумент изчислява едновременно седмици и дни и подава резултата във формат "13 weeks and 1 days".
Надявам се да го намерите за полезно.
Ще се радвам и ако някой от по-опитните колеги дадат своя коментар или предложение за корекция/подобрение.
Поздрави,
Миро
Здравейте,
Ето и един вариант за смятане на седмици и дни, който използвах преди доста години. Мисля, че е най-компактен като дължина на формулите. Лесно може и да се конкатенират стойностите в една клетка, в моя файл са по отделно.
Сега, като гледам горния коментар, май е добре да си добавя още един полезен UDF към колекцията то
Поздрави,
Здравейте, дали има начин да ми изпратите файла на пощата за да се опитам да проследя проблема ?
Здравейте Ваня,
Не мога добре да проследя действията ви от картинките, но сигурна ли сте, че при второто действие на сортиране сте били маркирали цялата таблица? Една от най-вероятните причини за подобен резултат е, че се сортира само една от колоните в таблицата, което води до разместване на всички данни. Би трябвало да се маркира цялата таблица преди да се кликне върху Sort....
Поздрави,
