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

Страницы: 1
Смена параметров Frame при изменение значений Control. Цикл
 
#
17.09.2015 00:44:06
Sanja, Да, мне кажется, вы поняли меня.У меня получается очень много OptionButton и хотелось бы не прописываться проверку Вкл\Выкл  по изменению для каждой кнопки, а запустить макрос( например, вместе с UserForm) и чтобы он отслеживал изменения option button на странице.
Это реально?
 
Перейти    
Смена параметров Frame при изменение значений Control. Цикл
 
#
12.09.2015 12:37:13
Извините, долго пришло урезать размер файла
 
Перейти    
Смена параметров Frame при изменение значений Control. Цикл
 
#
12.09.2015 12:20:27
Как-то так)
 
Перейти    
Смена параметров Frame при изменение значений Control. Цикл
 
#
12.09.2015 12:07:13
Цитата
Sanja написал: И чем не подошел второй вариант (сообщение #5, вообще без Frame)?
Подошел, но только для изменения optBT) а сейчас уже стремлюсь изменять параметры определенных Control
 
Перейти    
Смена параметров Frame при изменение значений Control. Цикл
 
#
12.09.2015 11:58:49
Два крайних символа? никак не могу понять, как должны соотносить имена..
То есть, напр. КНОПКА CheckBox с именем "cbCH123" и картинка"okImage123 " будут обрабатываться?

Что думаю сделать:
попробовать ввести переменную и выполнять код по переменном..
Думаю в этом направлении:
Код
Private Sub UserFormInitialisation () 
Dim laganame as String
Dim Imglaga as String
   Dim laga As Control


   For x = 0 To UserForm.Controls.Count - 3

      Set  laga = UserForm.Controls.Item(x)


Imglaga.Value = Laga.Name
   Next x

   Unload Me
End Sub


Но сейчас  это так, набор фраз, на которые ориентируюсь при поиске решения
Изменено: chest - 12.09.2015 12:05:26
 
Перейти    
Смена параметров Frame при изменение значений Control. Цикл
 
#
12.09.2015 10:49:54
А! и еще! Для вызова функцию приходить писать очень много кода , напр:
Код
Private Sub OptionButton111_Click()
    Call OPBchange
End Sub
Private Sub OptionButton112_Click()
    Call OPBchange
  
End Sub

Private Sub OptionButton121_Click()
    Call OPBchange
End Sub
Private Sub OptionButton122_Click()
    Call OPBchange
End Sub
Private Sub OptionButton123_Click()
    Call OPBchange
End Sub
Private Sub OptionButton124_Click()
    Call OPBchange
End Sub
Private Sub OptionButton125_Click()
    Call OPBchange
End Sub

Private Sub OptionButton131_Click()
    Call OPBchange
End Sub
Private Sub OptionButton132_Click()
    Call OPBchange
End Sub
Private Sub OptionButton133_Click()
    Call OPBchange
End Sub
Private Sub OptionButton134_Click()
    Call OPBchange
End Sub
Private Sub OptionButton135_Click()
    Call OPBchange
End Sub

Private Sub OptionButton141_Click()
    Call OPBchange
End Sub
Private Sub OptionButton142_Click()
    Call OPBchange
End Sub

Возможно ли как_либо упростить запуск,
 
Перейти    
Смена параметров Frame при изменение значений Control. Цикл
 
#
12.09.2015 10:42:19
Sanja,

Очень выручает твой код! Вот только никак не могу разобраться, что же все-таки несет в себе " Right(cCont2.Name, 2) = Right(cCont.Name, 2)". Как именно им пользоваться, какие параметры есть? Можешь подсказать?

И еще, Пытаюсь применить ваш код к CheckBox   -- но вот никак не могу разобраться, что к чему). Подскажи, если в силах.

в приложении - твой, чуть доработанный мною код:
Код
Private Sub OPBchange()
Dim cCont As Control
    For Each cCont In Frame_Profil1.Controls
        If TypeName(cCont) = "OptionButton" Then
            If cCont.Value = True Then
                cCont.BackColor = &HC0C0C0
                GoSub bcFrame
            Else
                cCont.BackColor = &HE0E0E0
                GoSub bcFramea

            End If
        End If
    Next
Exit Sub
 
bcFrame:
    For Each cCont1 In Frame_Kartinka_Stena1.Controls
        If TypeName(cCont1) = "Image" And Right(cCont1.Name, 2) = Right(cCont.Name, 2) Then
            cCont1.Visible = True
        End If
    Next
    Return

bcFramea:
For Each cCont2 In Frame_Kartinka_Stena1.Controls
        If TypeName(cCont2) = "Image" And Right(cCont2.Name, 2) = Right(cCont.Name, 2) Then
            cCont2.Visible = False
        End If
    Next
    Return
End Sub
 
Перейти    
Смена параметров Frame при изменение значений Control. Цикл
 
#
05.09.2015 18:36:36
Спасибо огромное за оперативность и дельные советы!)

п.с. Непонятно каким чудом, но мне тоже пришла идею расширить OptionButton :)
 
Перейти    
Смена параметров Frame при изменение значений Control. Цикл
 
#
05.09.2015 16:03:21
Цитата
Sanja написал:
а 'ВОТ ТУТ НИКАК НЕ МОГУ ПОДОБРАТЬ КОД!!!' стоит напротив строки присвоения значения свойству Caption
Да, именно так. Насколько мне понятно, нужно заменить код:
Код
 FrameOptionButton_13.Caption = www
На такой, который бы мог Фрейму с  значением соответствующем OptionButton менять параметр BackColor
Изменено: chest - 05.09.2015 16:05:48
 
Перейти    
Смена параметров Frame при изменение значений Control. Цикл
 
#
05.09.2015 15:21:29
Доброго времени суток!

Ребята нужна помощь вот в каком вопросе:
Есть массив 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, возможно ли тоже каким-нибудь циклом заменит?

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