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

• #46252 Mutt senior tag p5quser #46249

  Új Válasz 2021-03-15 21:45:11 #46252

  Ú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

  

  Mutt

  senior tag

  válasz p5quser #46249 üzenetére

  Szia,

  Set -el próbáld meg a hivatkozást.

  For Each cb In ActiveSheet.OLEObjects
If TypeName(cb.Object) = "CheckBox" And cb.Object.Value = True Then
Set cbi = ActiveSheet.OLEObjects(Replace(cb.Name, "CheckBox", "TextBox"))
Debug.Print cbi.Object.Text
Set cbi = Nothing
End If
Next cb

  üdv

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