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

Страницы: 1 2 След.
Выделить цветом число и % в ячейке, Необходима помощь в выделении цветом некоторых символов в ячейке
 
Вот как выглядит в Excel
Выделить цветом число и % в ячейке, Необходима помощь в выделении цветом некоторых символов в ячейке
 
Добрый день! В ячейки А1 необходимо выделить данные по числу и % другим цветом(красным) и сделать шрифт полужирным, а другой текст оставить тем же стандартным цветом и шрифтом. Спасибо!
Макрос последующего заполнения, Необходимо доработать макрос, чтобы он работал для каждой новой строки, после того как заново заносится информация на лист вводные данные
 
Необходимо чтобы после каждого нового заполнения таблицы b1:b12 на листе вводные данные, на листе база данных строки заполнялись постепенно, т.е. каждая следующая строка, например сегодня я занес на лист вводных данных, соотвественно заполнилась первая строчка на листе база данных, а далее заполнялись заново на каждую непустую строку(последующую: вторую, третью, четвертую и т.п.)
Макрос последующего заполнения, Необходимо доработать макрос, чтобы он работал для каждой новой строки, после того как заново заносится информация на лист вводные данные
 
Добрый день! Прошу помочь, ответа не нашел на страницах форума
Макрос замены УФ на основании данных другого листа
 
Нет, там о другом. Тот вопрос решился
Макрос замены УФ на основании данных другого листа
 
Необходим макрос, который бы заменил УФ.
Макрос закрашивания ячейки на основании значения другого листа
 
День добрый! Помогите с макросом закрашивания на основании значения другого листа.
Как сделать так, чтобы макрос работал при скрытом листе
 
Цитата
Xapa6apga написал:
Так? Студент ))
Вобще нет)) Теперь макрос работает на скрытом листе но не выполняет саму свою суть, столбец a - код, б- даты (в одной ячейки:первая начальная, вторая конечная), и макрос должен была именно разбить ячейке где есть ";" что бы у напротив одного и того же кода была сначала начальная дата, потом после того как код и дата начальная закончится протянулся тот же код, но уже с конечной датой
Как сделать так, чтобы макрос работал при скрытом листе
 
Приложил. С листа открытого на скрытый должен сработать
Как сделать так, чтобы макрос работал при скрытом листе
 
Не срабатывает замена, как Вы предлагаете? можно весь код?
Как сделать так, чтобы макрос работал при скрытом листе
 
Код
Public Sub Перенос2()
Dim m As Range
Dim m1 As Variant
Dim i As Long
Dim j As Long
Dim a As String
Dim b As String
Dim s As String

    Sheets("1.БД_анализ").Select
    Set m = Range(Cells(2, 1).Address, Cells(Application.WorksheetFunction.CountA(Columns(2)), 2).Address)
        m1 = m.Value
    Sheets("5.Код_дата").Select
    Cells().Select
    Selection.ClearContents
    Cells(1, 1).Select
    For i = 1 To m.Rows.Count
        a = m1(i, 1)
        b = m1(i, 2)
       For j = 1 To Len(b)
            If Mid(b, j, 1) = ";" Then
               With ActiveCell
                 .Value = a
                 .Offset(0, 1).Value = s
                 .Offset(1, 0).Select
               End With
               s = ""
            Else
            s = s + Mid(b, j, 1)
            End If
      Next
    Next
End Sub
Изменено: denyron - 16.02.2018 13:41:19
Макрос преобразования даты в формат даты (excel), Необходимо доделать макрос
 
А если без цикла? из за цикла скорость обработки увеличилась
Макрос преобразования даты в формат даты (excel), Необходимо доделать макрос
 
есть такая ошибка при преобразовании, после преобразования макросом даты не становятся числом, убедитесь сами, менял формат на числовой "0.00" толку нет, нужно как то приминить к вновь образованным датам функциию CDate(), но я не знаю как
Макрос преобразования даты в формат даты (excel), Необходимо доделать макрос
 
а как это выглядит в коде?
Макрос преобразования даты в формат даты (excel), Необходимо доделать макрос
 
Имеется макрос, который обрабатывает массив и в первом столбце создает даты, только они не преобразуются в даты - экселевского формата, которые потом при смене формата в числовой становятся числом, необходимо помочь.
Преобразования даты в дату после обработки, необходимо соединить макросы
 
После обработки первым макросом эксель даты как даты не воспринимает, поэтому приходиться вторым обрабатывать данные.
Преобразования даты в дату после обработки, необходимо соединить макросы
 
имеются два макроса:

Код
Sub Остатки_Реверс()
Application.ScreenUpdating = False
Sheets.Add
ActiveSheet.Name = "Остатки"
Range("A1").Select
'With ActiveCell
' .Value = "Дата"
' .Offset(0, 1).Value = "Владелец"
 '.Offset(0, 2).Value = "Место хранения"
' .Offset(0, 2).Value = "Номенклатура.Код"
' .Offset(0, 3).Value = "Количество Начальный остаток"
' .Offset(0, 4).Value = "Себестоимость Начальный остаток"
' .Offset(1, 0).Select
' End With

'Sheets("Готовый лист").Select
'Range("A2:F10000").ClearContents
'Range("A2").Select
Sheets("TDSheet").Select
    Cells.Select
    Selection.Copy
    Sheets("Остатки").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Rows.Ungroup
Dim r As Range
Dim r1 As Variant
Dim a As Long
Dim i As Long
Dim b As String
'Sheets("TDSheet").Select
  Range("A1").Select
 ActiveCell.SpecialCells(xlLastCell).Select
 a = ActiveCell.Row

'a = Application.WorksheetFunction.CountA(Columns(2))
Range("A1").Select
Set r = Range(Cells(2, 1), Cells(a, 5))
r1 = r.Value
Sheets("Остатки").Select
For i = 1 To a - 2
  If i = 1 Then
    r1(i, 1) = Left(r1(i, 1), 10)
    b = r1(i, 1)
  Else
     If r1(i, 1) = 0 Then
        r1(i, 1) = b
     Else
        r1(i, 1) = Left(r1(i, 1), 10)
        b = r1(i, 1)
     End If
    
  End If
Next
r.Value = r1

'  With ActiveCell
'     .Value = r1(i, 1)
'     .Offset(0, 1).Value = r1(i, 2)
'     .Offset(0, 2).Value = r1(i, 4)
'     .Offset(0, 3).Value = r1(i, 5)
'     .Offset(0, 4).Value = r1(i, 6)
'     '.Offset(0, 5).Value = r1(i, 4)
'     .Offset(1, 0).Select
'  End With
'
'Next

Range("B2").Select
For i = 1 To a - 1
    If ActiveCell.Value = "" Then
        Rows(ActiveCell.Row).Delete
    Else
        If ActiveCell.Value = "Распределительный центр" Then
            If ActiveCell.Offset(0, 1).Value = "Склад 15 (брак)" Then
              ActiveCell.Value = "Склад 15 (брак)"
            Else
            End If
        Else
        End If
        ActiveCell.Offset(1, 0).Select
    End If
Next
Columns(3).Delete
    Columns("A:A").Select
    Selection.NumberFormat = "m/d/yyyy"
Range("A1").Select
Application.ScreenUpdating = True

End Sub
и
Код
Sub ДАТА()
Set ddd = Columns(1).SpecialCells(xlCellTypeConstants)
For Each x In ddd
'If IsDate(x) Then x.Value = CDate(x)
x.Value = CDate(x)
Next
End Sub

Необходимо соединить в один, чтобы даты после обработки были EXCEl формата ;)  
Изменено: denyron - 12.10.2017 13:17:48
Ошибка формирования макроса в иерархии, Необходима доработка
 
при работе макроса с иерархичными даннми выходит ошибка в обработке
Макрос иерархии даты, Необходимо доделать макрос
 
Посмотрите
Макрос иерархии даты, Необходимо доделать макрос
 
При небольшом диапозоне сработал, а вот если дат иерархичных будет например 180, но он на последней так и не протянул
Макрос иерархии даты, Необходимо доделать макрос
 
День добрый! Имеется макрос, но при работе последнею ячейку даты почему то не протягивает и не обрабатывает код в формат общий. И можно ли перевести формат даты в формат даты а числа в числа?
Изменено: denyron - 11.10.2017 15:22:21 (новый пример)
Пределы для макроса + сохранения форматирования, при изменении значении ячейки, Необходимо доработать макрос
 
Превосходно!
Пределы для макроса + сохранения форматирования, при изменении значении ячейки, Необходимо доработать макрос
 
День добрый есть макрос для обработки кодов с выгрузки 1С в нормальные значения, только вот пределы обработки(по всем непустым) я задать не знаю как, при этом еще один минус макроса - он удаляет форматирование ячейки, что плохо, при этом создает форматирование общие, а хочется чтоб это были числа.
Прошу помочь.
Сложный макрос дублирования листов, Необходимы макрос для BI аналитики
 
Как выглядит бд в начале: каждая дата представлена в виде иерархии, она обрабатывается через формулу  ЕСЛИ, которую я указал, в файле на листе готовый, из столбца c при значении склад 15 брак оно переносится в столбец b, при всем остальном столбец b без изменений, код преобразуется в значение
Сложный макрос дублирования листов, Необходимы макрос для BI аналитики
 
если бы вы скачали фаил по ссылке то увидели бы как выглядит бд, я описал то как мне нужно чтобы выглядело, зачем вы тратите и свое и мое время в пустую, на готовом листе стоит формула для обработки данных, мне нужно их перевести в один макрос, если не можете помочь, то ок, если можете сделайте как прошу, а не как вам удобно. я смогу проверить в случае ошибки при обработке макросом данных где это ошибка образовалась
Сложный макрос дублирования листов, Необходимы макрос для BI аналитики
 
Во первых на первом листе есть иерархия по датам, убран столбец С тоже после того, как из него берутся данные для столбца b, лист хочется создать рядом чтобы была возможность проверить, вдруг есть какие то ошибки на первом листе при выгрузке из 1С. ссылка дана на большую Бд. т.к. файл не загружается
Сложный макрос дублирования листов, Необходимы макрос для BI аналитики
 
Вообщем это должно быть не по магазинам, а магазины должны идти в столбик на листе "готовый". Если у меня в файле протянуть формулы вниз то это будет то что нужно, http://dropmefiles.com/Ms7gb скинул всю бд и вариант как пример опять же
Сложный макрос дублирования листов, Необходимы макрос для BI аналитики
 
в файле, рядом с листом выгрузки
Сложный макрос дублирования листов, Необходимы макрос для BI аналитики
 
Макрос должен создавать готовый лист на котором будут данные в виде значений (шапку данных и откуда и как они берутся сейчас по формулам я указал)
Сложный макрос дублирования листов, Необходимы макрос для BI аналитики
 
нужно на каждый файл что я прислал по макросу
Страницы: 1 2 След.
Наверх