Макрос заменяющий значение ячейки, если Interior.Color != 6

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

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

Макрос заменяющий значение ячейки, если Interior.Color != 6 (Макросы/Sub)

Евгений

Дата: Суббота, 20.07.2013, 16:37 | Сообщение № 1

Группа: Гости

Добрый день. Помогите, пожалуйста, написать макрос, который бы делал следующее.
Есть файл эксель. В нем лист, где есть 10 столбиков и n-строк. Интересует функция, которая бы проходилась по 5 столбику со строки 9 до последней строки (n) и заменяла значения во всех ячейках, где Interior.Color !=(не равен) 6 по формуле "значение ячейки" делить на 1,06. Получаемое значение записывалось вместо того, что было до него.

[vba]

Код

Sub excel()
Dim i As Integer
For i = 9 To ActiveSheet.UsedRange.Rows.Count
If Cells(i, 5).Interior.Color = 6 Then
Cells(i, 5) = Cells(i, 5) * 1.06
End If
Next i
End Sub

[/vba]

Сообщение отредактировал китин - Пятница, 06.11.2020, 13:29

Ответить

ShAM

Дата: Суббота, 20.07.2013, 17:09 | Сообщение № 2

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

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

Сообщений: 1347

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

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

Excel 2010

Цитата (Евгений, 20.07.2013 в 16:37, в сообщении №1)

заменяла значения во всех ячейках, где Interior.Color !=(не равен) 6 по формуле "значение ячейки" делить на 1,06.

[vba]

Код

Sub excel()
  Dim i As Long
  For i = 9 To ActiveSheet.UsedRange.Rows.Count
  If Cells(i, 5).Interior.Color <> 6 Then
  Cells(i, 5) = Cells(i, 5) / 1.06
  End If
  Next i
  End Sub

[/vba]
оно?