Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Работа с формами, условие для CheckBox_Click - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Работа с формами, условие для CheckBox_Click (Макросы/Sub)
Работа с формами, условие для CheckBox_Click
televnoy Дата: Пятница, 19.09.2014, 07:12 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте, в VBA не силен. Помогите разобраться с формой. При нажатие на галочку должно выводиться сообщение, и добавляться формула. При снятии другое сообщение, и другая формула(или порасту очищаться ячейка).
[vba]
Код
Private Sub CheckBox1_Click()
        If True Then
           MsgBox "Вы добаляете торцевое отверстие"
Cells(1, 1).FormulaR1C1 = _
             "=RC[1]&RC[2]&RC[3]&RC[4]&RC[5]"
        Else
            MsgBox "Вы убрали торцевое отверстие"
Cells(1, 1).FormulaR1C1 = _
             "="""""""
        End If

End Sub
[/vba]

Я пологал что должна быть лагическая форма если, но ошибся :(

Ну и конечно хотелось бы "заморозить" TextBoX", напротив галочики при условии если она снята.
К сообщению приложен файл: Primer1.xls (39.0 Kb)


О-па! 0_o

Сообщение отредактировал televnoy - Пятница, 19.09.2014, 07:30
 
Ответить
СообщениеЗдравствуйте, в VBA не силен. Помогите разобраться с формой. При нажатие на галочку должно выводиться сообщение, и добавляться формула. При снятии другое сообщение, и другая формула(или порасту очищаться ячейка).
[vba]
Код
Private Sub CheckBox1_Click()
        If True Then
           MsgBox "Вы добаляете торцевое отверстие"
Cells(1, 1).FormulaR1C1 = _
             "=RC[1]&RC[2]&RC[3]&RC[4]&RC[5]"
        Else
            MsgBox "Вы убрали торцевое отверстие"
Cells(1, 1).FormulaR1C1 = _
             "="""""""
        End If

End Sub
[/vba]

Я пологал что должна быть лагическая форма если, но ошибся :(

Ну и конечно хотелось бы "заморозить" TextBoX", напротив галочики при условии если она снята.

Автор - televnoy
Дата добавления - 19.09.2014 в 07:12
televnoy Дата: Пятница, 19.09.2014, 07:34 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
С очисткой ячейки понятно (наверно) <_<
[vba]
Код
      Else
              MsgBox "Вы убрали торцевое отверстие"
Cells(1, 1).ClearContents
          End If
[/vba]


О-па! 0_o

Сообщение отредактировал televnoy - Пятница, 19.09.2014, 07:34
 
Ответить
СообщениеС очисткой ячейки понятно (наверно) <_<
[vba]
Код
      Else
              MsgBox "Вы убрали торцевое отверстие"
Cells(1, 1).ClearContents
          End If
[/vba]

Автор - televnoy
Дата добавления - 19.09.2014 в 07:34
televnoy Дата: Пятница, 19.09.2014, 08:51 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Долго мучился получилось, ток я не разобрался как оставить замороженые ячейки при снятом, и наоборот

Результат моих мук ...
[vba]
Код

Private Sub CheckBox1_Change()
     If CheckBox1.Value = True Then
         MsgBox "Вы добавили отверстие"
         Cells(1, 1).FormulaR1C1 = _
             "=RC[1]&RC[2]&RC[3]&RC[4]&RC[5]"
          Else
          CheckBox1.Value = False
          MsgBox "Вы убрали отверстие"
          Cells(1, 1).ClearContents
     End If
End Sub
[/vba]

Видимо прейдется в самим TextBox писать формулы


О-па! 0_o
 
Ответить
СообщениеДолго мучился получилось, ток я не разобрался как оставить замороженые ячейки при снятом, и наоборот

Результат моих мук ...
[vba]
Код

Private Sub CheckBox1_Change()
     If CheckBox1.Value = True Then
         MsgBox "Вы добавили отверстие"
         Cells(1, 1).FormulaR1C1 = _
             "=RC[1]&RC[2]&RC[3]&RC[4]&RC[5]"
          Else
          CheckBox1.Value = False
          MsgBox "Вы убрали отверстие"
          Cells(1, 1).ClearContents
     End If
End Sub
[/vba]

Видимо прейдется в самим TextBox писать формулы

Автор - televnoy
Дата добавления - 19.09.2014 в 08:51
televnoy Дата: Пятница, 19.09.2014, 09:52 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
ДЕРЖИТЕ ДОБИЛСЯ hands

[vba]
Код
Private Sub CheckBox1_Change()
     If CheckBox1.value = True Then
         MsgBox "Вы добавили отверстие"
         Cells(1, 1).FormulaR1C1 = _
             "=RC[1]&RC[2]&RC[3]&RC[4]&RC[5]"
              
         TextBox1.Enabled = True
          
          Else
          CheckBox1.value = False
          MsgBox "Вы убрали отверстие"
          Cells(1, 1).ClearContents
           
          TextBox1.Enabled = False
       
     End If
End Sub
[/vba]

При снятой ячейке замораживается окно TexBox, при поставленной можно ввести текст


О-па! 0_o
 
Ответить
СообщениеДЕРЖИТЕ ДОБИЛСЯ hands

[vba]
Код
Private Sub CheckBox1_Change()
     If CheckBox1.value = True Then
         MsgBox "Вы добавили отверстие"
         Cells(1, 1).FormulaR1C1 = _
             "=RC[1]&RC[2]&RC[3]&RC[4]&RC[5]"
              
         TextBox1.Enabled = True
          
          Else
          CheckBox1.value = False
          MsgBox "Вы убрали отверстие"
          Cells(1, 1).ClearContents
           
          TextBox1.Enabled = False
       
     End If
End Sub
[/vba]

При снятой ячейке замораживается окно TexBox, при поставленной можно ввести текст

Автор - televnoy
Дата добавления - 19.09.2014 в 09:52
_Boroda_ Дата: Пятница, 19.09.2014, 11:05 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Посмотрите еще такой вариант
Не знаю, что нужно делать со второй галкой, поэтому засунул все в первую. Если не совсем верно, то переделать легко - там просто добавлены две надписи без текста, если первая галка поставлена, то они убираются на задний план, если снята - то появляются на переднем и закрывают все текстбоксы.
К сообщению приложен файл: Primer1_1.xls (49.5 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПосмотрите еще такой вариант
Не знаю, что нужно делать со второй галкой, поэтому засунул все в первую. Если не совсем верно, то переделать легко - там просто добавлены две надписи без текста, если первая галка поставлена, то они убираются на задний план, если снята - то появляются на переднем и закрывают все текстбоксы.

Автор - _Boroda_
Дата добавления - 19.09.2014 в 11:05
televnoy Дата: Пятница, 19.09.2014, 12:53 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
:D КЛАСС, ЭФФЕКТНО ВЫГЛЯДИТ, СПАСИБО... hands


О-па! 0_o
 
Ответить
Сообщение:D КЛАСС, ЭФФЕКТНО ВЫГЛЯДИТ, СПАСИБО... hands

Автор - televnoy
Дата добавления - 19.09.2014 в 12:53
televnoy Дата: Пятница, 19.09.2014, 13:00 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Я ЗАВИС ВООБЩЕ %) .... ТАК КАК ЯЗЫКА НЕ ЗНАЮ , НО ДОГНАЛ КОГДА КОВЫРЯТЬ СТАЛ :) И В ПРАВДУ ПРОСТО.


О-па! 0_o
 
Ответить
СообщениеЯ ЗАВИС ВООБЩЕ %) .... ТАК КАК ЯЗЫКА НЕ ЗНАЮ , НО ДОГНАЛ КОГДА КОВЫРЯТЬ СТАЛ :) И В ПРАВДУ ПРОСТО.

Автор - televnoy
Дата добавления - 19.09.2014 в 13:00
televnoy Дата: Пятница, 19.09.2014, 13:09 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 120
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
БЛИН А ОКАЗЫВАЕТСЯ ВАРИАНТОВ МАССА, ЗДЕСЬ Я ПОИГРАЛСЯ ШИРИНОЙ САМОГО ОКНА

[vba]
Код

Private Sub CheckBox1_Click()
      If CheckBox1.Value Then
         MsgBox "Вы добаляете торцевое отверстие"
          Cells(1, 1).FormulaR1C1 = _
           "=RC[1]&RC[2]&RC[3]&RC[4]&RC[5]"
             UserForm1.Width = 90
                    
      Else
          MsgBox "Вы убрали торцевое отверстие"
          Cells(1, 1) = ClearContents
          UserForm1.Width = 300
      End If
End Sub
[/vba]
[moder]Вы удивитесь, но у Вас КапсЛок на клавиатуре нажат.
Правила форума, п. 5g


О-па! 0_o
 
Ответить
СообщениеБЛИН А ОКАЗЫВАЕТСЯ ВАРИАНТОВ МАССА, ЗДЕСЬ Я ПОИГРАЛСЯ ШИРИНОЙ САМОГО ОКНА

[vba]
Код

Private Sub CheckBox1_Click()
      If CheckBox1.Value Then
         MsgBox "Вы добаляете торцевое отверстие"
          Cells(1, 1).FormulaR1C1 = _
           "=RC[1]&RC[2]&RC[3]&RC[4]&RC[5]"
             UserForm1.Width = 90
                    
      Else
          MsgBox "Вы убрали торцевое отверстие"
          Cells(1, 1) = ClearContents
          UserForm1.Width = 300
      End If
End Sub
[/vba]
[moder]Вы удивитесь, но у Вас КапсЛок на клавиатуре нажат.
Правила форума, п. 5g

Автор - televnoy
Дата добавления - 19.09.2014 в 13:09
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Работа с формами, условие для CheckBox_Click (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!