Поиск и копирование с помощью макроса

Старая форма входа

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

tatovich

Дата: Среда, 19.12.2012, 19:52 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

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

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

Всем доброго времени суток!

Коллеги, помогите.
В VB полный дилетант. В режиме записи макросов вроде получил то, что хотел, за исключением одного.
- Как в определенной строке (допустим первой) сделать поиск (пусть будет "вася") и скопировать значение ячейки содержащей "вася" в буфер.
Заранее благодарен!

ps.
Уважаемый модератор, если ошибся с темой, - не ругай, а подскажи. Я Исправлюсь. Хотя вроде все правильно.

Сообщение отредактировал tatovich - Среда, 19.12.2012, 20:27

Ответить

Michael_S

Дата: Среда, 19.12.2012, 20:04 | Сообщение № 2

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

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

Сообщений: 2012

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

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

Excel2016

Скопировали в буфер - дальше что?

Ответить

tatovich

Дата: Среда, 19.12.2012, 20:07 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

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

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

Дальше вставлю в нужную ячейку

Ответить

Serge_007

Дата: Среда, 19.12.2012, 20:13 | Сообщение № 4

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Quote (tatovich)

- Как в определенной строке (допустим первой) сделать поиск (пусть будет "вася") и скопировать значение ячейки содержащей "вася" в буфер.

Странная задача какая-то...
Если Вы заранее знаете что в после поиска должно получиться "вася", то что мешает просто присвоить это значение переменной?
А дальше делайте с ней что хотите

[offtop]

Quote (tatovich)

полный дителант

Кто это? :)[/offtop]

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Alex_ST

Дата: Среда, 19.12.2012, 22:31 | Сообщение № 5

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

Ранг: Участник клуба

Сообщений: 3213

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

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

2003

Quote (tatovich)

Как в определенной строке (допустим первой) сделать поиск (пусть будет "вася") и скопировать значение ячейки содержащей "вася" в буфер

Ну, если точно по ТЗ, то можно так:[vba]

Code

Sub Find_and_PutInClipBoard()
     Dim rFind As Range: Set rFind = ActiveSheet.Range("1:1").Find("вася")
     If rFind Is Nothing Then Exit Sub
     With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
         .SetText rFind.Value: .PutInClipBoard
     End With
End Sub

[/vba]
Но ведь сейчас куча дополнительных вопросов возникнет...

С уважением,
Алексей
MS Excel 2003 - the best!!!

Ответить

Поиск и копирование с помощью макроса

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