Private Sub
CommandButton1_Click()
If OptionButton1.Value = True Then MsgBox "1-өшіріп-қосқыш қосулы"
If OptionButton2.Value = True Then MsgBox "2-өшіріп-қосқыш қосулы "
If OptionButton3.Value = True Then MsgBox "3-өшіріп-қосқыш қосулы "
End Sub
Бұдан кейін біз қосқыштарды пішін басқару элементтері ретінде орнатамыз.
Оларға макростар тағайындаңыз
Sub Перекл1_Щелчок()
MsgBox "2-өшіріп-қосқыш қосулы, ал 1-өшіріп-қосқыш өшірулі" , "Өшіріп-қосқыштың жұмысы–пішінді басқару"
End Sub
Sub Перекл2_Щелчок()
MsgBox "1-өшіріп-қосқыш қосулы, ал 2-өшіріп-қосқыш өшірулі" , "Өшіріп-қосқыштың жұмысы–пішінді басқару "
End Sub
Тапсырма 1. CheckBox, OptionButton және ToggleButton басқару элементтерімен жұмыс істеу
Кестеде көрсетілген барлық элементтердің жұмысын тексеру және пішін басқару элементтері мен ActiveX басқару элементтерінің жұмысындағы айырмашылықтарды сипаттау, 25-сурет. ActiveX ToggleButton (қосқыш) батырмасын басқан кезде, «Қосылған!» хабары пайда болады, қайта басқан кезде «Өшірулі!» хабары пайда болады. Басқа батырмалармен («батырма») салыстырғанда оның жұмыс істеу ерекшеліктерін сипаттаңыз.
Мысал. «List», «Counter» және «Scrollbar» басқару элементтерін пайдаланыңыз.
Жаңа жұмыс парағын ашыңыз және ActiveX-тің Тізім (ListBox) элементін орналастырыңыз.
Тізім жанынан он екі ұяшықты таңдап, мәтінмәндік мәзірдегі Атауын тағайындау ... командасын немесе Атқарушы реттеушісін (Ctrl + F3) шақыру арқылы Деректер1 атын осы ауқымға тағайындаңыз.
Содан кейін осы ұяшықтардағы мәндерді, мысалы, ай атауларын енгіземіз. Тізімді осы ауқымнан деректермен толтыру үшін, ListFillRange сипатын Данные1 (ұяшықтар массасын көрсете аласыз) орнатамыз.
LinkedCell сипатын өзгерткен парақтағы кез келген ұяшықпен (мысалы, G2) байланысын орнатайық.
Сол жұмыс парағында екінші тізімді басқару элементін, үш батырманы, үш қосқышты және бір жолаушаны қойыңыз. Барлық басқару элементтерінің атауын 26-суретте көрсетілгендей қайта атаңыз.
Сурет 26 – Excel-дегі басқару элементтері бар бөлігі
Достарыңызбен бөлісу: |