![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 17.11.2010
Сообщений: 20
|
![]()
Здравствуйте.
Столкнулся с проблемой, для меня весьма затруднительной.. Прошу помощи и подсказки в таком вот вопросе: Берем отдельно взятую ячейку (А), в которой периодически меняем (вручную) данные (числа в данном случае). А в другой ячейке (В) по задумке требуется вывести число из первой, НО так, чтобы при каждом изменении в первой ячейке автоматически сравнивались числа новое и предыдущее и выводилось наибольшее из них. Кому-как, а для меня, при том что в школе информатики не было, задачка неимоверная ![]() Может кто наведет на правильный путь решения? Увлекся вот Экселем, химичу теперь.. ![]()
Не Боги горшки обжигают, все начинали с малого, даже сами Боги..
|
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
![]()
Вы не поверите,но когда я учился в школе информатики не было.
Анализ,обработка данных Недорого
|
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 17.11.2010
Сообщений: 20
|
![]()
Огромное спасибо!!
Выходит, топтался глупо на месте, все усложняя.. ![]()
Не Боги горшки обжигают, все начинали с малого, даже сами Боги..
|
![]() |
![]() |
![]() |
#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 строк, как на все строки распространить действие Вашей программы?
Не Боги горшки обжигают, все начинали с малого, даже сами Боги..
|
![]() |
![]() |
![]() |
#5 |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
![]()
Позволите встрять в тему? )
Код:
Проверяйте.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
![]() |
![]() |
![]() |
#6 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
![]()
у меня на этот случай формула припасена.
вносим в А что хотим, В будет помнить максимальное из того, что побывало в А
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
![]() |
![]() |
![]() |
#7 |
Пользователь
Регистрация: 17.11.2010
Сообщений: 20
|
![]()
Проверил.
Ну что сказать..учиться, учиться и еще раз учиться!! ![]() Все работает, как хронометр, огромное Вам спасибо! Чем больше узнаю, тем интереснее. Как многогранен Эксель!!! ![]()
Не Боги горшки обжигают, все начинали с малого, даже сами Боги..
|
![]() |
![]() |
![]() |
#8 |
Пользователь
Регистрация: 17.11.2010
Сообщений: 20
|
![]()
Прошу прощения за любопытство, а можно ли скрыть
исходный текст от чтения другими пользователями? И если да, то не скажется ли это пагубно на работе таблицы?? ![]()
Не Боги горшки обжигают, все начинали с малого, даже сами Боги..
|
![]() |
![]() |
![]() |
#9 | |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
![]() Цитата:
Макроса или данных на листе? Скрыть в принципе можно все...
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
|
![]() |
![]() |
![]() |
#10 |
Пользователь
Регистрация: 17.11.2010
Сообщений: 20
|
![]()
Тот код, что мы набираем в Visual Basic, работая с таблицей.
А то у некоторых ручонки слишком уж шаловливые порой.. )
Не Боги горшки обжигают, все начинали с малого, даже сами Боги..
|
![]() |
![]() |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Найти значение на другом листе и подставить значение следующей ячейки | 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 |