- Paslaugos.lt
- Internetas, IT
- Microsoft Office Excel specialistai
- MS Excel VBA programavimas
MS Excel VBA programavimas
- » MS Excel VBA programavimas (12)
ŠIUO METU TRUMPALAIKIŲ DARBŲ NEPRIIMAME! Dėl ilgalaikio bendradarbiavimo susisiekti.
MS Excel, Word, Outlook, Project - tai sudėtingi įrankiai. Jūs mokate pinigus, bet naudojate tik 10-20% jų galimybių. Padėsiu Jums pritaikyti jas Jūsų poreikiams, sutaupyti laiką ir pinigus.
Turime daugelio metų patirtį su Microsoft Excel procesų optimizavimo projektais bei specializuotais įrankiais, dirbant su fiziniais asmenimis ir įmonėmis.
Jūsų Excel lentelių, bei darbo specifikos su jomis analizė. Optimizavimo pasiūlymo pateikimas. Google Sheets sprendimai. Susidomėjote? Susisiekime.
Vystome sprendimus verslui su MS Excel / VBA, vystome įmonės reportingą su MS Power BI bei diegiame web planavimo sprendimus verslui su Jedox.
Sunkiai sekasi su duomenimis? Reikia optimizuoti darbą su tabeliais? Sunkiai sekasi sudaryti ataskaitas? Padėsime susitvarkyti su šiais iššūkiais ir ne tik...
💡 Įgyvendinkite savo idėjas su mūsų Excel įgūdžiais! 📊 ✅ Optimizuokite verslo procesus. 🔄 Automatizuokite rutinines užduotis. 🎓 Gaukite pagalbą nuo baigiamųjų projektų iki kursinių darbų rengime.
MS Excel, MS Excel programavimas ir sujungimas su kitomis programomis. 3D modeliavimas, automatinis brėžinių ruošimas gamybai
Excel duomenų apdorojimas naudojant standartines formules bei esant poreikiui sukuriant specialias formules VBA pagalba. Konsultavimas/mokymas iškilusiais klausimais. VBA programavimas
Duomenų analizė ir įvairiausios ataskaitos, vizualizacijos. Darbą pagreitinančių excel formulių kūrimas, turimų lentelių patobulinimas. Dirbu su Excel, Pivot Tables, Microsoft Power BI. Išrašomos SF.
Pasimetate tarp duomenų kiekio? Susiduriate su sunkumais atvaizduojant duomenis? O gal nežinote nuo ko pradėti? Ne problema! Susisiekite ir viską aptarsime :)
Klientų užklausos
Vilnius
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 »
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)
Kaunas, visa Lietuva
Regioninių nustatymų ir kalbos keitimas negelbėja.
Kaip ją pakoreguoti? Ką pakeisti?
Function SumLT(...
Žiūrėti daugiau »
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
Klaipėda

Žiūrėti daugiau »
Vilnius
kodą, norime biški daugiau automatizuoti. Failus atsiusiu El. pastu.
Kaunas, visa Lietuva
Kainos
Kategorija / Paslauga | Kaina nuo | Vidutinė kaina | Paslaugų teikėjai |
---|---|---|---|
MS Excel VBA programavimas | 10-20 €/h | 17 €/h | Paslaugų teikėjai » |
Darbo su „Microsoft Office Excel“ programa konsultacijos | 10-25 €/h | 16 €/h | Paslaugų teikėjai » |
Microsoft Office Excel programavimas | 10-25 €/h | 16 €/h | Paslaugų teikėjai » |
Dažniausi klausimai
-
MS Excel VBA programavimas - kurie paslaugos teikėjai yra geriausi?
-
MS Excel VBA programavimas - kurie paslaugos teikėjai pigiausi?
-
MS Excel VBA programavimas - kurie paslaugos teikėjai yra brangiausi?
✅ Kainos | nuo 10-20 €/h |
✅ Atsiliepimų | 44 |
✅ Darbų pavyzdžių | 80 |
✅ Paslaugų teikėjų | 12 |