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

• #46270 p5quser tag Fferi50 #46254

  Új Válasz 2021-03-16 16:09:58 #46270

  Ú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

  válasz Fferi50 #46254 üzenetére

  "meg kell kerülni a problémát"
  Nagyon jó tanács! Ha esetleg más is kerülőutakra kényszerül, iderakom.
      For Each cb In ActiveSheet.OLEObjects
        If TypeName(cb.Object) = "CheckBox" And cb.Object.Value = True Then
            cbi = "TextBox" & Right(cb.Name, 1)
            OLEObjects(cbi).Activate
            Application.SendKeys ("^a")
        End If
    Next cb
  Így már kijelöli a teljes szöveget a textboxban és egyből lehet beírni a következő szöveget, de nem tűnik el rögtön az előző szöveg.

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