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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 218 След.
Заполнение таблицы по двум критериям: : по промежутку времени и по месту расположения
 
БМВ,
Я и спрашиваю, если у сотрудника только один день в этом месяце, учитывать его
в общем количестве за этот месяц?
Заполнение таблицы по двум критериям: : по промежутку времени и по месту расположения
 
Andro,
А, если Termination  Date равна 01.05.2017,
то ставить 1 в этом месяце?
Заполнение таблицы по двум критериям: : по промежутку времени и по месту расположения
 
Цитата
Не в службу, а в дружбу,
Посчитайте хотя бы для одного города вручную и покажите результат
Сравнение ячеек и заливка
 
В модуль листа 2
Код
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("B5:B15")) Is Nothing Then
        Application.EnableEvents = False
  With Worksheets("Лист1")
   If Not .Range("A1:A" & .Cells(.Rows.Count, 1).End(xlUp).Row).Find(Target, , xlValues, xlWhole) Is Nothing Then
    Target.Interior.ColorIndex = 3
   End If
  End With
 End If
    Application.EnableEvents = True
End Sub
Определить числа, записанные в ячейке через пробел
 
pabloescobar1949,
Цитата
во всех ячейках - 0
Это значит, что макрос сработал и все дело в пробелах
между числами в ячейках столбца А
замените пробел в строке (то что в кавычках)
Код
arr = Split(Cells(i, 1).Value, " ")
Определить числа, записанные в ячейке через пробел
 
У вас какие-то хитрые пробелы между числами в ячейках столбца А.
Попробуйте скопировать пробел из строки формул и вставить в макрос
В строку , где кавычки " "
Определить числа, записанные в ячейке через пробел
 
pabloescobar1949,
А мой макрос пробовали?
При выделении ячеек убрать / поставить рамки - Внешние рамки
 
Юрий М,
Тс просил Макрос на быструю клавишу или на кнопку в ленте
При записи макрорекордером выберите сами сочетание клавиш,
при которых он будет срабатывать
Сформировать последовательность дат с пропуском суббот и воскресений, добавить пропущенные даты
 
БМВ,
В 2003 такая же, только на русском
При выделении ячеек убрать / поставить рамки - Внешние рамки
 
Цитата
нужно написать такой макрос
Запишите действия макрорекордером и макрос готов
Сформировать последовательность дат с пропуском суббот и воскресений, добавить пропущенные даты
 
Цитата
В противном случае все равно тянуть
Записываем в ячейку начальную дату, а в меню прогрессии конечную, шаг=1 и рабочие дни
и ничего тянуть не надо
Сформировать последовательность дат с пропуском суббот и воскресений, добавить пропущенные даты
 
БМВ,
Даже в Excel 2003 есть такая возможность Правка -> Заполнить -> Прогрессия
Определить числа, записанные в ячейке через пробел
 
Код
Sub Kol_vo()
Dim i As Long
Dim iLastRow As Long
Dim arr
Dim j As Integer
Dim FoundChislo As Range
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
 Range("B2:Y" & iLastRow) = 0
  For i = 2 To iLastRow
    arr = Split(Cells(i, 1).Value, " ")
    For j = 0 To UBound(arr) - 1
      Set FoundChislo = Rows(1).Find(arr(j), , xlValues, xlWhole)
      If Not FoundChislo Is Nothing Then
        Cells(i, FoundChislo.Column) = 1
      End If
    Next
  Next
End Sub
Объединение ячеек в одну общую ячейку
 
Цитата
объединение обоих строк должно основываться на столбце "D" (а в с)
Почему часть букв из (а в с) ,а именно, "а" в русской транскрипции, а часть в латинской?
Вытащить не только первую совпадающую ячейку, а несколько релевантных "артикулу"
 
У кого нет PQ
Код
Sub Articul()
Dim i As Long
Dim k As Long
Dim iLastRow As Long
Dim FoundArticul As Range
Dim FAdr As String
 iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
 Range("H1:M" & iLastRow).ClearContents
 Range("A1:A" & iLastRow).AdvancedFilter xlFilterCopy, CopyToRange:=Range("H1"), Unique:=True
 iLastRow = Cells(Rows.Count, "H").End(xlUp).Row
      For i = 2 To iLastRow
        Set FoundArticul = Columns(1).Find(Cells(i, "H"), , xlValues, xlWhole)
         If Not FoundArticul Is Nothing Then
            FAdr = FoundArticul.Address
            k = 1
          Do
           Cells(i, 8 + k) = Cells(FoundArticul.Row, "C")
           k = k + 1
           Set FoundArticul = Columns(1).FindNext(FoundArticul)
          Loop While FoundArticul.Address <> FAdr
         End If
      Next
End Sub
Консолидация артикулов напротив наименования
 
А макрос попробовали?
Вытащить не только первую совпадающую ячейку, а несколько релевантных "артикулу"
 
А где пример?
Вот аналогичная тема только что разбиралась https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=123641
Консолидация артикулов напротив наименования
 
Макросом
Код
Sub Fruit()
Dim i As Long
Dim k As Long
Dim iLastRow As Long
Dim FoundArticul As Range
Dim FAdr As String
 iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
 Range("F3:M" & iLastRow).ClearContents    'границу М определить по мах кол-ву артикулов
 Range("A2:A" & iLastRow).AdvancedFilter xlFilterCopy, CopyToRange:=Range("F2"), Unique:=True
 iLastRow = Cells(Rows.Count, "F").End(xlUp).Row
      For i = 3 To iLastRow
        Set FoundArticul = Columns(1).Find(Cells(i, "F"), , xlValues, xlWhole)
         If Not FoundArticul Is Nothing Then
            FAdr = FoundArticul.Address
            k = 0
          Do
           Cells(i, 7 + k) = Cells(FoundArticul.Row, "B")
           k = k + 1
           Set FoundArticul = Columns(1).FindNext(FoundArticul)
          Loop While FoundArticul.Address <> FAdr
         End If
      Next
End Sub
Консолидация артикулов напротив наименования
 
zender001,
В таблице ананас и ананс - это опечатка или разные фрукты?
Как превратить уровневую таблицу 1С в обычную плоскую.
 
Посмотрите
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=103619
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=90708
И зачем на Лист 1 объединенные ячейки для СЕ и Сумма.% в группировке ?
Изменено: Kuzmich - 11 Дек 2019 13:56:00
Преобразовать столбец в плоскую таблицу.
 
ussuritiger,
Попробуйте макросом
Код
Sub Okrug()
Dim i As Long
Dim iLastRow As Long
Dim Okr As String
Application.ScreenUpdating = False
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
 Range("B9:B" & iLastRow).ClearContents
  For i = 9 To iLastRow
    If Cells(i, 1).IndentLevel = 2 Then
      If InStr(1, Cells(i, 1), "город") <> 0 Then
        Okr = Split(Cells(i, 1), " ", 4)(0) & " " & Split(Cells(i, 1), " ", 4)(1) & " " _
            & Split(Cells(i, 1), " ", 4)(3)
      Else
        Okr = Cells(i, 1)
      End If
        Cells(i, 2) = Okr
    Else
       Cells(i, 2) = Okr
    End If
  Next
Application.ScreenUpdating = True
End Sub
Удалить все символы после размера товара
 
UDF
Код
Function DelRazmer(cell$)
 With CreateObject("VBScript.RegExp")
     .Pattern = "\d+[хx]\d+[хx]\d+"
     If .test(cell) Then
       DelRazmer = Left(cell, .Execute(cell)(0).FirstIndex - 1)
     End If
 End With
End Function
Сформировать последовательность дат с пропуском суббот и воскресений, добавить пропущенные даты
 
Посмотрите в приемах https://www.planetaexcel.ru/techniques/3/59/
Сформировать последовательность дат с пропуском суббот и воскресений, добавить пропущенные даты
 
Цитата
куда этот код нужно вставлять?
В стандартный модуль и запустить
Выбрать данные с другого листа по датам и рациону
 
Elena 777,
Только 6 показателей интересует для каждой группы с выбранным рационом?
И можете перечислить все возможные рационы, чтобы их можно было выбрать
из выпадающего списка.
Замена русских символов, если символ между 2 латинскими
 
Юрий М,
ТС писал A33TTF90WT-Замены нет знаков поровну
Замена русских символов, если символ между 2 латинскими
 
Еще это посмотрите http://www.excelworld.ru/forum/3-236-1
Замена русских символов, если символ между 2 латинскими
 
Посмотрите http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=95667
Замена русских символов, если символ между 2 латинскими
 
Цитата
Если английскую "е" окружает 2 русских символа то заменить ее на русскую "е"
Код
Function ZamenaNaRus(cell As String, repl As String)
Dim objRegExp As Object
    Set objRegExp = CreateObject("VBScript.RegExp")
    objRegExp.Global = True
    objRegExp.IgnoreCase = False
    objRegExp.Pattern = "([а-я])(e)([а-я])"
    ZamenaNaRus = objRegExp.Replace(cell, "$1" & repl & "$3")
End Function

вызывать =ZamenaNaRus(B1;"е")
Можно ли как то выделить кнопку с макросом после его применения?
 
Цитата
т.к присутствуют персональные данные.
Замените на фрукты
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 218 След.
Наверх