Excel

Girele rašė:
panaudokite SUMPRODUCT funkciją

GABIJA1 rašė:


Gal galite detaliau paaiškinti? Nes kiek skaitau help, tai toks vaizdas, kad ne tai ko man reikia... Pvz., man reikia, kad suskaičiuotų Kaune parduotų prekių kiekį, pajamas, savikainą ir pelną, kai tokių įrašų keli tūkstančiai...

GABIJA1 rašė:
Gal galite detaliau paaiškinti? Nes kiek skaitau help, tai toks vaizdas, kad ne tai ko man reikia... Pvz., man reikia, kad suskaičiuotų Kaune parduotų prekių kiekį, pajamas, savikainą ir pelną, kai tokių įrašų keli tūkstančiai...

GABIJA1 rašė:
Įkeliu konkretų pavyzdį ir dar klausimas kaip kopijuojant ir įklijuojant tas pačias formules padaryti, kad formulėse reikmės nepasistumtų per kelias eilutes (raudonai pažymėjau)?

Girele rašė:
nesupratau, kokios reikšmės turi nekisti.
Pasidarykite pati - formulėje įrašote dolerio $ ženklą prieš TĄ raidę ir (arba) prieš TĄ skaičių, kurie turi nesikeisti. Tada kopijuojant formulę visa kitą persikels atitinkamai per eilutę arba stulpelį, o $ pažymėtos formulės reikšmės liks nepakitusios.

GABIJA1 rašė:
Visdėlto man labai labai reikia gudrybės kaip įterpt papildomas tuščias eilutes po kiekvienos užpildytos eilutės automatiškai, kai tų užpildytų n... Būčiau be galo dėkinga už idėją, nes tai sutaupytų marias laiko :)

rašė: Sub InsertEmptRows()
Dim Rng As Range
Dim WorkRng As Range
Dim FirstRow As Integer, xRows As Integer, xCols As Integer
On Error Resume Next
xTitleId = "Tuščių eilučių įterpimas"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Pasirinkti diapazoną", xTitleId, WorkRng.Address, Type:=8)
FirstRow = WorkRng.Row
xRows = WorkRng.Rows.Count
xCols = WorkRng.Columns.Count
Application.ScreenUpdating = False
WorkRng.Cells(xRows, 1).Resize(1, xCols).Select
Do Until Selection.Row = FirstRow
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Offset(-1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub

Girele rašė:
Nesuprantu kur? Masyve? Ar formulių skaičiavime?
Jei masyve - įterpinėkite kiek norite, tik nelieskite pirmos ir paskutinės eilutės (formulėse masyvas savaime prasiplės).

GABIJA1 rašė:
OHO, ABA2, aukštasis pilotažas jau čia, bet teks išmokt ir to jei norėsiu sau gyvenimą palengvint ir jei neatsiras paprastesnio būdo.