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

Страницы: 1
Выпадающий список с автоподстановкой в общем файле
 

Добрый день,

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

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

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

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

Спасибо.

Изменено: kafalkov - 27.03.2017 15:17:07
Выпадающий список с наполнением
 
Добрый день,
Не получается добавлять новые элементы в список. Что не так делаю, подскажите пожалуйста.
Срез сводной таблицы с датой
 
Добрый день!

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

Кто может пояснить:
1) Как избежать путаницы когда в таблице будут данные с месяцами в разных годах. Допустим на срезе нажимаем Январь, а январь какого года выдаст срез не ясно.
2) По какому принципу и как менять формат кнопок среза с датами?
Изменено: kafalkov - 18.01.2017 11:52:09
Ошибка макроса при нажатии кнопки отмена, как исправить
 
Здравствуйте,
макрос работает хорошо когда вводятся допустимые значения, но если нажать кнопку отмена, или оставить поле пустым и нажать ОК, возникает ошибка.
Подскажите, пожалуйста, как исправить.
Код
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
Наверх