Выделить диапазон по условию, применить формулу

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выделить диапазон по условию, применить формулу (Макросы/Sub)

Elektr0

Дата: Вторник, 11.11.2014, 22:04 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

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

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

Excel 2010

Нужно выделить диапазон ячеек со значением >= 24000000
и к этим ячейкам применить формулу - вычесть 24000000

в файле пример как есть и как нужно

чайник в этом деле, нужно очень

Буду премного благодарен

К сообщению приложен файл: 3042580.xlsx (16.9 Kb)

Evgeniy

Ответить

Формуляр

Дата: Вторник, 11.11.2014, 22:16 | Сообщение № 2

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

Ранг: Ветеран

Сообщений: 832

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

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

Excel 2003, 2013

Код

= MOD(Лист1!A1, 24000000)

Excel 2003 EN, 2013 EN

Ответить

Elektr0

Дата: Вторник, 11.11.2014, 22:24 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

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

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

Excel 2010

нано именно с помощью макроса при команде

При нажатии кнопки определяется диапазон и к нему применяется вычесление

Evgeniy

Сообщение отредактировал Elektr0 - Вторник, 11.11.2014, 22:26

Ответить

buchlotnik

Дата: Вторник, 11.11.2014, 23:00 | Сообщение № 4

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

Так?
А вообще, если вам нужен МАКРОС, прикладывать *.xlsx нехорошо
[vba]

Код

Sub vychet()
      Dim i As Long, j As Long
      j = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
      For i = 1 To j
          If [a1].Offset(i - 1, 0).Value > 24000000 Then [a1].Offset(i - 1, 0).Value = [a1].Offset(i - 1, 0).Value - 24000000
      Next i
End Sub

[/vba]