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

• #52752 Delila_1 veterán lanszelot #52751

  Új Válasz 2024-05-31 20:43:03 #52752

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

  Itt is megadhatod a területet direktben az InputBox nélkül.
  Sub Szozas_1()
  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 = "=A1*" & CV.Value
  Next
  End Sub

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