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

• p5quser tag

  #46266

  #46252 Mutt

  2021-03-16 13:45:35

  Ú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

  tag

  #46252 Mutt

  Üdv!
  Köszi a választ!
  Sajnos set-tel is ugyanaddig jut - az .Activate -ig - majd 438.

  #46254Fferi50
  Neked is köszi a választ! A tömbösítésnél viszont a textboxba beírt szöveget húzza be objektumnévnek. Feltéve ha így gondoltad;
  Dim tbtomb(8)
tbtomb(1) = ActiveSheet.TextBox1
tbtomb(2) = ActiveSheet.TextBox2
tbtomb(3) = ActiveSheet.TextBox3
tbtomb(4) = ActiveSheet.TextBox4
tbtomb(5) = ActiveSheet.TextBox5
tbtomb(6) = ActiveSheet.TextBox6
tbtomb(7) = ActiveSheet.TextBox7
tbtomb(8) = ActiveSheet.TextBox8
    For Each cb In ActiveSheet.OLEObjects
        If TypeName(cb.Object) = "CheckBox" And cb.Object.Value = True Then
            cbi = Right(cb.Name, 1)
            With tbtomb(cbi)
                .Activate
                .SelStart = 0
                .SelLength = Len(.Text)
            End With
        End If
    Next cb
  De már ott tartok, hogy nem érdekel a selection része, mivel a textboxot aktiválja és odaugrik, onnantól majd kitörlik a benne lévő szöveget. Csak elegánsabb lett volna úgy.
  Mégegyszer köszönöm a válaszaitokat!

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