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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 106 След.
VBA копирование диапазона с удалением пустых строк
 
выполните этот макрос
Код
Sub CopyGJ()
  Dim ar: ar = Range("G:J").Value
  Worksheets.Add after:=Worksheets(Worksheets.Count)
  Range("A:D").Value = ar
  Columns(3).SpecialCells(4).EntireRow.Delete
End Sub
при активном листе 1 (с синей таблицей)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Условное форматирование ячеек таблицы в зависимости от соответствующих им значений из другой таблицы
 
название темы:
условное форматирование ячеек таблицы в зависимости от соответствующих им значений из другой таблицы
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Условное форматирование ячеек таблицы в зависимости от соответствующих им значений из другой таблицы
 
=И(НЕ(ЕПУСТО(RC));Наличие=0)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
макрос сохранения листа в новый файл
 
я удаляю другой список символов:
Код
Function DelBadDOSChar$(s$)
  Const bch$ = "\/|*?<>"""
  Dim i&:  i = 1
  Do While i <= Len(s)
    If InStr(bch, Mid(s, i, 1)) > 0 Then s = Left(s, i - 1) & Right(s, Len(s) - i) Else i = i + 1
  Loop
  DelBadDOSChar = s
End Function
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
макрос сохранения листа в новый файл
 
а покажите что у вас тут:
ActiveWorkbook.Sheets("pivot").Range("M2").Value
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Удалить мусор их HTML-тегов, но оставить нужное
 
разбивем  исхожный текст на <td...>, потом в каждом <td...> ищем "(row|col)span=\d+" м забираем те из <td...>, в которых нашлось row или col span
Код
Function RowColSpan$(s$)
  Dim re, m, mrc, i&, j&
  Set re = CreateObject("VBscript.RegExp"):  re.Global = True:  re.Pattern = "<td[^>]+>"
  If re.test(s) Then
    Set m = re.Execute(s): re.Pattern = "(row|col)span=\d+"
    For i = 0 To m.Count - 1
      If re.test(m(i)) Then
        Set mrc = re.Execute(m(i))
        RowColSpan = RowColSpan & vbLf & "<td"
        For j = 0 To mrc.Count - 1: RowColSpan = RowColSpan & " " & mrc(j): Next
        RowColSpan = RowColSpan & ">"
      End If
    Next
    RowColSpan = Right(RowColSpan, Len(RowColSpan) - 1)
  End If
End Function
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Корректно перевести время из формата чч:мм:сс в мм,доли_минуты и обратно
 
название темы
как корректно перевести время из формата чч:мм:сс в мм,доли_минуты и обратно.
например 00:12:12 = 12,2 минут (12 сек - это 1/5-я часть минуты или 2/10 минуты)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Определить какие из фрагментов есть в общей фразе и обозначить их соответствующими метками
 
название темы:
определить какие из фрагментов есть в общей фразе и обозначить их соответствующими метками
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Генератор фраз из заданного набора слов, Генератор фраз по столбцам
 
исходными данными для макроса являются группы слов
количество групп в данных - не ограничено
количество слов в группе -  не ограничено
группы располагаются в строках, по одному слову в ячейке. в группе должно быть как минимум 1 слово. первое слово в группе - должно бытьв первой колонке.
признак окончания группы - первая пустая ячейка
что делает макрос?
макрос собирает комбинации из слов. в каждой комбинации присутствует по 1 слову из каждой группы, т.е. количество слов в комбинации всегда равно количеству групп в данных. 1-м словом всегда будет одно из слов 1-й группы,, вторым - из второй, ... последним - из последней группы.
Gagarin13,
не устраивает Вас, что группы собраны в строки а не столбцы - код открыт, можете его передалать
Цитата
заметил, он склеивает максимум только 5 ячеек
сколько групп есть в данных - столько и склеивает. писал выше количество групп - не ограничено, будет 10 или 110 соберет по 10 или 110 слов в каждую комбинацию.
Изменено: Ігор Гончаренко - 22 Май 2018 00:51:03
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Определить какие из фрагментов есть в общей фразе и обозначить их соответствующими метками
 
откройте файл, выполните эту процедуру
Код
Sub FindSameThing()
  Const pre$ = "(^|\s)", su$ = "(\.|,|$)"
  Dim c&, i&, p&, s$, re, m, txt$
  Set re = CreateObject("VBScript.RegExp"): c = 3: txt = Cells(1, 1)
  Do While Not IsEmpty(Cells(1, c))
    s = Cells(1, c)
    re.Pattern = pre & s & su
    If re.test(txt) Then
      AllRight c
    Else
      For i = 1 To Len(s)
        re.Pattern = pre & Left(s, i - 1) & "." & Right(s, Len(s) - i) & su
        If re.test(txt) Then NoGood c, i:  Exit For
      Next
      If i > Len(s) Then NoGood c
    End If
    c = c + 1
  Loop
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Генератор фраз из заданного набора слов, Генератор фраз по столбцам
 
Gagarin13,
в процедуре Start
Cells(7,7) - это и есть ячейка в корторую начнется вывод результатов, строка 7, столбец 7 (ячейка G7
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Генератор фраз из заданного набора слов, Генератор фраз по столбцам
 
название темы:

генератор фраз из заданного набора слов

Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Генератор фраз из заданного набора слов, Генератор фраз по столбцам
 
в результате у меня генератор фраз по строкам... но да ладно
зато Вы можете добавить еще строку с уточнениями и нажав кнопку получить фразы с учетом добавленной строки и уточнений содержащихся в ней)

и по поводу внятных названий тем,
то о чем долбят посететелей модераторы - чем понятнее сформулирована тема, тем больше вероятности, что тот, кто будет искать что-то похожее, сможет сформулировать свой запрос приблизительно аналогично и найти нужный себе ответ.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Генератор фраз из заданного набора слов, Генератор фраз по столбцам
 
публиковал это тут много раз уже
открывайте файл, жмите кнопку.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Определить какие из фрагментов есть в общей фразе и обозначить их соответствующими метками
 
если текст УЖЕ не найден - дальнейшие поиски - бессмысленны!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Цикл по отдельным листам, не по всем, но по избранным
 
Цитата
AlexTM написал:
этот подход также применим только внутри одной процедуры
нет не правильно понимаете. этот подход применим так, как Вы его примените
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Разность между наибольшим и наименьшим значением элементов массива, изменить процедуру excel на пользовательскую функцию
 
люди учатся, стараются получить диплом инженера. одна из досадных неприятностей на этом пути - нужно написать на VBA реализацию учебной задачи.
БМВ,
и не нужно пытаться остановливать фунуциями листа людей уверенно идущих на встречу диплому
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Цикл по отдельным листам, не по всем, но по избранным
 
Код
ShtName = array("янв", "фев", "мар", "и пр.")
for i=lbound(ShtName) to ubound(ShtName)
  with worksheets(ShtName(i))
  ...
  end with
next
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Возможен ли итог по показателям в строке таблицы через формулу?
 
название темы:
разделить по категориям и просуммировать данные наваленные скопом в ячейки... и получить такого же "удивительного" вида результат, не поддающийся дальнейшей нормалшьной обработке

а короче и точне тему можна назвать:
в каком виде не стоит хранить данные, чтобы потом не геморроиться с их обработкой
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Прогнозирование в поступлении товара.
 
написал сообщение
в работе
Изменено: Ігор Гончаренко - 21 Май 2018 14:05:39
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Цикл с шагом 0.01 прибавляет неверное значение и переменная отображается неправильно
 
Цитата
Alemox написал:
Почему нельзя элементарную математику без погрешности сделать, где подвох?
какая математика используется обьяснено в стандарте
строго использовать особенности или рассчитывать на удачу - это Ваш личный выбор. все необходимые инструменты у программиста есть, и только Ваша вина если Вы игнорируете необходимость их использования
забудьте о правилах абсолютной математики. Вы не территории компьютера, учитывайте правила (особенности), по которым он работает
 
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Чем раннее связывание - отличается от позднего
 
а что Вас не устроило из того что Вы прочитали до этого вопроса о раннем и позднем связывании в инете?
раннее связывание - это точное определение  типа обьекта. это оптимизирует скорость работы компилятора и позволяет более рационально выделять память
Microsoft рекомендует использовать ранее связывание везде, где это возможно
раннее связывание позволяет компилятору понять Вы используете корректные свойства и методы обьекта еще на стадии проверки синтаксиса кода, а не в ходе его выполнения.
отдаленный аналог: Option Explicit
он заставляет программиста с самого начала представлять какие переменные и какого типа ему понадобятся.  
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Формула для УФ по группам значений, по строкам!
 
у меня в файле, в Диспетчере имен, определены переменные нБ1, нБ2 ... - весь смысл там.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Формула для УФ по группам значений, по строкам!
 
Цитата
Yanosh написал:
с чем может быть связано,
это может быть связано с тем, что что-то сделано не правильно, что именно - определить можно в файле.
потому что правильных вариантов написания формулы довольно ограниченное количество, а не правильных - сколько угодно, если пытаться угадать правильный вариант формулы у Вас шансы 1/бесконечность, т.е. призачно маленькие - но ино есть!,  3 варианта переделанной формулы - ерунда по сравнению с бесконечным количеством возможных вариантов
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
График изменения анализа крови
 
пока не понятно что Вы хотите получить в итоге я предложил бы для визуализации залить все красным
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как сложить данные, при условии, что данные одинаковы, если нет, суммы не складывать, а просто отображать.
 
если мыслить алгоритмически, то не нужно делить действия на суммировать и отобразить
достаточно просто суммировать одинаковые (там где повторов нет сумма просто будет состоять из одного значения)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Макрос: имена листов в формате час.мин.сек.
 
это не соотв. заданию, но добавляет листы
Код
Sub Добавление_листа()
  Имя_последнего = Worksheets(Worksheets.Count).Name
  Set Лист = Worksheets.Add(after:=Worksheets(Worksheets.Count))
  Лист.Name = Имя_последнего & "Час = " & CSng(Hour(Time))
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
[ Закрыто] Необходима помощь психологу по составлению формулы для авто-подсчёта, Формула меняющая значения на другое
 
подозреваю, что Вам может помочь только другой, более опытный психолог
(или любой завсегдатай с http://www.РешаемРебусы.com)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Программа, проверяющая число на простоту
 
БМВ,
sokol92 обращал внимание, что верхний предел можно ограничить КОРЕНЬ(А1), а не А1/2
если в А1 1 млн. есть разница перебирать значения от 2 до 1000 или до 500тыс.?
Изменено: Ігор Гончаренко - 20 Май 2018 21:23:03
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
ВПР не подтягивает значения
 
Поставьте курсор в ячейку J2
слева видите ромб с восклицательным знаком в средине?
наедте на него мышкой, читайте что пишет
Цитата
for_what написал:
Почему текст?
собственно это вопрос к Вам зачем числа введены как текст, особенно ЗАЧЕМ в одном столбце, как текст, а в другом как числа
Цитата
for_what написал:
Или я что-то сделал не так?
дело в том что Вы ничего не далаете. а нужно добиться однообразия данных тогда ВПР Вам ответит взаимостью.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 106 След.