Помогите с кодом макроса

[AleksandrH]

Так-с, а что задание с сообщения №1 должно распространяться на всю книгу?

[Hugo121]

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

может я не так сформулировал, но поверьте я уже этот метод пробовал

И не пришло в голову что код можно редактировать? Всего делов дописать туда цикл по листам...

[IgorGO]

для тех кто имеет представление как это делается - реально всего делов-то, для остальных неподьемная задача!

[Hugo121]

Давно уже придуманы поисковики...
https://www.google.ru/#newwindow=1&q...B0%D0%BC+excel

[IgorGO]

Игорь,
как думаешь, сколько времени тебе потребуется чтобы склеить модель планера который смог бы пролететь 200м? (при наличии интернета, описаний, чертежей, при возможности закупить необходимые материалы и инструменты)

а сколько времени на это уйдет у человека, который уже сделал не 1 тыс. таких моделей?

не обязаны и не могут все быть программистами.
не считаю программирование уделом избранных, не видел нимба ни над одним из программистов, но считаю этот вид деятельности довольно специфическим, требующим базовых навыков и знаний (причем довольно абстрактных, не связанных с обычной бытовой деятельностью)


очевидно,
что подсказки близкие к решению, но не дающие точного решения бесполезны автору тему.
а точное решение ТС может получить тогда, когда соберется с силами и сделает точное описание своей задачи или... методом последовательных приближений, широко используемым в математике для получения приблизительных решений)))
усилиями AleksandrH уже полдесятка приближений сделано
теперь для Haguro очень важно чтобы AleksandrH не потерял интерес к этой задаче

[Haguro]

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

И не пришло в голову что код можно редактировать? Всего делов дописать туда цикл по листам...

я не программист и о том что существует visual basic я узнал буквально пару дней назад, иначе бы просто не создавал тему

сейчас мне нужно выполнить задачи

1. найти поле с текстом "Сводная таблица" и сделать это поле 11 шрифтом
2. найти поле с текстом "сводная таблица" и взять его в рамку, а так же взять в рамку ячейку справа от ячейки с текстом "сводная таблица" (она меняется, поэтому найти её по значению невозможно)

[AleksandrH]

и все же интересует

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

Так-с, а что задание с сообщения №1 должно распространяться на всю книгу?

[Haguro]

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

и все же интересует

на 1 лист книги

[AleksandrH]

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

я не программист и о том что существует visual basic я узнал буквально пару дней назад, иначе бы просто не создавал тему

сейчас мне нужно выполнить задачи

1. найти поле с текстом "Сводная таблица" и сделать это поле 11 шрифтом
2. найти поле с текстом "сводная таблица" и взять его в рамку, а так же взять в рамку ячейку справа от ячейки с текстом "сводная таблица" (она меняется, поэтому найти её по значению невозможно)

Ну так соединить 2 кода в один! Не

Sub Макрос1()
'
' Макрос1 Макрос
'

'
    Dim oFind As Range
    Set oFind = Cells.Find(What:="Прямые затраты", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False)
    If Not (oFind Is Nothing) Then
        If oFind.Row > 1 Then
            Cells(oFind.Row - 1, oFind.Column) = "СВОДНАЯ"
            Range(Cells(oFind.Row - 1, oFind.Column), Cells(oFind.Row - 1, oFind.Column + 1)).Font.Size = 11
            Range(Cells(oFind.Row - 1, oFind.Column), Cells(oFind.Row - 1, oFind.Column + 1)).Borders(xlEdgeLeft).LineStyle = xlContinuous
            Range(Cells(oFind.Row - 1, oFind.Column), Cells(oFind.Row - 1, oFind.Column + 1)).Borders(xlEdgeLeft).Weight = xlThin
            Range(Cells(oFind.Row - 1, oFind.Column), Cells(oFind.Row - 1, oFind.Column + 1)).Borders(xlEdgeTop).LineStyle = xlContinuous
            Range(Cells(oFind.Row - 1, oFind.Column), Cells(oFind.Row - 1, oFind.Column + 1)).Borders(xlEdgeTop).Weight = xlThin
            Range(Cells(oFind.Row - 1, oFind.Column), Cells(oFind.Row - 1, oFind.Column + 1)).Borders(xlEdgeBottom).LineStyle = xlContinuous
            Range(Cells(oFind.Row - 1, oFind.Column), Cells(oFind.Row - 1, oFind.Column + 1)).Borders(xlEdgeBottom).Weight = xlThin
            Range(Cells(oFind.Row - 1, oFind.Column), Cells(oFind.Row - 1, oFind.Column + 1)).Borders(xlEdgeRight).LineStyle = xlContinuous
            Range(Cells(oFind.Row - 1, oFind.Column), Cells(oFind.Row - 1, oFind.Column + 1)).Borders(xlEdgeRight).Weight = xlThin
            Range(Cells(oFind.Row - 1, oFind.Column), Cells(oFind.Row - 1, oFind.Column + 1)).Borders(xlInsideVertical).LineStyle = xlContinuous
            Range(Cells(oFind.Row - 1, oFind.Column), Cells(oFind.Row - 1, oFind.Column + 1)).Borders(xlInsideVertical).Weight = xlThin
            Range(Cells(oFind.Row - 1, oFind.Column), Cells(oFind.Row - 1, oFind.Column + 1)).Borders(xlInsideHorizontal).LineStyle = xlContinuous
            Range(Cells(oFind.Row - 1, oFind.Column), Cells(oFind.Row - 1, oFind.Column + 1)).Borders(xlInsideHorizontal).Weight = xlThin
        End If
    End If
End Sub