Проверка ячейки на выпадающий список

@m_yuka_r · Регистрация: 06.05.2012

Студворк — интернет-сервис помощи студентам

Добрый день! Мне надо проверить привязан ли к ячейке выпадающий список? подскажите пожалуйста, какой командой VBA это надо сделать?
Спасибо.

Скрипт · 05.12.2012, 12:04

m_yuka_r, напишите, какие кнопки нажимаются, чтобы сделать выпадающий список.
Это нужно, чтобы знать, какой у вас выпадающий список, т.к. выпадающих списков несколько видов.

@m_yuka_r · 05.12.2012, 12:07 **[ТС]**

Dim s as String
Type:=xlValidateList, Formula1:=s
я так понимаю этой строкой создается выпадающий список.

Скрипт · 05.12.2012, 12:08

m_yuka_r, выложите книгу, содержащую выпадающий список.
Удалите из книги всю лишнюю информацию.

@m_yuka_r · 05.12.2012, 12:21 **[ТС]**

выкладываю

Скрипт · 05.12.2012, 13:13

m_yuka_r, я пришёл к выводу, что без вызова ошибки никак нельзя проверить.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Procedure_2()
 
    Dim lValidation As Long
    
    'On Error Resume Next - позволяет продолжить код, когда возникла ошибка.
    On Error Resume Next
        lValidation = ActiveCell.Validation.Type
    'On Error GoTo 0 отменяет действие "On Error Resume Next".
    On Error GoTo 0
    
    If lValidation = 3 Then
        MsgBox "В ячейке есть выпадающий список."
    End If
    
End Sub

@m_yuka_r · 05.12.2012, 13:57 **[ТС]**

lValidation - это переменная чего? Она принимает значения столбца?
Пытаюсь внедрить эту процедуру в свой код....

Скрипт · 05.12.2012, 13:59

m_yuka_r, поставьте курсор на слово Type и нажмите клавишу F1. Появится справка по данной команде.

@m_yuka_r · 05.12.2012, 16:28 **[ТС]**

у меня видимо Excel без справки. В Интернете не получается найти...

@Казанский · 05.12.2012, 16:31

Сообщение от m_yuka_r

у меня видимо Excel без справки

Запустите установку Офиса и добавьте компонент "Справка VBA". Если Вы собираетесь писать на VBA, без Справки не обойтись.

@m_yuka_r · 05.12.2012, 17:24 **[ТС]**

Разобралась вроде, как работает. А как прописать в этом же коде, что в конкретном диапазоне например Range (B5:E1000) независимо оттого есть там выпадающий список или нет, не должно содержаться никаких данных?
Пример:
вводит пользователь ошибочно какие-то данные вручную (т.е. списка там нет) на это обработчик выдает сообщение, что в данной ячейке ввод запрещен.

Скрипт · 05.12.2012, 17:27

m_yuka_r, я вижу два варианта:

средствами программы Excel защитить ячейки, которые не нужно трогать пользователю;
использовать событие Change. Когда пользователь вносит изменения на лист, то срабатывает событие Change.

@m_yuka_r · 05.12.2012, 18:07 **[ТС]**

Спасибо большое, разобралась!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

@m_yuka_r 2 / 2 / 0 Регистрация: 06.05.2012 Сообщений: 40

	Проверка ячейки на выпадающий список 05.12.2012, 11:55. Показов 4817. Ответов 12 Метки нет (Все метки) Добрый день! Мне надо проверить привязан ли к ячейке выпадающий список? подскажите пожалуйста, какой командой VBA это надо сделать? Спасибо. 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,576
	05.12.2012, 12:04
	m_yuka_r, напишите, какие кнопки нажимаются, чтобы сделать выпадающий список. Это нужно, чтобы знать, какой у вас выпадающий список, т.к. выпадающих списков несколько видов. 0

@m_yuka_r 2 / 2 / 0 Регистрация: 06.05.2012 Сообщений: 40
	05.12.2012, 12:07 [ТС]
	Dim s as String Type:=xlValidateList, Formula1:=s я так понимаю этой строкой создается выпадающий список. 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,576
	05.12.2012, 12:08
	m_yuka_r, выложите книгу, содержащую выпадающий список. Удалите из книги всю лишнюю информацию. 0

@m_yuka_r 2 / 2 / 0 Регистрация: 06.05.2012 Сообщений: 40
	05.12.2012, 13:57 [ТС]
	lValidation - это переменная чего? Она принимает значения столбца? Пытаюсь внедрить эту процедуру в свой код.... 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,576
	05.12.2012, 13:59
	m_yuka_r, поставьте курсор на слово Type и нажмите клавишу F1. Появится справка по данной команде. 0

@m_yuka_r 2 / 2 / 0 Регистрация: 06.05.2012 Сообщений: 40
	05.12.2012, 16:28 [ТС]
	у меня видимо Excel без справки. В Интернете не получается найти... 0

@m_yuka_r 2 / 2 / 0 Регистрация: 06.05.2012 Сообщений: 40
	05.12.2012, 17:24 [ТС]
	Разобралась вроде, как работает. А как прописать в этом же коде, что в конкретном диапазоне например Range (B5:E1000) независимо оттого есть там выпадающий список или нет, не должно содержаться никаких данных? Пример: вводит пользователь ошибочно какие-то данные вручную (т.е. списка там нет) на это обработчик выдает сообщение, что в данной ячейке ввод запрещен. 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,576
	05.12.2012, 17:27
	m_yuka_r, я вижу два варианта: средствами программы Excel защитить ячейки, которые не нужно трогать пользователю; использовать событие Change. Когда пользователь вносит изменения на лист, то срабатывает событие Change. 0

@m_yuka_r 2 / 2 / 0 Регистрация: 06.05.2012 Сообщений: 40
	05.12.2012, 18:07 [ТС]
	Спасибо большое, разобралась! 0