Taulukko, jossa on vaikkapa 6 saraketta ja 10 riviä. Alin rivi on kaavarivi jossa lasketaan yläpuolisten solujen summa, keskiarvo, jne. Onko mahdollista tehdä kaavarivistä ikään kuin kelluva eli kun riviin/soluun tulee tietoa niin Excel lisää automaattisesti uuden tyhjän rivin ko. rivin/solun alapuolelle ja kaavarivi "painuu alemmas"?
"Kelluva rivi"?
kaavoittaja.
4
713
Vastaukset
Jos sijoitat summa/koosterivin varsinaisen aineistosi yläpuolelle, niin ko. ongelma häviää "kuin taikaiskusta". Varsinkin, jos huolehdit kaavojen riittävistä aluelaajuuksista alaspäin.
Jos vältämättä haluat ko. yhteenvetorivin olevan aineiston alapuolella, niin ehkä pääset jonkinlaiseen tulokseen jakamalla taulukon jostain n. rivin 1000 kohdalta. Summarivinä on siis rivi 1001 ja sen yläpuolella oleva taulukon osa rullaa.taulukon moduuliin...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vika As Long
On Error Resume Next
Application.EnableEvents = False
vika = Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Row
Range("A" & vika).EntireRow = ""
vika = Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Row
Range("A" & vika 2).FormulaR1C1 = "=SUM(R[-21]C:R[-1]C)"
Range("B" & vika 2).FormulaR1C1 = "=SUM(R[-21]C:R[-1]C)"
Range("C" & vika 2).FormulaR1C1 = "=SUM(R[-21]C:R[-1]C)"
'näyttää 5 viimeistä tietoa, muuta lukua
Application.GoTo Range("A" & vika - 4), True
Application.EnableEvents = True
End Subkunde kirjoitti:
taulukon moduuliin...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vika As Long
On Error Resume Next
Application.EnableEvents = False
vika = Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Row
Range("A" & vika).EntireRow = ""
vika = Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Row
Range("A" & vika 2).FormulaR1C1 = "=SUM(R[-21]C:R[-1]C)"
Range("B" & vika 2).FormulaR1C1 = "=SUM(R[-21]C:R[-1]C)"
Range("C" & vika 2).FormulaR1C1 = "=SUM(R[-21]C:R[-1]C)"
'näyttää 5 viimeistä tietoa, muuta lukua
Application.GoTo Range("A" & vika - 4), True
Application.EnableEvents = True
End Suboikeasti vaikka näin...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vika As Long
Dim kaava As String
On Error Resume Next
Application.EnableEvents = False
vika = Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Row
Range("A" & vika).EntireRow = ""
vika = Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Row
kaava = "A1:A" & vika
Range("A" & vika 2).Formula = "=SUM(" & kaava & ")"
kaava = "B1:B" & vika
Range("B" & vika 2).Formula = "=COUNTA(" & kaava & ")"
kaava = "C1:C" & vika
Range("C" & vika 2).Formula = "=AVERAGE(" & kaava & ")"
'näyttää 5 viimeistä tietoa, muuta lukua
Application.GoTo Range("A" & vika - 4), True
Application.EnableEvents = True
End Sub- kaavoittaja
kunde kirjoitti:
oikeasti vaikka näin...
Private Sub Worksheet_Change(ByVal Target As Range)
Dim vika As Long
Dim kaava As String
On Error Resume Next
Application.EnableEvents = False
vika = Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Row
Range("A" & vika).EntireRow = ""
vika = Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Row
kaava = "A1:A" & vika
Range("A" & vika 2).Formula = "=SUM(" & kaava & ")"
kaava = "B1:B" & vika
Range("B" & vika 2).Formula = "=COUNTA(" & kaava & ")"
kaava = "C1:C" & vika
Range("C" & vika 2).Formula = "=AVERAGE(" & kaava & ")"
'näyttää 5 viimeistä tietoa, muuta lukua
Application.GoTo Range("A" & vika - 4), True
Application.EnableEvents = True
End SubKiitos vastauksesta. Kokeilin asentaa tuota, mutta en saanut sitä toimimaan.
Nyt tarvitaan hieman rautalankaa... Office 2010 käytössä.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 561198
Pitkäaikaistyöttömyys Suomessa harvinaisen paha
Karut työttömyysluvut, korkein luku yli neljännesvuosisataan.1531158Mitä vastaisit
Jos kysyisin, että lähdettäisiinkö lenkille yhdessä? Vain sinä ja minä, kaksin? Miehelle601085Tiedän ettet tehnyt tahallasi pahaa
Asiat tapahtuivat, ristiriidat ovat meitä vahvempia. Olemmeko me niin vahvoja, että selviämme tästäkin vielä? Aika paljo82986Janni Tikkanen ohjattiin miesten pukuhuoneeseen
Vai olisko sittenkin Janne Tikkanen? Jos siellä jalkojen välissä on miesten killukkeet, mieshän tämä Janni on. Ja kuuluu47907Nyt tiistain galluppi alkaa....
Kuka on sun elämän rakkaus? Ketä kaipaat edelleenkin? Nyt nimiä vaan rohkeesti tuohon alle.Tää on ikäväpalsta, eikä mikä55828Rakastan ja ikävöin sinua
Ei helpota tämä ikävä millään. Pelkäsin että tämä ajanjakso tulee olemaan juuri näin vaikea. Siksi halusin ennen tätä pä54800Miten aiot saada kaivattusi?
1) loukuttamalla 2) kidnappaamalla 3) huijaamalla 4) jokin muu, mikä?54775- 32722
KIIKKUSTUOLI
Aloitetaan taas uudella alustalla, nuo pitkiksi venyneet ovat hankalia etsiä uusia viestejä, joskus vastauksia tulee sin71721