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

• #28579 Delila_1 veterán karlkani #28578

  Új Válasz 2015-09-12 11:17:49 #28579

  Ú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

  veterán

  válasz karlkani #28578 üzenetére

  Szivi!

  Kezdd azzal, hogy az I5 cellához rendelsz egy megjegyzést. A keretén bal klikk, ekkor a keret az előző sraffozottról átalakul sűrű pontozottá. Ezen jobb klikk, Megjegyzés formázása. Az Igazítás fülön jelöld be az Automatikus méret négyzetet.

  A makró

  Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$I$5" Then
  If IsNumeric(Range("I5")) And IsNumeric(Range("D5")) Then
  Range("I5").Comment.Text Text:="Az I5 és D5 cella hányadosa: " _
  & Range("I5") / Range("D5") & ""
  Else: Range("I5").Comment.Text Text:="0"
  End If
  End If
  End Sub

  Szöveg nélkül a
  Range("I5").Comment.Text Text:="Az I5 és D5 cella hányadosa: " _
  & Range("I5") / Range("D5") & ""

  sor
  Range("I5").Comment.Text Text:=Range("I5") / Range("D5") & ""

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