Раскрывающийся список - Microsoft Office Excel - Страница 2

The_Prist · 18.07.2009, 17:38

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

Код:

        If .CountA(Range(Cells(Target.Row + 1, 2), Cells(Target.Row + 1, 10))) = 0 Then
            Range(Cells(Target.Row, 1), Cells(Target.Row, 10)).Copy Cells(Target.Row + 1, 1)
            Range(Cells(Target.Row + 1, 1), Cells(Target.Row + 1, 9)).ClearContents
        End If

на этот

Код:

   
Range(Cells(Target.Row, 1), Cells(Target.Row, 10)).Copy Cells(Target.Row + 1, 1)
Range(Cells(Target.Row + 1, 1), Cells(Target.Row + 1, 9)).ClearContents

The_Prist · 18.07.2009, 17:39

Забыл файл. Вот.

segail · 18.07.2009, 20:02

Проверьте правильность кода я добавил защиту.

The_Prist · 18.07.2009, 20:07

Вроде все нормально.

segail · 18.07.2009, 20:09

Тогда благодарю!

segail · 19.07.2009, 14:13

Можно ли добавить в формулу динамического диапазона сортировку от А до Я, не зависимо от того есть ли или нет в строках данного диапазона записи.

=СМЕЩ(База_данных!$A$1;0;0;СЧЁТЗ(Ба за_данных!$A$1:$A$300);1)

segail · 19.07.2009, 15:17

Или кликом по кнопке (макросом) произвести сортировку диапазона Список_01, а если нет данных, то сортировка не происходит.

pivas · 19.07.2009, 15:46

Цитата:

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

Или кликом по кнопке (макросом) произвести сортировку диапазона Список_01, а если нет данных, то сортировка не происходит.

Вариант с кнопкой:

segail · 19.07.2009, 16:26

А ограничения нельзя снять? То есть, при необходимости вводить данные непосредственно в ячейку игнорируя базу данных.

pivas · 19.07.2009, 17:04

Можно: Данные->Проверка на вкладках Сообщение для ввода и Сообщение об ошибке снимите галочки.

18.07.2009, 17:38	#11
The_Prist Участник клуба Регистрация: 17.07.2009 Сообщений: 1,088	Если общее кол-во заполненных строк будет более 300, то добавления не будет. Если необходимо, чтоб добавлялись строки при любом изменении(сейчас добавляется только если строка нужного диапазона ниже полностью пустая), то замените вот этот кусок Код: `If .CountA(Range(Cells(Target.Row + 1, 2), Cells(Target.Row + 1, 10))) = 0 Then Range(Cells(Target.Row, 1), Cells(Target.Row, 10)).Copy Cells(Target.Row + 1, 1) Range(Cells(Target.Row + 1, 1), Cells(Target.Row + 1, 9)).ClearContents End If` на этот Код: `Range(Cells(Target.Row, 1), Cells(Target.Row, 10)).Copy Cells(Target.Row + 1, 1) Range(Cells(Target.Row + 1, 1), Cells(Target.Row + 1, 9)).ClearContents` WebMoney - R298726502453; Яндекс.Деньги - 41001332272872 www.excel-vba.ru

18.07.2009, 20:07	#14
The_Prist Участник клуба Регистрация: 17.07.2009 Сообщений: 1,088	Вроде все нормально. WebMoney - R298726502453; Яндекс.Деньги - 41001332272872 www.excel-vba.ru

19.07.2009, 14:13	#16
segail Форумчанин Регистрация: 13.06.2009 Сообщений: 691	Можно ли добавить в формулу динамического диапазона сортировку от А до Я, не зависимо от того есть ли или нет в строках данного диапазона записи. =СМЕЩ(База_данных!$A$1;0;0;СЧЁТЗ(Ба за_данных!$A$1:$A$300);1) Последний раз редактировалось segail; 19.07.2009 в 14:25.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как создать плавно сворачивающийся и раскрывающийся контрол, например панель.	SkAndrew	Общие вопросы Delphi	59	25.07.2011 00:11
Раскрывающийся список значений, макросом.	Flangini	Microsoft Office Excel	13	22.06.2009 17:01
исчез раскрывающийся список	Nando	Microsoft Office Excel	6	13.05.2009 22:41
Раскрывающийся список	sergiksergik	Microsoft Office Excel	3	31.03.2009 22:48
Данные-проверка-список (список на другом листе)	Inbox	Microsoft Office Excel	7	26.12.2008 01:43

18.07.2009, 20:09	#15
segail Форумчанин Регистрация: 13.06.2009 Сообщений: 691	Тогда благодарю!

19.07.2009, 15:17	#17
segail Форумчанин Регистрация: 13.06.2009 Сообщений: 691	Или кликом по кнопке (макросом) произвести сортировку диапазона Список_01, а если нет данных, то сортировка не происходит.

19.07.2009, 16:26	#19
segail Форумчанин Регистрация: 13.06.2009 Сообщений: 691	А ограничения нельзя снять? То есть, при необходимости вводить данные непосредственно в ячейку игнорируя базу данных.

19.07.2009, 17:04	#20
pivas Форумчанин Регистрация: 03.04.2009 Сообщений: 412	Можно: Данные->Проверка на вкладках Сообщение для ввода и Сообщение об ошибке снимите галочки.