как получить разницу крайних цифр столбца - Microsoft Office Excel - Страница 2

A4Hedge · 20.06.2014, 18:22

Игорь, есть есть еще один вопрос.
В эксель выводиться из программы, Квик (может быть знаете) по DDE информация, в ячейки, например А1 и В1.
Это цифры, они изменяются один раз в секунду.
Как сделать так, чтобы эксель записывал эти изменения попорядку в столбик и оставлял их? чтобы в конце дня работать с данными

IgorGO · 20.06.2014, 18:44

1. в любую ячейку какую-нибудь формулу в которой используются В1. например =СЧЕТ(B1).

2. в модуль листа этот

Код:

Private Sub Worksheet_Calculate()
  Dim r As Long
  r = Cells(Rows.Count, 1).End(xlUp).Row
  Cells(r + 1, 1) = [a1]:  Cells(r + 2, 1) = [b1]
End Sub

A4Hedge · 20.06.2014, 20:36

что такое модуль листа?

IgorGO · 20.06.2014, 20:45

правой кнопкой по ярлыку листа,
"исходный текст"
попадете в модуль листа, скопируйте туда макрос. файл необходимо сохранить в формате с поддержкой макросов.

A4Hedge · 20.06.2014, 22:01

видимо везде есть ньансы, прикрепил файл, нужно чтобы вторая строка как раз записывалась полностью.
думаю так будет быстрее сделать, чем самому тыкаться.

хотя с макросами и одной ячейкой работало

IgorGO · 21.06.2014, 04:01

см.вложение

A4Hedge · 27.06.2014, 16:12

Игорь, день добрый, уезжал. Сегодня тестирую. Кину на кошелек если все гуд. Спасибо

A4Hedge · 30.06.2014, 12:23

ПРОВЕРИЛ, ВСЕ ГУД - КИНУЛ!!! СПАСИБО!!!

20.06.2014, 18:22	#11
A4Hedge Пользователь Регистрация: 17.06.2014 Сообщений: 12	вопрос Игорь, есть есть еще один вопрос. В эксель выводиться из программы, Квик (может быть знаете) по DDE информация, в ячейки, например А1 и В1. Это цифры, они изменяются один раз в секунду. Как сделать так, чтобы эксель записывал эти изменения попорядку в столбик и оставлял их? чтобы в конце дня работать с данными

20.06.2014, 18:44	#12
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	1. в любую ячейку какую-нибудь формулу в которой используются В1. например =СЧЕТ(B1). 2. в модуль листа этот Код: `Private Sub Worksheet_Calculate() Dim r As Long r = Cells(Rows.Count, 1).End(xlUp).Row Cells(r + 1, 1) = [a1]: Cells(r + 2, 1) = [b1] End Sub` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

20.06.2014, 20:45	#14
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	правой кнопкой по ярлыку листа, "исходный текст" попадете в модуль листа, скопируйте туда макрос. файл необходимо сохранить в формате с поддержкой макросов. Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Определить превышает ли сумма крайних цифр сумму средних цифр в заданном четырехзначном числе. (Delphi)	shablakov	Помощь студентам	4	24.06.2013 13:21
Сумма цифр j столбца матрицы	vitik	Общие вопросы C/C++	1	01.10.2012 10:18
Как получить данные из 2 столбца DBGrid?	Aza-Zel	БД в Delphi	6	21.08.2012 09:32
Получить разницу между указателями.	Alex Cones	Общие вопросы Delphi	0	02.07.2010 15:54
Получить разницу Даты	MAcK	Общие вопросы Delphi	1	04.12.2008 17:19

20.06.2014, 20:36	#13
A4Hedge Пользователь Регистрация: 17.06.2014 Сообщений: 12	что такое модуль листа?

27.06.2014, 16:12	#17
A4Hedge Пользователь Регистрация: 17.06.2014 Сообщений: 12	Игорь, день добрый, уезжал. Сегодня тестирую. Кину на кошелек если все гуд. Спасибо

30.06.2014, 12:23	#18
A4Hedge Пользователь Регистрация: 17.06.2014 Сообщений: 12	ПРОВЕРИЛ, ВСЕ ГУД - КИНУЛ!!! СПАСИБО!!!