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

Страницы: 1 2 3 След.
Скопировать диапазон до #Н/Д или до стоп слова
 
МатросНаЗебре, Спасибо еще раз за то что потратил свое время что бы ответить.
По изучаю твои примеры.
Скопировать диапазон до #Н/Д или до стоп слова
 
а да.
что бы не выделял пустые ячейки строку
Код
If iCell <> "ОШИБКА" Then
нужно поменять на
Код
If iCell <> "ОШИБКА" And iCell <> "" Then
Скопировать диапазон до #Н/Д или до стоп слова
 
МатросНаЗебре, Красавец!
Поделюсь своим творением на решение второго примера.
+ в том что он выделяет все ячейки которые находятся в любой месте столбца
Код
Sub Макрос1()
'
    Dim iCell As Range, iURange As Range
    For Each iCell In Range("I1:J17")
        If iCell = "ДА" Then
            If iURange Is Nothing Then
                Set iURange = iCell
            Else
                Set iURange = Union(iURange, iCell)
            End If
        End If
        Next
    If Not iURange Is Nothing Then iURange.Offset(0, -1).Select
    
    
End Sub

Ну и для первого примера используем ЕСЛИОШИБКА( выводим вместо #Н/Д слово ОШИБКА

Код
Sub Макрос1()
'
    Dim iCell As Range, iURange As Range
    For Each iCell In Range("A1:A20")
        If iCell <> "ОШИБКА" Then
            If iURange Is Nothing Then
                Set iURange = iCell
            Else
                Set iURange = Union(iURange, iCell)
            End If
        End If
        Next
    If Not iURange Is Nothing Then iURange.Offset(0, 0).Select
    
    
End Sub
Изменено: DartoArem - 07.04.2020 15:12:53
Скопировать диапазон до #Н/Д или до стоп слова
 
МатросНаЗебре,
Или сделать так.
Скопировать весь диапазон активных ячеек по столбцу A
Далее вставить их как значение в нужное место
Выделить этот диапазон и удалить ячейки содержащие значение #Н/Д как текст
Хммм... можно и так.

А вот есть ли способ сразу копировать до нужного значения?
Скопировать диапазон до #Н/Д или до стоп слова
 
Цитата
МатросНаЗебре написал:
Удалите #Н/Д. И задача сведётся к предыдущей ))).
Вопрос то не в этом.
Вопрос в том как выделить значения до #Н/Д
Я понял вы предлагаете отсортировать данные, а потом вручную убрать ячейки содержащие #Н/Д?

Хорошо, если я сделаю что вместо #Н/Д будет выводится слово ОШИБКА то как выделять диапазон до этого слова
Изменено: DartoArem - 07.04.2020 14:31:06
Скопировать диапазон до #Н/Д или до стоп слова
 
Добрый день.
Нужна помощь.

Пример 1
Есть столбик с данными который формируется через функцию ВПР длинна данных каждый раз меняется.
Я знаю как копировать диапазон до последней активной ячейки
Код
    Range("A3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Application.CutCopyMode = False
    Selection.Copy
Но как сделать что бы он копировал данные до первого #Н/Д?

Пример 2
Есть столбик в котором применена формула которая выводит ДА и НЕТ длинна данных каждый раз меняется.
Как скопировать диапазон до первого значения НЕТ
Удаление наименьших числовых значений в ячейке
 
buchlotnik, Спасибо огромное!
Удаление наименьших числовых значений в ячейке
 
Доброй ночи)
Нужна помощь с макросом.
В ячейках есть числовые значения такого вида 1000/900 или 70/80/90
Нужен макрос работающий по выделенному диапазону который оставлял бы в ячейке наибольшее значение

1000/900 будет 1000
1800/2000 будет 2000
70/80/90 будет 90
Если ячейка содержит от 35" до 55" то - ДА
 
vikttur, Спасибо большое
То есть как я понял функция СТРОКА используется как вертикальный массив, даже если бы мне дали справочник то не догадался бы таким способом его применить.
Спасибо
Если ячейка содержит от 35" до 55" то - ДА
 
ЕСЛИ есть текст от 35" до 55" включая такие значения как 38.5" 39.6" 49.5" то вывести ДА
Значения без " то нет

Дополняю:
диапазон от 35-55 включает не только целые числа а и все возможные десятичные которые выходят в диапазон
35.1" 35.2" 35.3" 35.4" 35.6" 35.7" 35.8" 35.9"
Изменено: DartoArem - 27.03.2020 18:07:44
Если ячейка содержит от 35" до 55" то - ДА
 
Цитата
vikttur написал:
Формула массива:=ЕСЛИ(ИЛИ(ЕЧИСЛО(ПОИСК(СТРОКА($35:$55)&"""";A1)));"ДА";"НЕТ")
Работала хорошо пока не наткнулся на значения 38.5" 39.6" 49.5"
Какие есть варианты
Изменено: DartoArem - 27.03.2020 17:43:15
Если ячейка содержит от 35" до 55" то - ДА
 
Сергей, Попробовал она ищет только число 35 остальные значения игнорирует
Но я не понял в этой формуле зачем нам использовать строки
Если ячейка содержит от 35" до 55" то - ДА
 
Просто представьте нужно найти число от 1" до 1000" где то в тексте
Расписывать 1""";2""";3""";4""";5""" точно не вариант
Если ячейка содержит от 35" до 55" то - ДА
 
Цитата
IKor написал:
Если Ваши реальные данные имеют такую же структуру, как и в примере, то формула вида
К сожалению нет

Вещь 30" Черная [DHFGRTH]
Вещь с подставкой 36"

может быть и так и сяк
Если ячейка содержит от 35" до 55" то - ДА
 
Добрый день нужна помощь.
Есть задача проверить ячейки на условие

ЕСЛИ есть текст от 35" до 55" то вывести ДА
Но вопрос скорее не в этом. Я решил данную задачу так:
Код
=ЕСЛИ(ИЛИ(НЕ(ЕОШ(ПОИСК({"35""";"40""";"50""";"55"""};A1))));"ДА";"НЕТ")

Как можно упростить массив что бы его не перечислять весь а указать поиск от 35" до 55"
Извлечение из целого текста значения в заданную колонку по паттерну
 
По поводу символа табуляции который не хочет удалятся.
Код
Selection.Replace what:="Chr(9)", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Если пробовать удалить так, то он зараза не удаляется.

Код
For Each cc In Selection.Cells
cc.Value = Replace(cc.Value, Chr(9), "")
Next
А если так, то удаляется
Изменено: DartoArem - 27.12.2019 20:45:23
Извлечение из целого текста значения в заданную колонку по паттерну
 
Kuzmich,
огромное спасибо за макрос
Хочу еще спросить, можно сантиметры при переносе сразу перевести в миллиметры?
Извлечение из целого текста значения в заданную колонку по паттерну
 
Kuzmich, Спасибо.
Но можно в виде макроса, я не уверен что смогу UDF переделать
Извлечение из целого текста значения в заданную колонку по паттерну
 
Не помогло
Извлечение из целого текста значения в заданную колонку по паттерну
 
Selection.Replace what:="Chr(160)", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Пробовал так, не удаляется
Извлечение из целого текста значения в заданную колонку по паттерну
 
Добрый вечер.
Прошу вашей помощи.
---
Есть цельный текст такого вида в ячейке.
Высота, в см 48,6 Ширина, в см 31,8 Глубина, в см 30,6 Вес, в кг 8
Ширина, в см 6 Высота, в см 9 Глубина, в см 3 Вес, в граммах 520

Как в выделенном диапазоне совершить поиск по паттерну, и перенести это значение в заданную колонку

Вес, в кг ([\d\,]+)
Высота, в см ([\d\,]+)

И что бы не создавать новую тему  в примере есть строка у которой я не могу удалить символ похожий на пробел
Пробовал удалить его как символ табуляции Chr(9) но он не удаляется
Найти слово регулярным выражением и преобразовать символы в верхний регистр
 
Kuzmich,
Меня интересует в виде макроса который работает на выделенном диапазоне
И как применить UCase на определенную группу, например на $2
Найти слово регулярным выражением и преобразовать символы в верхний регистр
 
Хммм.
Бюрократ CH-994AXSN/IVORY
Бюрократ CH-994AXSN/IVORYБЮРОКРАТ CH-994AXSN/IVORY

Кресло руководителя Бюрократ T-9921/ (Brown)
Кресло руководителя Бюрократ T-9915/КРЕСЛО РУКОВОДИТЕЛЯ BROWN

Бюрократ 771/ (Grey)+BL
Бюрократ 771/+BLGREY+BL
Код
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "(Бюрократ [\S]*\/) \(([A-z]*)\)"
        For Each Rnb In Selection: Rnb.Value = .Replace(Rnb, "$1") & UCase(.Replace(Rnb, "$2"))
    Next
  End With
Изменено: DartoArem - 22.12.2019 20:46:56
Найти слово регулярным выражением и преобразовать символы в верхний регистр
 
Код
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "([\S]*\/) \(([A-z]*)\)"
        For Each Rnb In Selection: Rnb.Value = .Replace(Rnb, "$1") & UCase(.Replace(Rnb, "$2"))
    Next
  End With


buchlotnik, я верно понял?

При таком подходе

Бюрократ CH-868AXSN/ (Black)
превращается
Бюрократ CH-868AXSN/БЮРОКРАТ BLACK

Изменено: DartoArem - 22.12.2019 19:51:16
Найти слово регулярным выражением и преобразовать символы в верхний регистр
 
Добрый вечер.
Код
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "Бюрократ ([\S]*\/) \(([A-z]*)\)"
        For Each Rnb In Selection: Rnb.Value = .Replace(Rnb.Value, "$1" & "$2")
    Next
  End With

Как применить функцию UCase в макросе, что бы при возврате $2 оно записывалось в верхнем регистре.

---

Бюрократ CH-868AXSN/ (Black)

Бюрократ 771/ (Grey)+BL

---

Бюрократ CH-868AXSN/BLACK

Бюрократ 771/GREY+BL

Удаление дубликатов в ячейке слева направо
 
Юрий М,
Хватило) его вверху поста я и выложил.
Но он удаляет слово справа
Удаление дубликатов в ячейке слева направо
 
RAN, Спасибо вам огромное
Ігор Гончаренко, И вам большое спасибо за помощь
Изменено: DartoArem - 16.12.2019 09:22:33
Удаление дубликатов в ячейке слева направо
 
Выделяешь диапазон и применяешь макрос.
Любой диапазон который сам выделишь
B1:B20 или H1:H1000
Изменено: DartoArem - 16.12.2019 09:16:48
Удаление дубликатов в ячейке слева направо
 
Ігор Гончаренко,
Спасибо.
А можно в виде макроса который работает в выделенном диапазоне, пожалуйста
Удаление дубликатов в ячейке слева направо
 
К сожалению ответа я там не нашел на свой вопрос(
там есть пример как выделить цветом не первое слово, но нечего про удаление.
Страницы: 1 2 3 След.
Наверх