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

• #29088 Delila_1 veterán karlkani #29083

  Új Válasz 2015-10-17 17:23:32 #29088

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

  Mivel az I oszlopban a D és H cellákkal kell számolni, az eseményvezérelt makróban ennek a két oszlopnak a változását kell figyeltetni.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim sor As Long
  sor = Target.Row
  If Target.Column = 4 Or Target.Column = 8 And Target.Row > 1 Then
  Application.EnableEvents = False
  If IsNumeric(Cells(sor, "D")) And IsNumeric(Cells(sor, "H")) And Cells(sor, 4) <> "" And Cells(sor, 8) <> "" Then
  Cells(sor, "I") = Format((Cells(sor, "H") - Cells(sor, "D") * 8), "# ##0.00 Ft/liter")
  Range(Target.Address).Select
  End If
  Application.EnableEvents = True
  End If
  End Sub

  A Cells(sor, "I") =... értékadásnál az általad megadott képletet [=HA(D="";"";H-D*8)] alkalmaztam.
  A sor változót csak azért iktattam be, mert többször szerepel a makróban, és egyszerűbb leírni, mint a Target.Row-t. Na meg rövidebbek is az utasítások.

• #29084 bteebi veterán karlkani #29083

  Új Válasz 2015-10-17 14:54:45 #29084

  Ú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

  

  bteebi

  veterán

  válasz karlkani #29083 üzenetére

  "akkor a megjegyzésben eredményül nem 400 Ft/liter jelenik meg, hanem 4000 Ft/liter. Ezzel lehet valamit kezdeni?"

  Lehet. A probléma ott van, hogy a hozzáfűzött szövegrészben van egy felesleges 0. A hozzáfűzött rész egy sztring, formátumot nem állít:

  Range("I" & Target.Row).Comment.Text Text:=ertek & "0 Ft/liter"

  Elég, ha a "0 Ft/liter" helyett csak " Ft/liter"-t írsz. A SZÖVEG függvénnyel egyébként be tudod állítani a formátumot, és ahhoz fűzöd hozzá a szöveget.

  Range("I" & Target.Row).Comment.Text Text:=WorksheetFunction.Text(ertek, "0") & " Ft/liter"

  Nem próbáltam ki, de jónak kell(ene) lennie.

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