Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как определить потомка и родителя в Excel по сгруппированным строкам? / 15 сообщений из 15, страница 1 из 1
13.10.2014, 11:03
    #38774836
prologos
prologos
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как определить потомка и родителя в Excel по сгруппированным строкам?
Как найти связь -потомок-родитель, то бишь 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
| Ответить | Цитировать | Написать  
13.10.2014, 11:23
    #38774856
prologos
prologos
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как определить потомка и родителя в Excel по сгруппированным строкам?
может от номера строки оттолкнуться, но как найти номер строки родителя?

Код: 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
| Ответить | Цитировать | Написать  
14.10.2014, 14:59
    #38776275
prologos
prologos
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как определить потомка и родителя в Excel по сгруппированным строкам?
реально никак что ль?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2014, 16:09
    #38776377
sergeyvg
sergeyvg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как определить потомка и родителя в Excel по сгруппированным строкам?
посмотри тут, может тоже натолкнет на решение
http://www.sql.ru/forum/518267/adres-grupp-v-excel
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.10.2014, 14:24
    #38777395
AndreTM
AndreTM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как определить потомка и родителя в Excel по сгруппированным строкам?
Код: 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
| Ответить | Цитировать | Написать  
16.10.2014, 17:29
    #38778958
prologos
prologos
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как определить потомка и родителя в Excel по сгруппированным строкам?
AndreTM, спасибо, похоже на правду...
(я догадывался, что на этом форуме умные люди появляются)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2014, 20:37
    #38779112
prologos
prologos
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как определить потомка и родителя в Excel по сгруппированным строкам?
AndreTM, кстати дерево формируется, но очень смещается вся эта конструкция вправо, похоже что parent_id - это номер строки ближайшего родителя, как бы сказать правильно, не номер узла получается, а номер предыдущей строки для выше уровня... поэтому номер parent_id постоянно растет.
Короче вместо 9-ти уровней с этим кодом получилось много больше у меня :/
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.10.2014, 09:56
    #38782493
prologos
prologos
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как определить потомка и родителя в Excel по сгруппированным строкам?
AndreTM, может как то можно сравнивать по уровню?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.10.2014, 10:00
    #38782496
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как определить потомка и родителя в Excel по сгруппированным строкам?
prologos,

Выложите файл со своей группировкой, посмотрим на причину.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.10.2014, 13:47
    #38784060
prologos
prologos
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как определить потомка и родителя в Excel по сгруппированным строкам?
The_Prist, OK. Приложил с макросом.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.10.2014, 13:51
    #38784065
prologos
prologos
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как определить потомка и родителя в Excel по сгруппированным строкам?
prologosThe_Prist, OK. Приложил с макросом. однако чтобы это сработало нужно выделить диапазон предварительно Range("E2:E1463").Select ... надо было сразу в коде макроса написать , да не написал чего то я...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.10.2014, 13:55
    #38784069
prologos
prologos
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как определить потомка и родителя в Excel по сгруппированным строкам?
суть да дело вот в чем собственно, если переносить в акцесс такое дело (по id и parent_id) то treeview уводит далеко вправо несмотря на уровень вложенности
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.11.2014, 13:33
    #38797246
prologos
prologos
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как определить потомка и родителя в Excel по сгруппированным строкам?
задачка похоже трудна для всех
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.11.2014, 14:53
    #38797353
sergeyvg
sergeyvg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как определить потомка и родителя в Excel по сгруппированным строкам?
Может такая процедура подойдет. В колонке 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
| Ответить | Цитировать | Написать  
06.11.2014, 21:06
    #38797783
prologos
prologos
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как определить потомка и родителя в Excel по сгруппированным строкам?
sergeyvg, спасибо!!! кажется сработало как надо :-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как определить потомка и родителя в Excel по сгруппированным строкам? / 15 сообщений из 15, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 517ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2156140]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 143ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 282ms
total:  517ms
x
x
Закрыть


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