Изменение ячейки +1/-1 кнопками

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

Изменение ячейки +1/-1 кнопками (Макросы/Sub)

Lolik90

Дата: Пятница, 06.06.2014, 10:32 | Сообщение № 1

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

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

Сообщений: 5

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

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

Excel 2010

Ребята, я совсем новичок в программировании. Мне очень нужна ваша помощь.
Работа связана с округлением чисел в большую или меньшую сторону. Нашел здесь на форуме макрос, позволяющий с помощью кнопок увеличивать или уменьшать значение выделенной ячейки на 1.

[vba]

Код

Sub plus()
AD = Selection.Address
Range(AD) = Range(AD) + 1
End Sub

[/vba]

Можно ли сделать так, чтобы значение ячейки приобрело вид =284+1 или =284-1
в зависимости от того, какую кнопку нажмёшь. Очень нужно потом видеть увеличилось число или уменьшилось.

И если не трудно, можно ли при любом изменении выделять ячейку зелёным цветом.

Заранее благодарен за помощь!

Сообщение отредактировал Serge_007 - Пятница, 06.06.2014, 15:55

Ответить

Dмитрий

Дата: Пятница, 06.06.2014, 11:46 | Сообщение № 2

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

Ранг: Участник

Сообщений: 91

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

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

Excel 2010

[vba]

Код

Range(AD) = Range(AD) & "+ 1"
Range(AD).Interior.ColorIndex = 43

[/vba]

Ответить

Lolik90

Дата: Пятница, 06.06.2014, 13:24 | Сообщение № 3

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

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

Сообщений: 5

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

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

Excel 2010

спасибо!

только впереди я ещё "равно" добавил, чтобы считал как формулу

"=" & Range(AD) & "+1"

Ответить

RAN

Дата: Пятница, 06.06.2014, 13:31 | Сообщение № 4

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

Цитата Lolik90, 06.06.2014 в 13:24, в сообщении № 3

~~чтобы считал как формулу~~

Чтобы получилась циклическая ссылка.

Ответить

Alex_ST

Дата: Пятница, 06.06.2014, 13:34 | Сообщение № 5

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

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

Сообщений: 3219

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

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

2003

Цитата RAN, 06.06.2014 в 13:31, в сообщении № 4

Чтобы получилась циклическая ссылка.

Эт точно!

Ответить

_Boroda_

Дата: Пятница, 06.06.2014, 13:47 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 16885

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Посмотрите такой вариант
[vba]

Код

Sub plus()
AD = Selection.Address
Range(AD).NumberFormat = """" & Abs(Range(AD)) & "+1"""
Range(AD) = Range(AD) + 1
Range(AD).Interior.ColorIndex = 43
End Sub

Sub minus()
AD = Selection.Address
Range(AD).NumberFormat = """" & Abs(Range(AD)) & "-1"""
Range(AD) = Range(AD) - 1
Range(AD).Interior.ColorIndex = 43
End Sub

[/vba]

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

Ответить

Lolik90

Дата: Пятница, 06.06.2014, 16:52 | Сообщение № 7

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

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

Сообщений: 5

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

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

Excel 2010

_Boroda_, спасибо за предложенный вариант, он вполне решает изложенную мной проблему,
правда я забыл упомянуть, что после моих правок, я загружаю эти числа в другое место и там вид числа 298+1 не подходит, меня вполне устроит обычный вариант, предложенный чуть выше

А можно ли сделать так, чтобы после первого нажатия на кнопку +, я передумав и нажал на - и ячейка вновь стала бы бесцветной и число осталось то же самое каким и было без вида формулы
=298+1 (после нажатия на плюс),
=299-1 (после нажатия на минус)
чтобы оно просто осталось 298

Как необходимо для этого преобразовать данный макрос?
[vba]

Код

Sub plus()
AD = Selection.Address
Range(AD) = "=" & Range(AD) & "+1"
Range(AD).Interior.Color = RGB(146, 208, 80)
End Sub
Sub minus()
AD = Selection.Address
Range(AD) = "=" & Range(AD) & "-1"
Range(AD).Interior.Color = RGB(146, 208, 80)
End Sub

[/vba]

Ответить

Изменение ячейки +1/-1 кнопками (Макросы/Sub)

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