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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 1414 След.
Формула 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)
Сколько названий изменилось на строго заданное?
 
Что еще в рукаве прячете?
подсказка
Обновить данные в другой таблице, если ключи совпадают
 
Отвечать в свей теме не надо?
Помогите создать сводную таблицу с большим объемом информации и строк, Сводные таблицы с большим объемом данных
 
Пример - не рабочий файл. Подготовьте небольшой файл-пример.
И не надо строчить очередями сообщений. Свои сообщения можно дополнять. Посмотрите сейчас - хуже?
Посчитать количество рабочих часов в промежутке суток (вход/выход через турникет), много условий
 
Закрыть? Перенести в Работу?
Сводная таблица с текстом в области значений
 
Автору (а как обращаться-то? звездатый? :) ), измените логин. Цитирование - не бездумное копипование.
И об одном, и о другом - читайте в правилах форума. Помощь скрыта
Посчитать количество рабочих часов в промежутке суток (вход/выход через турникет), много условий
 
kilativ, задачу нужно описывать в сообщении. Отредактируйте первое.

Хотя... для раздела платных заказов и так сойдет. Перенести? Это техзадание. реализация такой задачи выходит за рамки простой помощи.
Работа с числом, идущим в столбце после первичного появления числа, приобретающиего в столбце повтор.
 
Цитата
deinstalation написал: Написал ведь в самом начале.
Да я Вам о названии темы!
Делимся..., разным
 
Скрытый текст
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 1414 След.
Наверх