Вставка знака в диапазон

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

Вставка знака в диапазон (Макросы/Sub)

VIDEO56

Дата: Среда, 18.11.2015, 11:31 | Сообщение № 1

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

Ранг: Обитатель

Сообщений: 262

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

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

Excel 2010

Добрый день! Прошу помочь в решении задачи. Нужен макрос, с помощью которого оператор мог вносить факт совершения звонка. Есть диапазон C6:AZ10, нужно при вызове макроса в ячейку вносить знак +, т.е. последовательно в 6 строке, при ее заполнении в 7 и тд до 10 строки.

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

Всем удачного дня!

Ответить

Manyasha

Дата: Среда, 18.11.2015, 11:47 | Сообщение № 2

Группа: Модераторы

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

Сообщений: 2198

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

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

Excel 2010, 2016

VIDEO56, я не очень поняла: привнесении "+" в C6, заполнить плюсиками С7-С10? Или как?

ЯД: 410013299366744 WM: R193491431804

Ответить

VIDEO56

Дата: Среда, 18.11.2015, 11:50 | Сообщение № 3

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

Ранг: Обитатель

Сообщений: 262

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

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

Excel 2010

Manyasha, оператор делает звонок, нажимает макрос + ставиться в С6, еще раз макрос, D6, и тд. При заполнении 6 сроки переход на 7-ю

Всем удачного дня!

Ответить

Manyasha

Дата: Среда, 18.11.2015, 12:17 | Сообщение № 4

Группа: Модераторы

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

Сообщений: 2198

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

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

Excel 2010, 2016

VIDEO56, только в первой таблице? Если да, то, например так:
[vba]

Код

Sub plus()
Dim kol: kol = WorksheetFunction.CountA(Range("C6:AZ10"))
If Int(kol / 50) < 5 Then Range("c6").Offset(Int(kol / 50), kol Mod 50) = "+"
End Sub

[/vba]

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

ЯД: 410013299366744 WM: R193491431804

Ответить

VIDEO56

Дата: Среда, 18.11.2015, 12:38 | Сообщение № 5

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

Ранг: Обитатель

Сообщений: 262

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

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

Excel 2010

Manyasha, спасибо. То что нужно

Всем удачного дня!

Ответить

_Boroda_

Дата: Среда, 18.11.2015, 14:01 | Сообщение № 6

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

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

Сообщений: 17006

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Еще вариант
[vba]

Код

Sub plus()
Dim kol: kol = WorksheetFunction.CountA(Range("C6:AZ10")) + 1
If Range("C6:AZ6")(kol).Row < 11 Then Range("C6:AZ6")(kol) = "+"
End Sub

[/vba]

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

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Вставка знака в диапазон (Макросы/Sub)

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