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

• #5823 Delila_1 veterán Pá #5821

  Új Válasz 2009-12-11 13:50:18 #5823

  Ú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 Pá #5821 üzenetére

  Beteszem a kétféle megoldást. Mindegyiknél a beviteli cella az A1, a 3 másik pedig A3, A4, és A5.
  Az első makró vagy a makrók közül indítható, vagy egy gombhoz rendeled. Bevitele: Alt+F11, Insert/Module, a kapott üres oldalra másold be.

  Sub ktsg_elosztás()
  Dim sor
  For sor = 3 To 5
  Cells(sor, 2) = Cells(sor, 2) + Int(Cells(1) / 3)
  Next
  End Sub

  A másik a bevitelt követően automatikusan hajtódik végre. Ennek a bevitele: Lapfülön jobb klikk, Kód megjelenítése, a kapott üres oldalra másold be.

  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim sor
  If Target.Address = "$A$1" Then
  For sor = 3 To 5
  Cells(sor, 2) = Cells(sor, 2) + Int(Target.Value / 3)
  Next
  End If
  End Sub

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