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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.11.2010, 00:39   #1
Евгений Уральский
Пользователь
 
Регистрация: 17.11.2010
Сообщений: 20
Вопрос Максимальное значение изменяемой ячейки

Здравствуйте.

Столкнулся с проблемой, для меня весьма затруднительной..
Прошу помощи и подсказки в таком вот вопросе:

Берем отдельно взятую ячейку (А), в которой периодически меняем (вручную) данные (числа в данном случае). А в другой ячейке (В) по задумке требуется вывести число из первой, НО так, чтобы при каждом изменении в первой ячейке автоматически сравнивались числа новое и предыдущее и выводилось наибольшее из них.

Кому-как, а для меня, при том что в школе информатики не было,
задачка неимоверная

Может кто наведет на правильный путь решения? Увлекся вот Экселем, химичу теперь..
Не Боги горшки обжигают, все начинали с малого, даже сами Боги..
Евгений Уральский вне форума Ответить с цитированием
Старый 18.11.2010, 03:47   #2
doober
Старожил
 
Аватар для doober
 
Регистрация: 02.05.2009
Сообщений: 3,907
По умолчанию

Вы не поверите,но когда я учился в школе информатики не было.
Вложения
Тип файла: rar Информатика.rar (7.3 Кб, 41 просмотров)
Анализ,обработка данных Недорого
doober вне форума Ответить с цитированием
Старый 18.11.2010, 19:21   #3
Евгений Уральский
Пользователь
 
Регистрация: 17.11.2010
Сообщений: 20
По умолчанию

Огромное спасибо!!
Выходит, топтался глупо на месте, все усложняя..
Не Боги горшки обжигают, все начинали с малого, даже сами Боги..
Евгений Уральский вне форума Ответить с цитированием
Старый 18.11.2010, 19:57   #4
Евгений Уральский
Пользователь
 
Регистрация: 17.11.2010
Сообщений: 20
По умолчанию

Создал 60 строк.
Добавил еще ячейки времени последнего изменения:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B2:B60")) Is Nothing Then
With Target(1, 4)
.Value = Now
.EntireColumn.AutoFit
End With
End If
End Sub

Отсюда возник вопрос, раз у меня уже 60 строк, как на все строки распространить действие Вашей программы?
Не Боги горшки обжигают, все начинали с малого, даже сами Боги..
Евгений Уральский вне форума Ответить с цитированием
Старый 18.11.2010, 20:33   #5
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Позволите встрять в тему? )
Код:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    lRow = ActiveCell.Row
    If Cells(lRow, 2) < Cells(lRow, 1) Then Cells(lRow, 2) = Cells(lRow, 1)
End Sub
Сравнивает независимо от количества строк в столбцах А и В.
Проверяйте.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 18.11.2010, 21:02   #6
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

у меня на этот случай формула припасена.
вносим в А что хотим, В будет помнить максимальное из того, что побывало в А
Вложения
Тип файла: rar Книга452.rar (3.2 Кб, 43 просмотров)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 18.11.2010, 21:05   #7
Евгений Уральский
Пользователь
 
Регистрация: 17.11.2010
Сообщений: 20
По умолчанию

Проверил.

Ну что сказать..учиться, учиться и еще раз учиться!!

Все работает, как хронометр, огромное Вам спасибо!

Чем больше узнаю, тем интереснее. Как многогранен Эксель!!!
Не Боги горшки обжигают, все начинали с малого, даже сами Боги..
Евгений Уральский вне форума Ответить с цитированием
Старый 19.11.2010, 06:12   #8
Евгений Уральский
Пользователь
 
Регистрация: 17.11.2010
Сообщений: 20
По умолчанию

Прошу прощения за любопытство, а можно ли скрыть
исходный текст от чтения другими пользователями?
И если да, то не скажется ли это пагубно на работе таблицы??
Не Боги горшки обжигают, все начинали с малого, даже сами Боги..
Евгений Уральский вне форума Ответить с цитированием
Старый 19.11.2010, 09:02   #9
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Цитата:
исходный текст
Исходный текст чего?
Макроса или данных на листе?
Скрыть в принципе можно все...
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 19.11.2010, 09:17   #10
Евгений Уральский
Пользователь
 
Регистрация: 17.11.2010
Сообщений: 20
По умолчанию

Тот код, что мы набираем в Visual Basic, работая с таблицей.

А то у некоторых ручонки слишком уж шаловливые порой.. )
Не Боги горшки обжигают, все начинали с малого, даже сами Боги..
Евгений Уральский вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти значение на другом листе и подставить значение следующей ячейки ElenaNTro Microsoft Office Excel 12 11.02.2019 12:44
Максимальное значение типа tools Помощь студентам 1 09.01.2010 03:15
Максимальное значение edit1.text KoBRaAndrey Общие вопросы Delphi 7 07.10.2009 05:40
Определить максимальное/минимальное значение функции y=f(x) astrozombie Помощь студентам 2 16.02.2009 13:52
Максимальное значение по дате ZUZA Microsoft Office Excel 5 05.07.2008 19:30