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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 229 След.
Отображение дат в календаре, есть некая сводная таблица, мне необходимо что бы даты подсвечивались цветом определенным в календаре.
 
готово
отправлено, оплачено
Изменено: Ігор Гончаренко - 2 Апр 2020 20:35:57
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как на VBA вернуть имя именованного диапазона, который используется в выпадающем списке данной ячейки.
 
kai61,
если вы не знаете что делать с подсказкой, которая отвечает на ваш вопрос, то перечитайте сообщение #2 в вашей теме, может это подтолкнет вас к правильным действиям
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Формула добавляющая число лишь один раз при многкратном срабатывании условия.
 
пишите сначала в блокнот, когда прочитаете и поймете что вы написали -  скопируйте написанное сюда
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Ищу подрядчика на длительное сотрудничество по созданию скриптов в Google Sheets, Ищу подрядчика на длительное сотрудничество по созданию скриптов в Google Sheets
 
давайте я посмотрю на файлы
и на условия долгосрочного сотрудничества, если они уже есть у вас
и обсудим и то и другое
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Синтаксис Range при обращении с столбцам "умной таблицы"
 
Цитата
romkan написал:
несколько столбцов
отличное описание! конкретнее и не скажешь...
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Сравнить строки по значениям в столбцах и выделить одинаковые
 
ну и будет строка покрашена зеленым, а соотв. ей через 300 строк
а рядом другая пара покрашена и не потому что они одинаковые, а потому, что где-то неизвестно где есть их пары
допустим 10% из 400 строк
40 зеленых строк, по какому признаку вы найдете пару любой из этих зеленых строк
так же как т пары желтых желтые строки есть а кто из них пара???
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Сравнить строки по значениям в столбцах и выделить одинаковые
 
я добавил к вашим составам 3 новых, у которых такие же рецкептура, что и у одного из имеющихся
ВСЕ РЕЦЕПТЫ повторяются ВСЕ зарисовано желтым  согласно ваших пожеланий
это КРЕПКО ПОМОГЛО??
вам именно это нужно?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Синтаксис Range при обращении с столбцам "умной таблицы"
 
возможно
прикрепляйте файл, опишите какие столбцы скопировать
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Сравнить строки по значениям в столбцах и выделить одинаковые
 
так?
и ЧТО ЭТО ВАМ ДАСТ???
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как перевести функцию СРЗНАЧЕСЛИМН в Макрос?, Макрос функции СРЗНАЧЕСЛИМН при 3 критериях
 
внесите данные на лист Условия
выполните AvrForPeriod
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Вывод цены по приоритетности по заданным данным
 
у нас этих формул - пруд-пруди
хоть какая-то часть теперь у вас, нам уже немного легче
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как перевести функцию СРЗНАЧЕСЛИМН в Макрос?, Макрос функции СРЗНАЧЕСЛИМН при 3 критериях
 
Код
Function AvrForPeriod#(d1 As Date, d2 As Date)
  Dim d, v, c&, r&, rg As Range, s#, n&
  With Worksheets(2)
  Set rg = Range(.Cells(2, 3), .Cells(Rows.Count, 3).End(xlUp))
  d = rg
  v = Intersect(rg.EntireRow, .Range("N:W"))
  End With
  For r = 1 To UBound(d)
    If d(r, 1) >= d1 And d(r, 1) <= d2 Then
      For c = 1 To UBound(v, 2)
        If Not IsEmpty(v(r, c)) Then
          s = s + v(r, c): n = n + 1
        End If
      Next
    End If
  Next
  If n > 0 Then AvrForPeriod = s / n
End Function
см. лист макрос
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как перевести функцию СРЗНАЧЕСЛИМН в Макрос?, Макрос функции СРЗНАЧЕСЛИМН при 3 критериях
 
Цитата
Халил написал:
На всякий случай прописываю макрос сюда
вы бы на всякий случай описали задачу
среднее значение чего вы пытаетесь найти
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
VBA Объединить каждые 25 строк из 80 тыс, Нужен правильный макрос
 
Код
Sub MergeRows()
  Const r1& = 1, rc& = 25
  Dim r&
  r = r1:  Application.DisplayAlerts = False
  Do While Not IsEmpty(Cells(r, 1))
    Cells(r, 1).Resize(rc, 1).MergeCells = True:  r = r + rc
  Loop
  Application.DisplayAlerts = True
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
VBA Объединить каждые 25 строк из 80 тыс, Нужен правильный макрос
 
пример неработающего макроса не нужен, нужно четкое описание что именно нужно обьединять
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как высчитать формулой количество записей по диапазону дат?
 
а так:
Код
=СЧЁТЕСЛИМН(Анкеты[Дата заполнения];">" & ДАТАЗНАЧ("1-12-2018"))
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как сделать макрос, который будет переносить данные из диапазона другого постоянно изменяющегося фала, сохраняя старые данные
 
если понимать логику процессов (когда, при каких обстоятельствах это нужно сделать) и взаимное расположение файлов в системе, то сам макрос элементарный вложится в 10 строк
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Присвоить формулу ячейке при заполнении из формы, Нужно правильно расставить синтаксис
 
1. простую арифметику запишите так:
Cells(NextRow, 10).FormulaR1C1 = "=RC10-RC5" (и скобки, видимо, там совершенно не нужны только это Циклическая ссылка! формула правильная?)
2. руками 1 раз задайте столбику общий формат
Изменено: Ігор Гончаренко - 1 Апр 2020 11:04:11
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Определить день, когда количество утилизированных деталей начнет превышать норму
 
bigfoot,
однако...
я спрашиваю как считать, а в ответ вы пишете то, что я уже читал в первом сообщении вместо того, чтобы 1 разок написать как посчитать % утилизации в U5))
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Определить день, когда количество утилизированных деталей начнет превышать норму
 
решили не обьяснять, а считать самостоятельно...
дело ваше
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Определить день, когда количество утилизированных деталей начнет превышать норму
 
когда обьясните как считать, тогда и можно будет посчитать, на основании ваших обьяснений, а пока - считайте семостоятельно.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Не сворачивается диалоговое окно, При сворачивании Excel диалоговое окно "Найти" не сворачивается.
 
сворачивайте, свернется
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Определить день, когда количество утилизированных деталей начнет превышать норму
 
см.вложение
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Вывод цены по приоритетности по заданным данным
 
Код
=ЕСЛИ(СЧЁТ(B6:E6);ИНДЕКС(6:6;МИН(ЕСЛИ(НЕ(ЕПУСТО(B6:E6));СТОЛБЕЦ(B6:E6))));"не указана")
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Один макрос на 17 кнопок в столбце, возможно ли?
 
Цитата
red7ko написал:
Один макрос на 17 кнопок в столбце, возможно ли?
возможно
VBA не ограничивает количество кнопок на один макрос,
на сколько это дружит со здравым смыслом - это другой вопрос, но он не имеет отношения к работоспособности всех этих 17 кнопок точнее того макроса на который они навешены.
Изменено: Ігор Гончаренко - 31 Мар 2020 21:00:13
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Проблемы с получением числовых значений из TextBox
 
и тему еще назвать:
почему TextBox1.Valuе выборочно возвращает значения? - и сказка!

название темы:
проблемы с получением числовых значений из TextBox
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Вычисления в таблице при различных условиях. (только VBA)
 
Код
Sub SameThing()
  Dim a, i&, f$, c&
  a = Cells(3, 3).CurrentRegion
  For i = 2 To UBound(a)
    If a(i, 1) Like "фрукт*" Or a(i, 1) Like "овощ*" Then _
    If InStr(f, a(i, 1)) = 0 Then f = f & vbTab & a(i, 1)
    If a(i, 2) = "шт" Then c = c + a(i, 3)
  Next
  Cells(19, 4) = UBound(Split(f, vbTab))
  Cells(22, 4) = c
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Ошибка 1004 при сравении данных из ячейки и textbox'а
 
Код
Sub test1()
  Dim valSh, valTB As Variant
  valSh = Workbooks("Êíèãà1.xlsm").Worksheets("Ëèñò1").Cells(1, 1).Value
  valTB = UserForm1.TextBox1.Value
  MsgBox "type from cells(1,1) = " & TypeName(valSh) & vbLf & _
  "type from TextBox = " & TypeName(valTB) & vbLf & vbLf & _
  TypeName(valSh) & "  <>  " & TypeName(valTB) & " !"
  If valSh = valTB Then MsgBox "right"
  If CStr(valSh) = valTB Then MsgBox "1 Convert to Strig = ""1""" & vbLf & vbLf & """1"" = ""1"""
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Ошибка 1004 при сравении данных из ячейки и textbox'а
 
Цитата
cheka282 написал:
Textbox'ы не умеют работать с цифрами?
вам удалось внести цифры в текстбоксы? вывод сделаете сами или помочь:(Текстбоксы как раз умеют, а вы - нет)
без файла примера эта переписка может затянуться не на один день
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Поиск решения на 34к строк
 
см. вложение несколько первых городов...
но там масса маршрутов, которые не возможно преодолеть с одним подскоком
можете руками проверить как на таких маршрутах поведет себя ПоискРешений
а также на маршрутах, где есть прямое сообщение, между начальным и конечным пунктами
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 229 След.
Наверх