|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
29.08.2010, 17:36 | #1 |
Пользователь
Регистрация: 05.08.2009
Сообщений: 17
|
Возможно ли?
Еще раз приветствю всех жителей форма.
Цитата: "Только обратите внимание на то, что данный пример : - ориентирован на заполнение ячеек исключительно числовыми значениями - "запрещает" одновременное изменение данных в диапазоне ячеек" Код: Private vData Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, [A1:A100]) Is Nothing Then If IsNumeric(Target) Then vData = Target End If End Sub Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, [A1:A100]) Is Nothing Then Application.EnableEvents = False If Target.Count = 1 And IsNumeric(Target(1)) Then Target = Target + vData Else Application.Undo End If Application.EnableEvents = True End If End Sub Возможно ли увидеть из каких именно чисел состоит сумма в этом диапазоне? |
29.08.2010, 17:56 | #2 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
Зачем вообще макросы? Разрешить ввод только числовых значений можно через меню Данные - Проверка А подсчитать сумму - используйте формулу =СУММ() |
|
29.08.2010, 18:03 | #3 | |
Пользователь
Регистрация: 05.08.2009
Сообщений: 17
|
Цитата:
Необходимо,чтобы числа суммировались в диапазоне А1:А100 .И вот возможно ли потом просмотреть из чего состоит сумма. |
|
29.08.2010, 18:20 | #4 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Так годится?
webmoney: E265281470651 Z422237915069 R418926282008
|
29.08.2010, 18:37 | #5 |
Пользователь
Регистрация: 05.08.2009
Сообщений: 17
|
|
29.08.2010, 18:40 | #6 |
Пользователь
Регистрация: 05.08.2009
Сообщений: 17
|
Кстати,а если в ячейке будет отрицательное значение,можно например в красный цвет?
|
29.08.2010, 19:13 | #7 | |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
Цитата:
Условное форматирование Вам в помощь.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
|
14.01.2015, 18:27 | #8 |
Новичок
Джуниор
Регистрация: 14.01.2015
Сообщений: 1
|
Ребята, добрый вечер. Подскажите дилетанту, пож-та! Увидел этот макрос - просто супер (долго искал такой, уж очень нужен для работы). Только вопрос, как сделать так что бы можно было удалять либо редактировать данные в случае ошибок. Заранее спасибо за помощь
|
14.01.2015, 18:36 | #9 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Вбить ячейку с минусом (или плюсом, не важно - чтоб сумма была правильной), а комментарий исправить вручную.
webmoney: E265281470651 Z422237915069 R418926282008
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Возможно ли... | ReDFighteRoFevIL | Общие вопросы Delphi | 3 | 30.06.2010 17:58 |
Возможно ли? | Baaandit | БД в Delphi | 19 | 12.12.2009 22:39 |
Возможно ли...? | Dubineanschi | Microsoft Office Excel | 3 | 23.07.2008 11:39 |
Возможно ли... | Dubineanschi | Microsoft Office Excel | 2 | 23.07.2008 11:09 |
Возможно ли... | SunKnight | БД в Delphi | 9 | 27.02.2008 02:51 |