Подсчет данных введенных в одной ячейке. - Microsoft Office Excel - Страница 2

The_Prist · 13.04.2010, 15:26

Цитата:

Сообщение от Hagen83

сразу счел, что здесь без макросов не обойтись и удивился, когда меня спросили чем сделать: формулами или макросом)

Вот так можно без макросов. Применены именованные формулы.

anatol07 · 15.06.2013, 12:25

Добрый день форумчане. помогите с такой задачей.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
Application.EnableEvents = False
Range("B1") = Range("B1") + Range("A1")
Range("A1").ClearContents
Application.EnableEvents = True

End If

End Sub

Надо добавить в макрос, чтобы в ячейке А1 добавлялось число, которое будет появляться по условию допустим если В2 = 10 то А1=1 и после появления в А1 единицы А2 подсчитывает количество единиц в А1

Поясню
В2 - счетчик который доходит до 10 потом обнуляется и считает сначала до 10
А1- счет количества обнулений В2 (при появлении 1 сумируется в В1 и обнуляется)
В1 - сумма количества обнулений А1

Спасибо за ранее

anatol07 · 15.06.2013, 12:31

Добрый день форумчане. помогите с такой задачей.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
Application.EnableEvents = False
Range("B1") = Range("B1") + Range("A1")
Range("A1").ClearContents
Application.EnableEvents = True

End If

End Sub

Надо добавить в макрос, чтобы в ячейке А1 добавлялось число, которое будет появляться по условию допустим если В2 = 10 то А1=1 и после появления в А1 единицы А2 подсчитывает количество единиц в А1

Поясню
В2 - счетчик который доходит до 10 потом обнуляется и считает сначала до 10
А1- счет количества обнулений В2 (при появлении 1 сумируется в В1 и обнуляется)
В1 - сумма количества обнулений А1

Спасибо за ранее

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
изменение текстовых данных в одной ячейке	Bordyug	Microsoft Office Excel	2	19.02.2010 15:07
Как написать макрос на перемену данных в одной ячейке	nadia111	Microsoft Office Excel	4	19.12.2009 13:17
Проверка введенных данных	viscas	PHP	4	01.06.2009 02:41
суммирование данных, введенных в форму	German	Microsoft Office Excel	4	02.02.2009 07:31
проверка введенных данных	Elm0	Общие вопросы Delphi	4	19.12.2008 19:00

15.06.2013, 12:25	#12
anatol07 Новичок Джуниор Регистрация: 11.11.2012 Сообщений: 2	Добрый день форумчане. помогите с такой задачей. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("A1").Address Then Application.EnableEvents = False Range("B1") = Range("B1") + Range("A1") Range("A1").ClearContents Application.EnableEvents = True End If End Sub Надо добавить в макрос, чтобы в ячейке А1 добавлялось число, которое будет появляться по условию допустим если В2 = 10 то А1=1 и после появления в А1 единицы А2 подсчитывает количество единиц в А1 Поясню В2 - счетчик который доходит до 10 потом обнуляется и считает сначала до 10 А1- счет количества обнулений В2 (при появлении 1 сумируется в В1 и обнуляется) В1 - сумма количества обнулений А1 Спасибо за ранее

15.06.2013, 12:31	#13
anatol07 Новичок Джуниор Регистрация: 11.11.2012 Сообщений: 2	Добрый день форумчане. помогите с такой задачей. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("A1").Address Then Application.EnableEvents = False Range("B1") = Range("B1") + Range("A1") Range("A1").ClearContents Application.EnableEvents = True End If End Sub Надо добавить в макрос, чтобы в ячейке А1 добавлялось число, которое будет появляться по условию допустим если В2 = 10 то А1=1 и после появления в А1 единицы А2 подсчитывает количество единиц в А1 Поясню В2 - счетчик который доходит до 10 потом обнуляется и считает сначала до 10 А1- счет количества обнулений В2 (при появлении 1 сумируется в В1 и обнуляется) В1 - сумма количества обнулений А1 Спасибо за ранее