Tax.lt narys ABA2
- Tax.lt narys nuo
- 2009-11-13
- Miestas / vietovė
- Balbieriškis
- Profesija
- ne buhalterė ir ne ji
- ABA2
- forume parašė 1824 žinučių
Naujausios žinutės:
2012-12-03 23:40
Lankytojų pasiūlymai, tinklapio naujienos »
Ei tomukai »
#1111580
Testas motociklininkams:
www.part.lt/img/f44fc180ac0ded73346ace43134d2bd895.jpg
Su liūdesiu turiu pripažinti-nesu motociklininkas
www.part.lt/img/f44fc180ac0ded73346ace43134d2bd895.jpg
Su liūdesiu turiu pripažinti-nesu motociklininkas
2012-12-02 23:44
Blevyzgos »
Pasijuokime mieli draugai »
#1111247
Moterys kaip druska: su jomis nesaldu, bet be jų neskanu.
2012-12-01 21:01
Blevyzgos »
Kosmetika »
#1111142
Kai baigiasi kosmetika...
P.S. Nervingus prašome nežiūrėti.
www.part.lt/img/edded5f8d592894ad7d765152570e6a293.jpg
P.S. Nervingus prašome nežiūrėti.
www.part.lt/img/edded5f8d592894ad7d765152570e6a293.jpg
2012-11-29 23:23
Programinė įranga »
Excel »
#1110704
Kai didelis duomenų skaičius,masyvo formulė gali stabdyti perskaičiavimus.
Be masyvo formulės bus sparčiau.Reikalingas papildomas stulpelis skaičių grupių numeracijai(stulpelį paskui galima paslėpti).Ctrl+F3 spaudžiame ir sukuriame du reikšmių diapazonus _SK_ ir _SA__,juos naudosime formulėje___=IF(MAX(SK)
Be masyvo formulės bus sparčiau.Reikalingas papildomas stulpelis skaičių grupių numeracijai(stulpelį paskui galima paslėpti).Ctrl+F3 spaudžiame ir sukuriame du reikšmių diapazonus _SK_ ir _SA__,juos naudosime formulėje___=IF(MAX(SK)
2012-11-29 18:06
Programinė įranga »
Excel »
#1110663
Galima panaudoti SumProduct formulę ir iššokantį sąrašą.Kad išskleistame sąraše be reikalo vienodi kodai nesikartotų-masyvo Count formulė į pagalbą.
Kadangi tingime patys pridėti pavyzdį su kodais,tai ir patys pritaikome šias formules.
Pavyzdį,kaip tai suprantu, pridedu:
Kadangi tingime patys pridėti pavyzdį su kodais,tai ir patys pritaikome šias formules.
Pavyzdį,kaip tai suprantu, pridedu:
2012-11-26 11:31
Blevyzgos »
Akimirka »
#1109287
IRUTE78 rašė: ...kokio Jėzaus ar pan...
Ko prikibote prie mano Jėzaus? Pratrynėte savo žinutes ir liko jis,kaip durnius be durelių vidury lauko.Teko ir man trinti.
Ir iš vis,nuo šiandien be advokato su jumis nekalbėsiu-ryte kalba,per pietus pyksta,o vakare trintuku mosuoja.Paskui lieki visame puslapyje vienas su savo monologais...
IRUTE78 rašė: ...kokio Jėzaus ar pan...
Ko prikibote prie mano Jėzaus? Pratrynėte savo žinutes ir liko jis,kaip durnius be durelių vidury lauko.Teko ir man trinti.
Ir iš vis,nuo šiandien be advokato su jumis nekalbėsiu-ryte kalba,per pietus pyksta,o vakare trintuku mosuoja.Paskui lieki visame puslapyje vienas su savo monologais...
2012-11-26 10:55
Blevyzgos »
Akimirka »
#1109263
IRUTE78 rašė:
..... labai akys skaudėjo vakar ir galvą...
Kodėl moterims taip dažnai skauda galvą?
Nuo silpnų vyrų galvą skauda, o nuo stiprių - ji sukasi.
IRUTE78 rašė:
..... labai akys skaudėjo vakar ir galvą...
Kodėl moterims taip dažnai skauda galvą?
Nuo silpnų vyrų galvą skauda, o nuo stiprių - ji sukasi.
2012-11-25 17:56
Blevyzgos »
Citata »
#1109067
Vyras,kai išgeria-viską pamiršta.Moteris,kai išgeria-viską prisimena 
_Nežinomas vyras_
_Nežinomas vyras_
2012-11-25 15:47
Blevyzgos »
Citata »
#1109055
Tvirčiausia draugystė yra tik tarp vyrų,nes nebūna nėštumo_Nežinomas vyras_
2012-11-23 16:55
Programinė įranga »
Excel »
#1108820
artas71 rašė:
Googlinau, sako liaudis internete, kad yra formulė suskaičiuoti pabrauktas (underline) celes excelyje. Gal kas žino?
Reikia su vba parašyti funkciją ir paskui naudoti formulę.
Turi būti įjungtas macro leidimas.
Štai pavyzdys,kodas knygos modulyje: www.failai.lt/59dd3qbsvqji/__Underline_Funkc.xls.htm
_____________________
O geriausiai,mano galva,be jokių formulių-tik su kodu,veikiančiu prie reikšmių pakeitimu.
Kodas į ThisWorkbook:
rašė: Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = False
Dim c As Range
Range("B1").Value = 0 'čia išvedami paskaičiavimai
For Each c In Range("A1:A10") ' diapazonas su reikšmėmis
If c.Font.Underline = xlUnderlineStyleSingle Then
Range("B1").Value = Range("b1").Value + 1
End If
Next c
Calculate
Application.ScreenUpdating = True
End Sub
Diapazonas reikšmių (A1:A10) ir skaičiavimų išvedimas(A1) keičiamas pagal save.Veikia visuose lapuose.Jei norima tik tam tikrame lape-dedame į lapo modulį.
artas71 rašė:
Googlinau, sako liaudis internete, kad yra formulė suskaičiuoti pabrauktas (underline) celes excelyje. Gal kas žino?
Reikia su vba parašyti funkciją ir paskui naudoti formulę.
Turi būti įjungtas macro leidimas.
Štai pavyzdys,kodas knygos modulyje: www.failai.lt/59dd3qbsvqji/__Underline_Funkc.xls.htm
_____________________
O geriausiai,mano galva,be jokių formulių-tik su kodu,veikiančiu prie reikšmių pakeitimu.
Kodas į ThisWorkbook:
rašė: Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = False
Dim c As Range
Range("B1").Value = 0 'čia išvedami paskaičiavimai
For Each c In Range("A1:A10") ' diapazonas su reikšmėmis
If c.Font.Underline = xlUnderlineStyleSingle Then
Range("B1").Value = Range("b1").Value + 1
End If
Next c
Calculate
Application.ScreenUpdating = True
End Sub
Diapazonas reikšmių (A1:A10) ir skaičiavimų išvedimas(A1) keičiamas pagal save.Veikia visuose lapuose.Jei norima tik tam tikrame lape-dedame į lapo modulį.
2012-11-22 19:03
Blevyzgos »
Pasidžiaukime :) »
#1108512
Sužinokime, ar saugioje gatvėje gyvename: www.ird.lt/nvzrgis/map/
2012-11-22 13:18
Blevyzgos »
Atsakymai "ant lėkštutės" »
#1108435
Rašoma:Įmonė pavadinimas____parašas________buhalterė Maža Pelytė
Užuojauta tvarkytojai ir tvarkomam objektui
Užuojauta tvarkytojai ir tvarkomam objektui
2012-11-22 12:13
PVM »
CMR »
#1108412
CMR'ą pildo siuntėjas,t.y. jūsų įmonė.Tuščią CMR'ą turi turėti vežėjas.
2012-11-21 09:15
Programinė įranga »
Excel »
#1107949
Reklama-tai neišvengiama būtinybė!Dėka jos jūs turite nemokamą "Excelį"
2012-11-20 22:49
Programinė įranga »
Excel »
#1107927
Nuo Separatoriaus varnas nuvaikyti reikia:
www.part.lt/img/e8373ec95f00861bfedee3baa0...
www.part.lt/img/e8373ec95f00861bfedee3baa0...
2012-11-20 19:49
Blevyzgos »
Kokius gyvūnus auginate? »
#1107899
Jei teks gyventi rūsyje...
www.part.lt/img/82963b99bd2c5f330652c3437d...
www.part.lt/img/82963b99bd2c5f330652c3437d...
2012-11-20 15:54
Blevyzgos »
Įvairiausios dietos »
#1107823
O čia apie moralę_Vakarienė
Moralistus labai prašome nespausti nuorodos!Pavojinga sveikatai!
www.part.lt/img/26d35f1b057df826f27978520c...
Moralistus labai prašome nespausti nuorodos!Pavojinga sveikatai!
www.part.lt/img/26d35f1b057df826f27978520c...
Tax.lt © 2002 - 2024, admin@tax.lt,
Reklama tax.lt
Buhalterinės apskaitos sistema internete smulkiam ir vidutiniam verslui