Макрос для создания значения от 1 до 5

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

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

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

osuna

Дата: Пятница, 05.06.2015, 18:02 | Сообщение № 1

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

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

Сообщений: 64

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

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

Excel 2010

Добрый день.
Подскажите пожалуйста как сделать макрос который будет по правому щелчку мыши в определенном диапазоне расставлять значения от 1 до 5 (в примере диапазон в котором должны быть эти значения это D2:D15 )
Суть в том что по нажатию клавиши мышки должна появляться только одна цифра. Смысл заключается в том, что не все строки будут с этими цифрами, а всего 5.
И еще если мы например расставили с помощью макроса эти значения а потом убрали какое то из них то значения должны меняться (т.е мы из D2 убрали 1, значит D7 стало 1 а не 2 )
Заранее огромное спасибо )))

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

С уважением, Владимир.

Ответить

KSV

Дата: Пятница, 05.06.2015, 18:29 | Сообщение № 2

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

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

Сообщений: 770

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

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

Excel 2013

как вариант:
[vba]

Код

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
     If Intersect(Target, Range("D2:D15")) Is Nothing Then Exit Sub
     Target.FormulaR1C1 = "=COUNT(R1C:R[-1]C)+1"
     Cancel = True
End Sub

[/vba]

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

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333

Сообщение отредактировал KSV - Пятница, 05.06.2015, 18:33

Ответить

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

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