Telefonszámunk: 1-472-0679

[Resolved] Jelölőnégyzet csatolása makróval

Kezdőlap Fórumok Excel programozás [Resolved] Jelölőnégyzet csatolása makróval

Topic Resolution: Resolved
2 bejegyzés megtekintése - 1-2 / 2
  • Szerző
    Bejegyzés
  • #10292
    MyIo
    Felhasználó

      Sziasztok!

      Valaki tudna nekem segíteni abban, hogy hogyan tudok automatán jelölőnégyzethez cellát csatolni makró segítségével?

      Példa: A C4:E13 tartományban vannak jelölőnégyzetek. Ezeket akarom csatolni ugyan ezekhez a cellákhoz, de mivel több jelölőnégyzetem lesz, elég hosszadalmas mindet egyesével csatolgatni.
      Előre is köszönöm a segítséget.

      Üdv.

      #10293
      horvimi
      Adminisztrátor

        Szia!

        Kicsit attól is függ, hogy Form control-t vagy ActiveX control-t tettél a lapra.
        Én Form control-t tennék, ezért ebből indulok ki.

        Meg abból, hogy akkor valóban megvannak a checkboxok, gondolom hozzáigazítva a cellákhoz, meg van adva a szövegük is
        Ezek alkotják az aktuális lapon a CHECKBOXES gyűjteményt.
        Máshol nem lehetnek checkbox-ok
        Ha ez igaz, akkor kijelölve a tartományt, az alábbi makró megcsinálja, amit szeretnél.

        Sub Checkbox_link()
        Dim i As Integer
        
        For i = 1 To Selection.Cells.Count
            ActiveSheet.CheckBoxes(i).LinkedCell = Selection.Cells(i).Address
            ActiveSheet.CheckBoxes(i).Interior.Color = RGB(255, 255, 255)
        Next
        End Sub

        Nálam (365) a checkbox-ok alapból átlátszóak, ezért, ha az alatta lévő cellára linkel, akkor a TRUE/FALSE szöveg összeolvad a vezérlő feliratával.
        Ezért tettem bele egy sort, ami a vezérlő háttérszínét fehérré teszi, így letakarja a cellát.

        Imre

      2 bejegyzés megtekintése - 1-2 / 2
      • Be kell jelentkezni a hozzászóláshoz.