Автопрокрутка листа - Страница 2

Дата: Среда, 22.05.2019, 15:25 | Сообщение № 21

Группа: Друзья

Ранг: Ветеран

Сообщений: 550

Репутация: 167 ±

Замечаний: 0% ±

365

Цитата serg1981, 22.05.2019 в 15:17, в сообщении № 18 ()

Заполняются столбцы - A, B, C, D, E,

А - К столбец пустой

Согласно вашего макроса заполняются 11,12,13 и 14 столбцы при изменении в 9-м
что соответствует K,L,M и N при изменении в I

Дата: Среда, 22.05.2019, 15:34 | Сообщение № 22

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

serg1981, про обсуждение на других форумах нужно самостоятельно сообщать. Об этом есть в Правилах форума
https://u.to/eSxyFQ

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Дата: Среда, 22.05.2019, 15:58 | Сообщение № 23

Группа: Пользователи

Ранг: Новичок

Сообщений: 27

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата _Boroda_, 22.05.2019 в 15:22, в сообщении № 19 ()

- это как раз столбец К
Ну замените в коде 11 на 1, 12 на 2, ... и будут столбцы А,В, ...

Файл не могу - не знаю как

уже 23651 строка заполнена

поменял Cells(.Row, 11) на Cells(.Row, 1)

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    With Target
        If Not Intersect(Target, Columns(9)) Is Nothing Then
            Application.ScreenUpdating = False
            Application.EnableEvents = False
            r_ = .Row
            Cells(r_, 1).Value = Cells(r_, 5).Value * Cells(r_, 7).Value * 1000
            Cells(r_, 12) = (-0.0039807 + Sqr(0.0039807 ^ 2 - 4 * (-0.00000059048) * (1 - (Cells(r_, 1).Value / Cells(r_, 3).Value) * 100 / 100.0299))) / (2 * (-0.00000059048))
            Cells(r_, 13) = 0.836 * Cells(r_, 9).Value * 1000 - 0.654
            Cells(r_, 14) = Cells(r_, 12).Value - Cells(r_ - 1, 12).Value
            If r_ < 20 Then
                n_ = 1
            Else
                n_ = r_ - 20
            End If
            Application.Goto Reference:=Range("A" & n_), Scroll:=True
            Application.EnableEvents = True
            Application.ScreenUpdating = True
        End If
    End With
End Sub

[/vba]

нет - автопрокрутки

данные идут и идут ( строка уже 23661 заполнена ) , а прокрутки нет...

С уважением Сергей-1981

Дата: Среда, 22.05.2019, 16:34 | Сообщение № 24

Группа: Пользователи

Ранг: Новичок

Сообщений: 27

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата boa, 22.05.2019 в 15:25, в сообщении № 21 ()

ну я же говорю - я чайник....

нашел код - думал он ко всему листу работает

в шапке говорил, что нашел его, а что он делает не знал.

ситуацию, я описывал, что : "На листе ежесекундно поступает информация, каждая строка - добавляется снизу ( т.е. с верху вниз.)

Как сделать так, что бы автоматически была прокрутка вниз, при заполнении видимой части.

Что бы в режиме мониторинга была видна - последняя строка ( в ней свежие данные )

Ну и остальные было видно - сколько влезает на лист, после последней строки.

Как мог объяснил...."

еще добавлю ( это выяснилось в процессе, что нужно об этом сказать ), что на моем доке заполняются столбцы - A, B, C, D, E,

добавляются быстро - уже 24000 строка... и т .д.

нашел этот макрос, а работает он или нет и как ??? - не вкурсе.

А оказалось - что он конкретно к одной ячейке, а у меня тоже к одной, но любую можно из A, B, C, D, E, выбрать...

как сделать не знаю... ну помогите - калеке, если я чайник...

знал бы, что этот макрос делает - не выкладывал бы его, чтоб не путать добрых людей...

извините, помогите пожалуйста.

Цитата boa, 22.05.2019 в 15:25, в сообщении № 21 ()

С уважением Сергей-1981

Сообщение

Цитата boa, 22.05.2019 в 15:25, в сообщении № 21 ()

Автор - serg1981
Дата добавления - 22.05.2019 в 16:34

Дата: Среда, 22.05.2019, 16:35 | Сообщение № 25

Группа: Пользователи

Ранг: Новичок

Сообщений: 27

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата _Boroda_, 22.05.2019 в 15:34, в сообщении № 22 ()

про обсуждение на других форумах нужно самостоятельно сообщать. Об этом есть в Правилах форума
https://u.to/eSxyFQ

там думал вообще не ответят, тема 2016 года...

Вы меня опередили....

там всё - закончил, извинился

С уважением Сергей-1981

Сообщение отредактировал serg1981 - Среда, 22.05.2019, 16:36

Дата: Среда, 22.05.2019, 17:05 | Сообщение № 26

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Если чайник, то нужно внимательно читать то, что Вам пишут и отвечать на вопросы. На свой первый вопрос (пост 5) я ответа так и не дождался, а это очень важный вопрос - от того, как поступают данные на лист, зависит, будет ли отрабатывать событие листа Worksheet_Change. Также Вы невнимательно прочитали пост 19. Там написано "замените в коде 11 на 1, 12 на 2, ... и будут столбцы А,В, ...", а Вы что сделали? 11 на 1 заменили, а остальное?
И Правила форума Вы, похоже, до сих пор не прочитали. Что там написано в п.3 касательно требований к составлению файла-примера? Без файла Вам кучу решений предложили, Вы сказали, что не подходит, то ж мы еще сделать можем? У нас данных для помощи нет, а выпрашивать их у Вас никто не будет, решение-то Вам нужно, а не нам. Так что все, что могли на представленных данных, мы сделали

Дата: Среда, 22.05.2019, 17:28 | Сообщение № 27

Группа: Пользователи

Ранг: Новичок

Сообщений: 27

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата _Boroda_, 22.05.2019 в 17:05, в сообщении № 26 ()

Если чайник

да Вы правы во всем - еще и поспешил, и накосячил. ( файл не могу предоставить ), в описании просьбы - как мог объяснил.

Всем спасибо - за помощь...

извиняйте если кого обидел...

плохо нет в excele - автопрокрутки...

С уважением Сергей-1981

Дата: Среда, 22.05.2019, 18:00 | Сообщение № 28

Группа: Пользователи

Ранг: Новичок

Сообщений: 27

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата _Boroda_, 22.05.2019 в 17:05, в сообщении № 26 ()

нужно внимательно читать то, что Вам пишут

добавил столбцы данных - теперь : A, B, C, D, E, F, G, H, I, J, K, L, M, N,

заполняются каждую секунду, каждая строка заполняется, в каждом столбце...

ни один код не работает ( который был выложен ) на глубине 21000 по 26540 - вой строк.... и т.д. и глубже....

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

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

проще в autoite написать, что бы по цвету ячейки ( черный шрифт ) и ( координатам ) - как появится, то нажать пару раз на прокрутку ( стрелочку вниз )

но этого не хочется, а хочется в Exele - реализовать...

С уважением Сергей-1981

Дата: Среда, 22.05.2019, 18:27 | Сообщение № 29

Группа: Пользователи

Ранг: Новичок

Сообщений: 27

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата китин, 22.05.2019 в 14:57, в сообщении № 11 ()

Чтой то я ничего не понЯл.

Вы вот в этом посте >>>

грамотно сделали при активации листа, срабатывает.

а можно при появлении данных ( в столбце А )

также срабатывал - при появлении данных...

помогите пожалуйста...

С уважением Сергей-1981

Сообщение отредактировал serg1981 - Среда, 22.05.2019, 20:53

Дата: Среда, 22.05.2019, 22:49 | Сообщение № 30

Группа: Друзья

Ранг: Ветеран

Сообщений: 550

Репутация: 167 ±

Замечаний: 0% ±

365

Цитата serg1981, 22.05.2019 в 18:27, в сообщении № 29 ()

а можно при появлении данных ( в столбце А )

ну так сделайте
в строке "If Not Intersect(Target, Columns(1)) Is Nothing Then" внесите изменения,
а потом при каждом обращении к ячейке укажите нужную колонку(номер столбца)
[vba]

Код

Cells(r_, "номер столбца")...

[/vba]

Сообщение отредактировал boa - Среда, 22.05.2019, 22:56

Дата: Четверг, 23.05.2019, 08:25 | Сообщение № 31

Группа: Пользователи

Ранг: Новичок

Сообщений: 27

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата boa, 22.05.2019 в 22:49, в сообщении № 30 ()

Спасибо - извините, а Вы о каком коде имеете ввиду ?

я запутался в них - какой брать за основу ?

я понимаю, что :
Columns - это касается столбцов;
Cells - это касается ячеек
а вот расчеты эти :
[vba]

Код

Cells(.Row, 11).Value = Cells(.Row, 5).Value * Cells(.Row, 7).Value * 1000
        Cells(.Row, 12) = (-0.0039807 + Sqr(0.0039807 ^ 2 - 4 * (-0.00000059048) * (1 - (Cells(.Row, 1).Value / Cells(.Row, 3).Value) * 100 / 100.0299))) / (2 * (-0.00000059048))
        Cells(.Row, 13) = 0.836 * Cells(.Row, 9).Value * 1000 - 0.654
        Cells(.Row, 14) = Cells(.Row, 12).Value - Cells(.Row - 1, 12).Value

[/vba]

расчеты - я ЭТИ не делал и не понимаю их ( не моя кухня ),не создавал я этот код... - который привел в просьбе...

мне сразу помогли несколько человек - благодарен очень ( много вариантов кода выложили )

И теперь не знаю - какой правильный и какой брать за основу, и расчеты эти выбрасывать или оставлять ?

Ребята - ну не судите, не пинайте, давайте с начала начнем.... без того кода который я привел ( думал поможет )

Нужно чтобы в столбце А, при появлении в пустой ячейке ( с верху вниз ) любой информации ( появляется каждую секунду ), срабатывала прокрутка листа до последней строки. Глубина появления не известна ( допустим с 1 по 600000 - ю.). Когда лист открываешь - то, моментально уже заполнены ( заполняются ) - множество строк и столбцов ( возьмем столбец А ).

В коде бы реализовать, что бы, сразу пустую ячейку по столбце А - сканировать, появилась инфа, прокрутить до последней строки.

Спасибо всем - что умеете прощать.

Давайте - один код возьмем за основу...

Нужна материальная благодарность - я только за.

Цитата boa, 22.05.2019 в 22:49, в сообщении № 30 ()

Код

С уважением Сергей-1981

Сообщение

Цитата boa, 22.05.2019 в 22:49, в сообщении № 30 ()

Код

Автор - serg1981
Дата добавления - 23.05.2019 в 08:25

Дата: Четверг, 23.05.2019, 09:16 | Сообщение № 32

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Пробуйте[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns(1)) Is Nothing Then
        Application.Goto Reference:=Range("A" & Target.Row), Scroll:=True
    End If
End Sub

[/vba]

Дата: Четверг, 23.05.2019, 13:34 | Сообщение № 33

Группа: Друзья

Ранг: Ветеран

Сообщений: 550

Репутация: 167 ±

Замечаний: 0% ±

365

Цитата serg1981, 23.05.2019 в 08:25, в сообщении № 31 ()

а Вы о каком коде имеете ввиду ?
я запутался в них - какой брать за основу ?

да какой вам понравился. все коды рабочие.
Соберите файл 20-30 строк.
Впишите туда макрос.
и напишите, что вам в работе макроса не нравится и/или делается не так.
приложите к посту, как того требуют правила форума, созданный файл.
И тогда все помогающие будут понимать, что вам надо и с чем вы работаете.
А не в слепую искать черную кошку в темной комнате.

Дата: Четверг, 23.05.2019, 14:36 | Сообщение № 34

Группа: Пользователи

Ранг: Новичок

Сообщений: 27

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата _Boroda_, 23.05.2019 в 09:16, в сообщении № 32 ()

Пробуйте

Есть контакт

, работает, но не понимает, что данные закачиваются в строку - не видит их.

а вот, если сам возьмешь - и введешь число или символ, то понимает !!!

скролит до самого верха - т.е. понимает ручной ввод, а подкачанные данные не понимает ( не видит )...

файл прилагаю - что разрешили выкладываю...

нужно чтобы понимал прилетающие данные и скролил, но не до самого верха, на шага 3-ри ( строки ) снизу вверх...

чтобы видно было предыдущие данные - 20 строк выше которые - не прятались что бы они...

( там в самом низу на 4000 строке, сам вводил, цифры ), а остальные подкачанные

К сообщению приложен файл: Number.xlsm (50.6 Kb)

С уважением Сергей-1981

Сообщение отредактировал serg1981 - Четверг, 23.05.2019, 14:40

Дата: Четверг, 23.05.2019, 14:50 | Сообщение № 35

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Цитата serg1981, 23.05.2019 в 14:36, в сообщении № 34 ()

а подкачанные данные не понимает ( не видит )

Я дважды писал именно про это

Цитата _Boroda_, 22.05.2019 в 09:53, в сообщении № 5 ()

Поступает как? С помощью чего?

Цитата _Boroda_, 22.05.2019 в 17:05, в сообщении № 26 ()

На свой первый вопрос (пост 5) я ответа так и не дождался, а это очень важный вопрос - от того, как поступают данные на лист, зависит, будет ли отрабатывать событие листа Worksheet_Change

однако Вы изволили проигнорировать мои вопросы
Мне надоело с Вами бороться, удачи

Дата: Четверг, 23.05.2019, 15:14 | Сообщение № 36

Группа: Пользователи

Ранг: Новичок

Сообщений: 27

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата _Boroda_, 23.05.2019 в 14:50, в сообщении № 35 ()

однако Вы изволили проигнорировать мои вопросы

зачем мне игнорировать - я сегодня разрешение получил, оперировать с файлом...

сложная задача конечно - не спорю....

С уважением Сергей-1981

Дата: Четверг, 23.05.2019, 16:16 | Сообщение № 37

Группа: Друзья

Ранг: Ветеран

Сообщений: 550

Репутация: 167 ±

Замечаний: 0% ±

365

serg1981,

Цитата serg1981, 23.05.2019 в 08:25, в сообщении № 31 ()

расчеты - я ЭТИ не делал и не понимаю их ( не моя кухня ),не создавал я этот код... - который привел в просьбе...

С расчетами вашими вообще не понятно.
вы ж в примере ни чего не показали. Как у вас там данные "прилетают" не понятно.
предположим, что данные "прилетают" в 1-ю колонку.
в 11-й колонке перемножаются 5-я и 7-я. Что в них? в примере нет ничего!
в 12-й используются значения 1-й и 3-й. Что в них?(в первой мы уже вставляем, но думаю это не то что должно участвовать в расчетах)
в 13-й задействовано значение 9-й. Предполагаю что теперь это значение 1-й.
ну и в 14-й используется значение 12-й. Тут понятно.

Короче, что у вас за данные, как они попадают на интересующую страницу и что считается в 11-14-й колонках осталось загадкой для всех.

в приложенном файле запустите макрос TEST и посмотрите на поведение скролинга.

З.Ы.

Цитата serg1981, 23.05.2019 в 15:14, в сообщении № 36 ()

сложная задача конечно - не спорю....

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

К сообщению приложен файл: Number2.xlsm (58.2 Kb)

Сообщение отредактировал boa - Четверг, 23.05.2019, 16:21

Дата: Четверг, 23.05.2019, 17:21 | Сообщение № 38

Группа: Пользователи

Ранг: Новичок

Сообщений: 27

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата boa, 23.05.2019 в 16:16, в сообщении № 37 ()

С расчетами вашими вообще не понятно.

не мои расчеты - см. пост >>>

"Но не понимаю в этом, и как прикрутить тоже - а может это и не работает. Подскажите пожалуйста рабочий пример."

см. пост >>>

Это пост № 1.

Ребята - ну внимательней читать надо - прежде чем закидывать кодами...

я еще из уважения - начал извинятся...

сами меня забросали кодами, - я еще и самый виновный

там же в первом посте указанно - ежесекундно данные поступают ! ежесекундно поступают.... - не формула рассчитывает, не человек забивает, а ежесекундно поступают !!!

и КОД - этот нашел !!!

С уважением Сергей-1981

Дата: Четверг, 23.05.2019, 17:38 | Сообщение № 39

Группа: Друзья

Ранг: Ветеран

Сообщений: 550

Репутация: 167 ±

Замечаний: 0% ±

365

Цитата serg1981, 23.05.2019 в 17:21, в сообщении № 38 ()

ежесекундно данные поступают

Цитата _Boroda_, 22.05.2019 в 09:53, в сообщении № 5 ()

Поступает как? С помощью чего?

что я еще могу добавить...

Дата: Четверг, 23.05.2019, 17:38 | Сообщение № 40

Группа: Пользователи

Ранг: Новичок

Сообщений: 27

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата _Boroda_, 22.05.2019 в 09:53, в сообщении № 5 ()

Поступает как? С помощью чего?

Вы пожалуйста проследите пост >>>

задали мне вопрос в - "Дата: Среда, 22.05.2019, 09:53" - Поступает как? С помощью чего?

тут же следом в Дата: Среда, 22.05.2019, 09:57

"разместите Cells(.Row, 11).select после End If"

я начал размещать и мучится,

потом в Дата: Среда, 22.05.2019, 12:41 "не после End If, алучше, вместо строки
ActiveWindow.SmallScroll Down:=IIf(Cells(Rows.Count, 9).End(xlUp).Row > 40, 1, 0) "

я опять давай мучится,

и как поняслось, как поехали коды - уууу...

извиняюсь конечно, они походу сами с собой - то после End If, то потом вместо того.....

делаааа.....

я скодами мучался - а Ваш вопрос был САМЫЙ ГЛАВНЫЙ И НУЖНЫЙ !!! Поступает как? С помощью чего?

С уважением Сергей-1981

Сообщение отредактировал serg1981 - Четверг, 23.05.2019, 17:41