artas71
12732
#1304011 2016-02-06 18:05 artas71
Prašau:
support.microsoft.com/en-us/kb/213360



www.youtube.com/watch?v=7ZWoC4mPcA0
Ir aš tikrai myliu Lietuvą, ar mylit ją jūs?

"All that is necessary for the triumph of evil is that good men do nothing."
Edmund Burke

RoKat
12
#1304014 2016-02-06 18:42 RoKat

artas71 rašė:



ačiū, versija xls;o anglų, bet reik lietuviškų žodžių. Dabar gaunasi, bet vietoje lietuviškų raidžių eina hieoroglifai..

artas71
12732
#1304015 2016-02-06 18:45 artas71
Pažiūrėkite ankstesnes žinutes šiame puslapyje -ABA buvo įdėjęs tekstinį failą su formule


www.youtube.com/watch?v=7ZWoC4mPcA0
Ir aš tikrai myliu Lietuvą, ar mylit ją jūs?

"All that is necessary for the triumph of evil is that good men do nothing."
Edmund Burke

RoKat
12
#1304016 2016-02-06 18:51 RoKat
kreivai ir man gaunasi.. lietuvisku raidziu ner..

RoKat
12
#1304017 2016-02-06 19:07 RoKat redaguota: 2016-02-06 19-10
siek tiek pakoregavau formule ir gavosi:

Function Suma_zodziais(NumberArg As Double, Optional intCase As Integer = 0) As String
Dim strSuma As String
Dim strMilijonai As String
Dim strTukstanciai As String
Dim strSimtai As String
Dim m1 As String
Dim m2 As String
Dim t1 As String
Dim t2 As String
Dim r1 As String
Dim r2 As String
Dim v As String
Dim d As String
Dim strRezultatas As String
strSuma = Format(NumberArg, "000,000,000.00")
strMilijonai = Mid(strSuma, 1, 3)
strTukstanciai = Mid(strSuma, 5, 3)
strSimtai = Mid(strSuma, 9, 3)
If NumberArg < 1 Then
strRezultatas = "NULIS EURŲ "
GoTo pabaiga
End If
If strMilijonai <> "000" Then
m1 = TrysSkaitmenys(strMilijonai)
d = Mid(strMilijonai, 2, 1)
v = Right(strMilijonai, 1)
Select Case d
Case "1"
m2 = "MILIJONŲ "
Case Else
Select Case v
Case "0"
m2 = "MILIJONŲ "
Case "1"
m2 = "MILIJONAS "
Case Else
m2 = "MILIJONAI "
End Select
End Select
End If
If strTukstanciai <> "000" Then
t1 = TrysSkaitmenys(strTukstanciai)
d = Mid(strTukstanciai, 2, 1)
v = Right(strTukstanciai, 1)
Select Case d
Case "1"
t2 = "TŪKSTANČIŲ "
Case Else
Select Case v
Case "0"
t2 = "TŪKSTANCIŲ "
Case "1"
t2 = "TŪKSTANTIS "
Case Else
t2 = "TŪKSTANČIAI "
End Select
End Select
End If
r1 = TrysSkaitmenys(strSimtai)
d = Mid(strSimtai, 2, 1)
v = Right(strSimtai, 1)
Select Case d
Case "1"
r2 = "EURŲ "
Case Else
Select Case v
Case "0"
r2 = "EURŲ "
Case "1"
r2 = "EURAS "
Case Else
r2 = "EURAI "
End Select
End Select
strRezultatas = m1 + m2 + t1 + t2 + r1 + r2 + " "
pabaiga:
Select Case intCase
Case 0
Suma_zodziais = UCase(Left(strRezultatas, 1)) + LCase(Mid(strRezultatas, 2)) + Right(strSuma, 2) + " ct"
Case 1
Suma_zodziais = UCase(strRezultatas + Right(strSuma, 2) + " ct")
Case 2
Suma_zodziais = LCase(strRezultatas + Right(strSuma, 2) + " ct")
End Select
End Function
Private Function TrysSkaitmenys(strNum3 As String) As String
Dim s1 As String * 1 'ššimtai
Dim d1 As String * 1 'deššimtys
Dim d2 As String * 2 'deššimtys ir vienetai
Dim v1 As String * 1 'vienetai
Dim s3 As String
Dim v3 As String
s1 = Left(strNum3, 1)
d1 = Mid(strNum3, 2, 1)
d2 = Mid(strNum3, 2, 2)
v1 = Right(strNum3, 1)
Select Case s1
Case "1"
s3 = "VIENAS ŠŠIMTAS "
Case "2"
s3 = "DU ŠŠIMTAI "
Case "3"
s3 = "TRYS ŠŠIMTAI "
Case "4"
s3 = "KETURI ŠŠIMTAI "
Case "5"
s3 = "PENKI ŠŠIMTAI "
Case "6"
s3 = "ŠEŠI ŠŠIMTAI "
Case "7"
s3 = "SEPTYNI ŠŠIMTAI "
Case "8"
s3 = "AŠTUONI ŠŠIMTAI "
Case "9"
s3 = "DEVYNI ŠŠIMTAI "
End Select
Select Case d1
Case "1"
Select Case d2
Case "10"
d3 = "DEŠŠIMT "
Case "11"
d3 = "VIENUOLIKA "
Case "12"
d3 = "DVYLIKA "
Case "13"
d3 = "TRYLIKA "
Case "14"
d3 = "KETURIOLIKA "
Case "15"
d3 = "PENKIOLIKA "
Case "16"
d3 = "ŠEŠŠIOLIKA "
Case "17"
d3 = "SEPTYNIOLIKA "
Case "18"
d3 = "AŠŠTUONIOLIKA "
Case "19"
d3 = "DEVYNIOLIKA "
End Select
Case "2"
d3 = "DVIDEŠŠIMT "
Case "3"
d3 = "TRISDEŠŠIMT "
Case "4"
d3 = "KETURIASDEŠŠIMT "
Case "5"
d3 = "PENKIASDEŠŠIMT "
Case "6"
d3 = "ŠŠEŠIASDEŠIMT "
Case "7"
d3 = "SEPTYNIASDEŠŠIMT "
Case "8"
d3 = "AŠTUONIASDEŠŠIMT "
Case "9"
d3 = "DEVYNIASDEŠŠIMT "
End Select
If d1 <> "1" Then
Select Case v1
Case "1"
v3 = "VIENAS "
Case "2"
v3 = "DU "
Case "3"
v3 = "TRYS "
Case "4"
v3 = "KETURI "
Case "5"
v3 = "PENKI "
Case "6"
v3 = "ŠEŠŠI "
Case "7"
v3 = "SEPTYNI "
Case "8"
v3 = "AŠŠTUONI "
Case "9"
v3 = "DEVYNI "
End Select
End If
TrysSkaitmenys = s3 + d3 + v3
End Function

ABA2
1829
#1304062 2016-02-07 19:21 ABA2

RoKat rašė:


siek tiek pakoregavau formule ir gavosi:
.............


Kam čia dedate nekorektiškus VBA kodus ištisomis paklodėmis?
Mažiausiai dvi sintaksės klaidas juose matau ir macro kodas tikrai neveiks- "išlėks" su klaida...


IP


Kaculia
164
#1304430 2016-02-09 18:17 Kaculia
kaip reikėtų padaryti kelių pakopų sąrašą, pvz. atsistojus ant langelio išsiskleidžia sąrašas su prekėmis A, B, C . Tame pačiame sąraše užvedus pelę ant prekės išsiskleidžia sąrašas A prekių a1, a2, a3. Ir taip dar 2 ar tris lygius giliau.

GABIJA1
214
#1305147 2016-02-15 14:38 GABIJA1
Sveiki,

Gal galite patarti kaip atkelti langelio informaciją iš kito puslapio? Copy+paste netinka, nes ten formulė stovi, o ranka nurašinėti skaičiukų nesinori dėl didesnės klaidos tikimybės.

Girele
9664
#1305149 2016-02-15 14:51 Girele

GABIJA1 rašė:


Sveiki,

Gal galite patarti kaip atkelti langelio informaciją iš kito puslapio? Copy+paste netinka, nes ten formulė stovi, o ranka nurašinėti skaičiukų nesinori dėl didesnės klaidos tikimybės.



Copy+paste special + values

Amžius skaičiuojamas ne metais, o nužudytomis iliuzijomis.

GABIJA1
214
#1305195 2016-02-15 19:14 GABIJA1 redaguota: 2016-02-15 19-25

Girele rašė:


Copy+paste special + values



Taip paprasta, nesusiprotėjau, ačiū :)
Atradau dar paprastesnį būdą- dedu lygybės ženklą, nueinu į norimą puslapį ir pažymiu reikiamą langelį, spaudžiu Enter, atkeliauja reikiamas duomuo, liuks :)

RimaKr
1
#1305282 2016-02-16 16:45 RimaKr
Sveiki, gal kas nors vedate ūkininko apskaitą excelyje? Gal galėtumėte pasidalinti lentelėmis? Mano ūkis labai mažas tik vienos rūšies daržovė auginama.

GABIJA1
214
#1307025 2016-02-25 10:49 GABIJA1
Sveiki,

Gal galite padėti:
Pirmame lape vienoje celejė turiu formulę, pvz. A+B, antrame lape kitoje celėje formulė C+D, trečiame lape man reikia tokio rezultato: (A+B)/(C+D), gal galite patarti kaip nukopijuoti antros celės duomenis, nes programa neleidžia jų statyt po dalybos ženklo?

batukas
3282
#1307033 2016-02-25 10:58 batukas

GABIJA1 rašė:


Sveiki,

Gal galite padėti:
Pirmame lape vienoje celejė turiu formulę, pvz. A+B, antrame lape kitoje celėje formulė C+D, trečiame lape man reikia tokio rezultato: (A+B)/(C+D), gal galite patarti kaip nukopijuoti antros celės duomenis, nes programa neleidžia jų statyt po dalybos ženklo?



=Sheet1!C4/Sheet2!E4
Prisegti failai
New_Microsoft_Office_Excel_Worksheet.xlsx 9,2 KB


Visos moterys yra angelai, bet kai apkarpo sparnus, tenka skraidyti ant šluotos!

labasLV
126
#1307048 2016-02-25 11:26 labasLV

batukas rašė:



GABIJA1 rašė:


Sveiki,

Gal galite padėti:
Pirmame lape vienoje celejė turiu formulę, pvz. A+B, antrame lape kitoje celėje formulė C+D, trečiame lape man reikia tokio rezultato: (A+B)/(C+D), gal galite patarti kaip nukopijuoti antros celės duomenis, nes programa neleidžia jų statyt po dalybos ženklo?



=Sheet1!C4/Sheet2!E4



=(Sheet1!C4)/(Sheet2!E4)

GABIJA1
214
#1307097 2016-02-25 12:43 GABIJA1
Labai ačiū abiems, ypač tau, batukai, aiškiau būt jau negali :) lavasLV, formulė puikiai veikia ir be skliaustelių ;) Laukelius rašiau ne ranka, o tiesiog pasižymėdavau po lygybės ir dalybos ;)

julis
58
#1307229 2016-02-25 18:18 julis
Prašau skubios pagalbos
ką daryti, kad exelio lentelę norint pažiūrėti peržiūros režime, išmeta "Spausdinami pavadinimai turi būti vientisi ir užbaigti stulpeliai ir eilutės" Nesusigaudau, pasimetusi nerealiai, nes nėra laiko mąstymams. Padėkite kas nors. Labai dėkinga būčiau smile smile

Joviciuke
301
#1307230 2016-02-25 18:20 Joviciuke
Sveiki.
Gal kas turite exceliuką, kaip iš atlyginimo "į rankas" pasidaryti atlyginimą neatskaičius mokesčių?

Jei gali nedaryti šiandien-nedaryk, nes rytoj gal nereikės.

julis
58
#1307231 2016-02-25 18:21 julis
Čia man atsiuntė narė tą lentelę, gal kartais kita excelio versija gali kliūti, neišmanau nė ką galvoti

GABIJA1
214
#1312840 2016-04-01 15:23 GABIJA1
Sveiki,

Gal galite patarti kaip užprogramuoti rausvų langelių užpildymą mano įkeltame faile, kad nereikėtų ranka žymėt kiekvieną reikalingą langelį?
Prisegti failai
Bandymas2.xls 25 KB

Girele
9664
#1312844 2016-04-01 15:26 Girele

GABIJA1 rašė:


Sveiki,

Gal galite patarti kaip užprogramuoti rausvų langelių užpildymą mano įkeltame faile, kad nereikėtų ranka žymėt kiekvieną reikalingą langelį?


panaudokite SUMPRODUCT funkciją

Amžius skaičiuojamas ne metais, o nužudytomis iliuzijomis.


Diskusijos

Kas prisijungęs?

Tu esi neprisijungęs vartotojas
Prisijungti arba registruotis

Atmintinė

Atmintinė buhalteriui
Delspinigiai už ne laiku sumokėtus mokesčius ir baudas 2022 m. I ketv. 0.03 %
Palūkanos už naudojimąsi mokestine paskola 2022 m. I ketv. 0.01 %
Valstybinio socialinio draudimo bazinė pensija
nuo 2022-01-01
215.09 €
Minimalus valandinis atlygis ir minimali mėnesinė alga (MMA)
nuo 2022-01-01
4.47 € / 730 €

Įmonių finansinių ataskaitų duomenys

Balansai, Pelno (nuostolių) ataskaitos, Sodra
Pavadinimas FA Sodra
Gedimino-Antano Sakalio projektavimo firma
- 2018 - 2021
LIETUVOS GYVYBĖS DRAUDIMO ĮMONIŲ ASOCIACIJA
Ratilių g. 16, Vilniaus m., Vilniaus m. sav. 04123
2015 - 2020 2018 - 2021
Daugiabučio namo Trakų g. 12 Vilniuje savininkų bendrija
Trakų g. 12-23, Vilniaus m., Vilniaus m. sav. 01132
- 2018 - 2021
Lietuvos ir Vokietijos UAB STEVILA
Mokolų k., Šunskų sen., Marijampolės sav.
2015 - 2020 2018 - 2021
Plovimo sistemos, UAB
Molainių g. 15, Panevėžio m., Panevėžio m. sav. 37162
2019 - 2020 2019 - 2021
Svega, UAB
Smilgų g. 6, Gargždų m., Gargždų sen., Klaipėdos r. sav. 96163
2015 - 2020 2018 - 2021
SIPURA, UAB - -
P. Skurkos įmonė - -
Logistikos grupė, UAB
Laukininkų g. 52-13, Klaipėdos m., Klaipėdos m. sav. 95154
2015 - 2020 2018 - 2021
Kernas, UAB
Gargždupio g. 1, Kvietinių k., Dauparų-Kvietinių sen., Klaipėdos r. sav. 96176
2015 - 2020 2018 - 2021
A. Krasauskienės IĮ
Žemdirbių g. 2, Pajieslio k., Krakių sen., Kėdainių r. sav. 58238
- 2018 - 2021
PHAM THANH HA personalinė įmonė
Vilniaus m. sav.
- 2018 - 2019
DNSB Kretingalės vingis - -
Proupas, MB
Stasio Lozoraičio g. 7-2, Garliavos m., Garliavos sen., Kauno r. sav. 53224
2016 - 2020 -
IĮ ŽYGIMANTAS IR KO
Atgimimo g. 7, Butkelių k., Tauragės sen., Tauragės r. sav. 72149
- 2018 - 2018