Привет, всем
Вопрос такой: можно ли в отчете сводной диаграммы сделать отдельно графики за 2012 и 2013 за произвольный период (например, с 1 по 6 января, пример во вложенном файле)?  У меня получилось сделать только в целом за месяц: Фильтр по дате - Все даты за период - Январь. Когда пытаюсь задать произвольную дату (Фильтр по дате - Между), то появляется график только за один год (если не указывать год, то берется 2013).

Привет, всем  
Можно ли на оси категорий (месяцы) в сводной диаграмме в Excel 2007 отобразить значения по двум годам отдельно? Так, чтобы для значений продаж по продукту "Ананас" было два ряда за 2012 и 2013 г?
Мне удалось добиться этого только с помощью функции "Сцепить" в исходных данных, т.е. разбить значения на два ряда "Ананас - 2012" и "Ананас - 2013" (пример во вложенном файле). Но этот способ, мягко говоря, неудобный и некрасивый. Есть ли более простой и эффективный способ добиться того же результата?

Привет, всем  

Можно ли в Excel 2007 разделить текст по столбцам так, чтобы текст разделился только после первой запятой (пример во вложенном файле). Так, чтобы в одном столбце осталось "Апельсин", а в другом "3 кг, Вашингтон"?

Привет, всем    

Если сделать сводную таблицу, то автоматически ставится фильтр (пример во вложенном файле). Если после этого удалить часть исходных данных (например, Магазин 2 и 3) и обновить таблицу, то данные из самой таблицы исчезнут. Но при этом они останутся в самом фильтре, т.е. теоретически можно будет выбрать Магазин 2 и 3, просто данные не отобразятся. Можно ли как-то удалить эти данные и из фильтра?

Привет, всем
На форуме видел, что советуют использовать цикл For...Next в форме, к примеру:

С чем это связано и всегда ли нужно пользоваться циклами с отрицательным шагом?

Привет, всем.
Подскажите, плиз, какие есть приемы для ускорения работы кода. Я знаю только Application.ScreenUpdating = False/True. Какие еще есть строчки кода подобные этой?

Привет, всем  
Можно ли изменить расположение и вид общих итогов в сводной таблице (пример во вложенном файле) так, чтобы по строке считалось среднее по месяцам, а по столбцу сумма? И поднять итог по столбцу к группе (т.е. под Магазином 4)?

Привет всем!
Подскажите, можно ли в сводной таблице Excel 2007 отфильтровать значения? Например, чтобы в сводной таблице отобразились только значения больше 4000 (т.е. Магазины 1 и 3 (вложенный файл)). Я нашел лишь сортировку по возрастанию/убыванию.

Привет, всем  

Разбирал учебный пример из самоучителя (макрос для составления базы данных). Возникает ошибка:
Run-time error '5'
Invalid procedure call or argument

в строчке With Me.Application.CommandBars.Add(Name:="Сводная таблица и файлы", Position:=msoBarTop, MenuBar:=False, Temporary:=False) в модуле "ЭтаКнига". Не понимаю в чем дело, ведь "Рабочая панель инструментов" создается

Помогите исправить ошибку.

Привет, всем.

При выполнении учебного задания (пример во вложенном файле) в строчке ReDim ЭлементыСписка(i To m, 0 To 1) возникает ошибка:

Run-time error '9'

Subscript out of range

Помогите найти причину.

Привет всем

В макросе не срабатывает оператор On Error GoTo Сообщение0 (и все остальные On Error, связанные с переключателями) при отсутствии картинки "1.bmp":

On Error GoTo Сообщение0

Сообщение0:
If Err.Number = 52 Then
MsgBox "Нет графического файла 1.BMP" & Chr(13) & "Работаем без картинки", vbCritical, "Выплаты"
End If

Resume Next

В чем может быть причина?

Заранее извеняюсь за повтор более раней темы, просто ее название уже не соответсвовало сути вопроса.

Привет всем

В упражении из самоучителя (пример во вложенном файле), не получается запустить событие UserForm_Initialize.
Изначально имя формы было UserForm1. Если поставить UserForm1_Initialize (и везде  UserForm1),то форма выводится на экран, но остальные операторы в событии игнорируются. Если из имени формы и из кода убрать единицу (т.е. везде UserForm) при вызове события генерируется ошибка:
Run-time error '424'
Object required
Как исправить эту ошибку?

Привет, всем

В макросе (пример во вложенном файле) должна строиться поверхность (на листе Excel и в самой форме) по заданному уравнению (задается в форме). Однако у меня появляется ошибка:
Run-time Error '14'
Out of string space
в строчке кода УрПоверхности = Left(УрПоверхности, i - 1) & "$A2" &

Right (УрПоверхности, n-1).

Подскажите, пожалуйста, как ее исправить.

Привет, всем
Выполняю задания из самоучителя по VBA. Остановился на задании нахождения корней уравнения в зависимости от параметра методом GoalSeek и построения соответвующего графика (пример во вложенном файле).
Ошибка возникает в строчке Cells(i, 3).GoalSeek Goal:=ПраваяЧасть, ChangingCells:=Cells(i, 2). В чем ее причина?
Еще вопрос свойство AxisGroup Propety определяет тип диаграммы (стандартая или нестандартная) или что-то другое?

Привет всем
Как с помощью VBA перенести часть ячейки? Т.е. из ячейки B2 на первом листе перенести на второй лист не "10 шт", а просто 10? (пример во вложенном файле).

Привет, всем!

Выполнял задание из самоучителя VBA (расчет амортизации, пример во вложенном файле). Споткнулся в самом конце - при программировании закрытии формы через "крестик". Появляется ошибка:
Run-time error '91'
Object variable or With block variable not set

Что она означает и как ее исправить?

Как правильно написать здесь:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

CloseMode = True

End Sub ?

Привет, всем.
Помогите разобраться почему не работает цикл удаления строк в коде (пример во вложенном файле). Код должен суммировать вес апельсинов (третий столбце), сохранять их в третьем столбце второй строчки и удалять все строки строки с апельсинами, кроме сорта "Гамлин".

Есть такая строчка в коде: ActiveSheet.Shapes.AddTextEffect (msoTextEffect14, "Амортизация", "Impact", 18#, msoTrue, msoFalse, 166.5, 105#).Select.

Что значит символ # перед цифрами?

Привет, всем
Как написать макрос для удаления из ячеек части текста в скобках и пробел перед ними? Т.е. из Апельсин (Кор.1) сделать Апельсин (пример во вложенном файле).

Привет всем!
Есть файл Трен.xlsx. Как написать код, который бы копировал этот файл в папку "Проба" с добавлением к имени файла текущей даты, т.е. Трен 10.01.13?

Привет, всем.
Как правильно пользоваться окном Watch?
Пишу вот такой код:
Dim CR As Long
Dim WS As Excel.Worksheet
Public Sub TrenW()
Set WS = ActiveWorkbook.Worksheets(1)
CR = WS.Range("A" & Rows.Count).End(xlUp).Row
WS.Cells(1, 3).Value = CR
End Sub

Добавляю CR в окно Watch (правой кнопкой мыши Add Watch, Procedure - TrenW, Module - Module1, Watch Expression), а оно пишет "Out of Context" и Type Empty. Что не так делаю? Ведь значение у CR = 17, а тип Long. Пример во вложенном файле.