Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 20.12.2007, 13:45   #1
ASAN
 
Регистрация: 20.12.2007
Сообщений: 3
По умолчанию занесение данных в таблицу

Как сделать?
Есть определенная ячейка в которую заносятся числа(запрос с веб страницы). При обновлении веб-страницы это число меняется. Мне нужно чтоб при изменении(обновлении) числа оно вносилось по порядку в таблицу.

Последний раз редактировалось ASAN; 20.12.2007 в 13:49.
ASAN вне форума
Старый 20.12.2007, 14:22   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Пусть, например, ячейка "A1" - изменяемая ячейка. И пусть каждое новое данное нужно вставить в столбец "B" в следующую строку. Тогда вставим в модуль рабочего листа запуск процедуры по событию изменения значения контролируемой ячейки:
Код:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim VRange As Range
    Set VRange = Range("A1")
    If Not Intersect(Target, VRange) Is Nothing Then
        Cells(ActiveSheet.Range("B65536").End(xlUp).Row, 2) = Range("A1")
    End If
End Sub
Измените ссылки на нужные ячейки.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 20.12.2007, 14:47   #3
ASAN
 
Регистрация: 20.12.2007
Сообщений: 3
По умолчанию

Оставил все как есть, поменял только в строке
Cells(ActiveSheet.Range("B65536").E nd(xlUp).Row, 2) = Range("A1")
"B65536" на "B3"
Оно из А1 переносит в В1, и при изменении А1 все равно записывает в В1, а нужно в В2, В3, В4......(в последнюю не занятую строку)

Последний раз редактировалось ASAN; 20.12.2007 в 14:59.
ASAN вне форума
Старый 21.12.2007, 05:04   #4
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Строка кода ActiveSheet.Range("B65536").End(xlU p).Row равносильна действию: на активном листе выделить ячецку "B65536" (т.е. последнюю ячейку нужного столбца) и одновременно нажать "End" и [стрелка вверх]. В результате выделится последняя заполненная ячейка в столбце. ".Row" - номер строки этой ячейки. А нам нужна следующая ячейка, так что в коде нужно, действительно, написать: Cells(ActiveSheet.Range("B65536").E nd(xlUp).Row+1, 2) = Range("A1")
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 21.12.2007, 10:19   #5
ASAN
 
Регистрация: 20.12.2007
Сообщений: 3
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
Строка кода ActiveSheet.Range("B65536").End(xlU p).Row равносильна действию: на активном листе выделить ячецку "B65536" (т.е. последнюю ячейку нужного столбца) и одновременно нажать "End" и [стрелка вверх]. В результате выделится последняя заполненная ячейка в столбце. ".Row" - номер строки этой ячейки. А нам нужна следующая ячейка, так что в коде нужно, действительно, написать: Cells(ActiveSheet.Range("B65536").E nd(xlUp).Row+1, 2) = Range("A1")
Спасибо! Все получилось и работает!
ASAN вне форума
Старый 02.06.2008, 23:03   #6
Artmi
 
Регистрация: 02.06.2008
Сообщений: 9
По умолчанию

А у меня не работает такой код с чем может быть связано такое поведение эксель 2003
Artmi вне форума
Старый 02.06.2008, 23:19   #7
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

только если Вы его поместили в стандартный модуль, иначе должен работать.
SAS888
Цитата:
вставим в модуль рабочего листа запуск процедуры по событию изменения значения контролируемой ячейки
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума
Старый 02.06.2008, 23:50   #8
Artmi
 
Регистрация: 02.06.2008
Сообщений: 9
По умолчанию

Вставил в модуль листа, вопрос видимо в другом.
я немного по другому сам сделал и работает только в том случае если я руками обновляю значение, а если экспорт из внешней программы то не работает, может что-то в настройках?
Artmi вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
копирование данных из таблицы в таблицу Sack Microsoft Office Access 1 16.09.2008 05:59
Занесение данных в зависимости от даты gavrylyuk Microsoft Office Excel 2 31.07.2008 12:19
Занесение Данных в таблицу при помощи Query Avalonix БД в Delphi 9 29.05.2008 20:13
Занесение данных в переменную jora-objora Помощь студентам 2 05.01.2008 20:12