biciulis
35
#1293650 2015-11-14 20:13 biciulis
Labas vakaras,

Gal kas žinote kaip Excel faile automatiškai sunumeruoti skirtukus (Pvz. nuo 1 iki 2000)
viename failiuke yra 2000 dok. vietoje "lapas1", "lapas2", "lapas3" ir t.t. man reikia pataisyti "1", "2", "3" ir t.t.
niekaip neradau kaip galima nustatyti, kad nereikėtų keisti visų skirtukų rankiniu būdu.

Ačiū

ABA2
1829
#1293655 2015-11-14 23:23 ABA2
Į Excelio knygos modulį dedame kodą:

rašė:

Sub LapuPavadinimai_keisti()
Dim WS As Worksheet
i = 1
On Error Resume Next
For Each WS In Worksheets
WS.Name = "" & i
i = i + 1
Next
End Sub


Ir paleidžiame, ir turime.
P.S. Macro leidimas turi būti įjungtas.



IP


biciulis
35
#1294034 2015-11-19 07:00 biciulis

ABA2 rašė:


Į Excelio knygos modulį dedame kodą:

rašė:

Sub LapuPavadinimai_keisti()
Dim WS As Worksheet
i = 1
On Error Resume Next
For Each WS In Worksheets
WS.Name = "" & i
i = i + 1
Next
End Sub


Ir paleidžiame, ir turime.
P.S. Macro leidimas turi būti įjungtas.




Sveiki,

Ačiū, Jūs man labai pagelbėjote smile

Gita1
8089
#1295064 2015-11-30 07:16 Gita1
Labas rytas. Suinstaliavo man 2016 excel ir noriu įsidėti sumą žodžiais, bet niekaip nerandu kur tie "priedai" yra ir nepamenu ar be failiuko (sumE.xl) parsisiuntimo ir atsidarymo dar reikia ką nors padaryti?

keryda
300
#1299811 2016-01-13 08:14 keryda
Sveiki, niekaip neatgaminu IF formules- kaip padaryti, kad jei eiluteje nera skaiciu, tai formuliu langeliuose nieko nerasytu, nes dabar meta klaidas ir lentele atrodo netvarkinga, o slepti eiluciu nenoriu, tiesiog kad liktu tuscia.
Pas mane formule yra tokia labai paprasta =Round (A1/A2;2). Gal padesit kas smile


Bingo
756
#1299858 2016-01-13 10:05 Bingo redaguota: 2016-01-13 10-10

keryda rašė:


Sveiki, niekaip neatgaminu IF formules- kaip padaryti, kad jei eiluteje nera skaiciu, tai formuliu langeliuose nieko nerasytu, nes dabar meta klaidas ir lentele atrodo netvarkinga, o slepti eiluciu nenoriu, tiesiog kad liktu tuscia.
Pas mane formule yra tokia labai paprasta =Round (A1/A2;2). Gal padesit kas smile



=if(isnumber(A1/2);Round(A1/A2;2);"")

Nataly777
56
#1299859 2016-01-13 10:08 Nataly777
Sveiki,
Niekaip nerandu kodo aprašyti makrosą, kad dokumente galečiau rašyti sumą žodžiais, kuriuos radau rašo be lietuviškų raidžių. Pataisyti irgi nemoku smile
Prašau padėkit, įmeskite teisinga kodą.
Ačiū

ABA2
1829
#1299874 2016-01-13 10:39 ABA2

Nataly777 rašė:


...Prašau padėkit, įmeskite teisinga kodą.


O galima pamatyti "neteisingą kodą" ?
Pas jus, greičiausiai, "neteisingi" PC nustatymai.


IP


ABA2
1829
#1299879 2016-01-13 10:44 ABA2

keryda rašė:


.....Pas mane formule yra tokia labai paprasta =Round (A1/A2;2). Gal padesit kas smile


=IFERROR(ROUND(A1/A2;2);"")
Excel 2003 ši formulė netinka, tik naujesnių metų.


IP


Nataly777
56
#1299920 2016-01-13 11:42 Nataly777
taip, ten dar Litus į EUR reikia pakeisti, bandžiau, bet kreivai gaunasi.
Kodas toks:

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 LITŲ "
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ŪKSTANČIŲ "
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 = "LITŲ "
Case Else
Select Case v
Case "0"
r2 = "LITŲ "
Case "1"
r2 = "LITAS "
Case Else
r2 = "LITAI "
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


Girele
9664
#1299928 2016-01-13 11:57 Girele

Nataly777 rašė:


taip, ten dar Litus į EUR reikia pakeisti, bandžiau, bet kreivai gaunasi.



Elementaru - kur žodžiai "litas" keičiate į "Euras" ir išsaugojate

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

ABA2
1829
#1299930 2016-01-13 11:58 ABA2 redaguota: 2016-01-13 12-01
Jooooo...kodas tiesiog "iškastruotas"...
Prikabinu gerą kodą.
Formulė naudojama =SumE()
Galima ir pasikeisti į kitą, jei poreikis y
Prisegti failai
SumE.txt 3,7 KB



IP


Nataly777
56
#1299934 2016-01-13 12:08 Nataly777
smile labai ačiū, bet PC nustatymai tikrai neteisingi, LT raidžių nerodo, ženkliukai vietoj jų. Per regional settings pažiurėjau, ten LT nurodyta visur. Arba dar į kažką turėčiau atkreipti dėmesį.



ABA2
1829
#1299939 2016-01-13 12:15 ABA2
Windows 7 tai galite padaryti: Start->Control Panel->Region and Language->Administrative->Change System locale.
Pakeičiat į Lithuanian ir perkrauti PC
Kitose sistemose irgi panašiai, tik kelias kitas.


IP


SSigute
1186
#1302244 2016-01-27 11:48 SSigute
Kokia turėtų būti formulė excel, kad sumuotų tik tas sumas, kurios yra didesnės už 0?


ABA2
1829
#1302284 2016-01-27 12:43 ABA2
=SUMIF(A1:A20;">0")


IP


Gardenija
2
#1302954 2016-01-31 15:23 Gardenija
Sveiki :)
Gal galite patarti, kaip padaryti, kad rašant žodį vienoje lentelėje, jis atsirastų ir kitoje lentelėje?
smile

Bingo
756
#1302959 2016-01-31 19:40 Bingo

Gardenija rašė:


Sveiki :)
Gal galite patarti, kaip padaryti, kad rašant žodį vienoje lentelėje, jis atsirastų ir kitoje lentelėje?
smile



jei tikrai tokia užduotis be jokių papildomų aplinkybių, tai toje kitoje lentelėje įstatai celes, kurioje rašysi žodį, adresą. Pvz. =A10 arba jei iš kito sheeto, tai =sheet1!A10

Gardenija
2
#1302961 2016-01-31 20:12 Gardenija
Ačiū, taip to ir reikėjo :) Kartais net nepagalvoji apie paprasčiausią variantą :)

RoKat
12
#1304004 2016-02-06 15:39 RoKat
sveiki,
ar prisapnavau ar kažkur mačiau, kad xls. yra funkcija, kuri parašytą suma skaičiais verčia į sumą žodžiais. Jei tokia funkcija egzistuoja - parašykite prašau kur ieškoti ir kaip ją įdiegti?
Kalba eina paie 2010 metų anglų versiją..

Ačiū

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
Betonavimo technikos centras, UAB
Vilniaus m. sav. Vilniaus m. Šeškinės g. 55-101
2015 - 2021 2018 - 2022
MINVISTA, UAB
Vilnius Aukštaičių g. 7
2015 - 2021 2018 - 2022
SAEFO, UAB - -
Noera, UAB
Vilniaus m. sav. Vilniaus m. sav. teritorija
2015 - 2017 -
MJ Group, UAB - -
STOTIES VAISTINĖ, UAB
Panevėžio m. sav. Panevėžio m. Stoties g. 7-1A
2015 - 2021 2018 - 2022
Priešgaisriniai darbai, UAB
Vilniaus m. sav. Vilniaus m. Veiverių g. 9B-62
2018 - 2021 2018 - 2022
Ozomatas, MB
Vilnius Šeškinės Sodų 2-oji g. 20
2020 - 2021 -
Ančiuvis, UAB
Klaipėdos r. sav. Gargždų m. Žemaičių g. 18
2015 - 2021 2018 - 2022
HAASTE LIETUVA, UAB - -
Individualių gyvenamųjų namų savininkų bendrija OBELYNAS-2
Vilniaus m. sav. Vilniaus m. Žvejų g. 14A
- 2018 - 2022
Adava, UAB
Vilniaus r. sav. Grikienių k. Riešės 1-oji g. 52
2019 - 2020 2020 - 2022
SPRANGI AŠAKA, UAB
Pagėgių sav. Pagėgių m. Žemaičių g. 1
2015 - 2018 2018 - 2018
J. Valaitienės IĮ
Kauno m. sav. Kauno m. sav. teritorija
- 2018 - 2018
Projektiniai sprendimai, UAB - -