Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » igorbych
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 След.
Получение формата даты
 
#
15.06.2025 19:47:40
Цитата
написал:
во как. А почему у меня все работает именно в том виде, который я предложил в посте  #7 ?
видимо все тупости надо было обработать т.е. неразрывный пробел и лишние пробелы
 
Перейти    
Получение формата даты
 
#
15.06.2025 19:35:32
Цитата
написал:
=--ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;"мая";"май");СИМВОЛ(160);" ");",";"");".";"")
Самый идеальный вариант, надо будет подумать и нарастить если они еще чтото отчебучат))
 
Перейти    
Получение формата даты
 
#
15.06.2025 19:30:05
Цитата
написал:
мои варианты принципиально не рассматриваете?
пробовал, они не дали решение. Щас еще раз попробую что мешает
 
Перейти    
Получение формата даты
 
#
15.06.2025 19:12:59
Цитата
написал:
=ЗНАЧЕН(ПСТР(A1;1;НАЙТИ(".";A1)-1)&" "&ПРАВБ(A1;5))
Тоже догадался с этой ловушкой. Если не переименовывать - вариантов нет. Они конечно и другие месяца могут тоже извратить?  
 
Перейти    
Получение формата даты
 
#
15.06.2025 18:49:33
Большое спасибо. Оба ответа работают. Но шаг в сторону и уже чтото мешает.
2 вариант - 29 мая.,   00:32 ->
3 вариант - 29 мая, 00:32 ->
 
Перейти    
Получение формата даты
 
#
15.06.2025 12:50:45
Есть строка
14 июн.,   04:57
на дату не реагирует ни прибавить день не умножить не позволяет - мне нужно это число чтобы отображалось в формате даты 00.01.1900 00:00. Или точнее 00.01 00:00
Изменено: igorbych - 15.06.2025 12:51:59
 
Перейти    
Пустая ячейка при значении ЛОЖЬ в функции ЕСЛИ
 
#
04.09.2022 10:22:44
Цитата
написал:
ДЛСТР(А1:А100)>0
Тоже поймал ступор с поиском решения. Ваше отлично помогло. Спасибо
 
Перейти    
Обработать текст 13 янв., 07:59:13 как дату, Как помочь екселю такое представление понимать датой или при вставке удалить " .,"
 
#
13.01.2022 19:42:48
Отличное и оптимальное решение и сбоев побочных не дает. Спасибо.
 
Перейти    
Обработать текст 13 янв., 07:59:13 как дату, Как помочь екселю такое представление понимать датой или при вставке удалить " .,"
 
#
13.01.2022 14:14:58
В макросе который обрабатывается по изменению на листе есть две проблемы - но в целом работает:
1. При действии удаление - вставляет  содержимое буфера
2. При вставке обработанного значения из соседнего столбца - преобразует в дату и добавляет строку или подобный символ (Пример ячейка Q9), что не дает распознать ячейку как дату
3. Периодами вываливается с ошибкой на алгоритм и макрос вообще перестает работать до перезагрузки
Код
Private Sub Worksheet_Change(ByVal Target As Range)
'On Error GoTo ErrorHandler
If Not Intersect(Target, Range("g9:z9")) Is Nothing Then
'If WorksheetFunction.Count(Intersect(Target, Range("g9:z9"))) > 0 Then
   Application.EnableEvents = False
   Application.Undo
   Dim MSForms_DataObject As Object
   Set MSForms_DataObject = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
   With MSForms_DataObject
   .GetFromClipboard
   Target = Replace(.GetText(1), ".,", "")
   End With
   Application.EnableEvents = True
       Set MSForms_DataObject = Nothing
'End If
End If
ErrorHandler:
End Sub
 
Перейти    
Обработать текст 13 янв., 07:59:13 как дату, Как помочь екселю такое представление понимать датой или при вставке удалить " .,"
 
#
13.01.2022 12:00:42
После вставке в ячейку и дальнейшем удалении в ручную точки с запятой ексель автоформатирует текст в дату которую распознает - как автоматизировать данную операцию или какой то другой вариант.
Изменено: igorbych - 13.01.2022 14:10:23
 
Перейти    
Ссылка на смежный лист к нужной ячейке
 
#
13.07.2021 21:02:06
все го то надо ..."Смена")&"!E7") циферку 7 поменять на значение ячейки от нужного листа) В файле так накручено что и у меня ногу сломит))

Код
ДВССЫЛ(НАЧАЛОСТРОКИ(ПСТР(ЯЧЕЙКА("filename";A2);ПОИСК("]";ЯЧЕЙКА("filename";A2))+1;31);"Смена")&"!E"&ЗНАЧЕН(O12))
в этом не правильном варианте не хватает того чтобы О12 было на том листе имя которое определяется началом формулы.

Код
=ДВССЫЛ(НАЧАЛОСТРОКИ(ПСТР(ЯЧЕЙКА("filename";A2);ПОИСК("]";ЯЧЕЙКА("filename";A2))+1;31);"Смена")&"!E"&ДВССЫЛ(СЦЕПИТЬ(НАЧАЛОСТРОКИ(ПСТР(ЯЧЕЙКА("filename";A1);ПОИСК("]";ЯЧЕЙКА("filename";A1))+1;31);"Смена"))&"!O12"))
Вот такой винегрет работает как надо - но сдается перемаслил я мощно)
Изменено: vikttur - 13.07.2021 22:59:28
 
Перейти    
Ссылка на смежный лист к нужной ячейке
 
#
12.07.2021 16:26:03
Код
ДВССЫЛ(НАЧАЛОСТРОКИ(ПСТР(ЯЧЕЙКА("filename";A2);ПОИСК("]";ЯЧЕЙКА("filename";A2))+1;31);"Смена")&"!E7")
Помогите допилить ссылку чтобы она брала значение не с E7 а с колонки Е и номер строки брала в ячейке О12 не текущего листа а искомого НАЧАЛОСТРОКИ(ПСТР(ЯЧЕЙКА("filename";A2);ПОИСК("]";ЯЧЕЙКА("filename";A2))+1;31)
 
Перейти    
Посчитать минимальный средний балл уменьшение влияния от старости
 
#
28.07.2020 20:52:54
Цитата
vikttur написал:
Какие оценки плохие, какие хорошие?
Плохие -1 (2, 3 - опускаем пренебрегаем, слишком нет смысла заморачиваться)
отличные -5 (4 ку опускаем)
Цитата
vikttur написал:
Они могут меняться местами в нижней таблице?
Да это не стабильные цифры внутри недели может быть разное количество оценок и соотношение плохих и хороших исходя из диапазона B8:E9
Цитата
vikttur написал:
Почему В1:Е9 - неизменяемая ссылка
Этот диапазон создан вручную исходя из известных данных указанных в диапазоне B8:E9
Цитата
vikttur написал:
Отмирают... это надо как-то учитывать?
Думаю нет это проще если что скорректировать вручную или формулой на проверку превышение лимита 150 оценок в диапазоне B8:E9
 
Перейти    
Посчитать минимальный средний балл уменьшение влияния от старости
 
#
28.07.2020 20:11:47
Цитата
vikttur написал:
1. Почему в исходном диапазоне единицы выше пятерок? Это запутывает. Они же идут ниже пятерок.
Сами исходности для заполнения ряда чисел сделаны таблично а приоритет начало отображения плохих оценок связан с тем чтобы рассчитать худший вариант, потому как соотношение их внутри недели неизвестно.
Цитата
vikttur написал:
2. Первая неделя - 46 пятерок, Проверяем -  в таблице только 32.  4-я неделя 12 пятерок (есть только 11).
Не досмотрел - там идет ограничение 150 оценок поэтому более старые оценки отмирают - их вообщем то можно скорректировать в таблице диапазона B8:E9

Цитата
vikttur написал:
3. Почему в формлах используются данные до столбца К, а исходный диапазон только до Е?
Подкинули то количество недель чтобы набралось последних 150 оценок. В теории может быть так что оценок в каждой недели суммарно будет меньше и тогда количество недель добавляется - но это ручное разнесение исходя из диапазона B8:E9
 
Перейти    
Посчитать минимальный средний балл уменьшение влияния от старости
 
#
28.07.2020 19:34:09
Да эту формулу переработать так чтобы она таблицу с оценками B11-K160 могла учесть исходя из подсчета этих оценок в диапазоне B8-E9
 
Перейти    
Посчитать минимальный средний балл уменьшение влияния от старости
 
#
28.07.2020 18:52:42
Каждой оценке дается уменьшение влияния от старости (150 оценок). Надо посчитать минимальный средний балл, когда в каждой недели более новые оценки будут плохие (Единицы), а потом отличные (пятерки). Если заранее известно количество этих оценок внутри недели.

Как можно переелать формулу
Код
СУММПРОИЗВ(A11:A160;M11:M160)/СУММ(A11:A160)
используя  таблицу в диапазоне B8-E9 (без использовния доп. вычислений)

не знаю как лаконичнее изъясниться. Есть формула чтобы она работала надо вручную сделать нужный ряд из исходных данных. Чтобы не устраивать регулярные извращения - связь же есть диапазона B8-E9 с итоговым значением = поэтому думаю есть какое то решение для просчета.
Изменено: igorbych - 28.07.2020 20:15:11
 
Перейти    
Поиск где нет формулы в листах которые не содержат часть слова
 
#
11.06.2020 18:05:20
1. Полностью копировал, Офис 16.
2. Сделал через and немного громоздко но думаю на быстродействие не повлияет
 
Перейти    
Поиск где нет формулы в листах которые не содержат часть слова
 
#
11.06.2020 17:45:22
Так понятно, заработало. Только часть доработки не пускает алгоритм .SpecialCells(xlCellTypeConstants) - если просто Cells = тогда все нормально.
Цитата
БМВ написал: If Not iSh.Name Like "*Смена*" Then
и чтобы снять еще вопрос как доработать чтобы сразу указать по мимо "Смена" еще и другие части слов или отдельные листы полностью Например "Лист1"
 
Перейти    
Поиск где нет формулы в листах которые не содержат часть слова
 
#
11.06.2020 17:14:06
Not Like - Тоже так сразу подумал - но дает, ошибка не правильные аргументы!
 
Перейти    
Поиск где нет формулы в листах которые не содержат часть слова
 
#
11.06.2020 17:05:06
Помогите переделать чтобы поиск велся на всех листах где в имени листа нет символов"Смена"
Код
Sub NoFormula() ' поиск где нет формулы
Dim iSh As Worksheet
Dim iCl As Range
Dim iStr$
For Each iSh In Worksheets
    If iSh.Name Like "*Смена*" Then  'Смена*
        For Each iCl In iSh.Range("H11:J129").Cells
            If iCl.HasFormula = False Then
                If IsEmpty(iStr) Then
                    iStr = "Лист - " & iSh.Name & ", ячейка - " & iCl.Address(0, 0) & vbCrLf
                Else
                    iStr = iStr & "Лист - " & iSh.Name & ", ячейка - " & iCl.Address(0, 0) & vbCrLf
                End If
            End If
        Next
    End If
Next
MsgBox iStr
End Sub
 
Перейти    
Выделение листов из списка ячеек, При отсутствии листа как вывести значение этой ячейки
 
#
08.06.2020 08:37:14
Спасибо Игорь. Чуть понял.
 
Перейти    
Выделение листов из списка ячеек, При отсутствии листа как вывести значение этой ячейки
 
#
08.06.2020 07:10:53

Подскажите как при отсутствии листа вывести значение этой ячейки.

Код
Private Sub Кнопка37_Щелчок() 
'Водители 
  On Error GoTo ErrorHandler   
  Dim arr() 
  Dim c As Range, i& 
  i = -1     
  For Each c In Sheets("График").Range("G5:AS5").Cells         
    If Trim(c) <> "" Then           
      i = i + 1             
      ReDim Preserve arr(i)             
      arr(i) = Trim(c)         
    End If     
  Next Worksheets(arr).Select
  
GoTo Ends:
 
ErrorHandler:   
MsgBox ("В списке есть водитель которого нет в базе") ' Добавить значение не найденного листа 
Ends:  
End Sub
Изменено: igorbych - 08.06.2020 08:04:48
 
Перейти    
Обрезка текста в ячейке после второго пробела
 
#
17.05.2020 06:30:11
Все тайное становится явным, особенно невидимое - оказался неразрывный пробел с кодом 160
Таких пробелов интересных оказалось помимо 32 еще четыре https://ru.wikipedia.org/wiki/%D0%9D%D0%B5%D1%80%D0%B0%D0%B7%D1%80%D1%8B%D0%B2%D0­%BD%D1%8B%D0%B9_%D0...
 
Перейти    
Обрезка текста в ячейке после второго пробела
 
#
16.05.2020 07:15:29
vikttur, что за колдовство, Ваша формула не работает.
Если после первой сцепки двух пробелов стереть именно второй пробел и опять его поставить - все работает.
 
Перейти    
Обрезка текста в ячейке после второго пробела
 
#
15.05.2020 11:18:41
Цитата
Все_просто написал:
=ЛЕВСИМВ(A1;ПОИСК(" ";A1;ПОИСК(" ";A1)+1))
А если пробелов случайно нет!
Код
=ЛЕВСИМВ(A1;ЕСЛИОШИБКА(ПОИСК(" ";A1;ЕСЛИОШИБКА(ПОИСК(" ";A1);0)+1);ДЛСТР(A1)))
 
Перейти    
Появление странных ярлыков, Как их предотвращать, удалять и сократить имя ярлыка
 
#
12.05.2020 10:54:59
Листов достаточно много, уже раз переносил так полистно, тяжеловато. Может встречали макрос чтобы создавал имя по очередно со старой книги и затем копировал данные всего листа?
 
Перейти    
Появление странных ярлыков, Как их предотвращать, удалять и сократить имя ярлыка
 
#
12.05.2020 09:39:25
В результате скорее всего каких то сбоев когда ексель вылетает или еще каких либо причин в проекте Екселя появляются клоны ярлыков листов которых в принципе нет и начинает у них увеличиваться имя ярлыка добавлением цифр.
Я выделял в старом документе листы и переносом или копированием переносил их в новый документ. Но так исчезают клоны ярлыков, но наросты в имени ярлыка остаются.
Как это все правильно делать и предотвращать?
Изменено: igorbych - 12.05.2020 09:40:04
 
Перейти    
Не выполняются макросы после использования Ctrl+Break
 
#
12.05.2020 09:03:29
Присоединяясь к вопросу, тоже было не раз - при наличии каких либо ошибок в макросе Ексель зависает и нажатие Ctrl+Break не помогает. Через некоторое время Ексель говорит произошла критическая ошибка и предлагает перезагрузить Ексель. Затем любые обращения к макросам ведет в ходе выполнения к приостановке алгоритма этим же сообщением. "Code execution has been interrupted" Действительно помогло полная перезагрузка компьютера.
 
Перейти    
Определить последнюю ячейку в нужном столбце
 
#
12.05.2020 08:57:27
Спасибо, работает.
 
Перейти    
Определить последнюю ячейку в нужном столбце
 
#
12.05.2020 06:20:34
Необходимо скопировать диапазон ячеек от B11 до последней ячейки в столбце E.
Пытаюсь определить последнюю ячейку - определяет последнюю строку по первому столбцу где значения в строках ниже.
Помогите разобраться.
Код
Private Sub Worksheet_Activate()
    Dim LastRow As Long
    With ActiveSheet
     LastRow = .Cells(.Rows.Count, "E").End(xlUp).Row
    End With
    MsgBox LastRow
End Sub
 
Перейти    
Страницы: 1 2 3 След.
Наверх