Добрый день.

Не могу решить простую, как мне казалось, задачу.
Есть список магазинов, есть колонка с признаком (число) к какому городу он относится, есть два вида данных для каждого магазина (пример файла с графиком во вложении).
Задача - отобразить на графике точку магазина на пересечении осей, НО таким образом, чтобы точки магазинов одного города (имеющие, например, признак 2 в колонке Town) были одного формата (цвет и символ фигуры). Руками делать не вариант, тк по факту имею список более 300 строк и 70 городов.

Буду благодарен за помощь!

ЗЫ Эксель 2010...

Всем привет!  
Подскажите, пожалуйста, при создании тулбара в эксель 2003 была команда  
".BeginGroup = True" добавляющая палочку разделитель групп значков. Есть ли ее аналог в 2010, потому как в нем данная команда не работает и все значки на панеле идут подряд без разделителей.  
 
Заранее спасибо

Коллеги, остро нуждаюсь в помощи...  
У меня есть график, построенный через сводную таблицу, соответственно есть на графике фильтры которые позволяют варьировать отображаемую информацию. Так вот, чтобы не выбирать каждый раз список руками записал макрочку, которая вначале отображает все данные, потом часть из них скрывает, оставляя нужные мне данные на графике. И вот работает эта казалось бы простенькая фигня ужасно медленно (До 10 сек задержки). Помогите, может быть есть способ доработать код? Буду очень признателен...  
 
Sub Cluster()  
   With ActiveChart.PivotLayout.PivotTable.PivotFields("store")  
       .PivotItems("8010").Visible = True  
       .PivotItems("8011").Visible = True  
       .PivotItems("8012").Visible = True  
       .PivotItems("8013").Visible = True  
       .PivotItems("8015").Visible = True  
       .PivotItems("8016").Visible = True  
       .PivotItems("8017").Visible = True  
       .PivotItems("8018").Visible = True  
       .PivotItems("8021").Visible = True  
       .PivotItems("8022").Visible = True  
       .PivotItems("8023").Visible = True  
       .PivotItems("8029").Visible = True  
       .PivotItems("8030").Visible = True  
       .PivotItems("8031").Visible = True  
       .PivotItems("8035").Visible = True  
       .PivotItems("8039").Visible = True  
       .PivotItems("8034").Visible = True  
       .PivotItems("8042").Visible = True  
       .PivotItems("LFL").Visible = True  
       .PivotItems("NO").Visible = True  
       .PivotItems("SU").Visible = True  
       .PivotItems("Total").Visible = True  
   End With  
     
   With ActiveChart.PivotLayout.PivotTable.PivotFields("store")  
       .PivotItems("8012").Visible = False  
       .PivotItems("8013").Visible = False  
       .PivotItems("8015").Visible = False  
       .PivotItems("8016").Visible = False  
       .PivotItems("8017").Visible = False  
       .PivotItems("8018").Visible = False  
       .PivotItems("8021").Visible = False  
       .PivotItems("8022").Visible = False  
       .PivotItems("8029").Visible = False  
       .PivotItems("8030").Visible = False  
       .PivotItems("8031").Visible = False  
       .PivotItems("8035").Visible = False  
       .PivotItems("8034").Visible = False  
       .PivotItems("LFL").Visible = False  
       .PivotItems("NO").Visible = False  
       .PivotItems("SU").Visible = False  
       .PivotItems("Total").Visible = False  
   End With  
End Sub

Доброго дня всем!  
Прошу помощи. Есть несколько ячеек с данными, задача с помощью VBA выбрать из них наименьшее значение и выделить его цветом шрифта или заливки.    
 
Пример прилагаю, стрелками выделены ячейки для сравнения - через одну, красной стрелкой та, что должна перекраситься.  
 
Заранее признателен

Коллеги нужна помощь!  
Файл с примером во вложении... Задача такая:  
В ячейке В12 сумма чисел по столбцу В. В столбце С необходимо распределить эту сумму по ячейкам сверху вниз, но не в долях, а таким образом, чтобы если сумма составляет 8, то будут заполнены ячейки С1-С8 числом 1, остальные нолями. Если сумма =9, то ячейки С1-С9, а ячейка С10=0.  
 
Пожалуйста, помогите, формулой или макросом!

Товарищи, помогите с написанием макроса, пожалуйста!  
 
В диапазоне ячеек А1В10 есть данные. Задача в том чтобы они перенеслись в столбец А начиная с ячейки А15 и вниз, с пропуском одной строки между ними (между столбцами). Пример того как это должно выглядеть прилагаю. Вроде простейшая фигня, а я запутался напрочь... видимо пора в отпуск.  
 
Заранее благодарю за помощь.

Доброго дня всем.  
Уважаемые коллеги, помогите с одним вопросом, пожалуйста!  
 
Есть созданная мной панель с кнопками под мои макросы, кнопок порядка 20-ти штук и хотелось бы их разделить на панели символом "|", ручками из стандартного меню управления это сделать конечно получается (через меню Begin a Group), но при выходе из экселя надстройка сбрасывает этот параметр и это не удивляет.    
 
Как на VBA прописать в панель символ разделителя групп ???  
 
Заранее спасибо за ответы.

Друзья, помогите разобраться!  
Есть у меня макрочка создания Toolbar  
 
Sub CreateWriteOffToolbar()  
   Dim TBar As CommandBar, Btn As CommandBarButton  
   Set TBar = CommandBars.Add  
   With TBar  
       .Name = "Write Off"  
       .Visible = True  
   End With  
       For rws = 1 To 2  
   Set Btn = TBar.Controls.Add(Type:=msoControlButton)  
   With Btn  
       .FaceId = 71  
       .Caption = "Past 1"  
   End With  
   Next rws  
   Application.ScreenUpdating = True  
End Sub  
 
Она создает панель с двумя кнопками...  
 
ВОПРОС: Как прописать каждой кнопке свою картинку и описание? Сейчас обе получаются идентичными!    
 
Заранее спасибо