Вывод данных из меняющейся ячейки на другой лист / Visual Basic

ReSQL.ru

2.0.59

Полная версия Контакт Правила FAQ Помощь

Гость

Войти | Профиль | Очистить

Нов. | Гор. | Избр.

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Действия ...

Доб. в избранное
Игнор. тему
Прикреп. тему
Пометить прочит. / непрочит.
Фильтр:
Сообщения автора темы
Сообщение содержит вложения
Сообщение содержит картинки
Сообщение содержит видеоклипы
Сообщение содержит аудиоклипы
Сообщение содержит картинки или видео 18+

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Вывод данных из меняющейся ячейки на другой лист / 1 сообщений из 1, страница 1 из 1

12.09.2018, 12:08

#39701368

Alkhimik

Гость

Вывод данных из меняющейся ячейки на другой лист

Вывод данных из меняющейся ячейки на другой лист
Уважаемые форумчане, такая задача:
На листе имеется таблица данных, которые изменяются в зависимости от данных, задаваемых счетчиком. При определенных условиях в ячейке ( в моем примере в ячейке BV11) появляются показания счетчика. Необходимо, чтобы первое показание счетчика, которое будет больше 0, отразилось на другом листе в такой же строке (А11), следующее - отразилось в ячейке В11 и так далее. Сколько таких значений будет - неизвестно. Имеется макрос счетчика:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.

Public Sub Counter()
Dim CounterCell
Set CounterCell = ActiveSheet.Range("K1")
CounterCell.Value = 0
Do While CounterCell.Value < 1000000
CounterCell.Value = CounterCell.Value + 0.01
Loop
End Sub

Модератор: Учимся использовать тэги оформления кода - FAQ

В приложенном примере приводится только одна строка массива. Таких строк больше 1000. Надо что бы данные выводились для всех строк массива и для всех значимых ячеек: BV11:DV1100, CD11:CD1100, DS11:DS1100, DT11:DT1100, DU11:DU1100. Для каждого столбца свой новый лист.

Как можно решить эту задачу?

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/search_topic.php?author=%D0%92%D0%BB%D0%B0%D0%B4%D0%B8%D0%BC%D0%B8%D1%80%D0%93%D0%9A&author_mode=last_posts&do_search=1]:	0ms
get settings:	10ms
get forum list:	13ms
get settings:	11ms
get forum list:	14ms
check forum access:	3ms
check topic access:	3ms
track hit:	48ms
get topic data:	12ms
get forum data:	3ms
get page messages:	27ms
get tp. blocked users:	2ms
others:	440ms

total:	586ms