| Jak dodać kilka checkboxów do jednej kolumny? |
|
Pytanie: Potrzebuję makra, które wygeneruje mi w kolumnie B kilka checkboxów, a w kolumnie A odwołania do nich. ![]() Rozwiązanie: Możesz skorzystać z takiego makra, które wstawia nowe formanty do zakresu B2:B10. Option Explicit Sub DodajPolaWyboru() Dim rngKomorka As Excel.Range Dim chkPoleWyboru As CheckBox 'Usuwa wszystkie chceckboxy z kolumny B With Arkusz1 For Each chkPoleWyboru In .CheckBoxes If chkPoleWyboru.TopLeftCell.Column = 2 Then chkPoleWyboru.Delete End If Next chkPoleWyboru End With 'Dodaje do wyznaczonego zakresu pola wyboru 'formatuje je, podlinkowuje wynik pod komorke na lewo For Each rngKomorka In Range("B2:B10") With Arkusz1.CheckBoxes.Add _ (rngKomorka.Left, rngKomorka.Top, rngKomorka.Width, rngKomorka.Height) .LinkedCell = rngKomorka.Offset(, -1).Address .Interior.ColorIndex = 15 .Border.Weight = xlThin .Display3DShading = True .Caption = .LinkedCell End With Next 'Zwieksza wysokosc wierszy w zakresie Arkusz1.Range("B2:B15").Rows.RowHeight = 22 End Sub |
|
| Zmieniony ( Wtorek, 29. Czerwiec 2010 11:10 ) |
