Расчет значения и вывод данных в ячейки слева

@dj_oni · Регистрация: 02.10.2013

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

Заранее извиняюсь если решение где то есть, но я его не нашел.
Есть значение в ячейке S в зависимости от его значения меняется коэффициент. Далее еще должно идти одно сравнение и расчет нескольких переменных которые нужно вывести в соседние слева ячейки от ячейки S
естественно строк с такими переменными много и как тут решить проблему вообще понять не могу

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Function PR(value As String) As String
Dim kpf, As String
If value <= 1000 Then kpf = 1.038
If value <= 2500 Then kpf = 1.034
If value <= 5000 Then kpf = 1.03
 
If value >= 4700 Then
PR1 = value * kpf
PR2 = PR1 * kpf
PR3 = PR2 * kpf
ActiveSheet.Cells(, -2) = PR1
ActiveSheet.Cells(, -3) = PR2
ActiveSheet.Cells(, -4) = PR3
If value >= 2800 Then
PR1 = value * kpf * 0.2
PR2 = PR1 * kpf * 0.3
PR3 = PR2 * kpf * 0.3
ActiveSheet.Cells(, -2) = PR1
ActiveSheet.Cells(, -3) = PR2
ActiveSheet.Cells(, -4) = PR3
End Function

У меня работает или подсчет или вывод по отдельности, но вместе этот бардак не работает,то что у меня написано конечно не совсем верно, но думаю так суть понятна.
Заранее спасибо

@Igor_Tr · 02.10.2013, 19:48

Класс! "...этот бардак не работает..."

У меня машина сегодня с ума сьехала - сам был виноват. У Вас должна быть такая тоже история

Смотрите. Я не понимаю что это (машина тоже)
ActiveSheet.Cells(, -2) = PR1
Вы машине сказали: "Запиши в ячейку, но в какой ряд я не знаю сам, зато столбец должен быть " -2 "". Она, наверное, до теперь ищет, уже за пределами помещения...

Ну не бывает в Excel номеров столбцов (и рядов) меньше 1.
А что б сделать жизнь коэф-в, себе, машине легче - используйте Select case. Я смотрел на коэф-ты - и ничего не понял.

И уйдите от спец. термина value как от имени переменной!!! Как-то так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Function PR(mValue As String) As String
Dim kpf, As String
   Select case mValue
      case is<1001: kpf = 1.038
      case is 1001 to 2500: kpf = 1.034
      case is 2501 to 4700
         PR1 = value * kpf ' А КАКОЙ ИМЕННО  kpf ??? !!!
         PR2 = PR1 * kpf  ' тоже ???? !!!!!
      case is 4701 to 5000: kpf = 1.03
   end select
' ........................................
'................................
end function

Где-то так.

@dj_oni · 02.10.2013, 20:18 **[ТС]**

номер строки должен быть тем же из которой бралось первичное значение, то есть решение записывается в ту же строку но в другой столбец, тут у меня проблема.
по сути дела здесь идет два сравнительных правила и оба независимы друг от друга, но зависят от единого значения в ячейке
1. это чему равен будет коэфф. kpf

Visual Basic
1
2
3
If value <= 1000 Then kpf = 1.038
If value <= 2500 Then kpf = 1.034
If value <= 5000 Then kpf = 1.03

2. условия по которым рассчитываются формулы (в примере я привел только 2, на самом деле их там 5) т.е. если мы в одном диапазоне мы считаем по одним формулам, в другом диапазоне - по другим формулам. а потом все полученные значения выводим в ту же строку откуда брали значение.

Visual Basic
1
2
3
4
If value >= 2800 Then
PR1 = value * kpf * 0.2
PR2 = PR1 * kpf * 0.3
PR3 = PR2 * kpf * 0.3

ну что то в этом роде, а то что Вы написали немножко не совсем то

@Igor_Tr · 02.10.2013, 21:28

Почему немного не так? Распишите, подумаем вместе. Еще раз. Номер строки нужно указать, он не может быть ничем.

Добавлено через 29 минут
Уточню.

Visual Basic
1
2
3
If mvalue <= 1000 Then kpf = 1.038
If mvalue <= 2500 Then kpf = 1.034
If mvalue <= 5000 Then kpf = 1.03

Вы перекрываете условия. Первая строка говорит: "Если переменная mvalue меньше или равно 1000 (другими словами от 1000 до минус до чертика) тогда kpf = 1.038." И последняя говорит: "Если переменная mvalue меньше или равно 5000 (другими словами от 5000 до минус до чертика) тогда kpf = 1.03."
Если бы я Вам дал задание выбрать - что бы Вы выбрали???!!! Про вторую молчу, что б больше не запутать.

@dj_oni · 02.10.2013, 22:25 **[ТС]**

Согласен, ваш расчет kpf более правилен (просто я эта функция у меня есть в php, а теперь мне нужно это чудо засунуть в VBA). насчет до минус чертика не выйдет, значения всегда положительные и больше нуля

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

Visual Basic
1
2
3
If mvalue <= 5000 Then kpf = 1.03
If mvalue <= 2500 Then kpf = 1.034
If mvalue <= 1000 Then kpf = 1.038

дальше я так понимаю нужно прописать следующие условия

Visual Basic
1
2
3
4
5
6
7
8
 case is => 4700
PR1 = value * kpf
PR2 = PR1 * kpf
PR3 = PR2 * kpf
case is 2801 to 4699
PR1 = value * kpf*0.1
PR2 = PR1 * kpf*0.1
PR3 = PR2 * kpf*0.1

правильно я понимаю?
А как вывести значения PR1,PR2,PR3 и тд. в той же строке но левее???

@Igor_Tr · 02.10.2013, 23:31

Почти.

case is > 4690
PR1 = value * kpf
PR2 = PR1 * kpf
PR3 = PR2 * kpf
case is 2801 to 4699
....что-то.............

Но Ваша основная задача привязать kpf к условию. И не имеет значение, это VBA, или php. В предыдущих условиях так и делается (case is 1001 to 2500: kpf = 1.034), а для > 4690 kpf с неба само падает, нужное? И какое оно? Мне самому интересно, не вижу.

И лучше идти в "хронолигии" - не запутаетесь.

Добавлено через 6 минут
И Вы упрямо хотите довести машину до шизофрении. Есть у Вас там выражение:
ActiveSheet.Cells(, -2) = PR1
Правильно звучит так (грубо, приблизительно):
ActiveSheet.Cells(5, 2).Value = PR1
Точно машина не запутается, где какое "value"? А Вы? Не запутаетесь?

Добавлено через 14 минут
О! Я, кажется, очень умный!!!

Догадался почему у Вас там столбик -2. Есть такое, но используется только с Оffset. Означает, отступить вправо/вниз (с минусом - влево/вверх) от указанного.
Если Вы запишете (имея ввиду ячейку "А2"), например, cells(2,1).offset(-3, -2) - получите ошибку. Почему - я уже писал (не умеет комп искать у соседей. Или "хорошо воспитанный"

)

@dj_oni · 02.10.2013, 23:35 **[ТС]**

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

Но Ваша основная задача привязать kpf к условию. И не имеет значение, это VBA, или php. В предыдущих условиях так и делается (case is 1001 to 2500: kpf = 1.034), а для > 4690 kpf с неба само падает, нужное? И какое оно? Мне самому интересно, не вижу.
И лучше идти в "хронолигии" - не запутаетесь.

В том то и дело что индекс для kpf выбирается в первых строках кода, а в последующих строках кода выбирается группа формул с уже предварительно выбранным kpf. то есть

Visual Basic
1
2
3
4
5
6
7
8
case is => 4700
PR1 = value * kpf
PR2 = PR1 * kpf
PR3 = PR2 * kpf
case is 2801 to 4699
PR1 = value * kpf*0.1
PR2 = PR1 * kpf*0.1
PR3 = PR2 * kpf*0.1

эта часть - есть выбор группы формул, а выбор kpf был выше, или я не прав и оно просто теряется?

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

ActiveSheet.Cells(5, 2).Value = PR1
Точно машина не запутается, где какое "value"? А Вы? Не запутаетесь?

да не хочу я мучить бедную машину

но если использовать вот это ActiveSheet.Cells(5, 2).Value = PR1 то значение попадет в определенную ячейку т.е. 5 строка 2 столбец, а мне нужно записать в ту же строку из которой бралось значение, но в другой столбец, точнее столбцы.

@Igor_Tr · 03.10.2013, 01:04

Или я слепой, или я тупой...

У Вас три блока. 1-й - определяете значение kpf по границам ( это в пределах select case - end select). Все! Есть! После end select мы уже знаем, с машиной вместе, какой kpf нам будет нужен и какое myVALUE живет в даный момент. Закончили!!!
2-й блок - обрабатываем значения
PR1 = myVALUE * kpf '(или valueВсехСВЯТЫХ, или еще как-то, но только не просто value!!!

)
PR2 = PR1 * kpf
PR3 = PR2 * kpf
Все! Есть! Получили!
3-й блок - определяем точку вставки (другими словами - привязываемся к чему-то или определяем что-то, например, к какой-то РЕАЛЬНОЙ ячейке!!!). А уже от нее, с помощью OFFSET, передвигайтесь и вставляйте куда хотите и как хотите.
E.G.

Visual Basic
1
2
3
with activesheet.cells(3,2)
   .offset(0,2).value=PR1: .offset(0,5).value=PR2:  .offset(0,9).value=PR3 
end with

Это уже все только от Ваших фантазий.

Просто Вы, мне кажется, совсем не понимаете "как двигаются шахматные фигуры по полю".

Добавлено через 6 минут

или я не прав и оно просто теряется

Никуда оно не девается. В основном, уходит после End Sub, полностью!, а до него - Вам еще нужно очень постараться, что б его изменить/перезаписать/стереть. Хотя, может и не очень...

@dj_oni · 03.10.2013, 07:12 **[ТС]**

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

3-й блок - определяем точку вставки (другими словами - привязываемся к чему-то или определяем что-то, например, к какой-то РЕАЛЬНОЙ ячейке!!!). А уже от нее, с помощью OFFSET, передвигайтесь и вставляйте куда хотите и как хотите.
E.G.
Код Visual Basic
1
2
3
with activesheet.cells(3,2)
.offset(0,2).value=PR1: .offset(0,5).value=PR2: .offset(0,9).value=PR3
end with

Вот тут у меня затруднения если я так пропишу функцию и четко задам координаты у основной ячейки, то для первой строки решение пройдет, а для 2 строки, 3 строки и n строки это все куда полезет? получается, что полезет туда же где были ответы для первой строки?

Это уже все только от Ваших фантазий. Просто Вы, мне кажется, совсем не понимаете "как двигаются шахматные фигуры по полю".

Полностью согласен, в php я просто сам рисовал это шахматное поле и оно могло быть каким угодно, а здесь хоть с бубном танцуй.

@Igor_Tr · 03.10.2013, 09:17

Ну и здесь рисуйте.
.offset(-1,2).value=PR1: .offset(1220,5).value=PR2: .offset(-3,9).value=PR3

@Hugo121 · 03.10.2013, 09:32

При использовании select case вполне достаточно писать так (для целых чисел):

Visual Basic
1
2
3
4
5
6
7
Select case mValue
      case is<1001: kpf = 1.038
      case is<2501: kpf = 1.034
      case is<4701: kpf = 1.032
      case is<5001: kpf = 1.03
      case else:
end select

@Igor_Tr · 03.10.2013, 10:18

Здравствуйте Hugo. Можно, но я бы не рисковал.

Например, при Desc. Перехватит меньше чего-то - и сразу дальше передача как аргумент в доп. процедуру. Вы увидите, я увижу - а ТС? Ну и наглядее...

@dj_oni · 03.10.2013, 23:35 **[ТС]**

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

Ну и здесь рисуйте.
.offset(-1,2).value=PR1: .offset(1220,5).value=PR2: .offset(-3,9).value=PR3

это я почти понял, а как сделать привязку к той ячейке у которой беру значение myValue с учетом того что она уже скорее всего не будет выделенной ячейкой.
Сорри, туплю по страшному, но почти вся инфа в инете copypaste и нужного мне не найти

@Hugo121 · 03.10.2013, 23:41

Что-то я файла не вижу с функцией... Надеюсь Вы её не в ячейке применяете?
А ответ -

Visual Basic
1
2
3
with selection(1)
.offset(-1,2).value=PR1: .offset(1220,5).value=PR2: .offset(-3,9).value=PR3
end with

@dj_oni · 03.10.2013, 23:51 **[ТС]**

Пока я ее еще нигде не применяю, т.к. завершить и получить нужный результат не могу.
строк для которых нужно повторить данную операцию, порядка 1500
но вообще я планировал ее использовать как пользовательскую функцию для определенных строк.
завтра буду мучать свою машину, надеюсь волшебный зеленый дымок из нее не пойдет

@Hugo121 · 03.10.2013, 23:56

Пользовательские функции листа не могут изменять значения других ячеек (ну есть одно исключение, но не в данном случае).
Но можно написать одну массивную, которая будет выводить результат сразу во все 1500. Если конечно можно

(файла с задачей ведь никто не видел...)
Ну или полегче - массивную на эти три ячейки. Но конечно быстрее будет работать одна на 1500*3, чем 1500 разных*3

@Igor_Tr · 04.10.2013, 00:55

To dj_oni, Вы ведь ее как берете (это myValue), значит обращаетесь к ней. Один из вариантов - запомнить в переменную ее номер ряда и столбца. Например. Выделите любую ячейку на листе, в обычный модуль загоните код:

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
sub mAddress()
   dim r&, c&
    r=Activecell.Row
    c=Activecell.column
  debug.print  "Row= " & r & " ---- " & "Column = " & c
end sub

Теперь можете к ней обратиться в любое время (Cells(r, c).select), пока не перешли через строку End sub (вот тогда все Ваши переменные уровня процедуры умрут), или обратиться к ячейке, e.g., расположенной правее на два столбца и на один ряд выше (если там есть место!)
Cells(r,c).offset(-1,2).select

@dj_oni · 06.10.2013, 10:06 **[ТС]**

поломав немного голову над всем этим и заставив комп не матерится
получил вот что, сразу скажу данные эта штука не выводит, если вообще их считает...

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
40
41
42
43
44
45
46
47
48
49
Function PR(myValue As String) As String
 
Dim kpf As String
Dim r&, c&
r = ActiveCell.Row
c = ActiveCell.Column
 Debug.Print "Row= " & r & " ---- " & "Column = " & c  ' даже не понимаю для чего это
Select Case myValue ' типа выбрал индекс
      Case Is <= 1001: kpf = 1.038
      Case Is <= 2500: kpf = 1.034
      Case Is <= 5000: kpf = 1.03
      Case Is > 5000: kpf = 1.028
End Select
Select Case myValue  ' попытка выбрать группу формул
    Case Is >= 4700
        PR500 = Round(myValue * 1)
        PR250 = Round(PR500 * 1)
        PR100 = Round(PR250 * kpf)
        PR50 = Round(PR100 * kpf)
        PR25 = Round(PR50 * kpf)
        PR10 = Round(PR25 * kpf)
        PR5 = Round(PR10 * 1.04)
        PR3 = Round(PR5 * 1.04)
        PR1 = Round(PR3 * 1.04)
    Case Is >= 2800
        PR500 = Round(myValue * 1)
        PR250 = Round(PR500 * kpf)
        PR100 = Round(PR250 * kpf)
        PR50 = Round(PR100 * kpf)
        PR25 = Round(PR50 * kpf)
        PR10 = Round(PR25 * kpf)
        PR5 = Round(PR10 * 1.04)
        PR3 = Round(PR5 * 1.04)
        PR1 = Round(PR3 * 1.04)
   Case Else
        PR500 = Round(myValue * kpf)
        PR250 = Round(PR500 * kpf)
        PR100 = Round(PR250 * kpf)
        PR50 = Round(PR100 * kpf)
        PR25 = Round(PR50 * kpf)
        PR10 = Round(PR25 * kpf)
        PR5 = Round(PR10 * 1.04)
        PR3 = Round(PR5 * 1.04)
        PR1 = Round(PR3 * 1.04)
End Select
Cells(r, c).Offset(-1, 2).Value = PR500: 
Cells(r, c).Offset(-1, 3).Value = PR250: 
Cells(r, c).Offset(-1, 4).Value = PR100
End Function

с ума сойти можно

@Igor_Tr · 06.10.2013, 14:15

Уже что-то на что-то начинает быть похожим.
Debug.Print - это команда напечатать то, что Вы хотите увидеть даже без остановки кода в окне Immediate Window. Можно открыть при активном редакторе VBE, e.g., клавишами Ctrl + G. Такие окна и записи используют, в основном, при отладке. Потом удаляют.

toiai · 06.10.2013, 14:46

Предложу немного подкорректировать для читабельности:

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
Function PR(myValue As String) As String
 
    Dim kpf As Double, k500 As Double, k250 As Double
    Dim r&, c&
    r = ActiveCell.Row
    c = ActiveCell.Column
     Debug.Print "Row= " & r & " ---- " & "Column = " & c  ' äàæå íå ïîíèìàþ äëÿ ÷åãî ýòî
    Select Case myValue ' òèïà âûáðàë èíäåêñ
          Case Is <= 1001: kpf = 1.038
          Case Is <= 2500: kpf = 1.034
          Case Is <= 5000: kpf = 1.03
          Case Is > 5000: kpf = 1.028
    End Select
    Select Case myValue  ' ïîïûòêà âûáðàòü ãðóïïó ôîðìóë
        Case Is >= 4700
            k500 = 1
            k250 = 1
        Case Is >= 2800
            k500 = 1
            k250 = kpf
       Case Else
            k500 = kpf
            k250 = kpf
    End Select
    PR500 = Round(myValue * k500)
    PR250 = Round(PR500 * k250)
    PR100 = Round(PR250 * kpf)
    PR50 = Round(PR100 * kpf)
    PR25 = Round(PR50 * kpf)
    PR10 = Round(PR25 * kpf)
    PR5 = Round(PR10 * 1.04)
    PR3 = Round(PR5 * 1.04)
    PR1 = Round(PR3 * 1.04)
    Cells(r, c).Offset(-1, 2).Value = PR500:
    Cells(r, c).Offset(-1, 3).Value = PR250:
    Cells(r, c).Offset(-1, 4).Value = PR100
End Functio

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	[В процессе разработки] SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия SDL 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual. . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	02.10.2013, 23:31
	Почти. case is > 4690 PR1 = value * kpf PR2 = PR1 * kpf PR3 = PR2 * kpf case is 2801 to 4699 ....что-то............. Но Ваша основная задача привязать kpf к условию. И не имеет значение, это VBA, или php. В предыдущих условиях так и делается (case is 1001 to 2500: kpf = 1.034), а для > 4690 kpf с неба само падает, нужное? И какое оно? Мне самому интересно, не вижу. И лучше идти в "хронолигии" - не запутаетесь. Добавлено через 6 минут И Вы упрямо хотите довести машину до шизофрении. Есть у Вас там выражение: ActiveSheet.Cells(, -2) = PR1 Правильно звучит так (грубо, приблизительно): ActiveSheet.Cells(5, 2).Value = PR1 Точно машина не запутается, где какое "value"? А Вы? Не запутаетесь? Добавлено через 14 минут О! Я, кажется, очень умный!!! Догадался почему у Вас там столбик -2. Есть такое, но используется только с Оffset. Означает, отступить вправо/вниз (с минусом - влево/вверх) от указанного. Если Вы запишете (имея ввиду ячейку "А2"), например, cells(2,1).offset(-3, -2) - получите ошибку. Почему - я уже писал (не умеет комп искать у соседей. Или "хорошо воспитанный" ) 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	03.10.2013, 09:17
	Ну и здесь рисуйте. .offset(-1,2).value=PR1: .offset(1220,5).value=PR2: .offset(-3,9).value=PR3 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	03.10.2013, 10:18
	Здравствуйте Hugo. Можно, но я бы не рисковал. Например, при Desc. Перехватит меньше чего-то - и сразу дальше передача как аргумент в доп. процедуру. Вы увидите, я увижу - а ТС? Ну и наглядее... 0

@dj_oni 5 / 5 / 2 Регистрация: 02.10.2013 Сообщений: 147
	03.10.2013, 23:51 [ТС]
	Пока я ее еще нигде не применяю, т.к. завершить и получить нужный результат не могу. строк для которых нужно повторить данную операцию, порядка 1500 но вообще я планировал ее использовать как пользовательскую функцию для определенных строк. завтра буду мучать свою машину, надеюсь волшебный зеленый дымок из нее не пойдет 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	03.10.2013, 23:56
	Пользовательские функции листа не могут изменять значения других ячеек (ну есть одно исключение, но не в данном случае). Но можно написать одну массивную, которая будет выводить результат сразу во все 1500. Если конечно можно (файла с задачей ведь никто не видел...) Ну или полегче - массивную на эти три ячейки. Но конечно быстрее будет работать одна на 15003, чем 1500 разных3 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	06.10.2013, 14:15
	Уже что-то на что-то начинает быть похожим. Debug.Print - это команда напечатать то, что Вы хотите увидеть даже без остановки кода в окне Immediate Window. Можно открыть при активном редакторе VBE, e.g., клавишами Ctrl + G. Такие окна и записи используют, в основном, при отладке. Потом удаляют. 0