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

• #46249 p5quser tag

  Új Válasz 2021-03-15 13:06:53 #46249

  Ú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

  Privát üzenet küldése

  

  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