|
Sveiki,
Svečias
|
|
TEMA: Pašto K6forma i adresų lipdukus
Pašto K6forma i adresų lipdukus prieš 4 m. 3 mėn. #7
|
Vis dar nieko naujo dėl to koduko pats neradau
 Jis turėtų veikti nesant celeje jokios informacijos ir neveikti, jei kas įvesta. |
|
Paskutinis taisymas: prieš 4 m. 3 mėn. nuo edis.
|
Pašto K6forma i adresų lipdukus prieš 4 m. 3 mėn. #8
|
O čia paprastas IF su tuščia reikšme ("") nepagelbėtų? Pažiūrėk žalius langelius.
Šis priedas svečiams yra nematomas. Norėdami pamatyti turite prisijungti arba užsiregistruoti. |
|
|
Pašto K6forma i adresų lipdukus prieš 4 m. 3 mėn. #9
|
Ačiū, ko gero iš pirmo žvilgsnio manau galima pritaikyti.
|
|
|
Pašto K6forma i adresų lipdukus prieš 4 m. 3 mėn. #10
|
Viskas gerai iki kol neprireikė išvesti makrokomandą kuri keičia žodžiais.
'K6 forma'!Q14>0;"SumaZodziu('K6 forma'!Q14)";"" neveikia taip, ko nežinau? Jaučiu makrokomandos pradžią reikėtų tik pakoreguoti, bet kaip? Public Function SumaZodziu(Number) As String Dim Centai As Integer, Eurai As Currency Eurai = Fix(Number) StrNumber = Right(Str$(Eurai), Len(Str$(Eurai)) - 1) Ilgis = Len(StrNumber) EilNr = Ilgis Centai = Fix((Number - Eurai) * 100) If (Centai >= 0) And (Centai <= 9) Then SumZod = "eur. ir 0" & Right(Str$(Centai), 1) & " ct." Else SumZod = "eur. ir " & Right(Str$(Centai), 2) & " ct." End If If Eurai = 0 Then SumZod = "Nulis " & SumZod GoTo FEnd End If |
|
Paskutinis taisymas: prieš 4 m. 3 mėn. nuo edis.
|
Pašto K6forma i adresų lipdukus prieš 4 m. 3 mėn. #11
|
Nuimk kabutes (pažymėjau raudonai), nes su kabutėmis Excel fiksuoja kaip tekstą, ir skaičiavimų neatlieka:
'K6 forma'!Q14>0;"SumaZodziu('K6 forma'!Q14)";"" |
|
|
Pašto K6forma i adresų lipdukus prieš 4 m. 3 mėn. #12
|
Taip, labai dėkui!
|
|
|
|