Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 264 След.
Как вернуть при сохранении к 100% масштаб отображения?
 
Цитата
Сергей Жуков написал:
Вобще весь смысл потерялся.Спасибо!
жизнеутверждающе (как для 30-го сообщения в теме)
28 предыдущих сообщений - в яблочко! (1 сообщение - это был вопрос от автора темы)
Изменено: Ігор Гончаренко - 23 ноя 2020 00:44:06
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Оставить данные между первым и вторым повторяющимся символом
 
Цитата
georgmann написал:
Разве это формула?
а вы полагаете это случайный набор символов)))
разве в первом сообщение есть файл-пример, в который каждый косолапый может поместить ту формулу, что написал?
отсутствие файла-примера подсказывает всем , что вы побрезговали возможностью получить ответ в файле (на своем примере) и вам достаточно подсказки как решается ваша задача
вам подсказали, а теперь - внедряйте!, удачи))
Изменено: Ігор Гончаренко - 22 ноя 2020 22:02:30
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Вычислить дату отгрузки по условию
 
см.вложение
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Отгадывание числа с процентной вероятностью в таблице
 
с некоторой долей уверенности могу утверждать, что там будет 1 или 2
прочитал сообщение
Код
="1(р=" & СЧЁТЕСЛИ(R[-14]C[-6]:R[-1]C;1)/98 & " )     2(p=" & СЧЁТЕСЛИ(R[-14]C[-6]:R[-1]C;2)/98 &")"
Изменено: Ігор Гончаренко - 22 ноя 2020 15:24:52
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Нужно сделать График работы, график работы сотрудников.
 
давайте постараюсь вникнуть
пойму задачу - сделаю
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
В выделенных строках найти и копировать уникальные числа
 
предполагаю что "уникальные" в моем и вашем категорийно-понятийых аппаратах сильно отличаются
можете уточнить - уникальные это уникальные в общепринятом смысле этого слова, или у вас в голове сложено другое представление об уникальных?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Вставить пустые столбцы перед каждым столбцом из массива столбцов
 
используйте INSERT
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
VBA. Удалить столбцы по списку
 
судя по количеству ответов в теме - тема "удалить столбцвы по списку", не исчерпаема вглубь, как атом
(этот ответ прошу не учитывать), не претендую на раскрытие темы, я х/з как удалять столбцы "по списку" пока не определено что из себя представляет список, в котором  собраны кандидаты на удаление))
Изменено: Ігор Гончаренко - 22 ноя 2020 00:01:42
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Сравнить по условию искомое значение с несколькими повторяющимися значениями в диапазоне
 
какой смысл сравнивать со всеми повторяющимися?
если равно первому, то равно всем повторяющимся
а если не равно, то сколько не сравнивай (с повторяющимися) равенства уже не добьешься
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Возврат текущего URL в ячейку
 
вот это поворот....
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Нужно вывести определенное значение столбца на основе совпадения со списком.
 
см. вложение
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Максимальные расстояния между одинаковыми знаками строки
 
Код
Sub MaxDistanceBethFinT()
  Const f$ = "i"
  Dim re, ms, m, t, tm#, r&
  tm = Timer: t = [a1].CurrentRegion
  Set re = CreateObject("VBScript.RegExp"): re.Global = True
  re.Pattern = f & "[^" & f & "]+" & f:  re.MultiLine = True
  For r = 1 To UBound(t)
    If re.test(t(r, 1)) Then
      Set ms = re.Execute(t(r, 1)): t(r, 1) = 0
      For Each m In ms
        If m.Length - 2 > t(r, 1) Then t(r, 1) = m.Length - 2
      Next
    End If
  Next
  [c1].Resize(UBound(t), 1) = t
  MsgBox Timer - tm
End Sub
у меня на компьютере около 2.5 сек
136 тыс ячеек колонки А заполнены этим: iixzizzixxziix

или заточенная под эту задачу процедура
Код
[/CODE][SPOILER][CODE]Sub MaxDistanceBethFinT()
  Const f$ = "i"
  Dim m&, mm&, t, tm#, r&, p1&, p2&
  tm = Timer: t = [a1].CurrentRegion
  For r = 1 To UBound(t)
    p1 = InStr(t(r, 1), f): mm = 0
    Do
      If p1 < Len(t(r, 1)) Then p2 = InStr(p1 + 1, t(r, 1), f)
      m = p2 - p1 - 1: If m > mm Then mm = m
      If p2 = 0 Then Exit Do Else p1 = p2
    Loop
    t(r, 1) = mm
  Next
  [c1].Resize(UBound(t), 1) = t
  MsgBox Timer - tm
End Sub
[/SPOILER]с временем работы 0.9 сек
Изменено: Ігор Гончаренко - 21 ноя 2020 02:22:03
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Проблема в восприятии синтаксиса функции ТЕКСТ на разных компьютерах
 
синхронизируйте на всех компьютерах в настройках Windows язык интерфейса
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как сделать выборку из совокупности с определенным шагом по методу денежных интервалов
 
я в 2 не понял о чем речь и не решал
сейчас так понял суммировать указанное количество элементов) по тому же принципу но с другим способом контроля начального значения
Код
=ЕСЛИ(ОСТАТ(СТРОКА()-1;Кво);R[-1]C;)+RC[-2]
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Скроллинг в диалоговом окне выбора файла
 
Цитата
Alexey0185 написал:
но логика покоя не дает
если проявить настойчивость - в лучшем случае через пару часов, в худшем через пару месяцев, но результат обязательно будет!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Перевести проценты потерь в штуки деталей, которые отваливаются на операциях
 
см. сообщение #4 (там есть округление)
в D15 пишите 100
в D14 формулу
потяните ячейку D14 вверх
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как сделать выборку из совокупности с определенным шагом по методу денежных интервалов
 
ипользовал такую методику (в простонародье это называется формула)
Код
=ЕСЛИ(R[-1]C>=Шаг;;R[-1]C)+RC[-1]
Изменено: Ігор Гончаренко - 20 ноя 2020 22:36:00
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Запуск макроса, если ячейки объединены
 
Код
  If [a1].MergeCells Then
    If [a1].MergeArea.Address = "$A$1:$C$1" Then Macro1 Else Macro2
  Else
    Macro2
  End If
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Подсчет ночных смен с учетом последовательности 2-х или 3-х ячеек
 
Цитата
Сергей к написал:
КАК? Как заставить Exel считать только ночные смены,...
Есть ли такая функция ?
заставлять не нужно обычно считает без всякого принуждения (если включен автоматический расчет формул)
функции такой нет, но ее легко собрать с тех что есть, если понимать:
1. где и как расположены данные
2. куда внести эту составную функцию
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Пересохранение файлов без формул и связей
 
под тем же. открыл, исправил, сохранил
Dir добросовестно пробегал до конца списка и потом с той же добросовестностью начинал перебирать эти же файлы снова и в том же порядке
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Пересохранение файлов без формул и связей
 
Дима,
как-то я с сохранением файлов и Dir нарывался на вечный двигатель
когда  очередной Dir сохраненный в предыдущей итерации файл воспринимал как новый файл в папке открывал его повторно и эта карусель крутилась бесконечно....
Изменено: Ігор Гончаренко - 20 ноя 2020 10:51:22
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
[ Закрыто] Помощь в VBA, Копирование данных из одной таблице в другую.
 
Цитата
Koluchii написал:
Необходимо макрос который бы копировал информацию при определенном условии
расскажете при каких именно?
определенные условия, которые не определено как понимать совершенно не определены
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Максимальные расстояния между одинаковыми знаками строки
 
Код
' найти максимальное расстояние между символами F в тексте T
Function MaxDistanceBethFinT&(F$, T$)
  Dim re, ms, m
  Set re = CreateObject("VBScript.RegExp"): re.Global = True
  re.Pattern = F & "[^" & F & "]+" & F:  re.MultiLine = True
  If re.test(T) Then
    Set ms = re.Execute(T)
    For Each m In ms
      If m.Length - 2 > MaxDistanceBethFinT Then _
      MaxDistanceBethFinT = m.Length - 2
    Next
  End If
End Function
Изменено: Ігор Гончаренко - 20 ноя 2020 01:26:57
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Копировать диапазон ячеек, обозначенных метками в соседнем столбце, на другой лист
 
название темы:
скопировать диапазон ячеек обозначенных метками в соседнем столбце на другой лист

не знаю насколько это соответствует решаемой задаче, но это то, что я написал бы в комментарии к предложенному выше макросу, если бы он представлял из себя хоть какую-то ценность чтобы быть сохраненным в моей библиотеке макросов
Изменено: Ігор Гончаренко - 20 ноя 2020 00:29:55
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Копировать диапазон ячеек, обозначенных метками в соседнем столбце, на другой лист
 
выполните макрос
Код
Sub SelectedCopy()
  Dim rg As Range, r&
  With Worksheets(2)
    If .Cells(.Rows.Count, 1).End(xlUp).Row > 1 Then
      r = Cells(Rows.Count, 2).End(xlUp).Row
      Set rg = .[A:A].SpecialCells(2)
      If r - 4 > rg.Count Then Range(Cells(5, 2), Cells(r, 2)).ClearContents
      rg.Offset(0, 1).Copy [b5]
    End If
  End With
End Sub
при активном листе 1
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Перевести проценты потерь в штуки деталей, которые отваливаются на операциях
 
да, и у меня и у Виктора >1 замените на  >=1
очевидно что количество брака может быть равно 1 шт, и не может быть равно 100% -  ибо 100% брака - значит вручили человеку Х заготовок, а он их ВСЕ запорол, выход готовой продукции 0!
Изменено: Ігор Гончаренко - 20 ноя 2020 02:27:19
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Перевести проценты потерь в штуки деталей, которые отваливаются на операциях
 
да, извините в шапке написано потери %, шт.
в Д14
=D15+ЕСЛИ(C14>1;C14;ОКРУГЛВВЕРХ(D15*C14;0))
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
СЧЁТЕСЛИМН для дат с условиями "больше или равно" и "меньше или равно"
 
собирайте последователей вашей логики в отдельное сообщество, назовем его сектой или новой логической школой
и вашем кругу можете считать, что 28.10.2020 22:54:10 <= 28.10.2020
хорошо, а согласно вашей логической школы:
1) числа 10 и 10.000 равны между собой?
2) а 28.10.2020 и 28.10.2020 00:00::00 равны между собой??
и наконец
3) 28.10.2020 22:54:10 <= 28.10.2020  00:00:00 ???
все 3 выражения истинны????
Изменено: Ігор Гончаренко - 19 ноя 2020 19:57:46
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Перевести проценты потерь в штуки деталей, которые отваливаются на операциях
 
в Д14
Код
=ОКРУГЛВВЕРХ(D15*(1+C14);0)
и потяните вверх
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
СЧЁТЕСЛИМН для дат с условиями "больше или равно" и "меньше или равно"
 
Цитата
andronus написал:
логика Excel не совпадает с логикой общепринятой
представьте шкалу времени с посекунжними ометками на ней
26.10.20 00:00:01
26.10.20 00:00:02
26.10.20 00:00:03
....
26.10.20 23:59:59
27.10.20 00:00:00
27.10.20 00:00:01
....
27.10.20 23:59:59
28.10.20 00:00:00
тут все в порядке? не противоречит вашей логике? время тут написано подряд? секунда за секундой?

а как по вашему
28.10.20 00:00:01 находится внутри изображенного интервала времени или вне его?
поэтому, пожалуйста, не нужно свои глубоко ошибочные логические выводы называть ОБЩЕПРИНЯТОЙ догикой.  вы знакомы с людьми разделяющими вашу логику, среди которых она общепринята?
я понимаю если скорость ваших мыслей быстрее скорости света, то в такой ситуации время может не только останавливаться, но и поворачивать вспять)
куда мне, человеку предпенсионного возраста, тягаться со скоростью ваших мыслей
Изменено: Ігор Гончаренко - 19 ноя 2020 19:23:55
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 264 След.
Наверх