Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Visual Basic
Перезагрузить страницу Поиск макросом текста в Excel
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Anozit Anozit вне форума
Новичок
 
Сообщений: 3
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 02.06.2015
Question Поиск макросом текста в Excel - 02.06.2015, 21:20

День добрый. С помощью макроса ищу текст, который находится в первой строчке, т.е. его позиция может меняться. Подскажите, как сделать выделение столбца, в котором находится этот текст?
Ответить с цитированием
  (#2 (permalink)) Старый
pashulka pashulka вне форума
Member
 
Сообщений: 1,872
Сказал(а) спасибо: 2
Поблагодарили 57 раз(а) в 53 сообщениях
Регистрация: 11.03.2005
По умолчанию 03.06.2015, 00:08

Каждый под выделением понимает своё ... так что пример, позволяющий изменить цвет заливки во всем столбце :

Код:
Private Sub Test3()
    Dim iCell As Range
    Set iCell = [1:1].Find("Text", , xlValues, xlPart)
    
    If Not iCell Is Nothing Then
       iCell.EntireColumn.Interior.Color = vbYellow
       'iCell.EntireColumn.Interior.ColorIndex = 6
       'Columns(iCell.Column).Interior.Color = 65535
    End If
End Sub
Ответить с цитированием
Пользователь сказал cпасибо:
Anozit (03.06.2015)
  (#3 (permalink)) Старый
Anozit Anozit вне форума
Новичок
 
Сообщений: 3
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 02.06.2015
По умолчанию 03.06.2015, 23:44

Выделение для копирования и вставки на другой лист
Ответить с цитированием
  (#4 (permalink)) Старый
Egorro Egorro вне форума
Специалист
 
Аватар для Egorro
 
Сообщений: 13,078
Сказал(а) спасибо: 402
Поблагодарили 2,129 раз(а) в 2,056 сообщениях
Регистрация: 06.01.2011
Адрес: Чубаксары
По умолчанию 04.06.2015, 00:23

Цитата:
Сообщение от Anozit Посмотреть сообщение
Выделение для копирования и вставки на другой лист
ActiveCell.EntireColumn.Select
Ответить с цитированием
Пользователь сказал cпасибо:
Anozit (04.06.2015)
  (#5 (permalink)) Старый
pashulka pashulka вне форума
Member
 
Сообщений: 1,872
Сказал(а) спасибо: 2
Поблагодарили 57 раз(а) в 53 сообщениях
Регистрация: 11.03.2005
По умолчанию 04.06.2015, 08:34

Программное выделение и активация об'екта, в большинстве случаев, вещь абсолютно лишняя и Ваш пример не исключение.

Код:
Private Sub Test4()
    Dim iCell As Range
    Set iCell = Лист1.[1:1].Find("Активация", , xlValues, xlPart)
    
    If Not iCell Is Nothing Then 
       iCell.EntireColumn.Copy Лист2.[A1]
    End If
End Sub
Код:
Private Sub Test5()
    Dim iCell As Range
    Set iCell = Лист1.[1:1].Find("Активация", , xlValues, xlPart)
    
    If iCell Is Nothing Then Exit Sub
    iCell.EntireColumn.Copy Лист2.[A1]
End Sub
Вложения
Тип файла: zip Sample_for_Anozit.zip (8.0 Кб, 8 просмотров)
Ответить с цитированием
Пользователь сказал cпасибо:
Anozit (04.06.2015)
Ads.
  (#6 (permalink)) Старый
Anozit Anozit вне форума
Новичок
 
Сообщений: 3
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 02.06.2015
По умолчанию 04.06.2015, 14:24

Я понял, спасибо
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите с макросом в Excel-удаление повторов Alex1985 Вопросы начинающих программистов 1 23.10.2011 16:25
Поиск текста - VBS KaKTuZ Вопросы начинающих программистов 1 07.09.2011 17:58
Помогите построить макросом диаграмму в Excel? Alex1985 Вопросы начинающих программистов 3 13.08.2011 19:56
Поиск фрагмент текста terek Delphi 3 21.08.2007 12:35
Поиск текста в memo Route Delphi 6 24.07.2007 18:32
Перенос кнопки с макросом в VBA Excel Cover Story Visual Basic 6 15.03.2007 10:27
Поиск текста в файле navigator2005 Delphi 3 28.02.2006 18:55
HELP! Проблема с макросом Excel. Подскажите как решить, плз glazunov Visual Basic 2 29.07.2005 07:19
Поиск текста в RichEdit Templar C++ Builder 2 24.11.2003 20:53
Переименование макросом в Excel файла Anonymous Visual Basic 0 17.10.2003 14:30
Не открывается Excel-файл с макросом Anonymous Visual Basic 5 18.09.2003 17:01
Excel-книга с макросом и VB 6.0 Amok Visual Basic 1 28.07.2003 22:28



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов