[atu1234]

olen kuulnud, et on olemas selline funktsioon, et excel kirjutab ise mingi numbri sõnadega, näiteks mingi rahasumma!

kas oskab keegi selle kohta midagi öelda, kus seda saada võiks, ja kuidas rakendada?

peal on mul win 98 ja Office 2000

[Karzum]

link :: link

[Westswamp]

Kaevaks selle teema üles, kuna viidatud lingilt enam seda allalaadida ei saa .
Ehk kellelgi on see olemas, oleksin väga tänulik, kui see mulle meilitaks või kuhugi ülesvisataks.

[weedstone]

ma nüüd kaevaks uuesti selle teema üles

läeks ka vaja seda funktsiooni

[Max Powers]

Mul peaks olema. Otsin

[Max Powers]

http://www.upload.ee/files/19156/AddDemo.xla.html

Office 2007ga igatahes enam ei töötanud.

[jkddp]

ei tia ma lahti ei saanud....

[Max Powers]

[weedstone]

hmm... mul office 2003 ja asi ei funga või siis ma lihtsalt ei saa hakkama. kuda selle kasutamine täpsemalt käib?

[Max Powers]

[weedstone]

nii ma tegingi. aint et kui ma selle file äe tõmbasin nimetas ta selle .doc-iks a add-insi lisas ikkagi aga kui kirjutan =summasonadega() siis kirjutab mulle #name?

[Max Powers]

[weedstone]

[A.S.]

Jutt käib küll vana Exceli kohta, aga ehk kõlbab ka sulle?
Excel käima ja Alt + F11 - peaks avanema Visual Basic. Siis Insert > Modules ja siis Module 1 aknas copypaste selle faili sisu sinna

Spoiler

Dim hsNumber(0 To 9) As String Dim hsYhikud(0 To 3) As String Dim hsYhik(0 To 3) As String Const hsSada = "sada " Const hsTeist = "teist " Const hsKymmend = "kümmend " Const hsKymme = "kümme " Sub hsInit()     hsNumber(0) = ""     hsNumber(1) = "üks"     hsNumber(2) = "kaks"     hsNumber(3) = "kolm"     hsNumber(4) = "neli"     hsNumber(5) = "viis"     hsNumber(6) = "kuus"     hsNumber(7) = "seitse"     hsNumber(8) = "kaheksa"     hsNumber(9) = "üheksa"     hsYhik(0) = ""     hsYhik(1) = "tuhat "     hsYhik(2) = "miljon "     hsYhik(3) = "miljard "     hsYhikud(0) = ""     hsYhikud(1) = "tuhat "     hsYhikud(2) = "miljonit "     hsYhikud(3) = "miljardit " End Sub Function SummaSonades(fSummaNumbrites As Variant)     Dim aTuhanded As Long     Dim aMiljonid As Long     Dim aMiljardid As Long     Dim aKroonid As Long     Dim aSendid As Integer             If Not hsNumber(1) = "üks" Then         Call hsInit     End If     If Not Application.IsNumber(fSummaNumbrites) Then         SummaSonades = ""     ElseIf fSummaNumbrites > 2147483646 Then         SummaSonades = "mustmiljon krooni ja 00 senti"     ElseIf fSummaNumbrites < 0 Then         SummaSonades = "allanulli krooni ja 00 senti"     ElseIf fSummaNumbrites = 0 Then         SummaSonades = "ümmargune null ja 00 senti"     Else         aKroonid = Int(fSummaNumbrites)         aSendid = 100 * (fSummaNumbrites - aKroonid)         If aKroonid = 0 Then             SummaSonades = "null krooni"         ElseIf aKroonid = 1 Then             SummaSonades = "üks kroon"         Else             aTuhanded = Int(aKroonid / 1000)             aMiljonid = Int(aTuhanded / 1000)             aMiljardid = Int(aMiljonid / 1000)             aKroonid = aKroonid - 1000 * aTuhanded             aTuhanded = aTuhanded - 1000 * aMiljonid             aMiljonid = aMiljonid - 1000 * aMiljardid                     SummaSonades = SummaTuhandes(aMiljardid, 3)             SummaSonades = SummaSonades & SummaTuhandes(aMiljonid, 2)             SummaSonades = SummaSonades & SummaTuhandes(aTuhanded, 1)             SummaSonades = SummaSonades & SummaTuhandes(aKroonid, 0) & "krooni"         End If         SummaSonades = SummaSonades & " ja " & Application.Text(aSendid, "00") & " senti"               End If End Function Private Function SummaTuhandes(fNumber As Long, fYhikNr As Integer)     Dim aSajad As Integer     Dim aKymned As Integer     Dim aYhed As Integer     Dim aNumber As Integer         aKymned = Int(fNumber / 10)     aSajad = Int(fNumber / 100)     aYhed = fNumber - 10 * aKymned     aKymned = aKymned - 10 * aSajad         If fNumber = 0 Then         SummaTuhandes = ""     ElseIf fNumber = 1 Then         SummaTuhandes = "üks " & hsYhik(fYhikNr)     ElseIf fNumber > 1000 Then         SummaTuhandes = Application.Text(fNumber, "000") & hsYhikud(fYhikNr)     Else         If aSajad > 0 Then             SummaTuhandes = hsNumber(aSajad) & hsSada         Else             SummaTuhandes = ""         End If         If aKymned = 0 Then             SummaTuhandes = SummaTuhandes & hsNumber(aYhed)             If aYhed > 0 Then                 SummaTuhandes = SummaTuhandes & " "             End If         ElseIf aKymned = 1 Then             If aYhed = 0 Then                 SummaTuhandes = SummaTuhandes & hsKymme             Else                 SummaTuhandes = SummaTuhandes & hsNumber(aYhed) & hsTeist             End If         Else             SummaTuhandes = SummaTuhandes & hsNumber(aKymned) & hsKymmend & hsNumber(aYhed)             If aYhed > 0 Then                 SummaTuhandes = SummaTuhandes & " "             End If         End If         SummaTuhandes = SummaTuhandes & hsYhikud(fYhikNr)     End If End Function

Edasi peaks enda valemite (User Defined) alla see vajalik asi ilmuma.

E:
jura veidi väiksemaks
 

[weedstone]

AddDemo.xla-le ei saa ma mooduleid lisada ja kui seda lahti üritan võtta siis ütleb et Project is unviewable

[A.S.]

Ei lisa sa sinna midagi, ei klõpsa seda AddDemo.xla käimagi. Lihtsalt paned Exceli käima, tühi leht tuleb ette, Alt + F11 jne...
Seal on siis VBAProject (Book1), sinna lisad.

Kui peaksid juhuslikult käima saama, siis hiljem Exceli alt...
File > Save As... > Save as type: Microsoft Excel Add-Ins (päris lõpus kusagil) > ja saadki uue AddDemo.xla faili (seekord küll lukustamata)
Niimoodi ei pea sa siiski tegema, jäta see valem parem selle Exceli faili sisse, kus sa seda konkreetset valemit reaalselt vajad. Pole sul vajagi selle Add-Insiga jamada.