Выбрать данные->Удалить ряд 'ГОДА'->Подписи горизонтальной оси изменить и выделить ряд с годами.

Сама диаграмка от гугла

Добрый день, уважаемые знатоки.  
Очень нужна ваша помощь.  
Есть табличка, и есть пример диаграммы,подсмотренной мною у Гугла :),  очень нужно такую же построить в excel. Помогите пожалуйста.  
 
Суть диаграммы по сути дела, как ни странно, пересечению людей и фруктов по популярности.

Добрый день, уважаемые знатоки.  
Возникла необходимость получить названия всех "Тем" Microsoft Office, как Встроенных, так и пользовательских, естественно через VBA.  
Никак не могу понять какой параметр содержит данную информацию.

Не получается то, что в любом случае выделяется только один элемент.

тут очепяточка:  
 
вместо:  
Selection.ShapeRange.Fill.TwoColorGradient msoGradientFromCenter, 2  
надо:  
Selection.ShapeRange.Fill.TwoColorGradient msoGradientFromCenter, 1

Здравствуйте,уважаемые знатоки, помогите, пожалуйста, вот в каком вопросе:  
Никак не могу через VBA добраться до Градиента типа радиальный/путь.  
Во вложении макрос, который создает вроде бы нормальный градиент, но не то что нужно.  
То, что нужно в файле тоже есть)  
Спасибо!

Добрый день, знатоки!  
Есть ситуация:  
Форма, на ней WebBrowser.  
В webbrowser посредством Navigate загружаются некоторые файлы(html, swf, gif, jpg итд)  
Возникла необходимость добавить на форму контролы Zoom In/Zoom out.  
Перерыл все, нашел метод:  
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(0..4), vbNull  
Но она меняет только размер текста.  
 
Помогите пожалуйста!

Добрый день, уважаемые знатоки,  
Скажите пожалуйста возможна ли вставка процентного формата в ListBox?

{quote}{login=Z}{date=18.08.2010 03:58}{thema=Re: Зум для круговой диаграммы}{post}{quote}{login=Elv!s}{date=18.08.2010 10:01}{thema=Зум для круговой диаграммы}{post}...Есть динамически создающийся список с долями по брендам. Их количество варьируется от 1 до ... когда их число превышает некоторое количество на диаграмме уже невозможно увидеть ни названия, ни доли. Что делать?{/post}{/quote}  
Попробуйте... плясать от долей долей: есть мин - "0", есть макс - "6000". Почему бы не поделить их на 4, 5 или 6 - с шагом 0-1500, 0-1200, 0-1000. И делаете две диаграммы: одна для долей больших, а 4-5-6 - для долей входящих в большие доли. И понятнее, и информативнее, и проще...  
Z.{/post}{/quote}  
 
Мне необходимо увидеть долю определенного бренда среди ВСЕХ брендов, даже если доля у него нулевая.

{quote}{login=vikttur}{date=18.08.2010 10:20}{thema=}{post}Это даст другой вид диаграммы :){/post}{/quote}  
Превосходная идея! И что?

{quote}{login=vikttur}{date=18.08.2010 10:04}{thema=}{post}Выбрать другой тип (например, гистограмма).{/post}{/quote}  
И что это даст?

Добрый день, уважаемые знатоки. Интересует возможность создания зума для круговой диаграммы.    
 
Есть динамически создающийся список с долями по брендам. Их количество варьируется от 1 до 89. В тот момент когда их число превышает некоторое количество на диаграмме уже невозможно увидеть ни названия, ни доли. Что делать?

Есть :Set HeadRng=PPPres.Slides(1).Shapes(2).Chart.ChartData.Workbook.Worksheets(1).ListObjects.Item(1).HeaderRowRange  
И есть Range("A1:B5") где первый столбец это названия групп, а второй это залитые разными цветами ячейки. Каждой группе соответствует свой цвет.  
 
Нужно найти для каждой группы из HeadRng цвет из Range("a1:B5") и залить этим цветом.  
 
Как это реализовать.  
 
То есть по сути здесь ВПР по цвету!

переделаю, извините!

Прошу прощения если не понятно выразился.    
Делается это для того чтобы раскрасить ряды в диаграмме PowerPoint.  
Суть вопроса в следующем:  
Есть таблица, Группа и соответствующий цвет-назовем это "палитра"  
Есть таблица с именами групп в листе диаграммы  
Необходимо пробежаться по названиям групп в листе диаграммы и для каждого значения найти цвет в "палитре".

Здравствуйте, коллеги. Мучаюсь никак в голову не приходит.  
Есть myRng=Range("A1:B5") и есть myHeadRng, который может состоять как из одного столбца так и из одной строки.  
 
Как сравнить эти два диапазона по значениям в VBA и если есть совпадения сделать следующее(см. файл)

{quote}{login=Vl55}{date=26.03.2010 09:46}{thema=}{post}Можно сделать "Лупу". При виделении в Listboxe элемента он дублируется в отдельном TextBoxe.{/post}{/quote}  
Это интересно! Каким образом не подскажете?

{quote}{login=The_Prist}{date=26.03.2010 05:01}{thema=}{post}И правильно делает. Потому как нет такого свойства у ListBox в VBA. А пример Вы нашли для VB. А пропасть между VB и VBA не такая уж и маленькая....{/post}{/quote}  
 
А нельзя сделать с помощью элемента формы scrollBar для listbox исходя из длины текста?

{quote}{login=The_Prist}{date=26.03.2010 05:24}{thema=}{post}Не-е-ет...Либо создавайте еще диапазон с нумерацией строк(например столбец B)  
 
lst_box_checked_ads.List = Range("A1:B9").Value  
 
 
либо циклом заполняйте  
 
Dim rCell As Range, li As Long  
For Each rCell In Range("A1:A9")  
Me.ListBox1.AddItem rCell  
Me.ListBox1.List(li, 1) = rCell.Row: li = li + 1  
Next rCell{/post}{/quote}  
 
Спасибо огромное, как всегда! :)

А не подскажете как?  
 
Есть вот такая операция lst_box_checked_ads.List = Range("A1:A9").Value Нужно чтобы слева были пронумерованы строки?

Понял. Насколько я знаю листбокс может иметь несколько колонок, возможно ли каким нибудь образом вписывать в одну из колонок Index строки?

я нашел такой метод:    
 
Private Declare Function SendMessageByNum Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long  
Const LB_SETHORIZONTALEXTENT = &H194  
 
Private Sub Command1_Click()  
Static x As Long  
For Item = List1.ListCount - 1 To 0 Step -1  
If x < TextWidth(List1.List(Item) & " ") Then  
x = TextWidth(List1.List(Item) & " ")  
End If  
Next  
If ScaleMode = vbTwips Then x = x / Screen.TwipsPerPixelX  
SendMessageByNum List1.hwnd, LB_SETHORIZONTALEXTENT, x, 0  
End Sub  
 
Private Sub Form_Load()  
List1.AddItem "длинная переменная, которую надо"  
List1.AddItem "длинная переменная, которую надо увидеть или не увидеть или еще что-то"  
List1.AddItem "длинная переменная, которую надо увид"  
List1.AddItem "длинная переменная, которую надо увидеть или не увидеть или еще что-тоывеапапавп"  
End Sub    
 
Но excel ругается на hwnd!

{quote}{login=The_Prist}{date=26.03.2010 04:50}{thema=}{post}Никак. Нет такого свойства. Он появляется сам по мере необходимости. Меру необходимости определяет VBA и не очень хорошо.    
 
В принципе-то можно сделать, но муторно и оно того не стоит.{/post}{/quote}  
 
И каким образом это обойти если мне нужно прочитать строку целиком?

Уважаемые, знатоки!  
Как можно добавить скролл в ListBox???

{quote}{login=The_Prist}{date=24.03.2010 03:53}{thema=}{post}Можно. Только неясно что и куда Вы хотите запихнуть и что Вам непонятно.  
 
Вот в этой строке меняете диапазон и комбобокс(или листбокс) и все  
 
lst_box_copy.List = NoDups(Range("D2:D10000"), "*+*")  
 
Вместо lst_box_copy - другой комбо. Вместо "D2:D10000" - другой диапазон.{/post}{/quote}  
 
Мне нужно чтобы к отфильтрованным по "*+*" уникальным записям отображенным в первом Боксе, во втором боксе отображались данные соответствующие им но из другого столбца!  
 
Категория  Данные  
  а+б       1  
  а+б       900  
  в+г      155  
  Ж+3       12  
  Ж+З       300  
 
   
Грубо говоря: Listbox1.Value="а+б", ListBox2.Value1=1  ListBox2.Value2=900

{quote}{login=Elv!s}{date=24.03.2010 11:42}{thema=Re: }{post}{quote}{login=The_Prist}{date=23.03.2010 05:23}{thema=}{post}Только цикл. С несвязанными диапазонами фокусы типа Application.Transpose не проходят.  
Да и вообще зачем фильтр? Проверяйте прямо в цикле. См. пример.{/post}{/quote}  
 
Все получилось... Но в связи с неумением работы с массивами и коллекциями возможно ли чтобы во второй комбокс записывались уникальные значения из другого столбца соответствующие уникальным значениям из столбца с "+" ?{/post}{/quote}  
 
Насколько я понимаю здесь необходимо использование Dictionary?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
If Target.Column = 1 Then ActiveSheet.Range("A1:p1").Select Else Exit Sub  
End Sub

{quote}{login=The_Prist}{date=23.03.2010 05:23}{thema=}{post}Только цикл. С несвязанными диапазонами фокусы типа Application.Transpose не проходят.  
Да и вообще зачем фильтр? Проверяйте прямо в цикле. См. пример.{/post}{/quote}  
 
Все получилось... Но в связи с неумением работы с массивами и коллекциями возможно ли чтобы во второй комбокс записывались уникальные значения из другого столбца соответствующие уникальным значениям из столбца с "+" ?

Ошибка type mismatch