Макрос для xl

@pps14 · Регистрация: 08.02.2018

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

Добрый день. Подскажите макрос для xl, идея такая, если закрашена ячейка в строке то в ней появляется значение (=F13/P13). спасибо за помощь.

@Narimanych · 11.02.2023, 22:53

pps14,

Visual Basic

Sub mmm()
Application.ScreenUpdating = False
lr = Cells(Rows.Count, 48).End(xlUp).Row
lc = Cells(7, Columns.Count).End(xlToLeft).Column
For i = 11 To lr
    For j = 50 To lc
        If Cells(i, j).DisplayFormat.Interior.Color = 5296274 Then
            Cells(i, j).Formula = "=" & Cells(i, 6).MergeArea.Cells(1, 1).Address & " / " & Cells(i, 16).Address
        End If
    Next
Next
Application.ScreenUpdating = True
 
MsgBox "OK"
 
End Sub

А это ваш файл...

@pps14 · 12.02.2023, 13:38 **[ТС]**

не работает, выдает ошибку

@Narimanych · 12.02.2023, 15:48

pps14,

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

не работает, выдает ошибку

Где и какую..

Покажите...

@pps14 0 / 0 / 0 Регистрация: 08.02.2018 Сообщений: 73
		1
	Excel Макрос для xl 11.02.2023, 21:52. Показов 401. Ответов 3 Метки макрос (Все метки) Добрый день. Подскажите макрос для xl, идея такая, если закрашена ячейка в строке то в ней появляется значение (=F13/P13). спасибо за помощь. 0

@pps14 0 / 0 / 0 Регистрация: 08.02.2018 Сообщений: 73
	12.02.2023, 13:38 [ТС]	3
	не работает, выдает ошибку 0

@Narimanych 2739 / 1714 / 778 Регистрация: 23.03.2015 Сообщений: 5,429
	12.02.2023, 15:48	4
	pps14, Сообщение от pps14 не работает, выдает ошибку Где и какую.. Покажите... 0