Прописать в коде поиска часть слова

@Капитан Экселя · Регистрация: 27.07.2015

Студворк — интернет-сервис помощи студентам

Здравствуйте снова, уважаемые форумчане.
Помогите, пожалуйста, правильно прописать поиск в коде.
Итак у меня в коде есть строка, выполняющая поиск (код большой, переменные все объявлены).

Visual Basic
1
Set cell = Cells.Find(What:=x_text, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole)

переменная x_text определяет "что ищем" (всё объявлено и определено). Но ка кобъявить слово с отсечёнными первыми двумя буквами. Поясню: в приложенном файле (там всё показано) есть номера типа: РТАФ000112; РТАФ0001555 (в файле цифры в номера другие, но не суть это важно). Нужно, чтобы макрос искал их так: АФ000112; АФ0001555 (шёл вниз по столбцу и искал каждое значение (ну сам цикл прохода по столбцу я написал). Как это в коде прописать?

@Капитан Экселя · 29.07.2015, 10:23 **[ТС]**

Не по теме:

А как тут выделять ВБА. Вроде вес выдеояют каким-то ВБА тегом, а я его не вижу чего-то.

@Vlad999 · 29.07.2015, 10:25

Капитан Экселя, вы может не в курсе, но в xlsx макросы не живут. приложите файл с вашим макросом.

Сообщение от Капитан Экселя

каким-то ВБА тегом

кнопка VB

П.С. Да и с вопросами по VBA пора переходить в соответствующую ветку форума.

@Капитан Экселя · 29.07.2015, 10:29 **[ТС]**

Сообщение от Vlad999

кнопка VB

Большое спасибо. Ну по эксель в этой ветке больше народу. А мне нужно сейчас, а не к концу дня.

@Vlad999 · 29.07.2015, 11:19

Visual Basic
1
LookAt:=xlPart

Сообщение от Капитан Экселя

Ну по эксель в этой ветке больше народу

не факт что знатоки VBA. а в ветке VBA точно больше знатаков vba.

@Капитан Экселя · 29.07.2015, 11:32 **[ТС]**

Vlad999,
Это я знаю, но как указать по какой части слова искать? К примеру, я могу искать и 000112, а могу и Ф000112, а мне надо АФ000112. Как обозначить, что именно "отсекаем"?

@Казанский · 29.07.2015, 11:43

Капитан Экселя,

Visual Basic
1
Set cell = Cells.Find(What:=x_text & "*", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole)

Поиск значений, начинающихся с текста в x_text

@Капитан Экселя · 29.07.2015, 11:54 **[ТС]**

Казанский,
Т.е. если мне надо искать АФ000112, а исходное значение выглядит как РТАФ000112, то надо писать так:

Visual Basic
1
2
x_text = АФ
Set cell = Cells.Find(What:=x_text & "*", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole)

(ну конкретную часть кода показываю)?
Так что ли?
Поясню. В столбце, в котором ищем, написано РТАФ. В столбце для поиска может быть АФ, а может быть РТАФ. Как прописать в коде поиск в столбце с РТАФ по АФ?, то есть "отсекая" РТ?

@Казанский · 29.07.2015, 12:01

Сообщение от Капитан Экселя

объявить слово с отсечёнными первыми двумя буквами

Сообщение от Капитан Экселя

мне надо искать АФ000112, а исходное значение выглядит как РТАФ000112

Visual Basic
1
2
x_text = "??АФ000112"
Set cell = Cells.Find(What:=x_text, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole)

Потренируйтесь в поиске с подстановочными знаками через Ctrl+F, Справку почитайте.

@Капитан Экселя · 29.07.2015, 12:14 **[ТС]**

Казанский,
Большущее Вам спасибо.
ПС: я отмечу ответ как лучший, но могут появиться доп вопросы, так что, если будете в сети, в тему заглядывайте. пожалуйста.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@Капитан Экселя
	29.07.2015, 10:23 [ТС]
	Не по теме: А как тут выделять ВБА. Вроде вес выдеояют каким-то ВБА тегом, а я его не вижу чего-то. 0

@Капитан Экселя 5 / 5 / 1 Регистрация: 27.07.2015 Сообщений: 88
	29.07.2015, 11:32 [ТС]
	Vlad999, Это я знаю, но как указать по какой части слова искать? К примеру, я могу искать и 000112, а могу и Ф000112, а мне надо АФ000112. Как обозначить, что именно "отсекаем"? 0

@Капитан Экселя 5 / 5 / 1 Регистрация: 27.07.2015 Сообщений: 88
	29.07.2015, 12:14 [ТС]
	Казанский, Большущее Вам спасибо. ПС: я отмечу ответ как лучший, но могут появиться доп вопросы, так что, если будете в сети, в тему заглядывайте. пожалуйста. 0

Прописать в коде поиска часть слова

Решение