VPF::Как сделать чтоб выводилось только последнее число

Ламер

Дата 29.9.2006, 14:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 29.9.2006

Репутация: нет
Всего: нет

Здравствуйте, помогите плиз.
Такой вопрос есть строка со значениями в ексели такого типа
     a     b  c     d  e   f   g
1 0.1    8  9.5  7  5
2

как сделать так чтоб при внесении новых чисел в строку 1  в последущие колонке,
в ячейке А2 выдавалось последнее внесенное значение.
т.е. пишем в F1 3, А2 становится =3, пишим в g1 значение 8 то A2 становится равным 8
Надеюсь объяснил понятно, заранее спасибо.

Genyaa

Дата 29.9.2006, 18:53 (ссылка)

(нет голосов)

Загрузка ...

Усердный

Профиль
Группа: Участник
Сообщений: 154
Регистрация: 25.9.2006
Где: Москва

Репутация: 2
Всего: 11

Введите в A2 следующую формулу:

Код


=ИНДЕКС(1:1;СЧЁТЗ(1:1))

Будет работать при условии если в строке 1 каждое следующее значение вводится без пропуска пустых ячеек.

Это сообщение отредактировал(а) Genyaa - 29.9.2006, 18:55

--------------------

Всякое решение плодит новые проблемы.

Ламер

Дата 1.10.2006, 10:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 29.9.2006

Репутация: нет
Всего: нет

Genyaa, а если пустые ячейки есть, то как быть?

Genyaa

Дата 1.10.2006, 14:16 (ссылка)

(нет голосов)

Загрузка ...

Усердный

Профиль
Группа: Участник
Сообщений: 154
Регистрация: 25.9.2006
Где: Москва

Репутация: 2
Всего: 11

Цитата(Ламер @ 1.10.2006, 10:57)

Genyaa, а если пустые ячейки есть, то как быть?

Тогда я бы сделал через VBA:

Код


Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 1 Then Cells(2, 1).Value = Cells(1, 256).End(xlToLeft).Value
End Sub

--------------------

Всякое решение плодит новые проблемы.

FINANSIST

Дата 5.5.2008, 12:35 (ссылка)

(нет голосов)

Загрузка ...

Статус: Жив

Профиль
Группа: Участник
Сообщений: 526
Регистрация: 11.4.2008
Где: Москва

Репутация: 13
Всего: 23

Цитата

Genyaa, а если пустые ячейки есть, то как быть?

Цитата

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 Then Cells(2, 1).Value = Cells(1, 256).End(xlToLeft).Value
End Sub

Да на фига для такой ерунды код VBA то использовать (гвозди же кувалдой не забивают, когда молоток под рукой)
Вот простая формула , игнорирующая пропуски:
={ИНДЕКС(1:1;МАКС(ЕСЛИ(1:1<>"";СТОЛБЕЦ(1:1))))}
Только про контрл+шифт+энтер не забываем

--------------------

“...Брали корову рыжую одну, отдавать будем корову рыжую одну, чтобы не нарушать отчетности”
Эдуард Успенский, “Каникулы в Простоквашино”

Staruha

Дата 15.5.2008, 12:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27

улавливает изменение в любой ячейке

Код


Private Sub Worksheet_Change(ByVal Target As Range)
Cells(2, 1).Value = Target.Value
End Sub

--------------------

Возмездие настигнет

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »