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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 1414 След.
Макрос разделения столбцов на листы.не работает в надстройке
 
В файле-примере! Прикрепите пример к первому ообщению.
Макрос разделения столбцов на листы.не работает в надстройке
 
Картинки - хорошо, но код нужно в примере показывать
Баг или фича? Почему значение #d# для Excel'я является числом
 
Jack Famous, не удалил, потому что на картинке результат вместе кодом! Удалю картинку - не будет результата. Или модераторам еще и картинки обрезать да код из файла копировать?!
Баг или фича? Почему значение #d# для Excel'я является числом
 
Jack Famous, да не докапываюсь, чтобы "додавить" свое...  Вот довод:
Цитата
vikttur написал: потом зайдет какой-нибудь Абай Петрович с кодом в картинке: Джеку можно, а мне нет?
Ну, зачем прецеденты создавать? Есть же принятый порядок: если код - то кодом.

Цитата
Jack Famous написал: На досуге от важной работы по устранению таких критических ошибок, как тут...
Не надо язвить. И без этого тошно иногда бывает...

Цитата
"Проблема" и яйца выеденного не стоит…
Ваша правда. есть замечание, есть порядок. Какого хрена за свою картинку держаться?
Баг или фича? Почему значение #d# для Excel'я является числом
 
Не цепляюсь...
Но если выложили код, то зачем в картинке?!. Неужели хуже, если нормальный покажете?! Красивости редактора продемонстрировать?
Макрос, под ним результат... Не понимаю упрямства...

А потом зайдет какой-нибудь Абай Петрович с кодом в картинке: Джеку можно, а мне нет? Зачем дурной пример подавать?
Баг или фича? Почему значение #d# для Excel'я является числом
 
А вдруг надо? Человек откроет свой файл и захочет вставить туда код. Открывать еще один файл? Код - это код, он должен нормально копироваться. Не первый раз говорим об этом  на форуме.
И что - нормально форматированный код ухудшит демонстрацию результата?
Формула Minifs в Power Pivot
 
по комбинирую
покомбинирую
Баг или фича? Почему значение #d# для Excel'я является числом
 
Jack Famous, код, конечно, на картинке красивый, но правильнее заменить рисунок НОРМАЛЬНЫМ кодом
Формула Minifs в Power Pivot
 
Название темы должно отражать задачу. Предложите новое. Заменят модераторы
Баг или фича? Почему значение #d# для Excel'я является числом
 
Цитата
Максим Зеленский написал: любопытно...Val("0.3d2") =  30
Текст сначала преобразуется в число. Число целое. Val(целое) = целое
Но если это же "число" (0,3d2) взять из ячейки, то Val(...)= 0. Здесь явно видно, что сначала обрезание, потом преобразование преобразовывать нечего

С такими данным надо осторожно...
Заполнение данных в столбце (диапазон от активной ячейки до следующей пустой ячейки)
 
Измените направление цикла:
Код
For i = 2 To UBound(aData)

и порядок сцепления:
Код
sCode = sCode & aData(i, 1)
Баг или фича? Почему значение #d# для Excel'я является числом
 
Это да, не учел...  Но я ударение ставил на том, что Val не обрезает экспоненциальное число.
Баг или фича? Почему значение #d# для Excel'я является числом
 
Когда-то всплывало, но не помню, где...

Еще интересное обнаружил.
Val() в VBA берет из текста все числовые знаки слева до первого нечислового символа.
Val("0,00003") = 0
Val(0.00003) = 0

Но!
Val("3d-5") = 0,00003
Val("3e-5") = 0,00003


В коде єкспоненциальная запись сразу преобразуется в число.
Дублирование на другой лист каждой третьей строки
 
Вопрос не по теме
убрать пробелы
 
denka1982, горе-цитата зачем?!
Поочередное перемещение всех данных в столбце в ячейку
 
Для перебора значений не нужно их вставлять в ячейку. Будет еще быстрее (в десятки раз)
убрать пробелы
 
denka1982, Вам и масло на хлеб намазать, и в рот положить? Вы хоть краешком глаза в справку по функции заглянули?
И пример тоже вместо Вас рисовать?!
Интеграгия писем из оутлук в excell
 
Раздел платных заказов не этот
Как в макросе выбрать созданную, но не сохраненную книгу Excel.
 
Максим Колесников,
Цитата
тесть допиши
"т.е. допишите", да?
Извлечь из текста "х кг" только вес
 
=--ПОДСТАВИТЬ("20 кг";"кг";"")

По вопросу извлечения данных нужно создавать отдельную тему - ВПР ищет только первое совпадение. Так, как В применил функцию, применять ее нельзя.
Заполнение данных в столбце (диапазон от активной ячейки до следующей пустой ячейки)
 
Идти снизу вверх намного проще:
Код
Sub UniqueCode()
    Dim aData
    Dim sCode As String, i As Long
    
    i = Cells(Rows.Count, 1).End(xlUp).Row
    aData = Range("C1:C" & i).Value
    
    For i = UBound(aData) To 2 Step -1
        If aData(i, 1) <> Empty Then
            sCode = aData(i, 1) & sCode
        Else
            aData(i, 1) = sCode: sCode = ""
        End If
    Next i
    
    Range("C1:C" & UBound(aData)).Value = aData
End Sub
Американский формат даты перевести в нормальный вид
 
Придумано и давным-давно: даты нудно писать или выгружать  как даты, а не текстом.
Данные должны быть в своем формате, тогда и проблем меньше.
Заполнение данных в столбце (диапазон от активной ячейки до следующей пустой ячейки)
 
Повторите сообщение, но без ссылки на картинку. Антиспам заблокировал.
Обновить данные в другой таблице, если ключи совпадают
 
И об этом нельзя было написать в той теме? Вам же отвечали, что-то спрашивали... У Вас все просто - удалить... А уважение где?
Сохранение файла в зависимости от названия, Несколько если в макросе
 
Чем мог, помог - удалил кучу пустот в сообщении и отформатировал код. Закончите сами редактирование - напишите нормально предложения.

Чтобы быстрее пришла помощь, нужно показывать пример. ПРИМЕР, а не рабочий файл с кучей ненужной информации.
СУММПРОИЗВ для диапазонов "разных" размерностей
 
И где же Ваши РАЗНЫЕ размеры диапазонов?
Предложите название, отражающее задачу. Модераторы заменят.
Обращение к Workbooks.worksheets.range из другой книги
 
Цитата
VasiliY_Seryugin написал: Вот как... код должен выглядеть
Код
With Workbooks("Пример.xlsm").Worksheets("Лист1")
        .Range(.Cells(3, 1), .Cells(3, 9).End(xlDown)).ClearContents
End With
Добавление пустых строк по условию, Добавление пустых строк по условию
 
Код
    Do While Not IsEmpty(Cells(r, 2).Value)
        If Cells(r, 2).Value > 1 Then
            Cells(r + 1, 1).Resize(Cells(r, 2).Value - 1, 1).EntireRow.Insert: r = r + Cells(r, 2)
        Else
            r = r + 1
        End If
    Loop
Цитата
Евген1788 написал: нашел тут на форуме замечательный макрос
Нормальный, но не замечательный... Добавлять строки правильнее снизу вверх. Еще один не замечательный, но правильный код )
Код
Sub InsBRows_2()
    Dim r&
    
    With ActiveSheet
        'r = .UsedRange.Rows.Count + .UsedRange.Row - 1
        r = .Cells(.Rows.Count, 2).End(xlUp).Row
    
        Do
            If .Cells(r, 2).Value > 1 Then
                .Cells(r + 1, 1).Resize(.Cells(r, 2).Value - 1, 1).EntireRow.Insert
            End If
            
            r = r - 1
        Loop Until r = 1
    End With
End Sub

Последнюю строку r определять в зависимости от данных на листе
Корректный импорт данных с сайта
 
XottabbI4, не нужно подменять буквы цифрами. Измените логин
Перебор ячеек диапазона с копированием каждой ячейки и вставкой в разные книги в папке
 
Spec, а Вам ставлю 2 балла из 12 - цитировать не умеете. Цитата - не бестолковая копия сообщения!

Замечание модератора игнорируете (соощение №20)
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 1414 След.
Наверх