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

• #17756 Delila_1 Topikgazda pirit28 #17744

  Új Válasz 2013-04-16 07:46:56 #17756

  Ú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

  

  Delila_1

  Topikgazda

  válasz pirit28 #17744 üzenetére

  Bár nem vagyok "úr", azért megpróbálok válaszolni.

  Hozd létre a Sheet1 lapon a fényképezőgéppel az objektumot. Ezt másold a Sheet2-re (Ctrl+c, Ctrl+v), és nevezd el Foto2-nek. Kijelölve az új objektumot, a szerkesztőlécen az =$B$1 helyett ezt írd be: =Sheet1!$B$1

  A Sheet2 laphoz rendeld a makrót:

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$1" Then
  If Target = Sheets("Sheet1").Range("A1") Then
  F_mutat
  Else
  F_rejt
  End If
  End If
  End Sub

  Új modulba másold a lenti 2 makrót:

  Sub F_mutat()
  Sheets("Sheet2").Shapes("Foto2").Visible = True
  End Sub

  Sub F_rejt()
  Sheets("Sheet2").Shapes("Foto2").Visible = False
  End Sub

  Ha a Sheet2 lap A1 cellájába beírt név megegyezik a Sheet1 lap A1 cellájának értékével, a Sheet2 lapon látható lesz a fotó, egyébként nem.

  Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.

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