Команда поиска строки в VBA

Страница 1 из 2 1 2 »
Модератор форума: китин, _Boroda_, DrMini

light26

Дата: Пятница, 11.05.2012, 19:04 | Сообщение № 1

Группа: Друзья

Ранг: Старожил

Сообщений: 1354

Репутация: 91 ±

Замечаний: 0% ±

2007, 2010, 2013

Всем привет.
Суть вопроса в файле

К сообщению приложен файл: Makros.xls (42.0 Kb)

Я не волшебник. Я только учусь

Сообщение отредактировал light26 - Пятница, 11.05.2012, 20:19

Ответить

nerv

Дата: Пятница, 11.05.2012, 19:27 | Сообщение № 2

Группа: Редакторы

Ранг: Обитатель

Сообщений: 431

Репутация: 193 ±

Замечаний: 0% ±

\как понял
[vba]

Code

Sub Example()
      With ActiveSheet.UsedRange
          .Parent.Range( _
              .Columns(1).Find("Итого:", , , xlWhole).Offset(1).Address, _
              .Cells(.Rows.Count, .Columns.Count).Address _
          ).Copy _
          Sheets.Add.Cells(1)
      End With
End Sub

[/vba]

Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba

Сообщение отредактировал nerv - Пятница, 11.05.2012, 19:30

Ответить

light26

Дата: Пятница, 11.05.2012, 20:08 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 1354

Репутация: 91 ±

Замечаний: 0% ±

2007, 2010, 2013

nerv, спасибо, но...
когда вставляю код в файл-пример, все работает.
вставляю в другой файл, изменяю в строке
[vba]

Code

.Columns(1).Find("Итого:", , , xlWhole).Offset(1).Address, _

[/vba]
Итого на другое значение, которое макрос должен найти и код не работает sad

К сообщению приложен файл: 123.xls (98.5 Kb)

Я не волшебник. Я только учусь

Сообщение отредактировал light26 - Пятница, 11.05.2012, 20:16

Ответить

Serge_007

Дата: Пятница, 11.05.2012, 22:07 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2750 ±

Замечаний: ±

Excel 2016

Quote (light26)

Итого на другое значение, которое макрос должен найти и код не работает

Вадим, в твоём файле нет значения Итого по Э: в диапазоне [vba]

Code

Columns(1)

[/vba]

ЮMoney:41001419691823 | WMR:126292472390

Ответить

RAN

Дата: Пятница, 11.05.2012, 22:09 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Вадим, может хватит на первом курсе учиться? Может в первый класс пора? angry

Тяжело найти черную кошку в темной комнате, особенно, когда ее там нет! wacko

Где в твоем файле "Итого по Э:", которое ты ищешь? Ну хоть в одном месте?

Быть или не быть, вот в чем загвоздка!

Ответить

light26

Дата: Суббота, 12.05.2012, 00:21 | Сообщение № 6

Группа: Друзья

Ранг: Старожил

Сообщений: 1354

Репутация: 91 ±

Замечаний: 0% ±

2007, 2010, 2013

Quote (RAN)

Где в твоем файле "Итого по Э:", которое ты ищешь? Ну хоть в одном месте?

В ячейке А165

Я не волшебник. Я только учусь

Ответить

light26

Дата: Суббота, 12.05.2012, 00:23 | Сообщение № 7

Группа: Друзья

Ранг: Старожил

Сообщений: 1354

Репутация: 91 ±

Замечаний: 0% ±

2007, 2010, 2013

Quote (Serge_007)

Вадим, в твоём файле нет значения Итого по Э: в диапазоне

В столбце А (Columns(1)) в 165 строке. Имя вложенного файла - 123

Я не волшебник. Я только учусь

Ответить

Serge_007

Дата: Суббота, 12.05.2012, 00:36 | Сообщение № 8

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2750 ±

Замечаний: ±

Excel 2016

Quote (light26)

Имя вложенного файла - 123

Тогда ты не тот файл выложил

ЮMoney:41001419691823 | WMR:126292472390

Ответить

light26

Дата: Суббота, 12.05.2012, 00:40 | Сообщение № 9

Группа: Друзья

Ранг: Старожил

Сообщений: 1354

Репутация: 91 ±

Замечаний: 0% ±

2007, 2010, 2013

Quote (Serge_007)

Тогда ты не тот файл выложил

Я предполагал, что не будет иметь значения содержимое файла.
Главное, что запись в столбце А должна совпадать с искомым значением. Тогда в коде достаточно будет заменить текстовое значение и все. Судя по всему ошибся, хотя не пойму в чем

Я не волшебник. Я только учусь

Ответить

RAN

Дата: Суббота, 12.05.2012, 00:53 | Сообщение № 10

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Quote (light26)

В ячейке А165

Ни в ячейке А165, ни в А163 и ни в какой другой ни в одном из выложенных файлов ячейки с текстом "Итого по Э:" НЕТ!
Есть с похожим!

Быть или не быть, вот в чем загвоздка!

Ответить

Serge_007

Дата: Суббота, 12.05.2012, 00:55 | Сообщение № 11

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2750 ±

Замечаний: ±

Excel 2016

Quote (light26)

Я предполагал, что не будет иметь значения содержимое файла.

Тогда зачем выкладывал?

Quote (light26)

запись в столбце А должна совпадать с искомым значением. Тогда в коде достаточно будет заменить текстовое значение и все.

Точно. Так и должно быть

Quote (light26)

ошибся, хотя не пойму в чем

Не тот файл выложил

ЮMoney:41001419691823 | WMR:126292472390

Ответить

light26

Дата: Суббота, 12.05.2012, 01:01 | Сообщение № 12

Группа: Друзья

Ранг: Старожил

Сообщений: 1354

Репутация: 91 ±

Замечаний: 0% ±

2007, 2010, 2013

Quote (RAN)

Ни в ячейке А165, ни в А163 и ни в какой другой ни в одном из выложенных файлов ячейки с текстом "Итого по Э:" НЕТ!

В файле 123 в ячейке А165 текст "итого по Э"
Файл 123 прикреплен в этом посте

К сообщению приложен файл: 9331593.jpg (48.6 Kb)

Я не волшебник. Я только учусь

Сообщение отредактировал light26 - Суббота, 12.05.2012, 01:07

Ответить

RAN

Дата: Суббота, 12.05.2012, 01:06 | Сообщение № 13

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Так я и говорю - НЕТ!!! biggrin

Есть похожий!
Найди отличие. tongue

Быть или не быть, вот в чем загвоздка!

Ответить

Serge_007

Дата: Суббота, 12.05.2012, 01:07 | Сообщение № 14

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2750 ±

Замечаний: ±

Excel 2016

Господи, Вадим, каким уе...щем ты скрины делаешь? Глаза можно сломать...
Но в строке формул можно разглядеть что и в этом файле тоже нет Итого по Э:

Вопрос на засыпку: Русские сколько забили? А шведы? а что между? smile

ЮMoney:41001419691823 | WMR:126292472390

Ответить

light26

Дата: Суббота, 12.05.2012, 01:10 | Сообщение № 15

Группа: Друзья

Ранг: Старожил

Сообщений: 1354

Репутация: 91 ±

Замечаний: 0% ±

2007, 2010, 2013

Quote (RAN)

Есть похожий!
Найди отличие.

Если ты про регистр, так это роли не играет. Я все перепробовал. И регистр менял и снимал объединение ячеек - результат один.

Я не волшебник. Я только учусь

Ответить

Serge_007

Дата: Суббота, 12.05.2012, 01:14 | Сообщение № 16

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2750 ±

Замечаний: ±

Excel 2016

Quote (light26)

И регистр менял и снимал объединение ячеек

Попробуй переустановить Excel. Или Винду. Но лучше сразу комп smile

Или ты просто с пивком игру смотрел? :):):)
Тогда лучше глянь эту тему завтра wink

ЮMoney:41001419691823 | WMR:126292472390

Ответить

RAN

Дата: Суббота, 12.05.2012, 01:16 | Сообщение № 17

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Ну ты нас уморить сегодня решил!
Скопируй текст Итого по Э: в А166 и введи формулу = ДЛСТР(А165), = ДЛСТР(А166) lol

Быть или не быть, вот в чем загвоздка!

Ответить

Serge_007

Дата: Суббота, 12.05.2012, 01:19 | Сообщение № 18

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2750 ±

Замечаний: ±

Excel 2016

Quote (RAN)

и введи формулу

У тебя "формулы", а одной формулой так:

Code

=A165=A166

Это если:

Quote (RAN)

Скопируй текст Итого по Э: в А166...

ЮMoney:41001419691823 | WMR:126292472390

Ответить

light26

Дата: Суббота, 12.05.2012, 01:22 | Сообщение № 19

Группа: Друзья

Ранг: Старожил

Сообщений: 1354

Репутация: 91 ±

Замечаний: 0% ±

2007, 2010, 2013

Quote (Serge_007)

Тогда зачем выкладывал?

Повторяю: предполагал, что не будет иметь значение содержимое файла

Quote (Serge_007)

Не тот файл выложил

Файл Makros.xls выложил для примера, чтобы пояснить что хочу. Когда предложенный код использовал на другом файле он не сработал. Поэтому выложил файл, на котором применил предложенный код.

Quote (Serge_007)

Господи, Вадим, каким уе...щем ты скрины делаещь? Глаза можно сломать...

PRINT SCREEN, затем открываю paint, жму shift+enter и готово.

Quote (Serge_007)

Но в строке формул можно разглядеть что и в этом файле тоже нет Итого по Э

блин, вы редиски!!! ))) а сразу не могли сказать: "Вадим, ты дубина слепошарая!!!! Какого хрена ты двоеточие ставишь после Э?"?

Я не волшебник. Я только учусь

Ответить

Serge_007

Дата: Суббота, 12.05.2012, 01:25 | Сообщение № 20

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2750 ±

Замечаний: ±

Excel 2016

Quote (light26)

предполагал, что не будет иметь значение содержимое файла

Т.е. просто для того что бы было хоть какое вложение?

Quote (light26)

а сразу не могли сказать:

Это скучно...
А так хоть поржали smile

Спокойной ночи!

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Команда поиска строки в VBA

Страница 1 из 2
1
2
»