yaaan, к сожалению я не на столько силен в excel-e. но вам, прекрасно помог помог AlexM, я лишь вас понял и попытался как-то донести, в приемлимом виде с примером.
yaaan, к сожалению я не на столько силен в excel-e. но вам, прекрасно помог помог AlexM, я лишь вас понял и попытался как-то донести, в приемлимом виде с примером.Vetali
Vetali, спасибо вы молодец!!! А можно ли ещё сделать так что б формула обсчитывала файл автономно не нажимая на ПУСК то есть ввел число показало выпадение , ввел второе снова показала. Просто так быстрее.
Vetali, спасибо вы молодец!!! А можно ли ещё сделать так что б формула обсчитывала файл автономно не нажимая на ПУСК то есть ввел число показало выпадение , ввел второе снова показала. Просто так быстрее.yaaan
AlexM, спасибо вы молодец!!! А можно ли ещё сделать так что б формула обсчитывала файл автономно не нажимая на ПУСК то есть ввел число показало выпадение , ввел второе снова показала. Просто так быстрее.
AlexM, спасибо вы молодец!!! А можно ли ещё сделать так что б формула обсчитывала файл автономно не нажимая на ПУСК то есть ввел число показало выпадение , ввел второе снова показала. Просто так быстрее.yaaan
Можно. Макрос автоматически запускается при вводе чисел от 0 до 36 и удалении чисел в диапазонах А2:А1000 или В2:В6 Условным форматированием выделяется два числа с наибольшим выпадением.
Цитата (yaaan)
А можно ли ещё сделать так
Можно. Макрос автоматически запускается при вводе чисел от 0 до 36 и удалении чисел в диапазонах А2:А1000 или В2:В6 Условным форматированием выделяется два числа с наибольшим выпадением.AlexM
AlexM, большое спасибо за помощь!!!!! Вы гений! Но можно ещё одну доработку??? Что бы диапазон колонки B был максимальный, а то после 6-ой строчки колонки B макрос не работает и приходится удалять значение в верхних колонках. Спасибо!!!
AlexM, большое спасибо за помощь!!!!! Вы гений! Но можно ещё одну доработку??? Что бы диапазон колонки B был максимальный, а то после 6-ой строчки колонки B макрос не работает и приходится удалять значение в верхних колонках. Спасибо!!!yaaan
У меня Excel2003. Количество ячеек в столбце 65536. Не думаю что это нужно. Предлагаю вам самостоятельно сделать такое изменение. Так вы будете не только пользователем данного файла, но и в какой-то мере его создателем. Это совсем не сложно. И так. В сообщении №20 код макроса, который ищет совпадения и считает выпадения. Этот макрос ранее запускался по кнопке. Последний вариант файла дополнен кодом, который запускает основной макрос автоматически. Запуск макроса происходит по событию изменения значений в ячейках. Чтобы запуск макроса происходил только при изменении значений в определенных ячейках, а не на всем листе, сделаны ограничения. Код макроса для автозапуска расположен в модуле листа.
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Range("A2:A1000,B2:B6"), Target) Is Nothing Then If Target >= 0 And Target <= 36 Then Macros Else Target.Value = "": Target.Select End If End If End Sub
[/vba]
В третьей строке указаны диапазоны, в которых изменения значений повлияют на запуск макроса. Вы хотите увеличить диапазон в столбце В. Для этого измените B6 на B10, B20 или др. Как это сделать. При открытом файле primer_new1.xls нажать Alt+F11. Откроется редактор VBA. В проекте найдите модуль листа 1 и сделайте изменение диапазона. Закройте редактор VBA, сохраните файл. Вот и все.
У меня Excel2003. Количество ячеек в столбце 65536. Не думаю что это нужно. Предлагаю вам самостоятельно сделать такое изменение. Так вы будете не только пользователем данного файла, но и в какой-то мере его создателем. Это совсем не сложно. И так. В сообщении №20 код макроса, который ищет совпадения и считает выпадения. Этот макрос ранее запускался по кнопке. Последний вариант файла дополнен кодом, который запускает основной макрос автоматически. Запуск макроса происходит по событию изменения значений в ячейках. Чтобы запуск макроса происходил только при изменении значений в определенных ячейках, а не на всем листе, сделаны ограничения. Код макроса для автозапуска расположен в модуле листа.
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Range("A2:A1000,B2:B6"), Target) Is Nothing Then If Target >= 0 And Target <= 36 Then Macros Else Target.Value = "": Target.Select End If End If End Sub
[/vba]
В третьей строке указаны диапазоны, в которых изменения значений повлияют на запуск макроса. Вы хотите увеличить диапазон в столбце В. Для этого измените B6 на B10, B20 или др. Как это сделать. При открытом файле primer_new1.xls нажать Alt+F11. Откроется редактор VBA. В проекте найдите модуль листа 1 и сделайте изменение диапазона. Закройте редактор VBA, сохраните файл. Вот и все.AlexM
Номер мобильного модема (без голосовой связи) 9269171249 МегаФон, Московский регион.
AlexM, Большое спасибо за помощь!!! А можете сделать ещё одну доработку файла пожалуйста!!! Добавить больше строк ( не менее 200) в диапазоне B. Сделать, например B2:B200 . Просто не удобно и приходится постоянно удалять значение в верхних строчках!
AlexM, Большое спасибо за помощь!!! А можете сделать ещё одну доработку файла пожалуйста!!! Добавить больше строк ( не менее 200) в диапазоне B. Сделать, например B2:B200 . Просто не удобно и приходится постоянно удалять значение в верхних строчках!yaaan
AlexM, Извините я не увидел ваше сообщение оно было на другой страничке и дублировал свое прошлое!! Большое спасибо за помощь у меня получилось (ещё б не получилось бы разжевали и в рот положили). Вы хороший учитель!!!!!!!! Спасибо большое за помощь!!!!!!!!!!!!
AlexM, Извините я не увидел ваше сообщение оно было на другой страничке и дублировал свое прошлое!! Большое спасибо за помощь у меня получилось (ещё б не получилось бы разжевали и в рот положили). Вы хороший учитель!!!!!!!! Спасибо большое за помощь!!!!!!!!!!!!yaaan
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
