Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Смена параметров Frame при изменение значений Control. Цикл
 
Доброго времени суток!

Ребята нужна помощь вот в каком вопросе:
Есть массив OptionButton и массив Frame. Хочется, чтобы при изменении Value одного из OptionButton изменялся BackColor определенного Frame.
в вопросах VBA для Excel новичок, своими силами дошел до такого кода:
Код
Private Function OPBchange()
    Dim xxx As Control
   Dim www As String

   
    For Each xxx In Frame_11.Controls
        If TypeName(xxx) = "OptionButton" Then
            
            If xxx.Value = True Then
           cCont.BackColor = &HFF&
              www = xxx.Name
            If xxx.Name <> "" Then
            FrameOptionButton_13.Caption = www 'ВОТ ТУТ НИКАК НЕ МОГУ ПОДОБРАТЬ КОД!!!
 End If            
          Else
           XXX.BackColor = &HE0E0E0
          
            End If
       End If
  Next XXXX
End Function
и еще, функция вызывается кодом:
Код
Private Sub OptionButton_15_Change()
Call OPBchange
End Sub
Который приходиться прописывать для каждой OptionButton, возможно ли тоже каким-нибудь циклом заменит?

Заранее спасибо!
Создание сводной таблицы на основе Таблицы
 
Есть таблица excel, на ее основе нужно сделать сводную таблицу, но когда я пытаюсь вставить таблицу с подзаголовками, программа разбивает ячейки, которые объеденные.
Подскажите, как выйти с этой ситуации.
Заранее спасибо!
Страницы: 1
Наверх