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

• #7285 ALbeeeee csendes tag

  Új Válasz 2010-05-21 15:20:51 #7285

  Ú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

  

  ALbeeeee

  csendes tag

  A ma tanultak alapján csináltam egy ilyet is:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Sheets("Munka1").Range("F11") = 1 Then
  Munka1.DrawingObjects("Lekerekített téglalap 10").Visible = True
  Else
  Munka1.DrawingObjects("Lekerekített téglalap 10").Visible = False
  End If
  End Sub

  --------------------------------

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Sheets("Munka1").Range("F11") = 1 Then
  Munka1.TextBox1.Visible = True
  Else
  Munka1.TextBox1.Visible = False
  End If
  End Sub
  --------------------------------

  A lényeg, amikor a TextBox1 látható ez az alakzat nem és fordítva. A gond az, hogy külön-külön működnek. Miként tudom egyesíteni a két feltételt?

  Egy másik szép dolog, hogy az F11-ben szereplő szám egy legördülő menü adataiból érkezik. (Ez a Lenyíló 1) Valamiért ezt nem kezeli le automatikusan változásnak, mert ha változik is a szám nem tűnik elő vagy el, csak ha én írom át a számot. Ezzel mit tudok kezdeni?

  

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