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

Страницы: 1 2 След.
Абсолютная ссылка на умную таблицу
 
Есть еще один способ. Надо прописывать диапазон, на который нужно сослаться, вручную.     (= $В$2:$В$20)
Изменено: Гравитон - 13.04.2016 13:17:29
Вставить под каждым значением ячейки массива строки в количестве
 
Спасибо Kuzmich, все работает !!!!
Вставить под каждым значением ячейки массива строки в количестве
 
Код
Sub âñòàâêà_ñòðîê_ïîI()
Dim lngI As Long
    For lngI = Cells(Rows.Count, "I").End(xlUp).Row To 2 Step -1
    If Range("I" & lngI) > 1 Then
        Rows(lngI + 1 & ":" & lngI + 1 + (Range("I" & lngI) - 2)).Insert shift:=xlDown
End If
 
    Next lngI
End Sub
Вставить под каждым значением ячейки массива строки в количестве
 
Попробовал по столбцу "I" все равно не работает
Вставить под каждым значением ячейки массива строки в количестве
 
Имеется некоторые значения в столбце J. Задача: вставить под каждым значением ячейки массива строки в количестве, на одну строку меньше значения ячейки. У меня есть макрос, но он в одних файлах он работает в других не работает. Помогите пожалуйста разобраться с этим макросом...   Файл прилагаю.
Код
Sub вставка_строк_поJ()
Dim lngI As Long
    For lngI = Cells(Rows.Count, "j").End(xlUp).Row To 2 Step -1
    If Range("j" & lngI) > 1 Then
        Rows(lngI + 1 & ":" & lngI + 1 + (Range("j" & lngI) - 2)).Insert shift:=xlDown
End If
 
    Next lngI
End Sub
Вставка заданного количества строк
 
Ураа....  заработало!!!!    большое спасибо за помощь Пытливый,   :idea:
Вставка заданного количества строк
 
на "1" вставляет строки, а туда не надо
Вставка заданного количества строк
 
вот файл в одном листе работает, а в другом нет. Не могу понять ПОЧЕМУ ?
Вставка заданного количества строк
 
на одном файле работает, а на другом по 3 строки вставляет везде
Вставка заданного количества строк
 
Пытливый, Спасибо, все работает, то что доктор прописал  :)
Вставка заданного количества строк
 
Вертикальный массив = столбец Е
Вставка заданного количества строк
 
Имеется одномерный вертикальный массив чисел.      Задача: вставить под каждым значением ячейки массива строки в количестве, на одну строку меньше значения ячейки.  Помоги пожалуйста макросом, кто может...
Сцепить при условии соответствия значения ячейки заданному диапазону
 
Hugo, СПАСИБО все работает, облегчели мне очень жизнь  :)
Сцепить при условии соответствия значения ячейки заданному диапазону
 
Hugo, не могу понять синтаксис ввода
Сцепить при условии соответствия значения ячейки заданному диапазону
 
gling, спасибо как вариант не плохо, но у меня есть уже большой массив данных, просто устану строки добавлять, да и связи могут полететь..
Сцепить при условии соответствия значения ячейки заданному диапазону
 
Задачка не из простых получилась   :)
Сцепить при условии соответствия значения ячейки заданному диапазону
 
исправляюсь, не тот файл прикрепил
Сцепить при условии соответствия значения ячейки заданному диапазону
 
Имеется одномерный массив чисел необходимо сцепить ячейки значение которых находится в пределах от 1 до 300 и сцепить ячейки значение которых находится в пределах от 301 до 700 .
Нашел один макрос (он есть в прилагаемом файле в модулях )
Код
Function MergeIf(TextRange As Range, SearchRange As Range, Condition As String)
    Dim Delimeter As String, i As Long
    Delimeter = ", " 'символы-разделители (можно заменить на пробел или ; и т.д.)
     
    'если диапазоны проверки и склеивания не равны друг другу - выходим с ошибкой
    If SearchRange.Count <> TextRange.Count Then
        MergeIf = CVErr(xlErrRef)
        Exit Function
    End If
     
    'проходим по все ячейкам, проверяем условие и собираем текст в переменную OutText
    For i = 1 To SearchRange.Cells.Count
        If SearchRange.Cells(i) Like Condition Then OutText = OutText & TextRange.Cells(i) & Delimeter
    Next i
     
    'выводим результаты без последнего разделителя
    MergeIf = Left(OutText, Len(OutText) - Len(Delimeter))
End Function

но он немного по другому работает. Помогите пожалуйста доработать....
Выбор строк в определенным временем
 
включил, из архива распоковал
Выбор строк в определенным временем
 
Спасибо за помощь задача решена. Правда "на скорую руку" не работает  :)
Выбор строк в определенным временем
 
Имеется дневник погоды (очень подробный, несколько замеров в сутки) необходимо оставить строки с данными на 12:00 каждых суток, а остальные строки удалить. Помогите пожалуйста соответствующим макросом.  
Найти пропущенные числа в области, в которой в произвольном виде расположены числа в последовательности
 
Спасибо всем за участие.... :)
Найти пропущенные числа в области, в которой в произвольном виде расположены числа в последовательности
 
вы совершенно правы 6, я просчитался
Найти пропущенные числа в области, в которой в произвольном виде расположены числа в последовательности
 
Юрий М   большое СПАСИБО все работает, то что нужно.  :idea:    
Найти пропущенные числа в области, в которой в произвольном виде расположены числа в последовательности
 
пробовал, но мне надо и всей этой области выбрать пропущенные числа их должно быть 12 шт я не пойму как эта формула должна их найти   :(
Найти пропущенные числа в области, в которой в произвольном виде расположены числа в последовательности
 
да, извиняюсь за отсутствие файла.   Прикрепляю, последовательность от 1 до 655
Найти пропущенные числа в области, в которой в произвольном виде расположены числа в последовательности
 
Есть область из 10 столбцов и 100 строк в которой в произвольном виде (хаотично) в ячейках внесены числа от 1 до 500. Задача в том, что бы найти пропущенные числа в последовательности 1-500 и вывести эти числа в определенный столбец.
Ничего подобного на форуме не нашел, есть только для сортированных столбцов, но этот вариант мне не подходит.
Скрыть строки при условии.
 
СПАСИБО за помощь дорогие Вы мои люди  :)
Скрыть строки при условии.
 
спасибо все работает!!
для общего развития:
а как сверху вниз сделать?
Скрыть строки при условии.
 
я не очень знаю VBA, что значит ?
Код
cell.Offset(0, 6) 
Страницы: 1 2 След.
Наверх