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

Старая форма входа

Страница 3 из 3 « 1 2 3
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Автопрокрутка листа (Формулы/Formulas)

Автопрокрутка листа

serg1981

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

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

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

Сообщений: 27

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

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

Excel 2010

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

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

см. пост от Четверг, 23.05.2019, 17:38 пост >>>

ну что нибудь добавьте - будьте любезны...

"Батя - вопрос задал - откуда ? с помощью чего ?"

наверно не надо было спешить... - как Вы думаете ?

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

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

Ответить

serg1981

Дата: Четверг, 23.05.2019, 18:03 | Сообщение № 42

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

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

Сообщений: 27

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

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

Excel 2010

устроили Мы все здесь базар...

одну задачу на 15 листов растянули...

когда на кухне много поворов - не порядок...

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

Ответить

serg1981

Дата: Воскресенье, 26.05.2019, 08:04 | Сообщение № 43

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

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

Сообщений: 27

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

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

Excel 2010

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

Короче, что у вас за данные

данные попадают в Excel через DDE сервер

вот нашел ПРИМЕР !!! кода - который возможно натолкнет на правильное решение :

[vba]

Код

Sub GetCellValues()

   Dim iRow As Integer 'Хранит номер текущей строки
   Dim dCellValues() As Double 'Массив для хранения значений ячеек

   iRow = 1
   ReDim dCellValues(1 To 10)

   'Цикл Do Until перебирает последовательно ячейки столбца A активного листа
   'и извлекает их значения в массив до тех пор, пока не встретится пустая ячейка

   Do Until IsEmpty(Cells(iRow, 1))

      'Проверяем, что массив dCellValues имеет достаточный размер
      'Если нет – увеличиваем размер массива на 10 при помощи ReDim
      If UBound(dCellValues) < iRow Then
         ReDim Preserve dCellValues(1 To iRow + 9)
      End If

      'Сохраняем значение текущей ячейки в массиве dCellValues
      dCellValues(iRow) = Cells(iRow, 1).Value

      iRow = iRow + 1
   Loop

End Sub

[/vba]

нужно к нему прикрутить или СДЕЛАТЬ проще ( не знаю как )

Код который в примере :

Ищет пустую ячейку - нашел и передал её в массив.

дальше, нужно чтобы ждал появления в этой ( пустой ) ячейки данных - ( ЛЮБЫХ - из ВНЕ )

появились - АВТОПРОКРУТИЛ на одну строку вверх, и чтобы видно было предшествующие данные.

потом опять начал поиск ПУСТОЙ ячейки и опять ждал появления данных, появились - АВТОПРОКРУТИЛ на одну строку вверх

и так в цикле.

По столбцу А !!!

Пожалуйста помогите осуществить эту задачу...

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

Короче, что у вас за данные

Код

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

Ответить

Сообщение

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

Короче, что у вас за данные

Код

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

krosav4ig

Дата: Воскресенье, 26.05.2019, 14:23 | Сообщение № 44

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

Ранг: Старожил

Сообщений: 2347

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

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

Excel 2007,2010,2013

Цитата serg1981, 26.05.2019 в 08:04, в сообщении № 43 ()

данные попадают в Excel через DDE сервер

serg1981, а не кажется ли вам, что вы должны были это написать в своем первом посте? вместо того, чтобы писать код, которы вообще нафиг не упал... или вы считаете, что тут телепаты собрались и должны угадывать?

шлем по dde 2 команды
[vba]

Код

'[select.special(11)]'
'[select(, "RC1")]'

[/vba]

или пользуем Worksheet_Calculate, ибо Worksheet_Change не работает с DDE
[vba]

Код

Private Sub Worksheet_Calculate()
Worksheets(Me.Name).UsedRange
Me.Cells.SpecialCells(11).EntireRow.Cells(, "A").Select
End Sub

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Воскресенье, 26.05.2019, 14:25

Ответить

AlexM

Дата: Воскресенье, 26.05.2019, 19:55 | Сообщение № 45

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

Ранг: Участник клуба

Сообщений: 4480

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

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

Excel 2003

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

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

serg1981, На этот вопрос ответа нет.
Если данные вставляете вручную, то события работать будут. Если вставка данных из другой программы, то события не будут работать.
Прочтите темы
[p.s.]не обратил внимание, что тема на нескольких листах. Прочел только первый лист.

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Воскресенье, 26.05.2019, 20:00

Ответить

serg1981

Дата: Понедельник, 27.05.2019, 04:29 | Сообщение № 46

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

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

Сообщений: 27

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

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

Excel 2010

Цитата krosav4ig, 26.05.2019 в 14:23, в сообщении № 44 (

)

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

данные попадают в Excel через DDE сервер, с другой программы ( корректно поступают ) - подгружаются, появляются в ячейках данные - мгновенно...

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

Сообщение отредактировал serg1981 - Понедельник, 27.05.2019, 04:40

Ответить

serg1981

Дата: Понедельник, 27.05.2019, 04:38 | Сообщение № 47

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

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

Сообщений: 27

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

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

Excel 2010

Цитата krosav4ig, 26.05.2019 в 14:23, в сообщении № 44 ()

которы вообще нафиг не упал... или вы считаете, что тут телепаты собрались и должны угадывать?

в первом посте >>>
под первым КОДОМ ( не моим !!! ) написанно :

"Но не понимаю в этом, и как прикрутить тоже - а может это и не работает.

Подскажите пожалуйста рабочий пример."

Телепатов не искал, а помощи.

И почему я не ответил сразу на вопрос "Поступает как? С помощью чего?" смотрите этот пост >>>

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

Ответить

serg1981

Дата: Понедельник, 27.05.2019, 05:12 | Сообщение № 48

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

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

Сообщений: 27

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

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

Excel 2010

Цитата krosav4ig, 26.05.2019 в 14:23, в сообщении № 44 ()

или пользуем Worksheet_Calculate, ибо Worksheet_Change не работает с DDE

Давайте решать задачу, тогда так :

На 1-й лист - поступают данные с DDE сервера - так ?

1-й лист - берем за основу... !

Ко второму листу пишем макрос - который, с 1-го листа дублирует данные и переносит на второй лист. ( МОЖНО НАПИСАТЬ ФОРМУЛУ И ПРОТЯНУТЬ ЕЕ ДО САМОГО НИЗА ( ДО ПОСЛЕДНЕЙ СТРОКИ ) - НО ЭТО - ФИГНЯ )

Получается 2-й лист идентичен с 1-м. ( Если макрос такой добавить, на второй лист. )

На второй лист уже данные поступают не с DDE сервера ( а с 1-го ЛИСТА ! ) - так ?

и ко второму листу ( ко 2-му ЛИСТУ, который дублирует с первого ! ) - можно применить эту логику ??? :

[vba]

Код

Sub GetCellValues()

Dim iRow As Integer 'Хранит номер текущей строки
Dim dCellValues() As Double 'Массив для хранения значений ячеек

iRow = 1
ReDim dCellValues(1 To 10)

'Цикл Do Until перебирает последовательно ячейки столбца A активного листа
'и извлекает их значения в массив до тех пор, пока не встретится пустая ячейка

Do Until IsEmpty(Cells(iRow, 1))

    'Проверяем, что массив dCellValues имеет достаточный размер
    'Если нет – увеличиваем размер массива на 10 при помощи ReDim
    If UBound(dCellValues) < iRow Then
        ReDim Preserve dCellValues(1 To iRow + 9)
    End If

    'Сохраняем значение текущей ячейки в массиве dCellValues
    dCellValues(iRow) = Cells(iRow, 1).Value

    iRow = iRow + 1
Loop

[/vba]

Ищет пустую ячейку - нашел и передал её в массив.

дальше, нужно чтобы ждал появления в этой ( пустой ) ячейки данных - ( ЛЮБЫХ - из ВНЕ )

появились - АВТОПРОКРУТИЛ на одну строку вверх, и чтобы видно было предшествующие данные.

потом опять начал поиск ПУСТОЙ ячейки и опять ждал появления данных, появились - АВТОПРОКРУТИЛ на одну строку вверх

и так в цикле.

По столбцу А !!!

Можно так сделать ( со вторым ЛИСТОМ ! ) ???

ТЕПЕРЬ ДАННЫЕ ПОСТУПАЮТ С EXCEL - с первого листа на второй ( если подумать о вышеописанном ) !

"извиняюсь за подробный расклад"

Цитата krosav4ig, 26.05.2019 в 14:23, в сообщении № 44 ()

или пользуем Worksheet_Calculate, ибо Worksheet_Change не работает с DDE

Код

Sub GetCellValues()

Dim iRow As Integer 'Хранит номер текущей строки
Dim dCellValues() As Double 'Массив для хранения значений ячеек

iRow = 1
ReDim dCellValues(1 To 10)

'Цикл Do Until перебирает последовательно ячейки столбца A активного листа
'и извлекает их значения в массив до тех пор, пока не встретится пустая ячейка

Do Until IsEmpty(Cells(iRow, 1))

    'Проверяем, что массив dCellValues имеет достаточный размер
    'Если нет – увеличиваем размер массива на 10 при помощи ReDim
    If UBound(dCellValues) < iRow Then
        ReDim Preserve dCellValues(1 To iRow + 9)
    End If

    'Сохраняем значение текущей ячейки в массиве dCellValues
    dCellValues(iRow) = Cells(iRow, 1).Value

    iRow = iRow + 1
Loop

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

Сообщение отредактировал serg1981 - Понедельник, 27.05.2019, 05:32

Ответить

Сообщение

Цитата krosav4ig, 26.05.2019 в 14:23, в сообщении № 44 ()

или пользуем Worksheet_Calculate, ибо Worksheet_Change не работает с DDE

Код

Sub GetCellValues()

Dim iRow As Integer 'Хранит номер текущей строки
Dim dCellValues() As Double 'Массив для хранения значений ячеек

iRow = 1
ReDim dCellValues(1 To 10)

'Цикл Do Until перебирает последовательно ячейки столбца A активного листа
'и извлекает их значения в массив до тех пор, пока не встретится пустая ячейка

Do Until IsEmpty(Cells(iRow, 1))

    'Проверяем, что массив dCellValues имеет достаточный размер
    'Если нет – увеличиваем размер массива на 10 при помощи ReDim
    If UBound(dCellValues) < iRow Then
        ReDim Preserve dCellValues(1 To iRow + 9)
    End If

    'Сохраняем значение текущей ячейки в массиве dCellValues
    dCellValues(iRow) = Cells(iRow, 1).Value

    iRow = iRow + 1
Loop

Автор - serg1981
Дата добавления - 27.05.2019 в 05:12

AlexM

Дата: Понедельник, 27.05.2019, 08:35 | Сообщение № 49

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

Ранг: Участник клуба

Сообщений: 4480

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

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

Excel 2003

serg1981, Запуск макроса по событию происходит при ручном вводе. У вас данные вводятся иначе.
Используйте прием, описанный в ссылке сообщения №45

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

serg1981

Дата: Вторник, 28.05.2019, 05:27 | Сообщение № 50

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

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

Сообщений: 27

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

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

Excel 2010

Цитата AlexM, 27.05.2019 в 08:35, в сообщении № 49 ()

Запуск макроса по событию происходит

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

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

а VBA их не видит ?

и не может их видеть, т.к. они из вне (со стороннего источника ) и по DDE - так ?

и VBA - не видит формулы, которые сами суммируют - без ручного участия - так получается ?

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

Ответить

AlexM

Дата: Вторник, 28.05.2019, 09:20 | Сообщение № 51

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

Ранг: Участник клуба

Сообщений: 4480

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

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

Excel 2003

Так.
Вы покажите пример файла. Структура таблиц как в реальном файле.
Напишите в какой столбец по DDЕ поступают данные.
Какая ячейка должна быть видна на экране.
Рекомендации по наполнению вопроса информацией есть в правилах форума
Без примера вы будете получать советы, которыми, к сожалению, воспользоваться не можете.

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Автопрокрутка листа (Формулы/Formulas)

Страница 3 из 3
«
1
2
3