powered by simpleCommunicator - 2.0.52     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как определить потомка и родителя в Excel по сгруппированным строкам?
15 сообщений из 15, страница 1 из 1
как определить потомка и родителя в Excel по сгруппированным строкам?
    #38774836
prologos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Как найти связь -потомок-родитель, то бишь ID, Parent_ID в Excel по сгруппированным колонкам?

Я попробовал только найти уровень вложенности. Помогите люди добрые :)
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Sub ViewGroupRows()
Dim i As Integer
Dim oCell As Range
For Each oCell In Selection
    oCell.Errors(xlNumberAsText).Ignore = True
    oCell.FormulaR1C1Local = oCell.EntireRow.OutlineLevel
Next
End Sub
...
Рейтинг: 0 / 0
как определить потомка и родителя в Excel по сгруппированным строкам?
    #38774856
prologos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
может от номера строки оттолкнуться, но как найти номер строки родителя?

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub ViewGroupRows()
Dim i As Integer
Dim oCell As Range
For Each oCell In Selection
    oCell.Errors(xlNumberAsText).Ignore = True
    oCell.FormulaR1C1Local = oCell.EntireRow.OutlineLevel
    oCell.Offset(0, 1).FormulaR1C1Local = oCell.Row
Next
End Sub
...
Рейтинг: 0 / 0
как определить потомка и родителя в Excel по сгруппированным строкам?
    #38776275
prologos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
реально никак что ль?
...
Рейтинг: 0 / 0
как определить потомка и родителя в Excel по сгруппированным строкам?
    #38776377
sergeyvg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
посмотри тут, может тоже натолкнет на решение
http://www.sql.ru/forum/518267/adres-grupp-v-excel
...
Рейтинг: 0 / 0
как определить потомка и родителя в Excel по сгруппированным строкам?
    #38777395
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
nParentRow = -1
nParentLevel = -1 
For Each oCell In Selection
    oCell.Errors(xlNumberAsText).Ignore = True
    oCell.FormulaR1C1Local = oCell.EntireRow.OutlineLevel
    oCell.Offset(0, 1).FormulaR1C1Local = oCell.Row

    if oCell.EntireRow.OutlineLevel <> nParentLevel then
        nParentLevel = oCell.EntireRow.OutlineLevel
        nParentRow = oCell.Row
    end if 
    oCell.offset(,2) = nParentRow

Next
...
Рейтинг: 0 / 0
как определить потомка и родителя в Excel по сгруппированным строкам?
    #38778958
prologos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
AndreTM, спасибо, похоже на правду...
(я догадывался, что на этом форуме умные люди появляются)
...
Рейтинг: 0 / 0
как определить потомка и родителя в Excel по сгруппированным строкам?
    #38779112
prologos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
AndreTM, кстати дерево формируется, но очень смещается вся эта конструкция вправо, похоже что parent_id - это номер строки ближайшего родителя, как бы сказать правильно, не номер узла получается, а номер предыдущей строки для выше уровня... поэтому номер parent_id постоянно растет.
Короче вместо 9-ти уровней с этим кодом получилось много больше у меня :/
...
Рейтинг: 0 / 0
как определить потомка и родителя в Excel по сгруппированным строкам?
    #38782493
prologos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
AndreTM, может как то можно сравнивать по уровню?
...
Рейтинг: 0 / 0
как определить потомка и родителя в Excel по сгруппированным строкам?
    #38782496
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
prologos,

Выложите файл со своей группировкой, посмотрим на причину.
...
Рейтинг: 0 / 0
как определить потомка и родителя в Excel по сгруппированным строкам?
    #38784060
prologos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
The_Prist, OK. Приложил с макросом.
...
Рейтинг: 0 / 0
как определить потомка и родителя в Excel по сгруппированным строкам?
    #38784065
prologos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
prologosThe_Prist, OK. Приложил с макросом. однако чтобы это сработало нужно выделить диапазон предварительно Range("E2:E1463").Select ... надо было сразу в коде макроса написать , да не написал чего то я...
...
Рейтинг: 0 / 0
как определить потомка и родителя в Excel по сгруппированным строкам?
    #38784069
prologos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
суть да дело вот в чем собственно, если переносить в акцесс такое дело (по id и parent_id) то treeview уводит далеко вправо несмотря на уровень вложенности
...
Рейтинг: 0 / 0
как определить потомка и родителя в Excel по сгруппированным строкам?
    #38797246
prologos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
задачка похоже трудна для всех
...
Рейтинг: 0 / 0
как определить потомка и родителя в Excel по сгруппированным строкам?
    #38797353
sergeyvg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Может такая процедура подойдет. В колонке H проставляется номер родительской строки
Sub test()
Cells(1, 8).Resize(ActiveSheet.UsedRange.EntireRow.Count) = 0
Cells(1, 8) = 1
For i = 1 To 8
ActiveSheet.Outline.ShowLevels rowLevels:=i
For Each WAr In ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Areas
For j = WAr.Row To WAr.Row + WAr.EntireRow.Count - 1
If Cells(j, 8) <> 0 Then
ParentRow = Cells(j, 8).Row
Else
Cells(j, 8) = ParentRow
End If
Next j
Next WAr
Next i
End Sub
...
Рейтинг: 0 / 0
как определить потомка и родителя в Excel по сгруппированным строкам?
    #38797783
prologos
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
sergeyvg, спасибо!!! кажется сработало как надо :-)
...
Рейтинг: 0 / 0
15 сообщений из 15, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как определить потомка и родителя в Excel по сгруппированным строкам?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]