Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 369 След.
Извлечь из текста числовые значения, размещенные в скобках + извлечь часть текста после скобок. Перед скобками находится ключевое слово
 
Код
Function GetSum(s, p)
  Dim f(1 To 1, 1 To 2), m, re
  Set re = CreateObject("VBScript.RegExp"): re.Pattern = p
  f(1, 2) = "": GetSum = f
  If Not re.test(s) Then Exit Function
  re.Pattern = p & " \(([0-9 ]+)\) ([A-Z]+)"
  If Not re.test(s) Then Exit Function
  Set m = re.Execute(s)(0)
  f(1, 1) = Replace(m.submatches(0), " ", ""):
  f(1, 2) = m.submatches(1): GetSum = f
End Function
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Объединение массивов (VBA), Объединить 3 массива в один
 
Код
Sub Join3Arr()
  Dim a, b, c, d, e&, k&, r&
  a = [d10].CurrentRegion: b = [j10].CurrentRegion: c = [l10].CurrentRegion
  ReDim d(2 To UBound(a), 1 To UBound(a, 2) + UBound(b, 2) + UBound(c, 2))
  For r = 2 To UBound(a)
    k = 0
    For e = 1 To UBound(a, 2): d(r, k + e) = a(r, e): Next
    k = k + UBound(a, 2)
    For e = 1 To UBound(b, 2): d(r, k + e) = b(r, e): Next
    k = k + UBound(b, 2)
    For e = 1 To UBound(c, 2): d(r, k + e) = c(r, e): Next
  Next
  [o11].Resize(UBound(d) - 1, UBound(d, 2)) = d
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как сделать так, чтобы при щелчках на клавиши стрелок - выделенная ячейка не сдвигалась с места
 
перехватите прерывание от клавиатуры (это 13-е прерывание)
анализируйте что нажато и вытворяйте с этим что угодно
(а еще подумайте: если вы случайно попали в М14, то больше никуда с нее не соскочите, не заколыбет-ли это вас, т.е. на хрен нужен такой Excel, в котором невозможно выскочить из М14)  
Изменено: Ігор Гончаренко - 15.05.2022 00:34:23
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Вопрос по настройке УФ
 
0. если колонки названы числами,  а не буквами - Файл, Параметры, Формулы, в группе Работа с формулами убираете птицу в пункте Стиль ссылок R1C1  
1. отмечаете колонки В и С
2. меню Главная, группа Стили, кнопка Условное форматирование -  Удалить правила
3. там же, та же кнопка, Создать правило
4. в открывшемся окне "- использовать формулу для определения форматируемых ячеек"
5. в поле Форматировать значения, для которых следующая формула является истинной пишете
=$B1="нет в наличии" (можете скопировать отсюда)
6. Ок
----------------------------------
поздравляю! правило написано и применено
ничего не перепутайте, Косинов
удачи!

только.... все это фигня и ничего не помешает пользователю написать число в той строке, где в В по-русски написано "нет в наличии, бл....!"
нужно дополнительно в колонке С настроить "проверку вводимых данных"
это лента Данные, группа Работа с данными, кнопка Проверка данных
см. вложение
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
UserForm для умной таблицы, Изменения данных в умной таблице по условиям
 
Цитата
написал:
Качество зависит от того как правильно она будет работать
у макроса, как правило, как у любой другой программы есть 2 степени качества:
макрос работает корректно (полностью решает поставленную задачу)
макрос работает хрен знает как (другими словами - не работает, это еще называется гавно-макрос или имитация макроса)
в теме описан абсолютно реализуемый макрос по моей шкале цен стоимостью до 100 баксов и 2-3 дня времени на реализацию
Изменено: Ігор Гончаренко - 14.05.2022 20:43:24
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Макрос вызова окна фильтра, Способ имитации нажатия на стрелочку фильтр
 
у фильтра много "стрелок"
когда ві мышью тычите в одну из них - совершенно понятно а какую
вы хотите это действие навесить на сочетание клавиш?
нажатие какой из стрелок должно имитировать сочетание клавиш?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Макрос вызова окна фильтра, Способ имитации нажатия на стрелочку фильтр
 
сможете обьяснить что пытаетесь сделать - может кто-то сможет подсказать как это сделать макросом
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Фильтрация по дате первого платежа, Расширенная фильтрация по дате первого платежа по возрастанию
 
что-то очень просто
я решал такую задачу:
1. выявляем персонаж с самой ранней датой
2. подтягием все остальные строки с его участием
3. из оставшихся выявляем персонаж с замой ранней датой
4. повторяем 2 и 3, пока не переберем всех
так из исходного списка формировался конечный
Изменено: Ігор Гончаренко - 13.05.2022 16:31:37
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
условное форматирование по нескольким условиям
 
где нужно условное форматирование?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Фильтрация по дате первого платежа, Расширенная фильтрация по дате первого платежа по возрастанию
 
см.сообщение 8
что не получилось?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
условное форматирование по нескольким условиям
 
каждое - это какое?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
условное форматирование по нескольким условиям
 
)))
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Фильтрация по дате первого платежа, Расширенная фильтрация по дате первого платежа по возрастанию
 
открывайте файл
жмите  Alt+F8
в открывшемся окне выберите SortTbl
нажмите кнопку Выполнить
удачи!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
условное форматирование по нескольким условиям
 
а если попробовать, прежде, чем задавать вопрос?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
условное форматирование по нескольким условиям
 
отмечаете колонку А, в формулу условного формата:
Код
=СЧЁТЕСЛИ($B$2:$B$13;A1)
Изменено: Ігор Гончаренко - 13.05.2022 13:06:41
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Фильтрация по дате первого платежа, Расширенная фильтрация по дате первого платежа по возрастанию
 
скопируйте это
Код
Sub SortTbl()
  Dim a, b, i&, r&, r1&, rg As Range
  Set rg = [a1].CurrentRegion:  SortRangeBy rg, Array(2, 3): a = rg
  rg.Copy: Cells(1, 5).PasteSpecial xlPasteValues
  Intersect(Range("E:G"), ActiveSheet.UsedRange).RemoveDuplicates 2, xlYes
  Set rg = [e1].CurrentRegion: SortRangeBy rg, Array(3)
  Range([e2], Cells(Rows.Count, 6).End(xlUp).Offset(0, -1)) = "=Row()"
  rg = rg.Value: SortRangeBy rg, Array(2): b = rg: r1 = 2
  For r = 2 To UBound(b)
    i = 0
    Do While a(r1 + i, 2) = a(r1, 2)
      i = i + 1: If i + r1 = UBound(a) Then Exit Do
    Loop
    Cells(r1, 1).Resize(i, 1) = b(r, 1): r1 = r1 + i
  Next
  SortRangeBy [a1].CurrentRegion, Array(1, 3)
  Cells(2, 1).Resize(UBound(a) - 1, 1) = Empty: [e:g].ClearContents
End Sub


Sub SortRangeBy(rg As Range, c, Optional Hd& = 1)
  Dim i&
  With rg.Parent.Sort
    .SortFields.Clear
    For i = LBound(c) To UBound(c)
      .SortFields.Add Key:=rg.Cells(1).Offset(Hd, Abs(c(i)) - 1).Resize( _
      rg.Rows.Count - Hd, 1), SortOn:=xlSortOnValues, Order:=IIf(c(i) > 0, _
      1, 2), DataOption:=xlSortNormal
    Next
    .SetRange rg: .Header = Hd: .MatchCase = False
    .Orientation = xlTopToBottom: .SortMethod = xlPinYin: .Apply
  End With
End Sub

в стандартный модуль, активируйте лист с даннымиЮ выполните SortTbl
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Фильтрация по дате первого платежа, Расширенная фильтрация по дате первого платежа по возрастанию
 
Цитата
Msi2102 написал:
сортируйте по дате, потом по фамилии
наоборот, фио потом дата, как на картинке показано)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Сводная таблица по нескольким диапазонам данных, Сводная таблица по нескольким диапазонам данных
 
Цитата
naum_c написал:
Да уверен
а с чего бы сообщение о недопустимом имени?
не потому же, что SQL считает число 13 несчастливым и не допускает его использование?
и ввод данных вручную это как раз не показатель их надежности, а скорее потенциальный источник ошибок (пользователь - он не предсказуем при вводе данных я не говорю о простых ошибках-опечатках, но такое впечатление, что часто умышленно вносит несусветную ерунду)))
Изменено: Ігор Гончаренко - 13.05.2022 10:27:12
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Разбить на листы с названием
 
New,
не вежливо автору темы говорить, что его (ее) задача не решается из-за отсутствия информации необходимой для написания макроса)
оптимальный вариант, с точки зрения автора, пройти мимо (проигнорировать тему)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Разбить на листы с названием
 
извините
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Разбить на листы с названием
 
Цитата
Alennka написал:
Названием,должно быть идентичным названию в первой строке каждой из таблиц
первой строкой в каждой из таблиц может оказаться ее шапка
и в первой строке может быть много ячеек, название из которой из них брать?
задача все еще не понятна...
продолжайте копировать врукопашную
желание помочь вам гаснет с каждым новым вопросом((( особенно с такими ответами-одолжениями
Изменено: Ігор Гончаренко - 12.05.2022 23:27:06
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Разбить на листы с названием
 
пусть пока продолжает копировать вручную, а вы попытайтесь понятно сформулировать задачу
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
скрытие числа в ячейке
 
Код
Sub EColumn()
  Dim e, r&
  e = Range([e1], Cells(Rows.Count, 5).End(xlUp))
  For r = 1 To UBound(e): e(r, 1) = WithOutDgt(e(r, 1)): Next
  [g1].Resize(UBound(e), 1) = e
End Sub

Function WithOutDgt$(s)
  Dim re: WithOutDgt = s
  Set re = CreateObject("VBScript.RegExp"): re.Pattern = "^\d+"
  If re.test(s) Then WithOutDgt = re.Replace(s, "")
End Function

скопируйте в стандартный модуль, выполните EColumn
Изменено: Ігор Гончаренко - 12.05.2022 15:22:15
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
скрытие числа в ячейке
 
не реально - значит разбирайтесь сами
(и с применением макроса в том числе)
удачи!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Расчет даты и времени окончания работ с учетом праздничных
 
а если это
03.05.2022
04.05.2022
05.05.2022
06.05.2022
написать в А2, А3, А4, А5?
выходные, рабочие дни заполняются начиная с строки 2 и подряд, без пропусков пустых ячеек, сколько нужно
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Расчет даты и времени окончания работ с учетом праздничных
 
добавил чуть больше дней на праздники
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
вопрос по функции ВПР, можно ли в функции ВПР "имя таблицы" зашить, как ссылку на ячейку.
 
здесь написано:
Если значение аргумента "ссылка_на_ячейку" является ссылкой на другую книгу (внешней ссылкой), другая книга должна быть открыта. В противном случае функция ДВССЫЛ возвращает значение ошибки #ССЫЛКА!.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Подстановка значения да/нет на пересечении столбцов
 
Цитата
MMAXX95 написал:
на пересечении столбцов
в моем, несовершенном мире, столбцы не пересекаются, но судя по двум работающим решениям, этот подход нужно срочно пересмотреть и подкорректировать
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Расчет даты и времени окончания работ с учетом праздничных
 
исправил)
допускается момент старта писать в обеденное время, не допускается начинать работу в выходные и за пределами рабочего дня
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
ограничение цикла VBA
 
Код
  Dim r
  r = 1
  Do While Not IsEmpty(Cells(r, 1))
    r = r + 1
    If r > 10000 Or r > [aa1] Then Exit Do
  Loop
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 369 След.
Наверх