Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Ruslan
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Связь сводной таблицы с сводной диаграммой
 
#
30.06.2015 01:08:56
Здравствуйте, форумчане

В excel 2013 у  меня сводная таблица с 3 уровневыми строками:
-страна
-регион
-город

Когда строю сводную диаграмму "страна", "регион" и "город" попадают на ось Х автоматически. Мне нужно, чтобы города на сводной диаграмме не отображались.
Когда убираю фильтр с полем "город" поле "город" исчезает со сводной таблицы. Как оставить это поле в сводной таблице и убрать со сводной диаграммы? Не знаю, может, вопрос детский, так как в Excel 2013 недавно начал работать
 
Перейти    
Проблема со свойством Value элемента управления ListBox, Макрос
 
#
13.06.2014 13:13:07
Помогите разобраться
Есть пользоваться форма, в которой есть ListBox1 с 12 элементами управления- месяцами года
Справа от формы размещается  frame "Тип выделения" с 2 опциями OptionButton (1 опция - obOne, 2 опция активная по умолчанию - obSeveral) :
o   Один элемент
о   Несколько элементов

Код, который выводит в MsgBox выбранные пользователем опции следующий:
Код
Private Sub cbOK_Click()

    If ObSeveral Then
        ListBox1.MultiSelect = 2
        msg = ""
        For i = 0 To ListBox1.ListCount - 1
            If ListBox1.Selected(i) Then
                msg = msg & ListBox1.List(i) & vbCrLf
            End If
        Next i
        MsgBox "Вы выбрали: " & vbCrLf & msg
    
    Else
        ListBox1.MultiSelect = 1
        MsgBox "Вы выбрали: " & vbCrLf  & ListBox1.Value
        ObSeveral = True
    End If
    
End Sub
Если пользователь выбирает опцию "несколько элементов"  MsgBox  выдает правильное сообщение
Если же выбрать опцию "Один элемент"  MsgBox  выдает  неправильное сообщение: "Вы выбрали"   без указания выбранных элементов
Т.е   ListBox1.Value не выдает значение выбранной опции. В чем тут проблема?
Спасибо
Изменено: Ruslan - 14.06.2014 14:02:48
 
Перейти    
Восстановления контролла в toolbar
 
#
11.06.2014 01:02:46
Здравствуйте, форумчане!

На панели toolbar в vba случайно удалил  контролл listbox.
Подскажите, как его вернуть. Без переустановки Excel  это реально?
Спасибо
 
Перейти    
Макрос для изменения цвета шрифта ячейки в зависимости от типа данных
 
#
13.05.2014 18:18:02
Здравствуйте, форумчане!

Нужна ваша подсказка
У меня есть выделенный диапазон ячеек. В нем данные разных типов- даты, текстовые и числовые.
Не выходит макрос, который при переборе каждой ячейки выделенного диапазона  должен менять
стандартный цвет шрифта на красный, если в ячейке данные типа даты,  и
стандартный цвет шрифта на зеленый, если в ячейке текстовые данные
Вот мой код:
Код
Sub Color()
    For Each Cell In Selection
        If WorksheetFunction.IsDate(Cell) Then
            Cell.Font.Color = -16776961
        Else
            If WorksheetFunction.IsText(Cell) Then
            Cell.Font.Color = -11489280
            End If
        End If
    Next Cell
End Sub

На строчке
Cell.Font.Color = -16776961
выскакивает ошибка типа
Run-time error '438':
Object doesn't support this property or method
 
Перейти    
Cоздание надстройки в Excel 2007
 
#
08.09.2011 20:18:31
Добрый вечер  
 
Подскажите, пожалуйста, алгоритм создания надстройки в Excel 2007  
Какие команды для этого нужны?  
Искал в Интернете, не получается  найти  
 
 
У меня есть файл-надстройка, а что нужно, чтобы он попал на ленту не могу понять  
В Excel 2003 там понятно, создается, например, новая кнопка в меню, а как в 2007?
 
Перейти    
Запрет ввода с клавиатуры в Refedit
 
#
03.09.2011 19:13:27
Добрый вечер, форумчане  
 
Знаю, что эта тема уже рассматривалась немного в других вариациях, но если честно, я уже запутался во всех тонкостях  
 
Пишу два кода: один для запрета ввода с клавиатуры в Refedit, а другой- запрет для ТекстБокс  
 
Private Sub refedit1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)  
KeyAscii = 0  
End Sub  
 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)  
   KeyAscii = 0  
End Sub  
 
 
С ТекстБокс работает, а  с RefEdit работать не хочет
 
Перейти    
Формула, выводящая номер столбца, в котором впервые встречается число
 
#
01.02.2011 22:47:31
Здравствуйте, форумчане!  
 
Нужна Ваша помощь  
В таблице 59 столбцов. В некоторых ячейках находятся числа, а в других- пусто.  
Нужно прописать формулу в 60 столбце, котороя бы выдавала число, соответствующее порядковому номеру первой заполненной ячейке или, что тоже самое, номеру столбца, в котором впервые встречается число (например, если первые 4 ячейки пустые, а в пятой находится число, формула должна выдать 5)  
 
Если же все ячейки пустые- результат формулы должен равняться 60  
 
Заранее благодрен
 
Перейти    
Отсутствует RefEdit
 
#
03.10.2010 17:49:44
Всем доброго дня  
 
Подскажите, плиз  
Столкнулся с такой ситуацией  
Перетаскиваю на форму(UserForm)элемент управления RefEdit  
После чего появляется сообщение - элемент не найден  
Хотя в окне Элементы управления  в списке Доступные элементы управления этот элемент активирован(см вложение) и на винчестере также присутствует файл refedit.dll  
Вставлял установочный диск Windows, также не помогает  
Что можно сделать для решения такой ситуации?  
<EM><STRONG>Файл удален</STRONG> - велик размер - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
 
Перейти    
Транспонирование строки в нужное количество столбцов
 
#
09.11.2008 23:13:58
Задача такая:  
есть строка, состоящая из 21 элемента (в прикрепленном файле- строка 2)  
Как ее быстро можно транспонировать в таблицу 3*7?  
Спасибо
 
Перейти    
Страницы: 1
Наверх