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

• #46254 Fferi50 Topikgazda p5quser #46249

  Új Válasz 2021-03-16 08:26:09 #46254

  Ú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

  

  Fferi50

  Topikgazda

  válasz p5quser #46249 üzenetére

  Szia!
  Az OleObject helpje azt mondja, hogy csak névvel lehet rá hivatkozni...
  itt olvashatod
  Ezért sajnos meg kell kerülni a problémát, pl. a következőképpen:
  A textboxokat beteszed egy tömbbe:
  Dim tbtomb(x) x=a textboxok száma
tbtomb(1)=Activesheet.Textbox1
tbtomb(2)=Activesheet.Textbox2
és így tovább.
Ezután a CheckBox számát használhatod indexnek:
With tbtomb(cbi)
.SelStart = 0 stb
End With
  Nekem úgy tűnik, másként nem megy - mivel az objektum tallózóban a munkalapon levő textboxok önálló objektumként jelennek meg.
  Üdv.

• #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