Programavimas
74
#154150 2005-03-21 10:57 Programavimas redaguota: 2011-09-11 03-40

TYTE rašė:

Sveiki smile . Pabandžiau pasidaryti exelinį PVM SF registrą (čia iš pačiolio žurnalų), bet bandant suvest sąskaitos numerį meta, kad klaida.
Kaip ją taisyti? Gal kas patars...

Klaidos aprašymas (Visual Basic):

Object doesn't support this property or method (Error 438)


Not all objects support all properties and methods. This error has the following cause and solution:

You specified a method or property that doesn't exist for this Automation object.
See the object's documentation for more information on the object and check the spellings of properties and methods.

You specified a Friend procedure to be called late bound.
The name of a Friend procedure must be known at compile time. It can't appear in a late-bound call.



Problema gali buti skirtingomis EXCEL versijomis sukurtas ir atidaromas dokumentas. Taip pat klaida gali sukelti neinstaliuoti VBA komponentai MS Office instaliavimo metu. Esant galimybei, reitetu pabandyti atidaryti ta Excel dokumenta kituose kompiuteriuose.

Tiesi
4093
#154156 2005-03-21 11:09 Tiesi
Ar yra kokia nors funkcija Excel, kuri gali "iškirpti" nurodytą ženklų skaičių? Left, Right palieka, o man reikia, kad naikintų.
Ar yra funkcija, dalinanti frazes? Kad viename stulpely po padalinimo liktų viena frazės dalis, kitame ar kituose - kitos?
Aš čia jau turbūt per gerai noriu smile

Tiesi
4093
#154159 2005-03-21 11:13 Tiesi redaguota: 2011-09-11 03-40
Data - Validation


moliugelis rašė:


gal kas galite pasakyti kaip padaryti exelyje cele, kurioje butu visi menesiai paspaudus rodyklele (galetum pasirinkti) ?

Kad butu paprasciau ir jei neaiskiai parasiau tai geriau prikabinsiu failiuka kad paziuretumete.


Jotjot
855
#154160 2005-03-21 11:16 Jotjot
Turi tikti funkcija MID(text,start_num,num_chars)

Examples

MID("Fluid Flow",1,5) equals "Fluid"

MID("Fluid Flow",7,20) equals "Flow"

MID("1234",5,5) equals "" (empty text)

TYTE
1640
#154167 2005-03-21 11:21 TYTE redaguota: 2011-09-11 03-40

Programavimas rašė:



TYTE rašė:

Sveiki smile . Pabandžiau pasidaryti exelinį PVM SF registrą (čia iš pačiolio žurnalų), bet bandant suvest sąskaitos numerį meta, kad klaida.
Kaip ją taisyti? Gal kas patars...

Klaidos aprašymas (Visual Basic):

Object doesn't support this property or method (Error 438)


Not all objects support all properties and methods. This error has the following cause and solution:

You specified a method or property that doesn't exist for this Automation object.
See the object's documentation for more information on the object and check the spellings of properties and methods.

You specified a Friend procedure to be called late bound.
The name of a Friend procedure must be known at compile time. It can't appear in a late-bound call.



Problema gali buti skirtingomis EXCEL versijomis sukurtas ir atidaromas dokumentas. Taip pat klaida gali sukelti neinstaliuoti VBA komponentai MS Office instaliavimo metu. Esant galimybei, reitetu pabandyti atidaryti ta Excel dokumenta kituose kompiuteriuose.



Čia yra mano aprašyta (tiksliau nurašyta) funkcija, kad tikrintų vienodus numerius ar jų nėra. Bet vedant jau patį pirmąjį man išmeta aukščiau aprašytą klaidą. Pridedu ir pačios funkcijos aprašymą. Gal čia kas negerai?

Function VienodiNumeriai(SFNr As String) As Boolean
'*________________________________________________________________
'Ši funkcija tikrina, ar registre nėra tokio pat sąskaitos numerio
'Grąžina reikšmę true (teisingas).
'jei toks sąskaitos numeris jau yra įrašytas į registrą.
'Grąžina reikšmę false (klaidingas),
'jei tokio sąskaitos numerio registre nėra.
'*________________________________________________________________
Dim c As Range 'rastas langelis su tokiu pat numeriu
Dim r As Range
ActiveSheet.Unprotected
Set r = Range("A1").CurrentRegion.Columns("C")
ActiveSheet.Protect
VienodiNumeriai = False
For Each c In r.Cells
If c.Value = SFNr Then
VienodiNumeriai = True
c.Select
Exit For
End If
Next
End Function

Programavimas
74
#154168 2005-03-21 11:22 Programavimas redaguota: 2011-09-11 03-40

Tiesi rašė:

Ar yra kokia nors funkcija Excel, kuri gali "iškirpti" nurodytą ženklų skaičių? Left, Right palieka, o man reikia, kad naikintų.
Ar yra funkcija, dalinanti frazes? Kad viename stulpely po padalinimo liktų viena frazės dalis, kitame ar kituose - kitos?
Aš čia jau turbūt per gerai noriu smile



Galima manipuliuoti tomis paciomis tekstinemis funkcijomis LEFT, RIGHT, MID (si funkcija iveda nurodyto ilgio teksto atkarpanuo viso teksto nurodyto simbilio eiles numerio). Jei nesinori matyti, stulpeli su pilna fraze galima paslepti smile Tokios naikinimo funkcijos nera. Galima sukurti naujus stulpelius, juos perkopijuoti, o buvusi duomenu saltini pasalinti.

Funkcijos MID naudojimo sintakse: MID(text,start_num,num_chars).

Funkcija CONCATENATE apjungia teksta.

Jotjot
855
#154169 2005-03-21 11:22 Jotjot
Taip pat pabandyk REPLACE(old_text,start_num,num_chars,new_text)

Examples

REPLACE("abcdefghijk",6,5,"*") equals "abcde*k"

REPLACE("1990",3,2,"91") equals "1991"

REPLACE(A2,1,3,"@") equals "@456"

REPLACE(RIGHT(A3,6),1,6,"*") equals "*"

moliugelis
34
#154171 2005-03-21 11:26 moliugelis redaguota: 2011-09-11 03-40
[quote:43a59330f9]Pirmiausia susirasai visus menesius i stulpeli, tarkim A1:A12.
Toliau issikvieti Forms dialogo kortele, renkiesi Combo Box komponenta, piesi ji pageidaujamoje vietoje. Format Control korteleje Input Range nurodai A1:A12 ir OK [/quote]

Labai aciu Programavimas:)
Bet prie to pacio klausimelis dar vienas...
Kaip padaryti kad nesimatytu spausdinant rodykles ir kad pvz butu galima padaryti spalvotai... Banciau ir taip ir kitaip bet deja, siuo klausimu truksta isprusimo;)

Ledine
13
#154172 2005-03-21 11:29 Ledine redaguota: 2011-09-11 03-40

Programavimas rašė:



Ledine rašė:

Va. Reikia užpildyti spalvotus langelius. Kas pamokys ir paaiškins, kaip tą padaryt?:)



buteliukas smile



shirdingai dekoju:) bet buteliuku nebus smile

Programavimas
74
#154175 2005-03-21 11:30 Programavimas redaguota: 2011-09-11 03-40

TYTE rašė:



Programavimas rašė:



TYTE rašė:

Sveiki smile . Pabandžiau pasidaryti exelinį PVM SF registrą (čia iš pačiolio žurnalų), bet bandant suvest sąskaitos numerį meta, kad klaida.
Kaip ją taisyti? Gal kas patars...

Klaidos aprašymas (Visual Basic):

Object doesn't support this property or method (Error 438)


Not all objects support all properties and methods. This error has the following cause and solution:

You specified a method or property that doesn't exist for this Automation object.
See the object's documentation for more information on the object and check the spellings of properties and methods.

You specified a Friend procedure to be called late bound.
The name of a Friend procedure must be known at compile time. It can't appear in a late-bound call.



Problema gali buti skirtingomis EXCEL versijomis sukurtas ir atidaromas dokumentas. Taip pat klaida gali sukelti neinstaliuoti VBA komponentai MS Office instaliavimo metu. Esant galimybei, reitetu pabandyti atidaryti ta Excel dokumenta kituose kompiuteriuose.



Čia yra mano aprašyta (tiksliau nurašyta) funkcija, kad tikrintų vienodus numerius ar jų nėra. Bet vedant jau patį pirmąjį man išmeta aukščiau aprašytą klaidą. Pridedu ir pačios funkcijos aprašymą. Gal čia kas negerai?

Function VienodiNumeriai(SFNr As String) As Boolean
'*________________________________________________________________
'Ši funkcija tikrina, ar registre nėra tokio pat sąskaitos numerio
'Grąžina reikšmę true (teisingas).
'jei toks sąskaitos numeris jau yra įrašytas į registrą.
'Grąžina reikšmę false (klaidingas),
'jei tokio sąskaitos numerio registre nėra.
'*________________________________________________________________
Dim c As Range 'rastas langelis su tokiu pat numeriu
Dim r As Range
ActiveSheet.Unprotected
Set r = Range("A1").CurrentRegion.Columns("C")
ActiveSheet.Protect
VienodiNumeriai = False
For Each c In r.Cells
If c.Value = SFNr Then
VienodiNumeriai = True
c.Select
Exit For
End If
Next
End Function




Imesk ir pati EXCEL faila.

Programavimas
74
#154176 2005-03-21 11:32 Programavimas redaguota: 2011-09-11 03-40

Ledine rašė:



Programavimas rašė:



Ledine rašė:

Va. Reikia užpildyti spalvotus langelius. Kas pamokys ir paaiškins, kaip tą padaryt?:)



buteliukas smile



shirdingai dekoju:) bet buteliuku nebus smile



smile

moliugelis
34
#154177 2005-03-21 11:33 moliugelis
Aciu Tiesi smile ... Taip daug paprasciau:)

Programavimas
74
#154180 2005-03-21 11:39 Programavimas redaguota: 2011-09-11 03-40

moliugelis rašė:

[quote:d0d5655090]Pirmiausia susirasai visus menesius i stulpeli, tarkim A1:A12.
Toliau issikvieti Forms dialogo kortele, renkiesi Combo Box komponenta, piesi ji pageidaujamoje vietoje. Format Control korteleje Input Range nurodai A1:A12 ir OK



Labai aciu Programavimas:)
Bet prie to pacio klausimelis dar vienas...
Kaip padaryti kad nesimatytu spausdinant rodykles ir kad pvz butu galima padaryti spalvotai... Banciau ir taip ir kitaip bet deja, siuo klausimu truksta isprusimo;)[/quote]

Format Control - Properties - Print Object nuimti varna

Ledine
13
#154183 2005-03-21 11:47 Ledine
dar vieno dalykelio paklausiu (tik nesijuokit!):) Kaip atskirti sujungtas lasteles? smile

Programavimas
74
#154186 2005-03-21 11:50 Programavimas redaguota: 2011-09-11 03-40

Ledine rašė:

dar vieno dalykelio paklausiu (tik nesijuokit!):) Kaip atskirti sujungtas lasteles? smile



Pazymeti sujungtas lasteles Format Cells -Alignment - Merge Cells nuimti varna

Ledine
13
#154193 2005-03-21 11:57 Ledine redaguota: 2011-09-11 03-40

Programavimas rašė:



Ledine rašė:

dar vieno dalykelio paklausiu (tik nesijuokit!):) Kaip atskirti sujungtas lasteles? smile



Pazymeti sujungtas lasteles Format Cells -Alignment - Merge Cells nuimti varna



nu ka as galiu pasakyti..didelis diakui smile

Programavimas
74
#154196 2005-03-21 11:59 Programavimas redaguota: 2011-09-11 03-40

Ledine rašė:



Programavimas rašė:



Ledine rašė:

dar vieno dalykelio paklausiu (tik nesijuokit!):) Kaip atskirti sujungtas lasteles? smile



Pazymeti sujungtas lasteles Format Cells -Alignment - Merge Cells nuimti varna



nu ka as galiu pasakyti..didelis diakui smile



prasom. I sveikata

Tiesi
4093
#154198 2005-03-21 12:00 Tiesi redaguota: 2011-09-11 03-40
O dabar pasakyk, kaip Tu tą sudėtingą suradai - aš irgi pamėgint noriu :)


moliugelis rašė:

Aciu Tiesi smile ... Taip daug paprasciau:)


moliugelis
34
#154354 2005-03-21 15:23 moliugelis redaguota: 2011-09-11 03-40
[quote:734fad315d]
O dabar pasakyk, kaip Tu tą sudėtingą suradai - aš irgi pamėgint noriu :)

moliugelis rašė:
Aciu Tiesi ... Taip daug paprasciau:) [/quote]

Pirmiausia susirasai visus menesius i stulpeli, tarkim A1:A12.
Toliau issikvieti Forms dialogo kortele, renkiesi Combo Box komponenta, piesi ji pageidaujamoje vietoje. Format Control korteleje Input Range nurodai A1:A12 ir OK.

Tik man cia nelabai aisku, nes negaliu nei nuspalvinti, nei padaryti kad nesimatytu rodykleles... smile Pabandyk paziurek kaip tau iseis;)

Tiesi
4093
#154392 2005-03-21 16:08 Tiesi redaguota: 2011-09-11 03-40
Ghmmm... O kur tą Forms dialogo kortelę surast? smile
Kalbi kaip su asu, o aš tai žalia žalutėlė smile


moliugelis rašė:


Pirmiausia susirasai visus menesius i stulpeli, tarkim A1:A12.
Toliau issikvieti Forms dialogo kortele, renkiesi Combo Box komponenta, piesi ji pageidaujamoje vietoje. Format Control korteleje Input Range nurodai A1:A12 ir OK.

Tik man cia nelabai aisku, nes negaliu nei nuspalvinti, nei padaryti kad nesimatytu rodykleles... smile Pabandyk paziurek kaip tau iseis;)


Diskusijos

Kas prisijungęs?

Tu esi neprisijungęs vartotojas
Prisijungti arba registruotis

Atmintinė

Atmintinė buhalteriui
Delspinigiai už ne laiku sumokėtus mokesčius ir baudas 2021 m. I ketv. 0.03 proc
Palūkanos už naudojimąsi mokestine paskola 2021 m. I ketv. 0.01 proc
Valstybinio socialinio draudimo bazinė pensija
nuo 2021-01-01
198.29 EUR
Minimalus valandinis atlygis ir minimali mėnesinė alga (MMA)
nuo 2021-01-01
3.93 EUR ir 642 EUR