Как из динамических данных одной ячейки сформировать массив данных?

@gramp · Регистрация: 26.12.2010

Студворк — интернет-сервис помощи студентам

есть динамически рассчитываемые данные в ячейке, как эти значения получать в другой лист этой же книги и чтобы массив данных заполнялся построково через 10 минут?
было бы очень хорошо, если бы в первом столбце проставлялось текущее время, а во втором столбце данные той самой ячейки
если есть возможность, помогите сделать подобный макрос
спасибо

@Busine2009 · 26.12.2010, 09:09

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

было бы очень хорошо,

если бы вы предложения начинали писать с большой буквы - так легче читается.

Добавлено через 2 минуты

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

и чтобы массив данных заполнялся построково через 10 минут?

а где массив находится?

@gramp · 26.12.2010, 09:14 **[ТС]**

Хорошо, буду писать с большой буквы )
Массив находится в этой же книге на другом листе или в другой книге - неважно, главное, чтобы работало. Не могу понять, как значение ячейки записывать каждый раз в новую строку.

@Busine2009 · 26.12.2010, 10:14

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

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

Я тоже постоянно забываю, как определить последнюю заполненную строку, т.к. редко в Excel работаю. Вспоминаю с помощью записи макроса с помощью макрорекордера: Сервис - Макрос - Начать запись - Ctrl + End - Сервис - Макрос - Остановить запись.
Вот так определяется номер последней заполненной строки на всём листе:

Visual Basic
1
2
3
Sub Макрос8()
Debug.Print Worksheets("Лист1").Range("A1").SpecialCells(xlLastCell).Row
End Sub

Добавлено через 10 минут
Определение текущей даты и времени:

Visual Basic
1
2
3
Sub m_1()
Debug.Print Now
End Sub

Определение только текущего времени:

Visual Basic
1
2
3
Sub m_1()
Debug.Print Time
End Sub

Добавлено через 18 минут
Вот весь код; осталось только написать команду, когда остановить выполнение кода:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Sub m_1()
Application.Run "m_2"
End Sub
Sub m_2()
Dim vПоследняяСтрока As Long
vПоследняяСтрока = Worksheets("Лист2").Range("A1").SpecialCells(xlLastCell).Row + 1
Worksheets("Лист2").Cells(vПоследняяСтрока, 1).Value = Format(Now, "hh:mm:ss")
Worksheets("Лист2").Cells(vПоследняяСтрока, 2).Value = Worksheets("Лист1").Range("A1").Value
Application.OnTime Now + TimeValue("00:00:10"), "m_1"
End Sub

@gramp · 26.12.2010, 14:48 **[ТС]**

При запуске m_1 появляется окно с надписью 400.
А при запуске m_2 все делает так, как надо, только через 10 секунд появляется сообщение, что m_1 не найден.
Не подскажете, почему m_1 не стартует?
Команду на остановку необязательно - могу и просто закрыть и опять открыть.

Добавлено через 14 минут
Установлен офис 2003.

@Busine2009 · 26.12.2010, 15:07

gramp,
чтобы эти макросы были доступны для всех книг Excel, поместите их (макросы) в личную книгу макросов.
Чтобы создать личную книгу макросов и поместить в неё макросы с этого форума, сделайте следующее:

Откройте пустую книгу Excel - Сервис - Макрос - Начать запись... - Сохранить в: "личная книга макросов" - Окей.
Введите букву "а" - Нажмите Enter.
Сервис - Макрос - Остановить запись.
Перейдите в VBE - там появился новый проект PERSONAL.XLS. Дважды щ. по PERSONAL.XLS - откройте любой модуль (если их там несколько) Module - поместите в него код из этого форума.
Нажмите Сохранить

@gramp · 26.12.2010, 15:48 **[ТС]**

ГИГАНТСКОЕ СПАСИБО )))

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

@gramp 0 / 0 / 0 Регистрация: 26.12.2010 Сообщений: 14

	Как из динамических данных одной ячейки сформировать массив данных? 26.12.2010, 06:35. Показов 2189. Ответов 6 Метки нет (Все метки) есть динамически рассчитываемые данные в ячейке, как эти значения получать в другой лист этой же книги и чтобы массив данных заполнялся построково через 10 минут? было бы очень хорошо, если бы в первом столбце проставлялось текущее время, а во втором столбце данные той самой ячейки если есть возможность, помогите сделать подобный макрос спасибо 0

@gramp 0 / 0 / 0 Регистрация: 26.12.2010 Сообщений: 14
	26.12.2010, 09:14 [ТС]
	Хорошо, буду писать с большой буквы ) Массив находится в этой же книге на другом листе или в другой книге - неважно, главное, чтобы работало. Не могу понять, как значение ячейки записывать каждый раз в новую строку. 0

@gramp 0 / 0 / 0 Регистрация: 26.12.2010 Сообщений: 14
	26.12.2010, 14:48 [ТС]
	При запуске m_1 появляется окно с надписью 400. А при запуске m_2 все делает так, как надо, только через 10 секунд появляется сообщение, что m_1 не найден. Не подскажете, почему m_1 не стартует? Команду на остановку необязательно - могу и просто закрыть и опять открыть. Добавлено через 14 минут Установлен офис 2003. 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	26.12.2010, 15:07
	gramp, чтобы эти макросы были доступны для всех книг Excel, поместите их (макросы) в личную книгу макросов. Чтобы создать личную книгу макросов и поместить в неё макросы с этого форума, сделайте следующее: Откройте пустую книгу Excel - Сервис - Макрос - Начать запись... - Сохранить в: "личная книга макросов" - Окей. Введите букву "а" - Нажмите Enter. Сервис - Макрос - Остановить запись. Перейдите в VBE - там появился новый проект PERSONAL.XLS. Дважды щ. по PERSONAL.XLS - откройте любой модуль (если их там несколько) Module - поместите в него код из этого форума. Нажмите Сохранить 1

@gramp 0 / 0 / 0 Регистрация: 26.12.2010 Сообщений: 14
	26.12.2010, 15:48 [ТС]
	ГИГАНТСКОЕ СПАСИБО ))) 0