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

• #5831 ulrik19 tag Pá #5824

  Új Válasz 2009-12-11 18:01:02 #5831

  Ú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

  

  ulrik19

  tag

  válasz Pá #5824 üzenetére

  Én így csinálnám. Ehhez a makróhoz célszerű hozzárendelni egy billentyű-kombinációt is.

  Public Sub ktgelosztas()
  Dim cella As Object, osszeg As Integer
  
  osszeg = Int(Val(InputBox("Felosztandó összeg a kijelölt cellák között:") / Selection.Count))
  For Each cella In Selection
  cella.Value = Val(cella.Value) + osszeg
  Next
  End Sub

  Használata:
  kijelölöd azokat a cellákat, amikre szét akarod osztani az értéket. (a ctrl nyomva tartva az egérrel ugye tudsz egymástól független cellákat sorban kijelölni, ahányat csak szeretnél)

  Majd indítod a makrót (pl. a hozzárendelt billentyűkombinációval).

  A progi bekéri a számot, amit szétoszt annyi részre, ahány cellát kijelöltél, és a kijelölt cellák értékét növeli a rá jutó résszel. (ha valamelyik kijelölt cellában szöveg volt, akkor azt nullának értelmezi, ha szöveget adsz be a felugró ablakban, akkor nullát ad mindenhova, vagyis nem változik az érték. Ha valamelyik kijelölt cellában képlet van, akkor az felül fog íródni a konkrét értékkel)

  hajrá!

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