Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Gipsy14
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
[VBA] Find. Поиск различных значений в одной ячейке (или). Ошибка Select Case, Возможно ли задать несколько ключевых слов для поиска?
 
#
17.08.2022 09:41:46
Всем доброго дня!

Ячейка может содержать разные ключевые слова (не фразы). В зависимости от этого данные переносятся в ту или иную ячейку другой таблицы.
Возможно ли при помощи функции Find (или другого способа) искать несколько ключевых слов одновременно (в фармате ИЛИ).
В первом случае происходит поиск в ячейке слова "списание", нужно чтобы было "списание или выдача или наличные".

Код
Set keyWord = Range(Cells(y, 3), Cells(x, 3))
               keyWordCash = keyWord.Find("списание", , xlValues, xlPart).Value


Если в ячейке встречается одно из этих слов, то происходит:
Код
 Select Case keyWord
                    Case Is = keyWordCash
                        Range("L2") = Range("F12")]

Код полностью:

Код
Dim keyWord As Range
Dim keyWordCash As Variant ' ключевые слова "наличные"
Dim keyWordTopOn As Range 'ключевые слова "пополнение счета", приходная операция

  x = 12
  y = 12

              
              Set keyWord = Range(Cells(y, 3), Cells(x, 3))
               keyWordCash = keyWord.Find("списание", , xlValues, xlPart).Value
              Set keyWordTopOn = keyWord.Find("пополнение", , xlValues, xlPart)
'              MsgBox keyWordCash
              
              
              Select Case keyWord
                    'снятие наличных
                    Case Is = keyWordCash
                        Range("L2") = Range("F12")
                        
                    Case Is = keyWordTopOn
                        Range("K2") = Range("F12")
                    
              End Select


Попутный вопрос.
Select case работает "сверху вниз". При выполнении первого "если" остальные пропускаются. При невыполнении первого "если" программа переходит ко второму "если". У меня же выдает ошибку: В ячейке отсутствует ключевое слово "снятие", а VBA не дает "перепрыгнуть" первый первый Case "keyWordCash" и перейти ко второму "keyWordTopOn".  Как с этим бороться? Скрины и файл с кодом прилагаю. Спасибо!
 
Перейти    
VBA. Автоматическое изменение имени рабочего файла.
 
#
13.05.2021 11:20:47
Всем доброго дня!
Появилась необходимость автоматического изменения (присвоения) имени рабочей книги (файла) перед закрытием, сохранением и т.д.

Вводные:
1. Имеется шаблон, который каждый раз копируется, переименовывается и изменяется.
2. Все необходимые данные для названия нового файла содержатся на рабочих листах.

Пожалуйста, направьте в нужную сторону.
Действия на скринах не помогли.

Спасибо!

Файлы удалены - превышение допустимого размера вложения. Для такого вопроса не нужен объем более 400 КБ, Создайте простой пример [МОДЕРАТОР]
 
Перейти    
Подсчет суммы за предыдущий месяц
 
#
12.05.2021 09:23:17
Всем доброго дня!
Выручайте, сломал голову...
Необходимо в графе Н отображать сумму начислений (графа D) за месяц, предыдущий значению в графе Е, но только в том случае, если в графе Е стоит дата. Далее, нарастающим итогом.
Если в графе Е стоит прочерк, то будет простая формула вычитания. Количество строк в периоде может быть любым, но период начинается и заканчивается началом и концом календарного месяца.
В общем, основная проблема - распознать начисления в предыдущем месяце.
Благодарю за помощь!
 
Перейти    
Автоматический перенос данных по временным интервалам, выбор нужного значения исходя из временного периода
 
#
30.07.2018 16:47:52
Всем доброго дня!
В таблице 2 указаны эталонные значения: применения определенной ставки в определенный интервал.
Задача: необходимо автоматически определять нужную ставку в таблице 1 (столбец "С") исходя из временного интервала в столбцах А и В таблицы 1.
Подойдет как функция, так и простой макрос.
Благодарю!
 
Перейти    
Выборочный перенос данных по 2ум условиям, Выбор нужных значений из массива
 
#
01.11.2017 12:45:22
Добрый день!
Пожалуйста помогите!
Из столбца J таблицы 1 автоматически переносятся данные (при условии, что значение >0) в столбец С таблицы 2.
Необходим перенос дат из таблицы 1 (столбца G или H) в таблицу 2 (в столбец b) по следующим условиям:
1. Значение в столбце J таблицы 1 > 0. (J12, J13). Это условие обязательно для соблюдения.
2. =ЕСЛИ(I13>0;H13;B13), т.е. если при этом значение в столбце I строкой ниже (I13) значение >0, то дату берем из столбца H (ячейка H14)....если значение в I <= (не больше) 0, то значение берем из столбца G (строка на 1 ниже суммы из J) - ячейка G13.
Даты должны переноситься именно по 2ум условиям.

В таблице 2 красным выделены ячейки с формулой массива, но они переносят только даты из столбца G.

Благодарю за помощь!
 
Перейти    
Горизонтальное перемещение ячейки в определенную графу. Макрос
 
#
31.08.2017 15:24:00
Всем доброго дня!
Пожалуйста, помогите решить задачу.
Есть макрос, который добавляет пустую строку, переносит ячейку и протягивает формулу.
Сам макрос:

Код
Sub Добавлление_строк_протяжка()
'
' Добавлление_строк_протяжка Макрос
' Добавляет строку, протягивает ячейку в графе 9
'
' Сочетание клавиш: Ctrl+ь
'
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
ActiveCell.Offset(-1, 9).Range("A1").Select
Selection.AutoFill Destination:=ActiveCell.Range("A1:A3"), Type:= _
xlFillDefault
ActiveCell.Range("A1:A3").Select
End Sub


Данный макрос переносит ячейку на 1 строку вверх и на 9 вправо.
Необходимо, чтобы ячейка переносилась на 1 строку вверх и строго в графу J.
Изначально выделенная ячейка может быть любой.

Пожалуйста, подскажите, что нужно изменить?
Благодарю!
Изменено: Gipsy14 - 31.08.2017 15:24:59
 
Перейти    
Автоматическое добавление заданного количества строк. Макрос
 
#
19.06.2017 15:14:51
Добрый день!
Очень нужна ваша помощь!
Необходимо сформировать автоматическое добавление строк в таблицу.
Во вкладке "данные" в поле "срок кредита" указывается значение (в данном случае 27).
Необходимо, чтобы в выделенный диапазон во вкладке "Расчет" добавлялось строк 25 строк (27-2): строки должны добавляться начиная с 13ой. Нижняя строка должна быть нетронута. Формулы во всех ячейках должны соответствовать формулам из строки 12 (то есть автоматически протягиваться).

Благодарю за помощь!
Изменено: Gipsy14 - 19.06.2017 17:48:07
 
Перейти    
Выборочный перенос данных из одного диапазона в другой.
 
#
21.04.2017 11:50:42
Добрый день, сенсеи Экселя!
Часто приходится переносить данные из одной таблицы в другую (в рамках одного листа).
Данные прописаны в столбцах. Я делаю ссылку на ячейку из "первичного" столбца и протягиваю за нижний правый угол.
Но проблема в том, что мне не нужны значения, равные нулю.
Приходится удалять строки (которых в таблице может быть до 500).
Подскажите, как при помощи формулы или простого макроса перенести только те данные, которые соответствуют условию (х>0).

Благодарю!

пример во вложении: первичные данные желтые, новые - голубые. Формат ячеек сохранен.
 
Перейти    
Страницы: 1
Наверх