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

• #52737 Delila_1 veterán lanszelot #52736

  Új Válasz 2024-05-29 06:58:06 #52737

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

  Ennyi az egész. Bekéred a szorzandó területet, amit vagy bepötyögsz, vagy egérrel kijelölöd, a többit elvégzi a makró. Hozzárendelheted egy gombhoz, ahogy már föccer is írta.
  Ha állandó a terület, az inputbox helyett megadhatod direktben: Set Terulet = Range("A1:Z1")

  Sub Szozas()
    Dim Terulet As Range, CV As Object
  Set Terulet = Application.InputBox(prompt:="Kérem a szorzandó tartományt", Type:=8)
    For Each CV In Terulet
        CV.Value = CV.Value * Cells(1, 1)
    Next
End Sub

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