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

@cyberguy · Регистрация: 09.10.2013

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

Как сдлеать так, чтобы в выделеннных ячейках (столбце) выделить только те ячейки, в комментариях к которым есть заданный текст (в частности перенос строки Chr(10)?

@KoGG · 10.10.2013, 15:04

Эта тема для раздела VBA.

Visual Basic

Sub Select_Comments_CHR10()
    Dim c As Range, Rezult As Range
    For Each c In Selection.Cells
        If Not c.Comment Is Nothing Then
            If InStr(1, c.Comment.Text, Chr(10)) > 0 Then
                If Rezult Is Nothing Then
                    Set Rezult = c
                Else
                    Set Rezult = Union(Rezult, c)
                End If
            End If
        End If
    Next c
    If Not Rezult Is Nothing Then Rezult.Select
End Sub

@cyberguy · 10.10.2013, 17:38 **[ТС]**

Огромное СПАСИБО, KoGG!!! То, что нужно! ))

P.S.:

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

Эта тема для раздела VBA.

От оно че, Михалыч! Наверное, поэтому мою тему игнорили )

@cyberguy 1 / 1 / 1 Регистрация: 09.10.2013 Сообщений: 32
		1
	Выделить только те ячейки, в примечаниях к которым есть перенос строки 09.10.2013, 20:29. Показов 803. Ответов 2 Метки нет (Все метки) Как сдлеать так, чтобы в выделеннных ячейках (столбце) выделить только те ячейки, в комментариях к которым есть заданный текст (в частности перенос строки Chr(10)? 0

@cyberguy 1 / 1 / 1 Регистрация: 09.10.2013 Сообщений: 32
	10.10.2013, 17:38 [ТС]	3
	Огромное СПАСИБО, KoGG!!! То, что нужно! )) P.S.: Сообщение от KoGG Эта тема для раздела VBA. От оно че, Михалыч! Наверное, поэтому мою тему игнорили ) 0