С Новым годом! Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 29.11.2011
Сообщений: 7
1

Вывод данных в массивы на новые листы

13.12.2011, 13:14. Показов 1509. Ответов 9
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Доброго времени суток!

У меня есть код, написанный для скрытия строк с одинаковыми названиями.
Вопрос следующий, как можно сделать вывод результатов в массивы на новый лист?
Логика :
1)Определяем область с записями True - помещаем в массив-выводим на лист;
2)Определяем область с записями False - помещаем во второй массив - выводим на лист.
Код:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub SNIeie()
    Dim lngI As Long
    Dim objC As Range
    Dim blA As Boolean
    Application.ScreenUpdating = False
    For lngI = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        blA = False
        For Each objC In Range(Cells(lngI, 3), Cells(lngI, 13)).Cells
            If objC <> Cells(lngI, 3) Then blA = True
        Next
        If blA = False Then Rows(lngI).EntireRow.Hidden = True
    Next lngI
    Application.ScreenUpdating = True
End Sub
Sub SNIeie2()
 
    Rows("1:" & [a1].CurrentRegion.Rows.Count).EntireRow.Hidden = False
End Sub
Вложения
Тип файла: rar 2 - копия.rar (16.2 Кб, 10 просмотров)
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
13.12.2011, 13:14
Ответы с готовыми решениями:

Создать новые листы по кол-ву элементов в массиве
Нужно добавить в книгу листы, по кол-ву элементов в массиве . И дать названия листу, соответвующее...

Не могу создать новые листы Excel
В общем у меня есть процедура, которая в добавок ко всему создает новый лист excel (если это...

Новые листы в одном окне [Delphi 7]
Ребят, нужна помощь, как сделать так чтобы можно было создавать 2 листа и больше и чтобы выглядели...

Вывод данных js в новые строчки div
Привет. Только-только начал изучать JS. Возник такой вопрос. Как каждый элемент массива вывести в...

9
1702 / 189 / 19
Регистрация: 20.11.2011
Сообщений: 281
13.12.2011, 13:59 2
Visual Basic
1
2
3
...
[a1].CurrentRegion.SpecialCells(12).Copy Лист2.[a1]
End Sub
0
0 / 0 / 0
Регистрация: 29.11.2011
Сообщений: 7
13.12.2011, 14:03  [ТС] 3
не совсем понятно
0
1702 / 189 / 19
Регистрация: 20.11.2011
Сообщений: 281
13.12.2011, 14:08 4
Вам нужно скопировать видимые строки на другой лист?
Вложения
Тип файла: zip 2 - копия.zip (17.2 Кб, 13 просмотров)
0
0 / 0 / 0
Регистрация: 29.11.2011
Сообщений: 7
13.12.2011, 14:12  [ТС] 5
Практически, 1) Вывести видимые ячейки на новый лист 2) Вывести невидимые ячейки на новый лист
0
1702 / 189 / 19
Регистрация: 20.11.2011
Сообщений: 281
13.12.2011, 14:22 6
Ну так я показал как. Копируете видимые, потом меняете видимые на невидимые и опять копируете.
0
0 / 0 / 0
Регистрация: 29.11.2011
Сообщений: 7
13.12.2011, 14:34  [ТС] 7
что означает 12 ?
Visual Basic
1
 [a1].CurrentRegion.SpecialCells(12).Copy Лист2.[a1]
0
1702 / 189 / 19
Регистрация: 20.11.2011
Сообщений: 281
13.12.2011, 14:38 8
Означает видимые.
0
0 / 0 / 0
Регистрация: 29.11.2011
Сообщений: 7
13.12.2011, 14:42  [ТС] 9
Цитата Сообщение от kuklp Посмотреть сообщение
Означает видимые.
а невидимые тогда как?
0
1702 / 189 / 19
Регистрация: 20.11.2011
Сообщений: 281
13.12.2011, 14:45 10
Никак. См. мой пост от Сегодня, 12:22.
0
13.12.2011, 14:45
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
13.12.2011, 14:45
Помогаю со студенческими работами здесь

НА ЭКСЕЛЕ БАЗА ДАННЫХ .Создать листы "сотрудники" кафедры","дисциплины". и с помощью ВПР и СУММЕСЛИ связать эти листы
Предметная область: Учебно-методическое управление (профессорско-преподавательский состав)....

Даны массивы а и b. Получить новые массивы a и b, элементы которых вычисляются по правилу: ai=bi, bi= -ai
Даны массивы а и b, состоящие из n-элементов каждый. Получить новые массивы a и b, элементы...

Многомерные массивы. Запись и вывод данных
Здравствуйте дорогие форумчане. С праздником вас! Задача: Нужно записать последовательность...

Вывод текста в openGL листы
Доброго времени суток. Тут такое дело, сдал сессию, теперь можно продолжать углублять свои познания...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Новые блоги и статьи
Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь!
Hrethgir 13.01.2025
По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта Gowin Eda и снимок. Восьмибитный счётчик из сумматора+ генератор сигнала. . .
UserScript для подсветки кнопок языков программировани­­­­я в зависимости от текущего раздела
volvo 13.01.2025
В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .
Введение в модели и алгоритмы машинного обучения
InfoMaster 12.01.2025
Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .
Как на Python создать нейросеть для решения задач
InfoMaster 12.01.2025
В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .
Как создать нейросеть для генерации картинок на Python
InfoMaster 12.01.2025
Генерация изображений с помощью искусственных нейронных сетей стала одним из наиболее захватывающих направлений в области компьютерного зрения и машинного обучения. В этой статье мы рассмотрим. . .
Создание нейросети для генерации текста на Python
InfoMaster 12.01.2025
Нейросети, или искусственные нейронные сети, представляют собой модели машинного обучения, вдохновленные работой человеческого мозга. Они состоят из множества взаимосвязанных узлов, или "нейронов",. . .
Как создать нейросеть распознавания изображений на Python
InfoMaster 12.01.2025
Введение в распознавание изображений с помощью нейросетей Распознавание изображений с помощью нейронных сетей стало одним из самых впечатляющих достижений в области искусственного интеллекта. Эта. . .
Основы искуственного интеллекта
InfoMaster 12.01.2025
Искусственный интеллект (ИИ) представляет собой одну из наиболее динамично развивающихся областей современной науки и технологий. В широком смысле под искусственным интеллектом понимается способность. . .
Python и нейросети
InfoMaster 12.01.2025
Искусственные нейронные сети стали неотъемлемой частью современных технологий, революционизировав множество областей - от медицинской диагностики до автономных транспортных средств. Python, благодаря. . .
Python в машинном обучении
InfoMaster 12.01.2025
Python стал неотъемлемой частью современного машинного обучения, завоевав позицию ведущего языка программирования в этой области. Его популярность обусловлена несколькими ключевыми факторами, которые. . .
Создание UI на Python с TKinter
InfoMaster 12.01.2025
TKinter — это одна из наиболее популярных библиотек для создания графических интерфейсов пользователей (GUI) в языке программирования Python. TKinter входит в стандартную библиотеку Python, что. . .
HTML5 в разработке мобильных приложений
InfoMaster 12.01.2025
Введение: Обзор роли HTML5 в мобильной разработке В современном мире мобильных технологий HTML5 стал ключевым инструментом для разработки кроссплатформенных приложений. Эта технология произвела. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru