Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Выпадающий список с автоподстановкой в общем файле
 
Может у кого-то есть идеи?  
Изменено: kafalkov - 30.03.2017 10:27:56
Выпадающий список с автоподстановкой в общем файле
 
Да, файл поддерживает макросы.
Осталное не принципиально по структуре и шапкам.
Выпадающий список с автоподстановкой в общем файле
 

Добрый день,

Просьба помочь в следующей ситуации.

Имеется файл на сетевом ресурсе с общим доступом пользователей и свойством «Общий» самого файла, что не позволяет использовать смарт-таблицы.

Пользователи заполоняют таблицу путем добавления информации ниже последней заполненной строки, т. е. по сути добавляют информацию ниже.

Хотелось бы реализовать возможность формирования выпадающего списка в ячейки при вводе нескольких символов в ячейку. При этом список должен формироваться не только по первым символам. К примеру пользователь вводит «силек», а формируется список «ООО Василёк».

Спасибо.

Изменено: kafalkov - 27.03.2017 15:17:07
Выпадающий список с наполнением
 
Bema, я в посте 7 это писал)
Выпадающий список с наполнением
 
StepanWolkoff, Да! А как тогда?
Выпадающий список с наполнением
 
Пробовал ) не помогает)
Выпадающий список с наполнением
 
Замена формулы не помогла. Проверил на двух компах)) - установлен.
Выпадающий список с наполнением
 
Bema,
Таким образом работает, но я полагаю, что магия этого способа заключается в том, что новые значения можно вводить в ячейку ввода (С5 в прилагаемом файле).
Если это не так, то какой способ может это решить без использования умных таблиц? Ограничение обусловлено тем что файл является общим, а в общих файлах эксель не разрешает использовать умные таблицы.
Выпадающий список с наполнением
 
Bema,
Да, бегущим пунктиром выделяется диапазон А1-А5, но проблему это не решает...
Выпадающий список с наполнением
 
Bema,
попробовал на двух компах - не работает.
Может не клавишу ввод, а иное сочетание нужно нажимать после ввода нового значения?)

Т.е. я ввожу новое значение в С5 и нажимаю ввод. Выскакивает ошибка.
Изменено: kafalkov - 18.01.2017 15:47:00
Выпадающий список с наполнением
 
Добрый день,
Не получается добавлять новые элементы в список. Что не так делаю, подскажите пожалуйста.
Срез сводной таблицы с датой
 
В том-то и странность, что в настройках среза снята галочка "Показывать элементы, удаленные из источника данных".
Срез сводной таблицы с датой
 
Еще одна странность -- в срезе присутствуют кнопки с месяцами, которых нет в исходных данных. К примеру февраль отмечен блеклым цветом и при нажатии на него система говорит, что таких данных нет :)
Срез сводной таблицы с датой
 
Добрый день!

1) Имеется сводная таблица к которой подключен срез по календарной дате. Срез сформировав в виде кнопок с наименованием месяца без указания года.
2) Попробовал сделать другую сводную таблицу со срезом по дате. Вексель сделал срез с кнопками в виде ЧЧ.ММ.ГГГГ. Хотя формат данных в везде — дата.

Кто может пояснить:
1) Как избежать путаницы когда в таблице будут данные с месяцами в разных годах. Допустим на срезе нажимаем Январь, а январь какого года выдаст срез не ясно.
2) По какому принципу и как менять формат кнопок среза с датами?
Изменено: kafalkov - 18.01.2017 11:52:09
Ошибка макроса при нажатии кнопки отмена, как исправить
 
The_Prist, спасибо!
Ошибка макроса при нажатии кнопки отмена, как исправить
 
vikttur, не помогло :(
Ошибка макроса при нажатии кнопки отмена, как исправить
 
Здравствуйте,
макрос работает хорошо когда вводятся допустимые значения, но если нажать кнопку отмена, или оставить поле пустым и нажать ОК, возникает ошибка.
Подскажите, пожалуйста, как исправить.
Код
Sub Высота_оси()
'
' Калибровка_оси Макрос
' меняем высоту вертикальной оси на графиках.
Dim intH As Integer   'обьявление переменной для высоты оси.
    intH = InputBox("Ведите высоту оси от 15 до 100", "Меняем высоту осей") ' диалог ввода переменной.
        Select Case intH ' проверка введенного значения
         Case 15 To 100 'если введено от 15 до 100 то идет отработка
            ActiveSheet.ChartObjects("Диаграмма 5").Activate
            ActiveChart.Axes(xlValue).Select
            ActiveChart.Axes(xlValue).MaximumScale = intH
            ActiveSheet.ChartObjects("Диаграмма 6").Activate
            ActiveChart.Axes(xlValue).Select
            ActiveChart.Axes(xlValue).MaximumScale = intH
            ActiveSheet.ChartObjects("Диаграмма 9").Activate
            ActiveChart.Axes(xlValue).Select
            ActiveChart.Axes(xlValue).MaximumScale = intH
            MsgBox ("Готово! Высота осей скоректирована."), vbOKOnly
        Case Is = 0 Or "" 'вот здесь и вопрос, даже если оставляю поле пустым и нажимаю ОК - ошибка.
           Exit Sub
        Case Else
           MsgBox ("Вы не ввели недопустимое значение. Запустите команду ещё раз.")
           Exit Sub
    End SelectEnd Sub
Закрыть книгу без сохранения, из которой были скопированы данные
 
Здравствуйте,

Имеется Книга1 с макросом который открывает Книга2 и берет из нее данные.
Подскажите, пожалуйста, как прописать макрос, чтобы Книга2 закрывалась без сохранения и без всплывающего окна, Книга1 должна остаться открытой.
Спасибо.
Фильтрация таблицы (не сводной) срезом
 
Здравствуйте,

Имеется (1) таблица с данными, (2) некоторые сводные таблицы и (3) срезы.
Понятно, что при работе со срезами происходит автоматическая установка соответствующих фильтров на (2) сводные таблицы.
Вопрос: как реализовать фильтрацию (1) таблицы с данными при изменении срезов?
Спасибо.
Обновление всех сводных таблиц в файле
 
Здравствуйте,
Подскажите, пожалуйста, как написать макрос, чтобы он обновил все таблицы в файле.
Колличество, местоположение и наименование таблиц может меняться.
Спасибо.  
Страницы: 1
Наверх