VBA

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

Войти

Регистрация
Восстановить пароль

Другие темы раздела
VBA Отчёт при открытии даёт "ODBC ошибка вызова" https://www.cyberforum.ru/ vba/ thread503747.html Отчёт, построенный на запросе к нескольким присоединённым таблицам SQL Server При попытке открытия выдаёт сообщение @ODBC ошибка вызова». Подобные сообщения при открытии присоед таблиц лечатся глобальным переприсоединением всех таблиц, но в случае отчёта – не помогает. 1) Что делать? 2)Кроме того (встречалось несколько раз) , хотя в запросе отчёта и все поля используют данные существующих...	VBA Как создать документ с таблицей? Подскажите, как создать документ с таблицей Dim xlApp As Object Set xlApp = CreateObject("word.Application") xlApp.Visible = True xlApp.Documents.Open "D:" & "Шаблон.rtf" xlApp.ActiveDocument.Paragraphs.Add num = xlApp.ActiveDocument.Paragraphs.Count With xlApp.ActiveDocument.Paragraphs(num) .Range.Text = "Привет, мир!"
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 Последовательное открытие Workbooks по его порядковому номеру https://www.cyberforum.ru/ vba/ thread503717.html Странно, но Range не воспринимается (???). Пишет ошибку. Вышел из ситуации, заменив Range на Rows - все пошло. Наверное глюк какой, но уж очень странный... Спасибо ещё раз за помощь, а то бы сидел неделю, делая все вручную :)
VBA Можно ли построить диаграмму не пользуясь данными с рабочего листа? 2Штурман: а ведь не получается ввести массив вместо данных введенных вручную. :((( Подскажи еще, пожалуйста, А!?!?!	VBA Вопрос по использованию Excel +VBA +CheckBox Предлагаю один из вариантов решения: На форме имется некоторое количество элементов CheckBox. Для каждого из них в окне свойств надо присвоить свойству Tag число, соответствующее номеру страницы, которая будет выдаваться на печать, если этот элемент установлен. Private Sub CommandButton1_Click() For Each ch In UserForm1.Controls If TypeName(ch) = "CheckBox" Then If... https://www.cyberforum.ru/ vba/ thread503708.html
VBA Как использовать оператор GoTo https://www.cyberforum.ru/ vba/ thread503707.html Спасибо	Нужно создать пользовательскую функцию исходя из ниже указанной Экзелевской (стандартной) VBA Нужно создать пользовательскую функцию исходя из ниже указанной Экзелевской (стандартной). {=СУММ(ЕСЛИ(БД_Наим=A7;ЕСЛИ(БД_Дата<=с;ЕСЛИ(БД_Ск="ск";БД_Приход))))} Есть пример кода на VBA , но немогу понять его полностью Function Tri(a, a1, b, b1, c, c1, s) As Currency CountArr = a1.Count i = 0 MySum = 0
VBA Файлы PDF не загружаются в EXCEL по гиперссылке в отличие от остальных. Файлы PDF не загружаются в EXCEL по гиперссылке в отличие от остальных. Есть ли варианты ? https://www.cyberforum.ru/ vba/ thread503698.html	VBA Помогите с макросом для обработки файлов txt Здравствуйте! Проблема такая: в папке на диске С лежат текстовые файлы, меняются раз в сутки. Есть файл Ексель. необходимо чтобы макрос: открывал txt файл, брал оттуда данные, копировал в екселе лист с формой и вставлял в неё данные из txt, лист переименовывал по части имени txt-файла. операция должна повторятся по всем txt-файлам в папке. чё делать??? https://www.cyberforum.ru/ vba/ thread503690.html
VBA Нужно в процедуре определить параметры события WM_KEYDOWN. Помогите, Нужно в процедуре определить параметры события WM_KEYDOWN. Как и какую библиотеку подключить, чтобы можно было работать с параметрами WM_KEYDOWN?	VBA Как на форму поставить таймер? https://www.cyberforum.ru/ vba/ thread503679.html Как на форму поставить таймер, чтобы он работал независимо от других методов отдельным потоком?

Казанский

15151 / 6424 / 1731

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

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

03.04.2014, 17:10

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

03.04.2014, 17:10. Показов 61836. Ответов 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

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

03.04.2014, 17:10

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

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

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

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

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

	03.04.2014, 17:10

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

03.04.2014, 17:10

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

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

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

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

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

Наверх