2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • PROHARDVER!
    Frissítve: 2023-11-13 08:31 Téma összefoglaló
    PROHARDVER!

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

  • p5quser p5quser tag
    #46249
    Új Válasz
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    p5quser
    p5quser
    tag

    Sziasztok!
    Volna ez a kód;
        For Each cb In ActiveSheet.OLEObjects
            If TypeName(cb.Object) = "CheckBox" And cb.Object.Value = True Then
                cbi = "TextBox" & Right(cb.Name, 1)
                With OLEObjects(cbi)
                    .Activate
                    .SelStart = 0
                    .SelLength = Len(.Text)
                End With
            End If
        Next cb
    Ő megkeresi melyik Activex checkbox van kipipálva és az ahhoz számozott Activex textboxot aktiválja.
    A .SelStart-nál viszont elhasal "438"-cal. Ha az OLEObjects(cbi) helyére beírom hogy TextBox8, akkor rendben lefut. Azért nem értem, mert az .Acivate még lefut és látszik is a villogó kurzor a textboxban.
    Hogyan kéne kijelölnöm a szöveget, vagy hogyan kéne hivatkoznom a textboxra?
    Elöre is köszönöm!

Új hozzászólás Aktív témák