Питанка за Ecxel и checkbox-ове
Попадна ми един екселски файл, в който имаме кутийки "чекбокс", които като се маркират в друга колонка се появява TRUE или FALSE (съответно при маркиран/немаркиран чекбокс).
Знаете ли как става тоя ефект, че ме гложди любопитството.
Благодаря :Drinks:
Ето картинка, че май не обясних много ясно:
http://fastestpic.hit.bg/setcom/excel_checkbox.gif
Re: Питанка за Ecxel и checkbox-ове
Re: Питанка за Ecxel и checkbox-ове
Слагаш един чекбокс от Forms и му assign-ваш следното макро (в случая се казва CheckBox1_Click и е забито да сменя стойността на клетка Д5)
Код:
Sub CheckBox1_Click()
Dim cBox As CheckBox
Dim LRange As String
LName = Application.Caller
Set cBox = ActiveSheet.CheckBoxes(LName)
LRange = "D" & "5"
If cBox.Value > 0 Then
ActiveSheet.Range(LRange).Value = "True"
Else
ActiveSheet.Range(LRange).Value = "FALSE"
End If
End Sub
Без макро не зная дали ще стане. Може би някой друг ще предложи.
Re: Питанка за Ecxel и checkbox-ове
Има два вида check box:
- за тези от Control Toolbox - в Properties\Linked Cell
- за тези от Forms - в Format Control\Control\Cell link
Няма нужда от макрос и за двата.
Добавено:
1. Има го и в линка на Edin_Lud
2. @mittko: "True" <> True; "D"&"5" = "D5"* :)
Re: Питанка за Ecxel и checkbox-ове
Благодаря банда, бързи и точни какво винаги :Drinks: :yahoo: