Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.08.2010, 17:36   #1
Tabasco7
Пользователь
 
Регистрация: 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

Возможно ли увидеть из каких именно чисел состоит сумма в этом диапазоне?
Tabasco7 вне форума Ответить с цитированием
Старый 29.08.2010, 17:56   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Цитата:
Возможно ли увидеть из каких именно чисел состоит сумма в этом диапазоне?
В каком диапазоне?

Зачем вообще макросы?
Разрешить ввод только числовых значений можно через меню Данные - Проверка
А подсчитать сумму - используйте формулу =СУММ()
EducatedFool вне форума Ответить с цитированием
Старый 29.08.2010, 18:03   #3
Tabasco7
Пользователь
 
Регистрация: 05.08.2009
Сообщений: 17
По умолчанию

Цитата:
Сообщение от EducatedFool Посмотреть сообщение
В каком диапазоне?

Зачем вообще макросы?
Разрешить ввод только числовых значений можно через меню Данные - Проверка
А подсчитать сумму - используйте формулу =СУММ()
В диапазоне А1:А100.
Необходимо,чтобы числа суммировались в диапазоне А1:А100 .И вот возможно ли потом просмотреть из чего состоит сумма.
Tabasco7 вне форума Ответить с цитированием
Старый 29.08.2010, 18:20   #4
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Так годится?
Вложения
Тип файла: rar Книга1.rar (8.4 Кб, 17 просмотров)
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 29.08.2010, 18:37   #5
Tabasco7
Пользователь
 
Регистрация: 05.08.2009
Сообщений: 17
Хорошо

Цитата:
Сообщение от Hugo121 Посмотреть сообщение
Так годится?
Покорнейше Вас благодарю.Думаю подойдет...
Tabasco7 вне форума Ответить с цитированием
Старый 29.08.2010, 18:40   #6
Tabasco7
Пользователь
 
Регистрация: 05.08.2009
Сообщений: 17
По умолчанию

Кстати,а если в ячейке будет отрицательное значение,можно например в красный цвет?
Tabasco7 вне форума Ответить с цитированием
Старый 29.08.2010, 19:13   #7
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Цитата:
Кстати,а если в ячейке будет отрицательное значение,можно например в красный цвет?
Можно.
Условное форматирование Вам в помощь.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 14.01.2015, 18:27   #8
tva030801
Новичок
Джуниор
 
Регистрация: 14.01.2015
Сообщений: 1
По умолчанию

Ребята, добрый вечер. Подскажите дилетанту, пож-та! Увидел этот макрос - просто супер (долго искал такой, уж очень нужен для работы). Только вопрос, как сделать так что бы можно было удалять либо редактировать данные в случае ошибок. Заранее спасибо за помощь
tva030801 вне форума Ответить с цитированием
Старый 14.01.2015, 18:36   #9
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Вбить ячейку с минусом (или плюсом, не важно - чтоб сумма была правильной), а комментарий исправить вручную.
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Возможно ли... 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