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

• #28581 Delila_1 veterán karlkani #28580

  Új Válasz 2015-09-12 12:23:42 #28581

  Ú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 #28580 üzenetére

  Cseppenként adagolod a feladatot.

  Az új makró előállítja a megjegyzést automatikus mérettel, a bevitel sorának az I oszlopában. Teszi ezt akkor, mikor a D, vagy I oszlopba viszel be értéket.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim ertek As Double
  If Target.Column = 4 Or Target.Column = 9 Then 'D vagy I oszlop
  Range("I" & Target.Row).Select
  With Range("I" & Target.Row)
  On Error Resume Next
  .AddComment
  .Comment.Visible = True
  .Comment.Shape.Select True
  .Comment.Text Text:=ertek & " Ft/liter"
  .Comment.Shape.Select
  Selection.AutoSize = True
  End With
  If IsNumeric(Range("D" & Target.Row)) And _
  IsNumeric(Range("I" & Target.Row)) Then
  On Error Resume Next
  ertek = Round(Range("D" & Target.Row) / Range("I" & Target.Row), 1)
  Range("I" & Target.Row).Comment.Text Text:=ertek & " Ft/liter"
  
  End If
  Else: Range("I5").Comment.Text Text:="0 Ft/liter"
  End If
  Range(Target.Address).Select
  End Sub

  Már csak azt nem tudom, hogy a D/I érték, vagy az I/D kell a megjegyzésbe. Az

  ertek = Round(Range("D" & Target.Row) / Range("I" & Target.Row), 1)

  sor a D/I-vel számol. Ha ez nem jó, írd át így:

  ertek = Round(Range("I" & Target.Row) / Range("D" & Target.Row), 1)

  Szöveges bevitt adat esetén a megjegyzés szövege 0 Ft/liter lesz.

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