Šeimininkių klubas

Išsikvieskite programą Excel. Paspauskite Alt+F11 – atsivers programavimo kalbos Visual Basic programuotojo langas. Meniu juostoje pasirenkame Insert- Module.



Atlikus šiuos veiksmus, atsivers langelis, skirtas funkcijų tekstams rinkti. Surinkite funkcijos SumLT veikimą aprašantį tekstą.

Teksto pradžia
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 LITŲ "
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 = "LITŲ "
Case Else
Select Case v
Case "0"
r2 = "LITŲ "
Case "1"
r2 = "LITAS "
Case Else
r2 = "LITAI "
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

Teksto pabaiga



Dabar reikia patikrinti ar nepadarėte klaidų: spadžiame Alt+F11, ir programa atvers darbinį puslapį. Į langelį B1 įrašykite formulę =SumLt(A1). Jei funkcija surinkta teisingai, langelyje B1 pasirodys užrašas "Nulis litų 00 ct". Rašydami į langelį A1 įvairius skaičius įsitikinkite, kad suma žodžiais išvedama teisingai. Jei funkcija dirba teisingai, ją reikia išsaugoti kaip papildomą programinį modulį.
Norint išsaugoti surinktas formules kaip papildomus programos modulius (Add-ins) turint Excel ekrane atverti darbinės lentelės langą komanda File- Properties- kortelę Summary.



Į laukelį Title įveskite "Funkcija SumLT", o į laukelį Comments– "Šiame programiniame modulyje įrašyta funkcija, kuri argumento reikšmę (sumą skaičiais) grąžina suma žodžiais".

Duokite programai Excel komandą File- Save as arba F12. Atsivėrusio lango Save as laukelyje File name: surinkite išsaugomo programinio failo pavadinimą – SumLT, o laukelyje Save as type: pasirinkite tipą Microsoft Excel Add-In (*.xla). Ir spaudžiame Save.



Kad sukurtas naujas programinis modulis patektų į galimų prijungti modulių sąrašą, uždarykite programos Excel langą ir vėl ją išsikvieskite.

Norint prijungti papildomus modulius prie standartinės Excel programos, reikia duoti jai komandą Tools- Add-Ins... . Atsivėrusiame lange yra visas galimų papildomų programinių modulių sąrašas.



Kaip matome, be standartinių papildomų modulių, kurie įdiegiami kartu su pagrindine programos dalimi, yra ir ką tik mūsų sukurtas naujasis modulis – Funkcija SumLT. Pažymėkite ją varnele ir spauskite mygtuką OK.
Jei šią funkciją iš programos Excel norėsite panaikinti, išsikvieskite, kaip nurodyta anksčiau, langą Add–Ins ir nuimkite varnelę nuo nereikalingų papildomų funkcijų.