Запись в ячейку по строке и заголовку

@trvi · Регистрация: 20.02.2013

Студворк — интернет-сервис помощи студентам

Прошу помочь с макросом.

Программа с поддержкой VBA должна открыть фаил Excel и записать своё значение в конкретную ячейку, зная название заголовка (Уголок-1) и название строки (Длина). Пересечение двух названий даёт ячейку куда нужно записать значение. Потом программа генерирует новое название заголовка (Стенка-2) и новое название строки (Ширина) и записывает значение.

Просьба помочь в решении

@Апострофф · 14.03.2013, 14:10

Сообщение от trvi

Ошибка в строке 60 : "WorksheetFunction" не является членом "Inventor.Application".

Естественно, откуда Inventor.Application может знать об excelApp.WorksheetFunction

@trvi · 14.03.2013, 14:11 **[ТС]**

Апострофф,

А как заставить???

@Апострофф · 14.03.2013, 14:14

Ну поменять Application на excelApp, очевидно.

@Igor_Tr · 14.03.2013, 14:18

Тогда это совсем другое. С этого надо было начинать.
Если захотите продолжить на VBA.
1. Мой код довольно примитивный, рассматривать как заготовку. При больших обьемах работать будет долго. Для ускорения нужно применить подход, указанный, например, Hugo121.
2. Вопросы, которые меня интересуют:
а). Каким образом Вы передаете в процедуру числовые значения переменных (c1, c2, c3 ...)?
б). Почему в Вашей таблице идут повторы ("Уголок-1", "Стенка-1") с одними и теми же характеристиками (чем это вызвано)? Не проще в таблице прописать графу "Колличество"?
в). В каких единицах выражаются "Длинна" и "Ширина"? (это влияет на тип переменных).
Пока все. Решите продолжить - "звоните".
P.S. Кстати, разнице между кодом, который "не работает" и который "работает" только в самых верхних двух строчках (там, где " 'Не удалять!"

@trvi · 14.03.2013, 14:47 **[ТС]**

Если опираться на код Aksima^

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
'Процедура заполнения базы данных всеми необходимыми значениями.
Sub Main()
    Dim excelApp As Object
    Dim wb As Object
    Dim ws As Object
    Dim db As Object
 
    excelApp = CreateObject("Excel.Application")
    excelApp.Visible = False
    excelApp.Workbooks.Open ("c:\01.xls")
 
    wb = excelApp.ActiveWorkbook
    ws = wb.Worksheets("Лист1")
    db = ws.Range("A1:Z100")
 
    Dim i As Long, j As Long, rKol As Long, cKol As Long
    ' Dim rowSearches As Object, colSearches As Object
     Dim colSearches (0 To 3) As String
     Dim rowSearches (0 To 3) As String
    
    colSearches(1)="d_A"
    colSearches(2)="d_B"
    colSearches(3)="d_C"
    
    rowSearches(1) = "Стенка-1"
 
    'Выделяем память для хранения значений, соответствующих заголовкам.
    rKol = UBound(rowSearches): cKol = UBound(colSearches)
    Dim appropriateVals(rKol, cKol) As Double
    
    'Определяем соответствующие заголовкам значения.
    appropriateVals(0, 0) = 15  'Длина уголка-1 равна 15 ед.
    appropriateVals(0, 1) = 17  'Ширина уголка-1 равна 17 ед.
    appropriateVals(0, 2) = 100 'Высота уголка-1 равна 100 ед.
    
    'Заполняем ячейки базы данных, соответствующие определенным заголовкам.
    For i = 0 To rKol
        For j = 0 To cKol
            dWrite (db, appropriateVals(i, j), rowSearches(i), colSearches(j), excelApp)
        Next j
    Next i
 
 wb.Save
   wb.Close
   excelApp.Quit
   excelApp = Nothing
 
End Sub
 
Function dWrite(ByVal Database As Object, ByVal ValToIns As Object, ByVal RowSearch As String, ByVal ColSearch As String, ByVal exc As Object)
    Dim i As Long, j As Long, rNum As Long, cNum As Long
    Dim m As Object, rh As Object, ch As Object
 
    With Database
        On Error Goto ErrH
        rNum = .Rows.Count - 1      'Находим количество строк в базе (за исключением заголовков).
        cNum = .Columns.Count - 1   'Находим количество столбцов в базе (за исключением заголовков).
        m = .Cells(2, 2).Resize(rNum, cNum) 'В массив m() заносим значения базы данных, за исключением заголовков.
        rh = .Transpose(.Cells(2, 1).Resize(rNum, 1)) 'В массив rh() заносим заголовки строк.
        ch = .Transpose(.Transpose(.Cells(1, 2).Resize(1, cNum))) 'В массив ch() заносим заголовки столбцов.
        On Error Goto 0
    End With
 
    For i = 1 To rNum   'Проходим циклом по заголовкам строк.
        If CStr(rh(i)) = RowSearch Then 'Если заголовок строки соответствует условию RowSearch, то...
            For j = 1 To cNum   'просматриваем в цикле также заголовки столбцов...
                'и если в заголовках столбцов тоже обнаруживается совпадение (на этот раз с условием ColSearch), то...
                If CStr(ch(j)) = ColSearch Then m(i, j) = ValToIns 'заполняем соответствующие элементы массива значениями ValToIns.
            Next j
        End If
    Next i
    Database.Cells(2, 2).Resize(rNum, cNum) = m 'Выгружаем обработанный массив в диапазон Database.
    Exit Function
ErrH:
    Err.Clear
    Exit Function
End Function

Не понимаю - ошибок нет но ничего не пишет

@Hugo121 · 14.03.2013, 15:02

удалено....

@trvi · 14.03.2013, 15:39 **[ТС]**

Hugo121,

Не понял???

@Hugo121 · 14.03.2013, 15:45

Да так, было предположение - не оправдалось...

@trvi · 14.03.2013, 17:11 **[ТС]**

Мужики, горююю:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
'Процедура заполнения базы данных всеми необходимыми значениями.
Sub Main()
    Dim excelApp As Object
    Dim wb As Object
    Dim ws As Object
    Dim db As Object
 
    excelApp = CreateObject("Excel.Application")
    excelApp.Visible = False
    excelApp.Workbooks.Open ("c:\01.xls")
 
    wb = excelApp.ActiveWorkbook
    ws = wb.Worksheets("Лист1")
    db = ws.Range("A1:Z100")
 
    Dim i As Long, j As Long, rKol As Long, cKol As Long
    ' Dim rowSearches As Object, colSearches As Object
     Dim colSearches (0 To 3) As String
     Dim rowSearches (0 To 3) As String
    
    colSearches(1)="d_A"
    colSearches(2)="d_B"
    colSearches(3)="d_C"
    
    rowSearches(1) = "Стенка-1"
 
    'Выделяем память для хранения значений, соответствующих заголовкам.
    rKol = UBound(rowSearches): cKol = UBound(colSearches)
    Dim appropriateVals(rKol, cKol) As Double
    
    'Определяем соответствующие заголовкам значения.
    appropriateVals(0, 0) = 15  'Длина уголка-1 равна 15 ед.
    appropriateVals(0, 1) = 17  'Ширина уголка-1 равна 17 ед.
    appropriateVals(0, 2) = 100 'Высота уголка-1 равна 100 ед.
    
    'Заполняем ячейки базы данных, соответствующие определенным заголовкам.
    For i = 0 To rKol
        For j = 0 To cKol
            dWrite (db, appropriateVals(i, j), rowSearches(i), colSearches(j), excelApp)
        Next j
    Next i
 
 wb.Save
   wb.Close
   excelApp.Quit
   excelApp = Nothing
 
End Sub
 
Function dWrite(ByVal Database As Object, ByVal ValToIns As Object, ByVal RowSearch As String, ByVal ColSearch As String, ByVal exc As Object)
    Dim i As Long, j As Long, rNum As Long, cNum As Long
    Dim m As Object, rh As Object, ch As Object
 
    With Database
        On Error Goto ErrH
        rNum = .Rows.Count - 1      'Находим количество строк в базе (за исключением заголовков).
        cNum = .Columns.Count - 1   'Находим количество столбцов в базе (за исключением заголовков).
        m = .Cells(2, 2).Resize(rNum, cNum) 'В массив m() заносим значения базы данных, за исключением заголовков.
        rh = .Transpose(.Cells(2, 1).Resize(rNum, 1)) 'В массив rh() заносим заголовки строк.
        ch = .Transpose(.Transpose(.Cells(1, 2).Resize(1, cNum))) 'В массив ch() заносим заголовки столбцов.
        On Error Goto 0
    End With
 
    For i = 1 To rNum   'Проходим циклом по заголовкам строк.
        If CStr(rh(i)) = RowSearch Then 'Если заголовок строки соответствует условию RowSearch, то...
            For j = 1 To cNum   'просматриваем в цикле также заголовки столбцов...
                'и если в заголовках столбцов тоже обнаруживается совпадение (на этот раз с условием ColSearch), то...
                If CStr(ch(j)) = ColSearch Then m(i, j) = ValToIns 'заполняем соответствующие элементы массива значениями ValToIns.
            Next j
        End If
    Next i
    Database.Cells(2, 2).Resize(rNum, cNum) = m 'Выгружаем обработанный массив в диапазон Database.
    Exit Function
ErrH:
    Err.Clear
    Exit Function
End Function

почему не пишет в Excel????

ошибок не дает, но не пишет?!

Аксима · 14.03.2013, 17:48

Здравствуйте, уважаемые.

trvi предложил мне в личке для рассмотрения один интересный, но, к сожалению, не совсем корректный и к тому же тяжеловатый для понимания код, который базируется на методе Find (а ведь говорил же топикстартеру, что не стоит применять этот метод для обработки баз данных, но он ведь такой упрямый

). И этот код (если я правильно понял его назначение) возвращает массив ячеек - персечений строк и столбцов, содержащие заданные строки.

Удивительно, но после вольной переработки предложенного кода у меня получилось нечто, абсолютно непохожее на исходный код (за исключением использования метода Find). Но может быть, это именно то, что нужно ТС (при условии, что ему удастся перевести этот код обратно из VBA в VB.net)? Что особенно важно, вместо массива ячеек мой вариант кода возвращает диапазон ячеек, поэтому все ячейки заполняются одной командой.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
'Функция возвращает диапазон, находящийся на пересечении строк с заголовками,
'совпадающими со значением переменной x, и столбцов с заголовками, совпадающими
'с переменной y, в пределах диапазона WWS.
Function FindXYIntersectionRanges(ByVal x As String, ByVal y As String, ByVal WWS As Range) As Range
   Dim c(1) As Collection
   Dim rng(1) As Range
   Dim i As Byte
   With WWS
      For i = 0 To 1
         Set c(i) = New Collection
         c(i).Add IIf(i, .Rows(1), .Columns(1)).Find(What:=IIf(i, y, x))
         If Not c(i)(1) Is Nothing Then
            Set rng(i) = IIf(i, c(i)(1).EntireColumn, c(i)(1).EntireRow)
            c(i).Add IIf(i, .Rows(1), .Columns(1)).FindNext(After:=c(i)(1))
            Do While (IIf(i, c(i)(c(i).Count).Column, c(i)(c(i).Count).Row) > IIf(i, c(i)(c(i).Count - 1).Column, c(i)(c(i).Count - 1).Row))
               Set rng(i) = Application.Union(rng(i), IIf(i, c(i)(c(i).Count).EntireColumn, c(i)(c(i).Count).EntireRow))
               c(i).Add IIf(i, .Rows(1), .Columns(1)).FindNext(After:=c(i)(c(i).Count))
            Loop
         End If
      Next i
   End With
   If Not rng(0) Is Nothing And Not rng(1) Is Nothing Then Set FindXYIntersectionRanges = Application.Intersect(rng(0), rng(1))
End Function
'Тестирование функции для строк с заголовками "Стенка-1" и столбцов
'с заголовками "Длина" в диапазоне "A1:K100" - заполняем нужные ячейки значением 100.
Sub Test()
   On Error Resume Next 'Пропускаем ошибку в случае отсутствия нужных заголовков.
   FindXYIntersectionRanges("Стенка-1", "Длина", Range("A1:K100")).Value = 100
   On Error GoTo 0
End Sub

С уважением,

Aksima

@Igor_Tr · 14.03.2013, 23:21

Habemus Papam! Здравствуйте, Aksima! Мне очень все-таки интересно, откуда получаются значения. Если можно, обясню свой атрофированный интерес.
Проект крутого особняка. Расчерченный, раскрашенный, подсветки, 3D (все это включая разрезы) и т.д. и т.п. Собрали вентканалы и дымовые (это уже после архитекторов). Вышли выше отметки чердачного перекрытия. И ахнули (не буду вдаваться в спец. подробности)! Начали все вместе считать. В результате "главный конек" крыши был развернут на 90 град. Конфигурация ТАКОЙ НАВОРОЧЕННОЙ И НЕПОВТОРИМОЙ(

) КРЫШИ поменялась кардинально, но, к счастью, выиграла "и архитектура, и экономика". А не получится и здесь так? Куча предложений "из точки А", а начинать надо с точки Б?
Надеюсь, хоть развеселил немного.
С уважением, Игорь.

Добавлено через 1 час 1 минуту
To Aksima. Не люблю заходить со стороны. Поэтому, нашел свободное место и счелкнул спасибо.

С уважением, Игорь.

@trvi · 15.03.2013, 09:11 **[ТС]**

Aksima,

То, что нужно!!! Суперррррррррррррррррррр! Aksima - СЛАВА!!!! свечку поставлю за твоё здоровье!! Правда не знаю как зовут (может Максим?)

Адаптировал под VB.net еще раз всем спасибо!!!

@trvi · 18.03.2013, 14:08 **[ТС]**

Продолжая тему:

На основе кода Aksima

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Option Explicit
Option Base 1
 
Sub Test()
    Dim k%
    ReDim rty(1 To 3) As Variant
    ReDim rtq(1 To 3) As Variant
 
    On Error Resume Next
    rty = Array("Длина", "Ширина", "Высота")
    rtq = Array(100, 101, 102)
    For k = 1 To 3
        FindXYIntersectionRanges("Стенка-1", rty(k), Range("A1:K100")).Value = rtq(k)
    Next k
    On Error GoTo 0
End Sub
 
Function FindXYIntersectionRanges(ByVal x As String, ByVal y As String, ByVal WWS As Range) As Range
    Dim c(1) As Collection
    Dim rng(1) As Range
    Dim i As Byte
    With WWS
    For i = 0 To 1
        Set c(i) = New Collection
        c(i).Add IIf(i, .Rows(1), .Columns(1)).Find(What:=IIf(i, y, x))
        If Not c(i)(1) Is Nothing Then
 
        Set rng(i) = IIf(i, c(i)(1).EntireColumn, c(i)(1).EntireRow)
        c(i).Add IIf(i, .Rows(1), .Columns(1)).FindNext(After:=c(i)(1))
 
        Do While (IIf(i, c(i)(c(i).Count).Column, c(i)(c(i).Count).Row) > IIf(i, c(i)(c(i).Count - 1).Column, c(i)(c(i).Count - 1).Row))
            Set rng(i) = Application.Union(rng(i), IIf(i, c(i)(c(i).Count).EntireColumn, c(i)(c(i).Count).EntireRow))
            c(i).Add IIf(i, .Rows(1), .Columns(1)).FindNext(After:=c(i)(c(i).Count))
        Loop
        End If
    Next i
    End With
    If Not rng(0) Is Nothing And Not rng(1) Is Nothing Then Set FindXYIntersectionRanges = Application.Intersect(rng(0), rng(1))
End Function

1. Где ошибка? Код работает, ошибок не выдаёт...

Здесь в коде:

Visual Basic
1
2
3
    For k = 1 To 3
        FindXYIntersectionRanges("Стенка-1", rty(k), Range("A1:K100")).Value = rtq(k)
    Next k

А можно ли функции передать сразу массив целиком? Возможно ли это? А то получается функция вызывается на каждом шаге.

Аксима · 18.03.2013, 16:49

Доброго времени суток, trvi,

Если функция будет принимать массив, то и возвращать она должна также массив.

Как-то так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
Option Base 1
 
'Òåñòèðîâàíèå ôóíêöèè.
Sub Test()
   Dim k As Integer
   Dim x As Integer
   Dim rty As Variant, rtq As Variant, intersects As Variant
   x = 3
   rty = Array("Äëèíà", "Øèðèíà", "Âûñîòà")
   rtq = Array(100, 101, 102)
   On Error Resume Next
   intersects = FindXYIntersectionRangesArray(Array("Ñòåíêà-1"), rty, Range("A1:K100"))
   For k = 1 To x
      intersects(k - 1).Value = rtq(k)
   Next k
   On Error GoTo 0
End Sub

В другом модуле:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Option Explicit
Option Base 0
 
'Ôóíêöèÿ âîçâðàùàåò äèàïàçîí, íàõîäÿùèéñÿ íà ïåðåñå÷åíèè ñòðîê ñ çàãîëîâêàìè,
'ñîâïàäàþùèìè ñî çíà÷åíèåì ïåðåìåííîé x, è ñòîëáöîâ ñ çàãîëîâêàìè, ñîâïàäàþùèìè
'ñ ïåðåìåííîé y, â ïðåäåëàõ äèàïàçîíà WWS.
Function FindXYIntersectionRangesArray(ByVal x As Variant, ByVal y As Variant, ByVal WWS As Range) As Variant
   Dim c(1) As Collection
   Dim rng(1) As Range, output() As Range
   Dim i As Long, j As Long, n As Long, k As Byte
   ReDim output((UBound(x) + 1) * (UBound(y) + 1) - 1)
   For i = LBound(x) To UBound(x)
      For j = LBound(y) To UBound(y)
         With WWS
            For k = 0 To 1
               Set c(k) = New Collection
               c(k).Add IIf(k, .Rows(1), .Columns(1)).Find(What:=IIf(k, y(j), x(i)))
               If Not c(k)(1) Is Nothing Then
                  Set rng(k) = IIf(k, c(k)(1).EntireColumn, c(k)(1).EntireRow)
                  c(k).Add IIf(k, .Rows(1), .Columns(1)).FindNext(After:=c(k)(1))
                  Do While (IIf(k, c(k)(c(k).Count).Column, c(k)(c(k).Count).Row) > IIf(k, c(k)(c(k).Count - 1).Column, c(k)(c(k).Count - 1).Row))
                     Set rng(k) = Application.Union(rng(k), IIf(k, c(k)(c(k).Count).EntireColumn, c(k)(c(k).Count).EntireRow))
                     c(k).Add IIf(k, .Rows(1), .Columns(1)).FindNext(After:=c(k)(c(k).Count))
                  Loop
               End If
            Next k
         End With
         If Not rng(0) Is Nothing And Not rng(1) Is Nothing Then
            Set output(n) = Application.Intersect(rng(0), rng(1))
            n = n + 1
         End If
      Next j
   Next i
   FindXYIntersectionRangesArray = output
End Function

Сообщение от trvi

Код работает, ошибок не выдаёт...

Расписал допущенные вами ошибки в личке.

Новые блоги и статьи Все статьи Все блоги /
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .
Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .

@trvi 27 / 2 / 0 Регистрация: 20.02.2013 Сообщений: 126

	Запись в ячейку по строке и заголовку 20.02.2013, 11:19. Показов 8030. Ответов 73 Метки нет (Все метки) Прошу помочь с макросом. Программа с поддержкой VBA должна открыть фаил Excel и записать своё значение в конкретную ячейку, зная название заголовка (Уголок-1) и название строки (Длина). Пересечение двух названий даёт ячейку куда нужно записать значение. Потом программа генерирует новое название заголовка (Стенка-2) и новое название строки (Ширина) и записывает значение. Просьба помочь в решении Миниатюры 0

@trvi 27 / 2 / 0 Регистрация: 20.02.2013 Сообщений: 126
	14.03.2013, 14:11 [ТС]
	Апострофф, А как заставить??? 0

@Апострофф 9912 / 3933 / 743 Регистрация: 11.10.2011 Сообщений: 5,914
	14.03.2013, 14:14
	Ну поменять Application на excelApp, очевидно. 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	14.03.2013, 14:18
	Тогда это совсем другое. С этого надо было начинать. Если захотите продолжить на VBA. 1. Мой код довольно примитивный, рассматривать как заготовку. При больших обьемах работать будет долго. Для ускорения нужно применить подход, указанный, например, Hugo121. 2. Вопросы, которые меня интересуют: а). Каким образом Вы передаете в процедуру числовые значения переменных (c1, c2, c3 ...)? б). Почему в Вашей таблице идут повторы ("Уголок-1", "Стенка-1") с одними и теми же характеристиками (чем это вызвано)? Не проще в таблице прописать графу "Колличество"? в). В каких единицах выражаются "Длинна" и "Ширина"? (это влияет на тип переменных). Пока все. Решите продолжить - "звоните". P.S. Кстати, разнице между кодом, который "не работает" и который "работает" только в самых верхних двух строчках (там, где " 'Не удалять!" 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	14.03.2013, 15:02
	удалено.... 0

@trvi 27 / 2 / 0 Регистрация: 20.02.2013 Сообщений: 126
	14.03.2013, 15:39 [ТС]
	Hugo121, Не понял??? 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	14.03.2013, 15:45
	Да так, было предположение - не оправдалось... 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	14.03.2013, 23:21
	Habemus Papam! Здравствуйте, Aksima! Мне очень все-таки интересно, откуда получаются значения. Если можно, обясню свой атрофированный интерес. Проект крутого особняка. Расчерченный, раскрашенный, подсветки, 3D (все это включая разрезы) и т.д. и т.п. Собрали вентканалы и дымовые (это уже после архитекторов). Вышли выше отметки чердачного перекрытия. И ахнули (не буду вдаваться в спец. подробности)! Начали все вместе считать. В результате "главный конек" крыши был развернут на 90 град. Конфигурация ТАКОЙ НАВОРОЧЕННОЙ И НЕПОВТОРИМОЙ( ) КРЫШИ поменялась кардинально, но, к счастью, выиграла "и архитектура, и экономика". А не получится и здесь так? Куча предложений "из точки А", а начинать надо с точки Б? Надеюсь, хоть развеселил немного. С уважением, Игорь. Добавлено через 1 час 1 минуту To Aksima. Не люблю заходить со стороны. Поэтому, нашел свободное место и счелкнул спасибо. С уважением, Игорь. 0

@trvi 27 / 2 / 0 Регистрация: 20.02.2013 Сообщений: 126
	15.03.2013, 09:11 [ТС]
	Aksima, То, что нужно!!! Суперррррррррррррррррррр! Aksima - СЛАВА!!!! свечку поставлю за твоё здоровье!! Правда не знаю как зовут (может Максим?) Адаптировал под VB.net еще раз всем спасибо!!! 0