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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 410 След.
Данные за определённую даты из файлов с 1) изменяемыми столбцами и 2) изменяемыми листами, в каком направлении искать?
 
по моему - уже поздно...
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Найти значения по двум критериям с помощью функции СУММЕСЛИМН
 
Цитата
Ибрагим Белхороев написал:
Если таблица в листе 2 находится в другой книге, то формула будет работать?
а попробовать? (религия не позволяет)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Замена цифр на уникальные, Возможная автозамена одинаковых цифр в числе на уникальные в ячейке
 
спасибо!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Замена цифр на уникальные, Возможная автозамена одинаковых цифр в числе на уникальные в ячейке
 
Код
Sub ChangeDigit()
  Dim a, b&, c&, d&(), e&(), i&, r&, s
  Randomize
  a = [a1].CurrentRegion
  For r = 1 To UBound(a)
    ReDim d(0 To 9): s = Replace("" & a(r, 1), ",", "."): ReDim e(1 To Len(s))
    For i = 1 To Len(s)
      If Mid(s, i, 1) <> "." Then
        c = Val(Mid(s, i, 1)): If d(c) = 1 Then e(i) = 1 Else d(c) = 1
      End If
    Next
    For i = 2 To Len(s)
      If e(i) Then
        Do: b = Int(Rnd * 10): Loop Until d(b) = 0
        d(b) = 1: Mid(s, i, 1) = b
      End If
    Next
    a(r, 1) = Val(s)
  Next
  [b1].Resize(UBound(a), 1) = a
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Разделение текста по двум столбцам
 
скопируйте это макрос в стандартный модуль и выполните
Код
Sub SplitRoleFIO()
  Dim re, m, a, b, r&
  Set re = CreateObject("VBScript.RegExp"): re.Pattern = " [А-Я]"
  a = [a2:a5]
  ReDim b(1 To UBound(a), 1 To 2)
  For r = 1 To UBound(a)
    If re.test(a(r, 1)) Then
      Set m = re.Execute(a(r, 1))(0)
      b(r, 1) = Left(a(r, 1), m.firstindex)
      b(r, 2) = Right(a(r, 1), Len(a(r, 1)) - 1 - m.firstindex)
    End If
  Next
  [b2].Resize(UBound(b), 2) = b
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Данные за определённую даты из файлов с 1) изменяемыми столбцами и 2) изменяемыми листами, в каком направлении искать?
 
1. открываете файлы "источники"
2. копируете к себе и открываете вложенный файл
3. жмете кнопку в нем
4. проверяете результаты
мой алгоритм на 1 шаг короче, рекомендую воспользоваться им)
Изменено: Ігор Гончаренко - 07.10.2022 10:15:55
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Данные за определённую даты из файлов с 1) изменяемыми столбцами и 2) изменяемыми листами, в каком направлении искать?
 
читать ничего не нужно
нужно описать задачу
а потом пробовать разбираться в том, что вам напишут в макросе
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Проверка цифры в многозначном числе на порядок расположения.
 
однако... StrReverse - это "архиправильно", как говаривал один не упокоенный вождь)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Сравнение нескольких столбцов
 
вы сравниваете диапазон из 15 ячеек с диапазоном из 15 ячеек, если суммапроизв(...) = 15 - совпали все 15 значений, что еще?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Проверка даты на правильность вода
 
в В1 =СЕГОДНЯ() (стало 06.10.2022)
а А1 у нас все еще 44840
в С1 =A1=B1
что пишет не ИСТИНА случайно? чем в А1 не сегодня?
-------------------------
вопрос один: что нужно проверять? что такое правильно заполненная дата?
как только это выяснилось - сразу можно определить в ячейке правильно заполненная дата или нет
и вопрос этот к автору темы
Изменено: Ігор Гончаренко - 06.10.2022 11:07:01
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Сравнение нескольких столбцов
 
Код
=СУММПРОИЗВ(--(A1:A15=A19:A33))

и
можно сравнить, если СУММПРОИЗВ(...)=15 - полное совпадение
Изменено: Ігор Гончаренко - 06.10.2022 10:59:15
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Проверка даты на правильность вода
 
Jack Famous,
в А1 пишем =СЕГОДНЯ()
отмечаем А1
формат ячейки Общий
запускаем процедуру t
видим False
What the fuck? СЕГОДНЯ() положил в А1 не дату, а что тогда???
пока не обьяснено, что проверять - проверять нечего(((
даже использование таких мощных процедур как t - не поможет))
Изменено: Ігор Гончаренко - 06.10.2022 10:50:44
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Условное имя столбца для процедуры, MSO; Power Query
 
а нужно было попробовать расширенный фильтр
лента Данные
группа Сортировка и Фильтр
кнопка Дополнительно
в открывшемся окне
в поле Исходный диапазон: Tab[#Все]
в поле Диапазон условий: Лист1!$A$1:$A$2
Ок
---------------------
готово
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Проверка даты на правильность вода
 
нужно сначала определить понятия
1. правильно заполненная дата (чем отличается от неправильно заполненной)
2. что есть основанием для проверки (как часто это делать, в каком диапазоне ячеек, листов, книг)
когда это будет понятно, можно попытаться реализовать такую проверку, без этой информации - вообще нечего проверять(((
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
как создать 3 выпадающих списка, связанных с одним общим списком, необходимо создать связанные списки, причем 3 столбца должны тянутся от одного(а не друг за другом), как если бы использовали формулу впр =(sku;диапозон;1;0). Это необходимо для того, чтобы при выборе значения в первом столбце, в других столбцах было толь
 
защитить лист:
1. правой кнопкой по ярлыку листа
2. Защитить лист

но будьте готовы к тому, что неумелая защита листа повлечет мегатонны проклятий на вашу голову от возмущенных пользователей (люди не любят когда ограничивают свободу их действий, и просто ненавидят, когда это сделано неуклюже)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Проверка цифры в многозначном числе на порядок расположения.
 
Цитата
Jack Famous написал:
я бы  поспорил
а я не стану, я знаю всего 6 арифметических действий
каждый, кто знает больше - уже выиграл в споре, в котором я не буду участвовать))
Изменено: Ігор Гончаренко - 06.10.2022 09:47:10
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Проверка цифры в многозначном числе на порядок расположения.
 
кокетничаете... Mod не арифметическое действие.
а освоить Right, Left и Mid - как бы материала в 3 раза больше, но не сложнее, чем Mod
см. ниже. оператор вам в коллекцию! (возможно звучит не очень, но он там действительно есть)
и все, что вносит пользователь - нужно проверять. замечено, что пользователи - это те еще вредители!
Код
Sub Digit3()
  Dim a, b, c, v&
  v = InputBox("Enter number (3 digit)")
  If v < 100 Or v > 999 Or Len("" & v) <> 3 Then Exit Sub
  c = v \ 100 'целая часть деления
  a = v Mod 10
  b = (v - c * 100 - a) / 10
  MsgBox v & "  ==> " & a & b & c
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
как создать 3 выпадающих списка, связанных с одним общим списком, необходимо создать связанные списки, причем 3 столбца должны тянутся от одного(а не друг за другом), как если бы использовали формулу впр =(sku;диапозон;1;0). Это необходимо для того, чтобы при выборе значения в первом столбце, в других столбцах было толь
 
это отмазка, а не уточнение
не хотите обьяснять - решайте сами
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
как создать 3 выпадающих списка, связанных с одним общим списком, необходимо создать связанные списки, причем 3 столбца должны тянутся от одного(а не друг за другом), как если бы использовали формулу впр =(sku;диапозон;1;0). Это необходимо для того, чтобы при выборе значения в первом столбце, в других столбцах было толь
 
а можете уточнить в чем суть задачи?
Изменено: Ігор Гончаренко - 05.10.2022 22:04:47
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
макрос фильтра ИЛИ для трёх столбцов
 
Код
Sub BlanckRowsHide()
  Dim a, d, r&
  a = Intersect(ActiveSheet.UsedRange, [a:c])
  ReDim d(1 To UBound(a), 1 To 1)
  For r = 1 To UBound(a)
    If Not IsEmpty(a(r, 1)) Then
      d(r, 1) = 1
    ElseIf Not IsEmpty(a(r, 2)) Then
      d(r, 1) = 1
    ElseIf Not IsEmpty(a(r, 3)) Then
      d(r, 1) = 1
    End If
  Next
  [d1].Resize(UBound(d), 1) = d
  If ActiveSheet.AutoFilter Is Nothing Then [a:d].AutoFilter
  If ActiveSheet.AutoFilter.Range.Columns.Count < 4 Then
    [a1].AutoFilter: [a:d].AutoFilter
  End If
  ActiveSheet.UsedRange.AutoFilter Field:=4, Criteria1:="<>"
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Указать диапазон в Range с помощью переменных
 
Код
  Dim c1&, c2&
  c1 = 2: c2 = c1 ^ 4 - 1
  Debug.Print Union(Columns(c1), Columns(c2).Resize(, 2)).Address

с помощью переменных с1 и с2 (видите с2 вычислено) результат см. в окне Immediate
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Ссылка на ячейку становится некорректной
 
Код
=ДВССЫЛ("DelegateIds!$A$3")

не сломается пока не удалите лист DelegateIds
Изменено: Ігор Гончаренко - 05.10.2022 20:41:08
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Указать диапазон в Range с помощью переменных
 
нельзя сказать почему что-то не работает если не понятно "а что, собственно, нужно получить?"
сначала обьяснение словами что хотим
потом пример кода, которым пытаемся достичь поставленной цели
и только потом возможен ответ почему это не получилось
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как отфильтровать данные по нескольким заданным значениям
 
не понимаете?
выложите файл увидите как это организовать
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Выборка из таблицы с подсчетом
 
Цитата
Яна Кривулец написал:
у меня есть таблица
а у нас нет такой(((
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Проверка цифры в многозначном числе на порядок расположения.
 
тоже самостоятельно сделал:
Код
Sub Repl654()
  Dim s$: s = 654
  MsgBox Right(s, 1) & Mid(s, 2, 1) & Left(s, 1)
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как отфильтровать данные по нескольким заданным значениям
 
расширенному фильтру все равно критериев будет 1 или 5 тыс.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Проверка цифры в многозначном числе на порядок расположения.
 
учили-не-учили
а учиться чему-то самостоятельно строго запрещено?
программирование позволяет экспериментировать с кодом пока он не начнет работать как следует ничем не рискуя при этом
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Как отфильтровать данные по нескольким заданным значениям
 
использовать расширенный фильтр
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Подсчет результатов теста в Иксел, Какую функцию использовать для подсчета правильных ответов
 
для Иванова:
Код
=СУММПРОИЗВ(--($D$1:$K$1=D3:K3))
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 410 След.
Наверх