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

Страницы: 1 2 3 След.
метод Select Case, динамический параметр, VBA, использование динамического параметра
 
#
04.08.2016 15:54:41
Дорогие други, подскажите, как оптимизировать код?
Код
IF ...... THEN
Select Case Sheets("out").Cells(i, 3).Value
                Case 1
                    lvl1 = Sheets("out").Cells(i, 3).Value
                Case 2
                    lvl2 = Sheets("out").Cells(i, 3).Value
                Case 3
                    lvl3 = Sheets("out").Cells(i, 3).Value
                Case 4
                    lvl4 = Sheets("out").Cells(i, 3).Value
                Case 5
                    lvl5 = Sheets("out").Cells(i, 3).Value
                Case 6
                    lvl6 = Sheets("out").Cells(i, 3).Value
                Case 7
                    lvl7 = Sheets("out").Cells(i, 3).Value
                Case 8
                    lvl8 = Sheets("out").Cells(i, 3).Value
                Case 9
                    lvl9 = Sheets("out").Cells(i, 3).Value
            End Select

ELSE
               Sheets("in").Cells(k, 2).Value = lvl1
                Sheets("in").Cells(k, 3).Value = lvl2
                Sheets("in").Cells(k, 4).Value = lvl3
                Sheets("in").Cells(k, 5).Value = lvl4
                Sheets("in").Cells(k, 6).Value = lvl5
                Sheets("in").Cells(k, 7).Value = lvl6
                Sheets("in").Cells(k, 8).Value = lvl7
                Sheets("in").Cells(k, 9).Value = lvl8
                Sheets("in").Cells(k, 10).Value = lvl9
END IF
 
Перейти    
Срезы данных и функции КУБ()
 
#
20.04.2016 18:36:15
Цитата
egonomist написал:
Создать дополнительный лист с таблицей подключенной к базе (назовем его temp)
А обязательно иметь данные в книге?

у меня уже есть подключение, но я меня не получается его использовать,
когда я ввожу в =КУБМНОЖ("имя подключение";имя среза) - то пишет ошибку.  
 
Перейти    
Срезы данных и функции КУБ()
 
#
20.04.2016 15:58:05
Всем доброго дня!

Условие вопроса:
В excel создано подключение с именем "OLAP_Connection" которое возвращает в сводную таблицу 10 полей.
Select
fil_works.ACTION, /Cstr
fil_works.DT, /Cstr
fil_works.YD, /Cstr
fil_works.IS_IN_RSHB, /Cstr
fil_works.SEGMENT, /Cstr
fil_works.RESULT_MEET, /Cstr
fil_works.TYPE, /Cstr
fil_works.FIL, /Cstr
fil_works.KM, /Cstr
fil_works.THS_WEEK /Cdbl
FROM fil_works )


Сам Вопрос:
На основе этих таблиц построены срезы.
Нужно вывести это значение в отдельную таблицу с помощью КУБМНОЖ, КУБЭЛЕМЕНТ и на основании выбранных срезов написать простой запрос
SELECT THS_WEEK
FROM OLAP_Connection
WHERE fil_works.YD = Срез_YD

Всем спасибо, за ответ
 
Перейти    
Смена фильтров в сводной таблице через VBA, Отличие свойства .CurrentPage от .PivotItems
 
#
09.10.2014 18:55:59
PivotItem - галка с включенным чекбоксом "выделить несколько элементов", а CurrentPage с выключенным
 
Перейти    
VBA - стиль ячеек обычный
 
#
25.09.2014 15:52:42
А как запомнить предыдущий стиль?
 
Перейти    
VBA - стиль ячеек обычный
 
#
25.09.2014 12:24:53
Юрий М, cпасибо, выручили. У меня не записывал. А кнопочку Undo не знаете как реализовать?
Application.OnUndo требует прописанной процедуры  :(
 
Перейти    
VBA - стиль ячеек обычный
 
#
25.09.2014 11:05:28
Никто не знает как сделать через VBA "стиль ячеек" и кнопку назад на форуме? Тут макрорекоредром VBA учили?
 
Перейти    
VBA - стиль ячеек обычный
 
#
25.09.2014 10:36:29
Не работает, сводная диаграмма не понимает действие "формата ячеек" когда применяю формат ячеек через макрос на значения сводной таблицы
 
Перейти    
VBA - стиль ячеек обычный
 
#
25.09.2014 10:11:52
есно пробывал) это проще чем на форум написать) - не записывает
Изменено: Fedo Max - 25.09.2014 10:12:03
 
Перейти    
VBA - стиль ячеек обычный
 
#
25.09.2014 09:55:18
Добрый день!
Подскажите, как средством VBA сделать стиль ячеек на листе "Обычный" и применить действие "Назад".
Объясню зачем - при дублировании листа в сводных диаграммах слетают форматы чисел.
Выделяешь лист->применяешь стиль ячеек "обычный"->действие "назад". Все приходит в нормальный вид с нормальным форматом ячеек
 
Перейти    
Смена фильтров в сводной таблице через VBA, Отличие свойства .CurrentPage от .PivotItems
 
#
24.09.2014 13:32:43
Глупый вопрос задам, а page fields от field category чем отличается?
 
Перейти    
Смена фильтров в сводной таблице через VBA, Отличие свойства .CurrentPage от .PivotItems
 
#
24.09.2014 13:09:15
Всех приветствую!
Проблемка, необходимо через VBA менять выставленный фильтр в сводной таблице. В одной сводной таблице срабатывает свойство CurrentPage
Код
 .PivotTables("СводнаяТаблица5").PivotFields("Филиал").CurrentPage = Sheets("data").Cells(i, 1).Value
В другой сводной таблице это же свойство вызывает ошибку, но срабатывает такая конструкция:
Код
.PivotTables("СводнаяТаблица6").PivotFields("Филиал").PivotItems(Sheets("data").Cells(i, 1).Value).Visible = True
Подскажите, как стандартизировать сводную таблицу, чтобы срабатывало везде одно свойство? И может кто знает, в чем отличие?
 
Перейти    
"отловить" на листе процедуру копирования VBA, VBA
 
#
29.04.2014 11:57:48
Комбинация Crtl+V работает, то есть отмену копирования обойти можно
 
Перейти    
"отловить" на листе процедуру копирования VBA, VBA
 
#
29.04.2014 10:47:24
Доброго времени суток!
Вопрос,
Можно ли с помощью VBA средств запретить на листе копирования?
Либо при переходе на лист отчищался буфер и  копировать было нечего?
 
Перейти    
Формула с применением СЧЕТЕСЛИ (диапазон;диапазон)
 
#
28.03.2014 09:01:05
По поводу темы: поменяйте на "Помогите с разбором формулы массива"
 
Перейти    
Формула с применением СЧЕТЕСЛИ (диапазон;диапазон)
 
#
27.03.2014 15:18:32
Может я криво написал? Вопросы, кто может помочь
 
Перейти    
Формула с применением СЧЕТЕСЛИ (диапазон;диапазон)
 
#
27.03.2014 14:36:23
Добрый день! Есть тема Пустые строки в всплывающем списке, в котором приложена книга Ссылка, с очень интересным решением
Разбирая формулу не могу понять что делает функция в формуле поиска =СЧЁТЕСЛИ($L$1:L1;$K$2:$K$133).
Не понятно как работает критерий отбора. 2ой непонятный момент что делает добавление к общей формуле ($K$2:$K$133="")
Формула разбора:
Код
 =ЕСЛИ(ЕНД(ПОИСКПОЗ(0;СЧЁТЕСЛИ($L$1:L1;$K$2:$K$133)+($K$2:$K$133="";0));"";ИНДЕКС($K$2:$K$133;ПОИСКПОЗ(0;СЧЁТЕСЛИ($L$1:L1;$K$2:$K$133)+($K$2:$K$133="" );0)))
 
Перейти    
считать до выбранного значения (Формула)
 
#
30.05.2012 21:08:28
данная формула должна отслеживать числа в столбце более 1    
    если данное число более 30 в этом случае она считает число ЕДИНИЦ в столбце ниже данного числа, пока не дойдет до следующего числа не равного единице.  
Если число единиц более трех - выводит метку напротив  
 
 
з.ы. таким образом для решения данной задачи excel должен понимать момент перехода  от суммирования к началу данного цикла.
 
Перейти    
считать до выбранного значения (Формула)
 
#
30.05.2012 20:48:38
Доброго всем времени суток!  
Нужна формула которая будет выполнять следующие критерии выборки(не макрос):  
Есть массив состоящий из цифр, значения которых больше 30  
После значений, которое больше 30, стоит ряд единиц. Нужно написать такую формулу, которая бы определяла после ряда единиц начало следующего числа >30 и если кол-во единиц больше 2, то ставила метку.  
 
Заранее всем спасибо, сорри за мой албанский!
 
Перейти    
Как задать в листе рабочий диапазон?
 
#
25.10.2011 11:49:19
Казанский спасибо за ответ!  
Тема я думаю закрыта.
 
Перейти    
сортировка листов (в названии листа дата формата "ДДММ")
 
#
25.10.2011 11:47:03
Пояснительная записка:  
К примеру, лист с названием 2908(имя берется из названия файла), что подразумевает дату 29/08.  
--  
Вопрос:  
Как сделать, чтобы он сортировал сначала по месяцу, а потом по числу в заданном месяце?    
Условие:  
название книги должно оставаться в таком же формате "ДДММ"  
PS  
Заранее, за любую помощь премного благодарен!  
Было бы приятно, если бы код готовый выслали, вряд ли я первый с этим вопросом :-) , а то что-то голову долго ломаю, а поиском фуфло находит!  
Факультатив:  
Кто-нибудь из всемогущих модеров пишет макросы для Outlook, а то помощь нужна?? :-(
 
Перейти    
Как задать в листе рабочий диапазон?
 
#
25.10.2011 11:22:44
Блин, тривиально! :(  
Думал, что-нибудь интересненькое :)  
А как их после отобразить, извините за криворукость
 
Перейти    
Как задать в листе рабочий диапазон?
 
#
25.10.2011 11:20:05
{quote}{login=The_Prist}{date=25.10.2011 11:16}{thema=}{post}Открыл файл. Увидел пару кнопок без кодов на них. Что куда и зачем непонятно. Что такое есть "рабочий диапазон" тоже неясно.{/post}{/quote}  
 
Попробуй что-нибудь написать в ячейке "A15". Не знаю как это назвать по другому, кроме рабочего диапазона :)  
Перекрепил так, чтобы кнопки не смущали зря :)
 
Перейти    
Как задать в листе рабочий диапазон?
 
#
25.10.2011 11:10:28
*прикрепленный файл должен открываться, я его проверял  
___  
Рабочий диапазон "C1:P13", как это сделать?
 
Перейти    
Как задать в листе рабочий диапазон?
 
#
25.10.2011 11:03:34
Если откроете файл, то будет понятно, что я хочу. Интересно, как это сделать!?
 
Перейти    
проблемы с функцией Find помогите в чем проблема
 
#
24.03.2011 19:09:17
{quote}{login=ikki}{date=24.03.2011 06:56}{thema=}{post}у вас диапазоны разные{/post}{/quote}  
 
а как надо?
 
Перейти    
проблемы с функцией Find помогите в чем проблема
 
#
24.03.2011 18:51:55
я только с ним работал, извините не вернул в исходный вид, но я думаю вы и так поймете :)
 
Перейти    
проблемы с функцией Find помогите в чем проблема
 
#
24.03.2011 18:50:18
не вопрос!Спасибо!
 
Перейти    
проблемы с функцией Find помогите в чем проблема
 
#
24.03.2011 18:28:31
Добрый день всем!  
 
Есть код:  
 
Sub One(Obj As String, iMonth As String, iYear As String)    
Dim X, Y  
 
 
iMonth = Left(iMonth, 3)    
iYear = Right(iYear, 2)  
 
'должен искать к примеру апр.10 в строке №1  
Set Y = ThisWorkbook.ActiveSheet.Range("1:1").Find(CStr(iMonth) & "." & CStr(iYear), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False)  
'Икс ищет, а Игрек не хочет! не знаю почему.  
 
Set X = ThisWorkbook.ActiveSheet.Range("D:D").Find(Obj, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)  
'пробовал так но не помогает.  
'Set Y = ThisWorkbook.ActiveSheet.Cells.Find(What:="" & CStr(iMonth) & "." & CStr(iYear) & '"", LookIn:=xlValues, After:=Cells(1.1), LookAt:=xlPart, SearchOrder:=xlByRows, 'MatchCase:=False)  
 
 
End Sub
 
Перейти    
Объект ChartSpace
 
#
10.03.2011 10:46:49
Добрый день!    
На форме есть объект ChartSpace, имеется 2 вопроса по работе с ним  
1. как убрать ошибку при загрузки книги "this application is about to initialize activex controls that might be unsafe..."  
Пробовал displayalerts в Workbook_Open не помогло.  
 
2. как обратится к данным объекта, то есть "вставить значения"  
спасибо!
 
Перейти    
Страницы: 1 2 3 След.
Наверх