Egidijus Š.
2025-04-02 
Iš Excel į Word komercinių pasiūlymų generavimas
Reikalinga pagalba su excel > word integracija. Iš exel lentelės paimti duomenis ir generuoti komercinius pasiūlymus word. Yra excel lentelės pavyzdys, yra wordo template su stiliumi ir kai turėtų atrodyti galutinis komercinis pasiūlymas. Yra kelios sąlygos kuomet reikia sukurti daugiau eilučių arba...
Žiūrėti daugiau »
Reikalinga pagalba su excel > word integracija. Iš exel lentelės paimti duomenis ir generuoti komercinius pasiūlymus word. Yra excel lentelės pavyzdys, yra wordo template su stiliumi ir kai turėtų atrodyti galutinis komercinis pasiūlymas. Yra kelios sąlygos kuomet reikia sukurti daugiau eilučių arba turėti kelis stulpelius. Excel reikalingas dropdown pardavėjų rekvizitams pasirinkti.
Vilnius
Egidijus Š.
Vilnius
+370 673 *****
Valentas D.
2024-11-07
MS Excel VBA programavimas
Ieškau, kas sukurtų makrokomandą permesti duomenis iš vieno .xls failo į vieną eilutę kitame faile. Reikia, kad veiktų Excel 2003
Sakykim, failai Alisa.xls ir Bob.xls
1 Alisa. Pastatyti kursorių and mokyklos pavadinimo (rankiniu būdu)
2 Bob. Faile Bob.xls, stulpelyje B, rasti tą pavadinimą, a...
Sakykim, failai Alisa.xls ir Bob.xls
1 Alisa. Pastatyti kursorių and mokyklos pavadinimo (rankiniu būdu)
2 Bob. Faile Bob.xls, stulpelyje B, rasti tą pavadinimą, a...
Žiūrėti daugiau »
Ieškau, kas sukurtų makrokomandą permesti duomenis iš vieno .xls failo į vieną eilutę kitame faile. Reikia, kad veiktų Excel 2003
Sakykim, failai Alisa.xls ir Bob.xls
1 Alisa. Pastatyti kursorių and mokyklos pavadinimo (rankiniu būdu)
2 Bob. Faile Bob.xls, stulpelyje B, rasti tą pavadinimą, ant kurio stovi kursorius faile Alisa.xls. Jei nerasta, pranešti, grįžti į Alisa.xls
3 Alisa. Pereiti vienu langeliu žemiau, nukopijuoti emailą 4 Bob. Toje pačioje eilutėje kaip ir pavadinimas, nupastinti emeilo adresą į stulpelį P
5 Alisa. Pereiti du langelius į kairę ir vieną žemyn, nukopijuoti datą (stulpelis A)
6 Bob. Datą nupastinti toje pačioje eilutėje į stulpelį F
7 Bob. Iškirpti sąskaitos informaciją iš stulpelių I, J, K (numeris, data, suma), surasti paskutinį įrašą toje eilutėje ir įpastinti sąskaitos informaciją
8 Alisa. Pereiti du laukelius nuo datos į dešinę, nukopijuoti sąskaitos informaciją iš stulpelių G, H, I (numeris, data, suma),
9 Bob. Nupastinti sąskaitos informaciją į stulpelius I, J, K (toje pačioje eilutėje)
Sakykim, failai Alisa.xls ir Bob.xls
1 Alisa. Pastatyti kursorių and mokyklos pavadinimo (rankiniu būdu)
2 Bob. Faile Bob.xls, stulpelyje B, rasti tą pavadinimą, ant kurio stovi kursorius faile Alisa.xls. Jei nerasta, pranešti, grįžti į Alisa.xls
3 Alisa. Pereiti vienu langeliu žemiau, nukopijuoti emailą 4 Bob. Toje pačioje eilutėje kaip ir pavadinimas, nupastinti emeilo adresą į stulpelį P
5 Alisa. Pereiti du langelius į kairę ir vieną žemyn, nukopijuoti datą (stulpelis A)
6 Bob. Datą nupastinti toje pačioje eilutėje į stulpelį F
7 Bob. Iškirpti sąskaitos informaciją iš stulpelių I, J, K (numeris, data, suma), surasti paskutinį įrašą toje eilutėje ir įpastinti sąskaitos informaciją
8 Alisa. Pereiti du laukelius nuo datos į dešinę, nukopijuoti sąskaitos informaciją iš stulpelių G, H, I (numeris, data, suma),
9 Bob. Nupastinti sąskaitos informaciją į stulpelius I, J, K (toje pačioje eilutėje)
Vilnius
Valentas D.
Vilnius
Gediminas
2024-02-04
VBA komanda grįžta be lietuviškų simbolių
Panaudojau scenarijų kuris sumą skaičiais paverčia suma žodžiais, tačiau komanda grįžta be lietuviškų simbolių - pvz. 12176 = Dvylika tûkstanèiø vienas ðimtas septyniasdeðimt ðeði eurai 00 c
Regioninių nustatymų ir kalbos keitimas negelbėja.
Kaip ją pakoreguoti? Ką pakeisti?
Function SumLT(...
Regioninių nustatymų ir kalbos keitimas negelbėja.
Kaip ją pakoreguoti? Ką pakeisti?
Function SumLT(...
Žiūrėti daugiau »
Panaudojau scenarijų kuris sumą skaičiais paverčia suma žodžiais, tačiau komanda grįžta be lietuviškų simbolių - pvz. 12176 = Dvylika tûkstanèiø vienas ðimtas septyniasdeðimt ðeði eurai 00 c
Regioninių nustatymų ir kalbos keitimas negelbėja.
Kaip ją pakoreguoti? Ką pakeisti?
Function SumLT(NumberArg As Double, Optional intCase As Integer = 0) As String
'*----------------------------
' Funkcijos pirmasis argumentas - suma, užrašyta skaičiais
' Funkcijos antrasis (nebūtinas) argumentas - požymis,
' nusakantis, kokiomis raidėmis bus gauta funkcijos reikšmė:
' 0 (arba praleistas) - pirmoji sakinio raidė didžioji, o kitos mažosios;
' 1 visas sakinys - didžiosios raidės;
' 2 visas sakinys - mažosios raidės.
' Funkcijos reikšmė - suma žodžiais.
'*----------------------------
Dim strSuma As String
Dim strMillions As String
Dim strThousands As String
Dim strHundreds 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 strRez As String
strSuma = Format(NumberArg, "000,000,000.00")
strMillions = Mid(strSuma, 1, 3)
strThousands = Mid(strSuma, 5, 3)
strHundreds = Mid(strSuma, 9, 3)
If NumberArg < 1 Then
strRez = "NULIS EURŲ "
GoTo pabaiga
End If
If strMillions <> "000" Then
m1 = TrysSkaitmenys(strMillions)
d = Mid(strMillions, 2, 1)
v = Right(strMillions, 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 strThousands <> "000" Then
t1 = TrysSkaitmenys(strThousands)
d = Mid(strThousands, 2, 1)
v = Right(strThousands, 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(strHundreds)
d = Mid(strHundreds, 2, 1)
v = Right(strHundreds, 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
strRez = m1 + m2 + t1 + t2 + r1 + r2 + " "
pabaiga:
Select Case intCase
Case 0
SumLT = UCase(Left(strRez, 1)) + LCase(Mid(strRez, 2)) + Right(strSuma, 2) + " ct"
Case 1
SumLT = UCase(strRez + Right(strSuma, 2) + " ct")
Case 2
SumLT = LCase(strRez + 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 d3 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
Regioninių nustatymų ir kalbos keitimas negelbėja.
Kaip ją pakoreguoti? Ką pakeisti?
Function SumLT(NumberArg As Double, Optional intCase As Integer = 0) As String
'*----------------------------
' Funkcijos pirmasis argumentas - suma, užrašyta skaičiais
' Funkcijos antrasis (nebūtinas) argumentas - požymis,
' nusakantis, kokiomis raidėmis bus gauta funkcijos reikšmė:
' 0 (arba praleistas) - pirmoji sakinio raidė didžioji, o kitos mažosios;
' 1 visas sakinys - didžiosios raidės;
' 2 visas sakinys - mažosios raidės.
' Funkcijos reikšmė - suma žodžiais.
'*----------------------------
Dim strSuma As String
Dim strMillions As String
Dim strThousands As String
Dim strHundreds 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 strRez As String
strSuma = Format(NumberArg, "000,000,000.00")
strMillions = Mid(strSuma, 1, 3)
strThousands = Mid(strSuma, 5, 3)
strHundreds = Mid(strSuma, 9, 3)
If NumberArg < 1 Then
strRez = "NULIS EURŲ "
GoTo pabaiga
End If
If strMillions <> "000" Then
m1 = TrysSkaitmenys(strMillions)
d = Mid(strMillions, 2, 1)
v = Right(strMillions, 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 strThousands <> "000" Then
t1 = TrysSkaitmenys(strThousands)
d = Mid(strThousands, 2, 1)
v = Right(strThousands, 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(strHundreds)
d = Mid(strHundreds, 2, 1)
v = Right(strHundreds, 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
strRez = m1 + m2 + t1 + t2 + r1 + r2 + " "
pabaiga:
Select Case intCase
Case 0
SumLT = UCase(Left(strRez, 1)) + LCase(Mid(strRez, 2)) + Right(strSuma, 2) + " ct"
Case 1
SumLT = UCase(strRez + Right(strSuma, 2) + " ct")
Case 2
SumLT = LCase(strRez + 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 d3 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
Kaunas, visa Lietuva
Gediminas
Kaunas, visa Lietuva
+370 699 *****
Ugnius B.
2023-11-19 
MS Excel VBA programavimas
Sveiki visi, I excel lentele yra ikeliami (copy/paste) duomenys, stupeliu skaicius gali skirtis nezymiai, reikia kad jie automatiskai suvaiksciotu i jiems skirtas vietas kitoje lenteleje pagal "Skirsniu" pavadinimus. Eiluciu skaicius tarp "skirsniu" visada skirtingas. Suprogramavus koda ir lentele ...
Žiūrėti daugiau »
Sveiki visi, I excel lentele yra ikeliami (copy/paste) duomenys, stupeliu skaicius gali skirtis nezymiai, reikia kad jie automatiskai suvaiksciotu i jiems skirtas vietas kitoje lenteleje pagal "Skirsniu" pavadinimus. Eiluciu skaicius tarp "skirsniu" visada skirtingas. Suprogramavus koda ir lentele reiktu uzrakinti, kad kiti negaletu prie jo prieti ir koreguoti. Placiau po pasiulymu.
Klaipėda
Ugnius B.
Klaipėda
Eimantas
2023-01-14
MS Excel VBA programavimas
Reiketu perprogramuoti excel lentelę pagal swedbank pateiktus reikalavimus. Gauti išrašai iš banko, pagal kuriuos turime sudelioti viską. Turime sena excel
kodą, norime biški daugiau automatizuoti. Failus atsiusiu El. pastu.
kodą, norime biški daugiau automatizuoti. Failus atsiusiu El. pastu.
Vilnius
Eimantas
Vilnius
+370 622 *****
Arnoldas M.
2022-05-22
MS Excel VBA programavimas
Sveiki, ieškau kas galėtų išmokinti VBA programavimo, pagrindas būtų COREL macro komandų kurimas. Esu Kaunietis ir man 29 metai. Lauksiu jūsų atsakymo
Kaunas, visa Lietuva
Arnoldas M.
Kaunas, visa Lietuva
+370 691 *****
Juozas B
2021-09-06
Excel vba
Sandelio programa su ataskaitomis, sandelio likuciai, saugojimo laikas, sekciju uzpildymo ataskaita, gavimo isdavimo perkrovimo formos.
Vilnius, visa Lietuva
Juozas B
Vilnius, visa Lietuva
Karolis
2021-02-26
1
MS Excel VBA programavimas
Sveiki,
reikalinga sukurti bendro naudojimo failą, į kurį dalis darbuotojų vestų duomenis, dalis redaguotų ir dalis apdorotų. Failą galvojame patalpinti serveryje.
XLS failo kūrimui pridedu specifikaciją, kurią su suinteresuotu programuotoju aptarčiau. Reikalingas pasiūlymas paslaugos atlikimui...
reikalinga sukurti bendro naudojimo failą, į kurį dalis darbuotojų vestų duomenis, dalis redaguotų ir dalis apdorotų. Failą galvojame patalpinti serveryje.
XLS failo kūrimui pridedu specifikaciją, kurią su suinteresuotu programuotoju aptarčiau. Reikalingas pasiūlymas paslaugos atlikimui...
Žiūrėti daugiau »
Sveiki,
reikalinga sukurti bendro naudojimo failą, į kurį dalis darbuotojų vestų duomenis, dalis redaguotų ir dalis apdorotų. Failą galvojame patalpinti serveryje.
XLS failo kūrimui pridedu specifikaciją, kurią su suinteresuotu programuotoju aptarčiau. Reikalingas pasiūlymas paslaugos atlikimui
Lauksiu informacijos
Karolis
reikalinga sukurti bendro naudojimo failą, į kurį dalis darbuotojų vestų duomenis, dalis redaguotų ir dalis apdorotų. Failą galvojame patalpinti serveryje.
XLS failo kūrimui pridedu specifikaciją, kurią su suinteresuotu programuotoju aptarčiau. Reikalingas pasiūlymas paslaugos atlikimui
Lauksiu informacijos
Karolis
Vilnius, visa Lietuva
Karolis
Vilnius, visa Lietuva
+370 652 *****
12bffec9934239458ab68f6e75e653d3
2019-01-21
Informacija pašalinta, laikantis asmens duomenų saugojimo reikalavimų
Informacija pašalinta, laikantis asmens duomenų saugojimo reikalavimų
Klaipėda
Informacija pašalinta, laikantis asmens duomenų saugojimo reikalavimų
Klaipėda
Informacija pašalinta, laikantis asmens duomenų saugojimo reikalavimų
2017-03-02
Informacija pašalinta, laikantis asmens duomenų saugojimo reikalavimų
Informacija pašalinta, laikantis asmens duomenų saugojimo reikalavimų
Vilnius
Informacija pašalinta, laikantis asmens duomenų saugojimo reikalavimų
Vilnius
Informacija pašalinta, laikantis asmens duomenų saugojimo reikalavimų
Rodomos užklausos, gautos per paskutinius 2 metus.
Siųsk užklausą visiems
Apdorota 427 733 užklausų.
Gauk pasiūlymus, išsirink tinkamiausią.