GABIJA1
214
#1328088 2016-08-26 21:33 GABIJA1

Kristiana__ rašė:


jeigu teisingai supratau, tai mano patarimas būtų naudoti ctr+f, o tada į paiešką įvesti, tai ką norite rasti ir pasirinkti ar visoje darbaknygėje ar tik tame lape.

Bet čia labai paprasta. Gal Jūs kažko labai sudėtingo norite, tik aš nesupratau.



Jūsų nurodyta kombinacija arba tiesiog žiūronų mygtukas ieško konkretaus žodžio, o man reikia, kad surastų visus keturių raidžių žodžius, kurių antra ir ketvirta raidės pvz yra A, pridedu pavyzdį su keliais žodžiais. Ar supratot?
Prisegti failai
Book1.xlsx 9,9 KB

ABA2
1829
#1328104 2016-08-27 16:44 ABA2
Jei paprastai, tai taip...
----------------------------------------------
P.S. O su VBA galima padaryti kiečiau ir patogiau.
Prisegti failai

Ctrl_F.PNG 8,7 KB
Paieška_su_VBA_03.xls 91 KB



IP


pele-pelyte
1768
#1328201 2016-08-29 17:24 pele-pelyte
Laba. Užsiknisau su kableliu/tašku skaičių klaviatūroje nešiojamame kompiuteryje. Windows 10, kaip sakant "nagli", regionas Lietuva, kad ir kaip darau iš kablelio į tašką, niekaip jis nesikeičia. Nepatogu dirbti buh.programa dėl to taško/kablelio. Gal galite patarti kaip pasidaryti, jog rašytų tašką, o ne kablelį?

ziile
355
#1334948 2016-10-14 14:03 ziile
Sveiki, gal kas žinote, kaip įrašyti lietuviškas raides VBA modulyje SumLt? Naujas kompas pakeitė lietuviškas raides į simbolius, o įrašyti lietuviškų neduoda :(

ABA2
1829
1   #1334978 2016-10-14 16:26 ABA2 redaguota: 2016-10-14 16-28
Naujas kompiuteris, kaip ir naujas vyras - nekaltas. Jie tik nežinojo, ko jūs pageidaujate.
Reikia VBA kompiliacijos lange pakeisti šriftą į Baltijos šalių
Prisegti failai

_Font.png 180 KB



IP


nite
1117
#1335117 2016-10-17 11:49 nite
Čia gal excelio gudručiai susirinkę, būkit žmonės pasakykit kaip skaičius parašyti žodžiu.


Gita1
7785
#1335165 2016-10-17 14:36 Gita1
reikia turėti specialų įskiepį.. gal kažkur temoj jis dar yra aktyvus..



ziile
355
#1335464 2016-10-19 11:20 ziile

ABA2 rašė:


Naujas kompiuteris, kaip ir naujas vyras - nekaltas. Jie tik nežinojo, ko jūs pageidaujate.
Reikia VBA kompiliacijos lange pakeisti šriftą į Baltijos šalių


Laaaabai tau ačiū, ABA2 :)

blackgate
3808
#1340701 2016-12-01 11:10 blackgate
Laba diena,

Gal žinot kaip perkelti informaciją iš stulpelių į eilutes? smile

Neiti priekin, lygu žengti atgal.

Girele
9664
#1340712 2016-12-01 12:00 Girele
Google žino :) www.excel.lt/nemokamos-pamokos-patarimai/88-kitos-excel-komandos/107-ms-excel-kaip-sukeisti-eilutes-ir-stulpelius-vietomis


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

blackgate
3808
#1340717 2016-12-01 12:42 blackgate
Ačiū Girele. Šitą jau žinojau, bet man reikia su Index formule... smile

Neiti priekin, lygu žengti atgal.

VartotojoVardas
1
#1346002 2017-01-17 19:59 VartotojoVardas
Laba diena, gal žinot ką tokio paspaudžiau exelyje, kad parašius skaičių 125 , paspaudus "enter" užsirašo 0,0125. smile

Nikki
6
#1347666 2017-01-31 11:51 Nikki
Gal kas turit programėlę SUMA ŽODŽAIS EURAIS? smile
Ačiū.

ELC
24
#1347802 2017-01-31 20:25 ELC
Nenaudoju macros,a, ne user friendly jis ;)
Imk sita moduli, dek salia skaiciuokles, sujung A1 su reikiamu skaiciumi savo lenteleje. Tai daroma: =lastelis (tiesiog su pele pereini i kita lapa ir stok i reikiama lasteli). Paskui reikia padaryti ta pati su A13, tik is "sumazodziais" i savo lentele.
Prisegti failai
SUMA_Zodziais_modulis.xlsx 11 KB

ELC
24
#1347813 2017-01-31 21:18 ELC

VartotojoVardas rašė:


Laba diena, gal žinot ką tokio paspaudžiau exelyje, kad parašius skaičių 125 , paspaudus "enter" užsirašo 0,0125. smile



Noredamas nepadaryciau.... :( todel lbai noriu pamatyti FORMAT langeli kaip prisegtuke.

O atstatyti reikia toje pacioje vietoje ;) FORMAT NUMBER NUMBER arba CUSTOM
Prisegti failai

Capture.JPG 110 KB

ELC
24
#1347816 2017-01-31 21:24 ELC

blackgate rašė:


Ačiū Girele. Šitą jau žinojau, bet man reikia su Index formule... smile



Turbut google irgi zino ;) O kas ten neaisku? Formules sintakse?
Nelabai suprantu uzduotes :(

Nikki
6
#1347862 2017-02-01 09:45 Nikki
Neišeina man. Bandžiau pakeisti sumžodžiais į EUR, meta klaidą. :( Aš noriu, kad KPO ir KIO rašytu skaičius žodžiais.



ELC rašė:


Nenaudoju macros,a, ne user friendly jis ;)
Imk sita moduli, dek salia skaiciuokles, sujung A1 su reikiamu skaiciumi savo lenteleje. Tai daroma: =lastelis (tiesiog su pele pereini i kita lapa ir stok i reikiama lasteli). Paskui reikia padaryti ta pati su A13, tik is "sumazodziais" i savo lentele.



Girele
9664
#1347866 2017-02-01 09:54 Girele

ELC rašė:



Noredamas nepadaryciau.... :( todel lbai noriu pamatyti FORMAT langeli kaip prisegtuke.




Prašom :)
Prisegti failai

Be_pavadinimo.png 52 KB


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

Nikki
6
#1347867 2017-02-01 09:57 Nikki redaguota: 2017-02-01 10-00
RADAU :) Viskas puikiai veikia. Gal kam nors prireiks:


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Û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 = "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


ELC
24
#1347879 2017-02-01 10:28 ELC

Nikki rašė:


RADAU :) Viskas puikiai veikia. Gal kam nors prireiks:


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Û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 = "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




Sitas geras, tik nepamirskyte sulietuvinti ;)
Jeigu tiesiog nukopinsite, nebus lietuvisku raidziu....



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 2021 m. I ketv. 0.03 proc
Palūkanos už naudojimąsi mokestine paskola 2021 m. I ketv. 0.01 proc
Valstybinio socialinio draudimo bazinė pensija
nuo 2021-01-01
198.29 EUR
Minimalus valandinis atlygis ir minimali mėnesinė alga (MMA)
nuo 2021-01-01
3.93 EUR ir 642 EUR