Jeigu yra būdas padaryti geriau, atrask jį. T. A. Edison

Sveiki, Svečias
Prisijungimo vardas: Slaptažodis: Prisiminti mane
  • Puslapis:
  • 1
  • 2

TEMA: Pašto K6forma i adresų lipdukus

Pašto K6forma i adresų lipdukus prieš 4 m. 3 mėn. #7

  • edis
  • edis avataras
  • Neprisijungęs
  • Naujokas
  • Žinutės: 11
  • Reputacija: 0
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.
Administratorius uždraudė viešą pranešimų rašymą.

Pašto K6forma i adresų lipdukus prieš 4 m. 3 mėn. #8

  • dll
  • dll avataras
  • Neprisijungęs
  • Moderatorius
  • Žinutės: 194
  • Gauta padėka 47
  • Reputacija: 20
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.
Administratorius uždraudė viešą pranešimų rašymą.

Pašto K6forma i adresų lipdukus prieš 4 m. 3 mėn. #9

  • edis
  • edis avataras
  • Neprisijungęs
  • Naujokas
  • Žinutės: 11
  • Reputacija: 0
Ačiū, ko gero iš pirmo žvilgsnio manau galima pritaikyti.
Administratorius uždraudė viešą pranešimų rašymą.

Pašto K6forma i adresų lipdukus prieš 4 m. 3 mėn. #10

  • edis
  • edis avataras
  • Neprisijungęs
  • Naujokas
  • Žinutės: 11
  • Reputacija: 0
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.
Administratorius uždraudė viešą pranešimų rašymą.

Pašto K6forma i adresų lipdukus prieš 4 m. 3 mėn. #11

  • dll
  • dll avataras
  • Neprisijungęs
  • Moderatorius
  • Žinutės: 194
  • Gauta padėka 47
  • Reputacija: 20
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)";""
Administratorius uždraudė viešą pranešimų rašymą.

Pašto K6forma i adresų lipdukus prieš 4 m. 3 mėn. #12

  • edis
  • edis avataras
  • Neprisijungęs
  • Naujokas
  • Žinutės: 11
  • Reputacija: 0
Taip, labai dėkui!
Administratorius uždraudė viešą pranešimų rašymą.
  • Puslapis:
  • 1
  • 2
Puslapio sukūrimo laikas: 0.260 sekundžių