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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 14.09.2008, 09:09   #1
exeexeexe
 
Регистрация: 29.02.2008
Сообщений: 6
По умолчанию В СТОЛБЕЦ ВВОДЯТСЯ ЧИСЛА ТОЛЬКО ВХОДЯЩИЕ В ОПРЕДЕЛЕННЫЙ ИНТЕРВАЛ.

Как сделать проверку на забивание только тех чисел которые входят в определенный интервал?
exeexeexe вне форума
Старый 14.09.2008, 11:07   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

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

удачи
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума
Старый 14.09.2008, 14:03   #3
exeexeexe
 
Регистрация: 29.02.2008
Сообщений: 6
По умолчанию

IgorGO, спасибо. Проверку нужно проводдить именно в момент заполнения столбца.
exeexeexe вне форума
Старый 14.09.2008, 17:57   #4
tolikman
Форумчанин
 
Регистрация: 25.08.2008
Сообщений: 159
По умолчанию

на всякий случай сделай копию.
кликаем правой кнопкой на ярлычке нужного листа, выбираем "исходный текст".
в открывшееся окно копируем:
Код:
Private Sub Worksheet_Change(ByVal target As Range)
    Dim nmin As Variant, nmax As Variant
    nmin = 10
    nmax = 20
    If Not Intersect(target, [Х:Х]) Is Nothing Then
        For Each i In target
            If Not Intersect(i, [Х:Х]) Is Nothing Then
                If i.Value = "" Then
                ElseIf i.Value < nmin Then
                    i.Value = nmin
                ElseIf i.Value > nmax Then
                    i.Value = nmax
                End If
            End If
        Next i
    End If
End Sub
в место 10 и 20 ставим граници интервала
вместо всех Х подставляем буквы нужного столбца.
Если граници диапазона нах-ся в других ячейках, который могут быть изменены то
Код:
nmin=10
поменяй на
Код:
nmin = range("X1")
, где Х1 адрес ячейки с минимальной границей интервала, аналогично и для nmax.
сохраняем, закрываем открывшееся окно.
пробуем.

Последний раз редактировалось tolikman; 14.09.2008 в 17:59.
tolikman вне форума
Старый 15.09.2008, 01:28   #5
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

вот как раз в момент заполнения столбца ексель и не даст вводить числа за пределами указанного интервала
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума
Старый 15.09.2008, 11:51   #6
exeexeexe
 
Регистрация: 29.02.2008
Сообщений: 6
По умолчанию

tolikman, огромное спасибо. Теперь надо запустить все это в опэнофисе))) на компе стоит ОС Виста и Офис. В експлорере все работает замечательно. Но когда открываем через ОпэнОфис не работает и почему то открывает Експлорер. Как избавиться от этой проблемки?
exeexeexe вне форума
Старый 15.09.2008, 11:52   #7
exeexeexe
 
Регистрация: 29.02.2008
Сообщений: 6
По умолчанию

експлорере=экскель - извеняюсь)))
exeexeexe вне форума
Старый 15.09.2008, 16:32   #8
tolikman
Форумчанин
 
Регистрация: 25.08.2008
Сообщений: 159
По умолчанию

Цитата:
exeexeexe
Теперь надо запустить все это в опэнофисе)))
Не просто так MSO Excel стоит денег в отличии от openOffice'а, не думаю что второй поддерживает макросы первого, он кажется их вообще не поддерживает(я ни где невидел и не слышал об этом). Там вообще где-нибудь есть кнопочка "Макрос" или что-то подобное? поищи, не найдешь - не судьба.
tolikman вне форума
Старый 17.09.2008, 10:23   #9
exeexeexe
 
Регистрация: 29.02.2008
Сообщений: 6
По умолчанию

Ребята как перевести этот макрос для ОпенОфиса, скрипты он поддерживает.
exeexeexe вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
начал учить только-только - нужна ваша помошь vanDJ Помощь студентам 20 18.12.2007 21:53
Как со списка чисел отобрать только простые числа SeRhy Помощь студентам 1 14.12.2007 12:06
Нужно разбить те числа которые в одной ячейке по разным ячейчам в столбец Alexander_Gr Microsoft Office Excel 8 20.11.2007 08:02
как суммировать только определенный месяц? Алька Microsoft Office Excel 2 08.05.2007 08:50
Ввести в Edit только числа и удалять их Bacspase'ом. Alar Компоненты Delphi 1 01.11.2006 03:10