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

• #13816 Fire/SOUL/CD félisten concret_hp #13811

  Új Válasz 2012-05-24 09:57:29 #13816

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz concret_hp #13811 üzenetére

  A makró

  Public Sub FSCD_concret_hp()
  
  Dim MySum As Long
  Dim MyRange_1 As Range
  Dim MyRange_2 As Range
  Dim MyRange_3 As Range
  
  Set MyRange_1 = Range("A1")
  Set MyRange_2 = Range("B1")
  Set MyRange_3 = Range("C1")
  
  If MyRange_1.Offset(MyRange_1.End(xlDown).Row - 1, 0) Then
  MsgBox ("A(z) " & MyRange_1.Address & " oszlop utolsó cellájának értéke 0 kell, hogy legyen!")
  Exit Sub
  End If
  
  MySum = 0
  For i = 0 To MyRange_1.End(xlDown).Row - 1
  If MyRange_1.Offset(i, 0) Then
  MySum = MySum + MyRange_2.Offset(i, 0)
  MyRange_3.Offset(i, 0) = ""
  Else
  MySum = MySum + MyRange_2.Offset(i, 0)
  MyRange_3.Offset(i, 0) = MySum
  MySum = 0
  End If
  Next i
  
  End Sub

  A makró eredménye [link]

  Megjegyzés
  Az oszlop, amelyek a 0-kat is tartalmazzák nem tartalmazhat üres cellát.

• #13814 thee csendes tag concret_hp #13811

  Új Válasz 2012-05-24 08:20:33 #13814

  Ú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

  

  thee

  csendes tag

  válasz concret_hp #13811 üzenetére

  eddig azt hittem, h értem, h mire is lenne szükséged, de úgy látszik, h nem.

  le tudnád írni egyértelműbben?

• #13805 thee csendes tag concret_hp #13804

  Új Válasz 2012-05-23 07:06:20 #13805

  Ú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

  

  thee

  csendes tag

  válasz concret_hp #13804 üzenetére

  [link]

• #13803 thee csendes tag concret_hp #13801

  Új Válasz 2012-05-22 22:30:21 #13803

  Ú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

  

  thee

  csendes tag

  válasz concret_hp #13801 üzenetére

  =SZUM(INDIREKT("s1o2";HAMIS):INDIREKT("s"&A1&"o2";HAMIS))

  ha az A1 cella értéke 10, akkor b1:b10-et szummáz

• #13802 Fire/SOUL/CD félisten concret_hp #13801

  Új Válasz 2012-05-22 22:24:52 #13802

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz concret_hp #13801 üzenetére

  INDIREKT()
  Példa

• #10397 Fire/SOUL/CD félisten concret_hp #10396

  Új Válasz 2011-05-28 16:18:02 #10397

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz concret_hp #10396 üzenetére

  Ok, akkor az Automatikus számítás lehetőség ki van kapcsolva. Nem írtad hányas Excelt használsz (2003/2007/2010), de ez mindegyikben ki- és bekapcsolható.

  2003 - Számolás->Automatikus
  2010 - Fájl menü/Beállítások/Képletek/Számítási beállítások->Automatikus

• #10395 Fire/SOUL/CD félisten concret_hp #10394

  Új Válasz 2011-05-28 15:18:51 #10395

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz concret_hp #10394 üzenetére

  Csak és kizárólag csak a SZUM() nem frissül? Más függvényeket is kipróbáltál, hogy azok frissülnek? Mi történik, ha nem duplán kattintasz a cellába, hanem nyomsz egy F9-et?

• #4512 Fire/SOUL/CD félisten concret_hp #4511

  Új Válasz 2009-02-10 21:42:25 #4512

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz concret_hp #4511 üzenetére

  Hali!

  

  Fire.

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