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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 337 След.
Выбор коэффициента в матрице, причем в колонке могут быть несколько значений, так и в строке
 
New,
в ветке "работа" можно отобрать чей-то хлеб, а тут - нет)
Изменено: Ігор Гончаренко - 28.11.2021 09:50:21
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Разбитие массива по столбцам. Прошу помощи!, Необходимо разбить таблицу по столбцам на новые листы
 
название  темы:
скопировать колонки листа1 на новые листы

добавьте в проект стандартный модуль, скопируйте в него и выполните этот макрос
Код
Sub SplitTableByColumns()
  Dim c As Range
  For Each c In Worksheets(1).[a1].CurrentRegion.Columns
    With Worksheets.Add(after:=Worksheets(Worksheets.Count))
      c.Copy .[a1]
    End With
  Next
End Sub
Изменено: Ігор Гончаренко - 27.11.2021 18:25:00
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как взять фрагменты текста в скобки
 
составьте новое значение из исходного и скобочек
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Поиск наибольшего числа на трех листах
 
это не числа, это текст
вопрос не имеет никакого отношения к поиску максимального числа
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Поиск наибольшего числа на трех листах
 
Код
=МАКС(Лист1:Лист3!A1:A11)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
УФ и разные правила заливки по содержимому текста, Несколько условий форматирования
 
см. вложение
Изменено: Ігор Гончаренко - 27.11.2021 11:41:46
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как заставить макрос дождаться завершения работы других макросов., запросы PQ
 
покажите как вам удалось параллельно запустить несколько макросов (нужен код)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Отключение всех таймеров, Сбросить все ранее запущенные таймеры
 
что мешает прочитать документацию по Application.OnTime???
там описан механизм как запускать таймер (это вижу вы освоили), как отключить, вызов процедуры, что ждет своего часа (всего-то нужно запомнить куда-нибудь время при установке таймера)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Сумма строк с ограничением диапазона по граничной сумме
 
Цитата
написал:
но я не сказал про промежуточный итог
много еще у вас козырей в рукавах
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
При извлечении числа из текста съедается запятая в дробной части
 
Цитата
написал:
Игорь, я не знаю уже как объяснять.
не знаете как обьяснять - решайте сами, не пишите задач без условий задач. никто такую задачу не решит
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
При извлечении числа из текста съедается запятая в дробной части
 
1. строка с 4 по 16 символ включительно содержит 13 символов
2. в файле НИКАК не описана задача
можете обьяснить что вам нужно в итоге?
Код
Function DgtFrom(s)
  DgtFrom = Val(Replace(Mid(s, 4, 13), ",", "."))
End Function
Изменено: Ігор Гончаренко - 21.11.2021 11:53:43
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
При извлечении числа из текста съедается запятая в дробной части
 
4 и 17 символы включительно?
не нужно обьяснять какие нужны проверки, обьясните что нужно получить в итоге
на входе есть Х на выходе должен получиться У
опишите, что может быть в Х и что при этом должно получиться в У
не нужно описывать методы, как этого достичь, обьясните что нужно получить в итоге
Изменено: Ігор Гончаренко - 21.11.2021 10:42:41
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
При извлечении числа из текста съедается запятая в дробной части
 
если знать что за задачу вы решаете - скорее всего можно будет
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
VBA формы. Отображение введенных данных, Как сделать видимой последнюю строчку введенных данных на листе ексель
 
сканирование не в форму, а на лист Excel, перескакивает?
Изменено: Ігор Гончаренко - 20.11.2021 17:17:14
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
VBA формы. Отображение введенных данных, Как сделать видимой последнюю строчку введенных данных на листе ексель
 
при сканировании в Excel курсор перемещается в след. ячейку?
(если ответ положительный, то начните с настроек работы элементов формы прежде, чем начинать настраивать сканер)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
VBA формы. Отображение введенных данных, Как сделать видимой последнюю строчку введенных данных на листе ексель
 
Код
Private Sub CommandButton1_Click()
  emptyRows = WorksheetFunction.CountA(Range("A:A")) + 1
  Cells(emptyRows, 1) = TextBox_TOnumber.Value
  Cells(emptyRows, 2) = ListBox1.Value
  Cells(emptyRows, 3) = ListBox2.Value
  Me.TextBox_TOnumber.Value = ""
  Me.ListBox1.Value = ""
  Me.ListBox2.Value = ""
  TextBox_TOnumber.SetFocus
  Cells(1).End(xlDown).Select
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Сбор уникальных значений
 
Код
Sub bb()
  Dim d, a, r&, ks
  Set d = CreateObject("Scripting.Dictionary")
  a = [a1].CurrentRegion
  For r = 2 To UBound(a)
    If d.Exists(a(r, 3)) Then
      d(a(r, 3)) = d(a(r, 3)) & "; " & a(r, 2)
    Else
      d(a(r, 3)) = a(r, 2)
    End If
  Next
  ks = d.Keys: a = ""
  For r = 0 To UBound(ks)
    a = a & ks(r) & ": " & d(ks(r)) & vbLf
  Next
  [g2] = a
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Автопополнение имени по столбцу по по заданному количеству раза
 
Код
Private Sub Worksheet_Change(ByVal rg As Range)
  If rg.Count > 1 Then Exit Sub
  If rg.Column <> 11 Then Exit Sub
  If Val(rg) <> rg Then Exit Sub
  rg.Offset(0, -1).Resize(rg, 1) = rg.Offset(0, -1)
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Может кто архив столото спарсить?
 
Цитата
написал:
Это называется "Закон больших чисел".
на большом количестве чисел - обязательно
но на ближайших 100-300 розыграшей ситуация с равномерным распределением может только усугубляться (ну, что с них взять - это случайные числа)
Изменено: Ігор Гончаренко - 20.11.2021 10:26:56
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Excel не убирает пробелы, А может это и не пробелы вовсе?
 
что-нибудь о символе с кодом 160 слышали?
почитайте, может поможет
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Сумма строк с ограничением диапазона по граничной сумме
 
в В1
=А1
в В2
Код
=ЕСЛИ(СУММ($A$1:A2)-100*СЧЁТЕСЛИ($B$1:B1;100)>100;100;ОСТАТ(СУММ($A$1:A2);100))
и тяните ее до конца деопозона в А)
Изменено: Ігор Гончаренко - 20.11.2021 09:54:15
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Очищение памяти макроса
 
Цитата
написал:
постараюсь сформулировать мысль максимально понятно
не получилось
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Перевести рабочее время на дни
 
спасибо, в профиле написано куда можно складывать "благодарности"
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Перевести рабочее время на дни
 
все наступают на эти грабли, у тех, кто не в курсе - округляются глаза, "как такое может быть?"  а те, кто в курсе, знают, что нужно округлить значение и все станет на свои места))
Код
=ЦЕЛОЕ(F9*2) & " дн. " & ТЕКСТ(ОСТАТ(ОКРУГЛ(F9*2;9);1)/2;"Ч") & " час."
Изменено: Ігор Гончаренко - 19.11.2021 00:14:16
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Может кто архив столото спарсить?
 
Цитата
написал:
попробую вести аналитику
а смысл? вести аналику для случайных чисел
закон случайных чисел говорит, что следующее случайное число снова будет случайным и НИКАК не зависит от всех предыдущих случайных чисел
аналитика ничем не поможет, только удача (и количество купленных билетовю.  тут прямая зависимость - чем больше заполнено билетов, тем больше вероятность угадать результат)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Выбор значения исходя из соблюдения условий
 
А бывает меньше 100?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Перевести рабочее время на дни
 
Код
=ЦЕЛОЕ(F8*2) & " дн. " & ТЕКСТ(ОСТАТ(F8*2;1)/2;"Ч") & " час."
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Посчитать сколько рабочих дней, имея только часы
 
Код
=ЦЕЛОЕ(F8*2) & " дн. " & ТЕКСТ(ОСТАТ(F8*2;1)/2;"Ч") & " час."
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Перевести рабочее время на дни
 
Код
=ЦЕЛОЕ(D2/12) & " дн. " & ТЕКСТ(ОСТАТ(D2/12;1)/2;"Ч") & " час."
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
перевод часов в дни и часы
 
=ТЕКСТ(A1/24;"Д \дней Ч \ча\сов")
(работает при количестве дней менее 32)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 337 След.
Наверх