Заполнение ячеек с определенным значением

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Заполнение ячеек с определенным значением - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заполнение ячеек с определенным значением (Макросы/Sub)

Заполнение ячеек с определенным значением

Sevn

Дата: Понедельник, 08.12.2014, 01:41 | Сообщение № 1

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

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

Сообщений: 5

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

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

Excel 2010

В книге есть столбец с цифрами, нужно в те ячейки, цифры в которых <1 положить допустим цифру "5". Замена цифр, которые меньше 1 должна происходить по нажатию на кнопку. Подскажите пожалуйста, как это реализовать через VBA.
Спасибо.

К сообщению приложен файл: 9568589.xlsm (17.1 Kb)

Ответить

Cheshir0067

Дата: Понедельник, 08.12.2014, 03:33 | Сообщение № 2

Группа: Проверенные

Ранг: Новичок

Сообщений: 35

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

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

Excel 2010

Держите:
[vba]

Код

Private Sub CommandButton1_Click()
tot = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To tot
If Sheets("Лист1").Cells(i, 1) < 0 Then
Sheets("Лист1").Cells(i, 1) = 5
End If
Next i
End Sub

[/vba]

irelandzp@gmail.com

Ответить

nilem

Дата: Понедельник, 08.12.2014, 10:15 | Сообщение № 3

Группа: Авторы

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

Сообщений: 1613

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

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

Excel 2013, 2016

или
[vba]

Код

Private Sub CommandButton1_Click()
With Range("A1", Cells(Rows.Count, 1).End(xlUp))
.Value = Evaluate("=If(" & .Address & " <1,5," & .Address & ")")
End With
End Sub

[/vba]

Яндекс.Деньги 4100159601573

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Заполнение ячеек с определенным значением (Макросы/Sub)

Страница 1 из 1
1