VBA

Форум программистов и сисадминов Киберфорум

Войти

Другие темы раздела
VBA Как на форму поставить таймер? Как на форму поставить таймер, чтобы он работал независимо от других методов отдельным потоком? Dlya organizacii dvux potokov (multithreading): postav' na formu knopku cmdDvaPotoka i skopiruj v formu etot kod: Option Explicit Private Declare Function GetTickCount Lib "kernel32" () As Long... https://www.cyberforum.ru/ vba/ thread503679.html	VBA Файлы PDF не загружаются в EXCEL по гиперссылке в отличие от остальных. Файлы PDF не загружаются в EXCEL по гиперссылке в отличие от остальных. Есть ли варианты ? ThisWorkbook.FollowHyperlink https://www.cyberforum.ru/ vba/ thread503698.html
VBA Нужно в процедуре определить параметры события WM_KEYDOWN. Помогите, Нужно в процедуре определить параметры события WM_KEYDOWN. Как и какую библиотеку подключить, чтобы можно было работать с параметрами WM_KEYDOWN? http://msdn.microsoft.com/library/?url=/library/en-us/winui/winui/windowsuserinterface/userinput/keyboardinput/keyboardinputreference/keyboardinputmessages/wm_keydown.asp	VBA Можно ли построить диаграмму не пользуясь данными с рабочего листа? 2Штурман: а ведь не получается ввести массив вместо данных введенных вручную. :((( Подскажи еще, пожалуйста, А!?!?! Можно ли построить диаграмму не пользуясь данными с рабочего листа, а создавать ее по данным из массива? Или нужно обязательно переносить этот массив на рабочий лист??? https://www.cyberforum.ru/ vba/ thread503714.html
VBA Последовательное открытие Workbooks по его порядковому номеру https://www.cyberforum.ru/ vba/ thread503717.html Странно, но Range не воспринимается (???). Пишет ошибку. Вышел из ситуации, заменив Range на Rows - все пошло. Наверное глюк какой, но уж очень странный... Спасибо ещё раз за помощь, а то бы сидел... Private Sub Файлы() Dim WS As Worksheet, WB1 As Workbook, WB2 As Workbook, i As Integer Set WB2 = Workbooks.Add With Application.FileSearch .LookIn = "d:Учет" .FileType =...	VBA Количество уровней вложенных функций https://www.cyberforum.ru/ vba/ thread503729.html ??? Ya nichego ne delal: ~ 200 vlozhennyx funkcij rabotaut kak chasy. Dal'she ne proveryal... Kod na stol, please Наверное все таки , форум менять надо, не там пишу чувствуется :( Можно еще поучитья задавать вопросы. Я лично спервого прочтения понял, что тебя интересует вложенность функций внутри проекта VBA. У...
VBA Помогите с макросом для обработки файлов txt Здравствуйте! Проблема такая: в папке на диске С лежат текстовые файлы, меняются раз в сутки. Есть файл Ексель. необходимо чтобы макрос: открывал txt файл, брал оттуда данные, копировал в екселе... чё делать??? Написать в тексте процедуры Open, навести курсор, нажать F1 и внимательно читать хелп - там все есть, в том числе и примеры использования. https://www.cyberforum.ru/ vba/ thread503690.html	VBA Отчёт при открытии даёт "ODBC ошибка вызова" Отчёт, построенный на запросе к нескольким присоединённым таблицам SQL Server При попытке открытия выдаёт сообщение @ODBC ошибка вызова». Подобные сообщения при открытии присоед таблиц лечатся... https://www.cyberforum.ru/ vba/ thread503747.html
VBA Как создать документ с таблицей? Подскажите, как создать документ с таблицей Dim xlApp As Object Set xlApp = CreateObject("word.Application") xlApp.Visible = True xlApp.Documents.Open "D:" & "Шаблон.rtf"... Зайди в ворд, запусти запись макроса и все узнаешь: xlApp.ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:=5 https://www.cyberforum.ru/ vba/ thread503734.html	VBA Вопрос по использованию Excel +VBA +CheckBox Предлагаю один из вариантов решения: На форме имется некоторое количество элементов CheckBox. Для каждого из них в окне свойств надо присвоить свойству Tag число, соответствующее номеру страницы,... Кажется, мне, что это может быть связана с временными интервалами между PrintOut. Поставьте, какую не будь временную задержку между выводами на печать листов. Может и ошибаюсь. https://www.cyberforum.ru/ vba/ thread503708.html
Как использовать оператор GoTo VBA Спасибо Пишу в Sub'е UserForm "Call Workbook_Open" - в ответ при запуске ошибка : "НЕ может найти проект или библиотеку"1. Надо сделать процедуру Workbook_Open публичной - убрать слово Private 2. Добавить...	VBA Нужно создать пользовательскую функцию исходя из ниже указанной Экзелевской (стандартной) https://www.cyberforum.ru/ vba/ thread503705.html Нужно создать пользовательскую функцию исходя из ниже указанной Экзелевской (стандартной). {=СУММ(ЕСЛИ(БД_Наим=A7;ЕСЛИ(БД_Дата<=с;ЕСЛИ(БД_Ск="ск";БД_Приход))))} Есть пример кода на VBA , но... {=СУММ(ЕСЛИ(БД_Наим=A7;ЕСЛИ(БД_Дата<=с;ЕСЛИ(БД_Ск="ск";БД_Приход))))} Eta poxozhe na funkciyu-massiv, zamet'{}, no sintaksis ne veren, poetomu neyasno, chto trebuetsya. vladconn

Казанский

15155 / 6428 / 1731

Регистрация: 24.09.2011

Сообщений: 9,999

03.04.2014, 17:10

Группировка строк в Excel (макрос) - VBA - Ответ 5994667

03.04.2014, 17:10. Показов 62465. Ответов 25

Метки (Все метки)

Ответ

А сразу нельзя было дать файл с несколькими складами? Может, потом еще что-то добавится?

Visual Basic

Sub Артем_1981()
Dim i&, j&, lr&
ActiveSheet.Outline.SummaryRow = xlAbove 'группировка вверх
'снятие существующей группировки строк
On Error Resume Next
Do
  Rows.Ungroup
Loop Until Err
On Error GoTo 0
lr = Cells(Rows.Count, "B").End(xlUp).Row
 
i = 8 'первая строка списка
Do
  For j = i To lr
    If Cells(j, 1).Interior.ColorIndex <> xlColorIndexNone Then Exit For
  Next
  Range(Rows(i), Rows(j - 1)).Group
  For i = j + 1 To lr
    If Cells(i, 1).Interior.ColorIndex = xlColorIndexNone Then Exit For
  Next
Loop Until i > lr
End Sub

Вернуться к обсуждению:
Группировка строк в Excel (макрос) VBA

Следующий ответ

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

03.04.2014, 17:10

Готовые ответы и решения:

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

Макрос сортировки строк в Excel
Добрый вечер, помогите пожалуйста с макросом в excel 2010. Есть таблица шириной в 6 столбцев (A-F) длина не фиксированная, может быть...

Макрос для фильтрации строк в Excel.
Необходимо написать макрос в Worde Который должен как в екселя фильровать строки (результат фильтрации нужно переносить в другой...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

03.04.2014, 17:10

Помогаю со студенческими работами здесь

Макрос для фильтрации строк в Excel
Помогите написать макрос в Worde Который должен как в екселя фильровать строки (результат фильтрации нужно переносить в другой документ)....

Группирование строк в EXCEL (макрос) / VBA
Ребят, добрый день!! Помогите, пожалуйста,написать макрос, чтобы в таблице EXCEL строки автоматом группировались по одинаковым названиям...

Макрос сортировки строк в Excel 2003
Здравствуйте. Возник срочный вопрос. Как решить не знаю. Стандартным методом Экселя не получается. В столбце А - участки СНТ:...

Макрос: удаление строк в таблице Excel
День добрый! Возникла такая задачка: В последнем столбце таблице будет кнопка, на которой будет макрос очистки именно этой строки ...

Макрос на удаление строк с конктретным Outlinelevel (excel)
Привет всем. Проблема заключается в том что имеется огромный массив данных excel (300000 строк). Это выгрузка из 1С состоит из 5 групп по...

Новые блоги и статьи Все статьи Все блоги /
Использование кэша Laravel - полный гайд bytestream 18.02.2025 Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .	Создаем REST API в Laravel с аутентификацией через Passport bytestream 18.02.2025 Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .	Пайплайны в Laravel - полный гайд bytestream 18.02.2025 Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .	Как правильно использовать @required в Symfony bytestream 18.02.2025 При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .	Система безопасности в Laravel: возможности и примеры Wired 18.02.2025 Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel Wired 18.02.2025 Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .	Laravel или React - что лучше? Wired 18.02.2025 В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .	Laravel 11: новые возможности, гайд по обновлению Wired 18.02.2025 Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .	Миграции в Laravel Wired 18.02.2025 Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .	Аутентификация в Laravel Wired 18.02.2025 В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .

Наверх