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

• #52754 Fferi50 Topikgazda lanszelot #52751

  Új Válasz 2024-05-31 21:05:46 #52754

  Ú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

  

  Fferi50

  Topikgazda

  válasz lanszelot #52751 üzenetére

  Szia!
  Próbáld meg ezt légy szíves:
  CV.Formula = "=" & Replace(Str(CV.Value),",",".")& "*A1"
  Ez minden cellába beírja az adott cella értéke szorozva az A1 cella értékével képletet.
  Vagyis a cella korábbi értéke konstansként bekerül a képletbe.
  Üdv.

• #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