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
Excel
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
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
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 = "ATUONI Š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 = "ATUONIASDEŠ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
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 = "ATUONI Š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 = "ATUONIASDEŠ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
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?
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?
GABIJA1 rašė:
=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!

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
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


Sveiki,
Gal galite patarti kaip užprogramuoti rausvų langelių užpildymą mano įkeltame faile, kad nereikėtų ranka žymėt kiekvieną reikalingą langelį?
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 |
Diskusijos
-
Mažoji bendrija
9 minutės |
failai: 53 |
kodas » 7481
-
Duomenų apsaugos tvarka įmonėse
1 diena |
failai: 6 |
Niemand » 152
-
Avansų apskaitymas balanse
1 diena |
failai: 0 |
tim253 » 3
-
Namų bendrijos apskaita
1 diena |
failai: 58 |
aiwita » 1639
-
GPAIS
2 dienų |
failai: 61 |
lllaima » 2373
-
Antstoliai
2 dienų |
failai: 12 |
irmoske » 1356
-
PLN204 ir pelno (nuostolio) ataskaita
3 dienų |
failai: 4 |
uogytee » 757
-
Nelaimingas atsitikimas kelyje iš darbo
3 dienų |
failai: 1 |
ievaite » 101
-
sodininkų bendrijos buhalterinė apskaita
4 dienų |
failai: 0 |
ievaite » 54
-
Vykdomieji raštai
4 dienų |
failai: 49 |
gyvate » 3424
-
Tėvystės atostogos
4 dienų |
failai: 3 |
JurgiTyta » 1276
-
Rivilė
5 dienų |
failai: 309 |
Paula » 15427
-
Bolt Food sąskaitos klientui
5 dienų |
failai: 0 |
Baikjuokus » 8
-
Kasos dokumentų tvarkymas
5 dienų |
failai: 11 |
aiwita » 965
-
Asociacijos
8 dienų |
failai: 49 |
Gita1 » 3555
-
PVM sąskaitų faktūrų registras
9 dienų |
failai: 4 |
Luka_Paciolis » 361
-
Avansinis pelno mokestis
10 dienų |
failai: 10 |
VikaX » 3631
-
Metalo gaminiai, metalo laužo apskaita?
11 dienų |
failai: 0 |
astuleee » 156
-
Ilgalaikis turtas
11 dienų |
failai: 36 |
astuleee » 3906
-
Atostoginiai
11 dienų |
failai: 0 |
astuleee » 17
-
Sodra
12 dienų |
failai: 58 |
Kristiana__ » 10411
-
Atvirkštinis PVM ne PVM mokėtojui
12 dienų |
failai: 0 |
gyvate » 2
-
Kas veda ūkininkams apskaitą
15 dienų |
failai: 53 |
egluteeeeeekopija » 5763
-
Marža (naudoti automobiliai)
15 dienų |
failai: 26 |
Luka_Paciolis » 2190
-
Ilgalaikio turto pardavimas
16 dienų |
failai: 0 |
digin » 772
- Tax.lt forumo taisyklės
- Paieška forume
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 |
---|---|---|
JAPONITA, UAB
M. Sederavičiaus g. 12, Kauno m., Kauno m. sav. 45290 | 2015 - 2020 | 2018 - 2022 |
Tagera, UAB
Perkūnkiemio g. 13-91, Vilniaus m., Vilniaus m. sav. 12114 | 2020 - 2020 | 2020 - 2022 |
Viešoji įstaiga GSB | - | - |
Milrita, UAB
Partizanų g. 78-9, Kauno m., Kauno m. sav. 50349 | 2015 - 2020 | 2018 - 2022 |
Flotomas, UAB | - | - |
VAIKŲ IR JAUNIMO CIRKO KLUBAS - STUDIJA CIRCUS | - | - |
Delesa, UAB | - | - |
Drabužinė, MB | - | - |
MS Maritime, UAB
Sodų g. 79, Skaidiškių k., Nemėžio sen., Vilniaus r. sav. 13274 | 2016 - 2020 | 2018 - 2022 |
LIVITEX, UAB | - | - |
Zinaidos Skališienės IĮ
Algirdo g. 8-4, Skuodo m., Skuodo miesto sen., Skuodo r. sav. 98111 | - | 2018 - 2018 |
Trakų suaugusiųjų mokymo centras
Birutės g. 42, Trakų m., Trakų sen., Trakų r. sav. 21114 | - | 2018 - 2022 |
Emvix, MB
Kęstučio g. 44-15, Kauno m., Kauno m. sav. 44308 | - | 2018 - 2020 |
Akmens kalvė, MB | - | - |
JŪRATĖS KORPORACIJA, UAB
Tauro g. 8-6, Vilniaus m., Vilniaus m. sav. 01114 | 2014 - 2018 | - |