Excel ir Access naudojimas apskaitoje
P
2005-03-21 10:57
Programavimas
2011-09-11 03-40
TYTE rašė: Sveiki
. 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.
TYTE rašė: Sveiki
. 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
4035
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
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
Tiesi
4035
2005-03-21 11:13
Tiesi
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.
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.
J
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)
Examples
MID("Fluid Flow",1,5) equals "Fluid"
MID("Fluid Flow",7,20) equals "Flow"
MID("1234",5,5) equals "" (empty text)
T
2005-03-21 11:21
TYTE
2011-09-11 03-40
Programavimas rašė:
TYTE rašė: Sveiki . 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 rašė:
TYTE rašė: Sveiki
. 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
P
2005-03-21 11:22
Programavimas
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
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 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.
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
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
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.
J
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 "*"
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 "*"
M
2005-03-21 11:26
moliugelis
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;)
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;)
L
2005-03-21 11:29
Ledine
2011-09-11 03-40
Programavimas rašė:
Ledine rašė: Va. Reikia užpildyti spalvotus langelius. Kas pamokys ir paaiškins, kaip tą padaryt?:)
buteliukas
shirdingai dekoju:) bet buteliuku nebus
Programavimas rašė:
Ledine rašė: Va. Reikia užpildyti spalvotus langelius. Kas pamokys ir paaiškins, kaip tą padaryt?:)
buteliukas
shirdingai dekoju:) bet buteliuku nebus
P
2005-03-21 11:30
Programavimas
2011-09-11 03-40
TYTE rašė:
Programavimas rašė:
TYTE rašė: Sveiki . 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.
TYTE rašė:
Programavimas rašė:
TYTE rašė: Sveiki
. 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.
P
2005-03-21 11:32
Programavimas
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
shirdingai dekoju:) bet buteliuku nebus
Ledine rašė:
Programavimas rašė:
Ledine rašė: Va. Reikia užpildyti spalvotus langelius. Kas pamokys ir paaiškins, kaip tą padaryt?:)
buteliukas
shirdingai dekoju:) bet buteliuku nebus
M
P
2005-03-21 11:39
Programavimas
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
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
L
2005-03-21 11:47
Ledine
dar vieno dalykelio paklausiu (tik nesijuokit!):) Kaip atskirti sujungtas lasteles? 
P
2005-03-21 11:50
Programavimas
2011-09-11 03-40
Ledine rašė: dar vieno dalykelio paklausiu (tik nesijuokit!):) Kaip atskirti sujungtas lasteles?
Pazymeti sujungtas lasteles Format Cells -Alignment - Merge Cells nuimti varna
Ledine rašė: dar vieno dalykelio paklausiu (tik nesijuokit!):) Kaip atskirti sujungtas lasteles?
Pazymeti sujungtas lasteles Format Cells -Alignment - Merge Cells nuimti varna
L
2005-03-21 11:57
Ledine
2011-09-11 03-40
Programavimas rašė:
Ledine rašė: dar vieno dalykelio paklausiu (tik nesijuokit!):) Kaip atskirti sujungtas lasteles?
Pazymeti sujungtas lasteles Format Cells -Alignment - Merge Cells nuimti varna
nu ka as galiu pasakyti..didelis diakui
Programavimas rašė:
Ledine rašė: dar vieno dalykelio paklausiu (tik nesijuokit!):) Kaip atskirti sujungtas lasteles?
Pazymeti sujungtas lasteles Format Cells -Alignment - Merge Cells nuimti varna
nu ka as galiu pasakyti..didelis diakui
P
2005-03-21 11:59
Programavimas
2011-09-11 03-40
Ledine rašė:
Programavimas rašė:
Ledine rašė: dar vieno dalykelio paklausiu (tik nesijuokit!):) Kaip atskirti sujungtas lasteles?
Pazymeti sujungtas lasteles Format Cells -Alignment - Merge Cells nuimti varna
nu ka as galiu pasakyti..didelis diakui
prasom. I sveikata
Ledine rašė:
Programavimas rašė:
Ledine rašė: dar vieno dalykelio paklausiu (tik nesijuokit!):) Kaip atskirti sujungtas lasteles?
Pazymeti sujungtas lasteles Format Cells -Alignment - Merge Cells nuimti varna
nu ka as galiu pasakyti..didelis diakui
prasom. I sveikata
Tiesi
4035
2005-03-21 12:00
Tiesi
2011-09-11 03-40
O dabar pasakyk, kaip Tu tą sudėtingą suradai - aš irgi pamėgint noriu :)
moliugelis rašė: Aciu Tiesi
... Taip daug paprasciau:)
moliugelis rašė: Aciu Tiesi
... Taip daug paprasciau:)M
2005-03-21 15:23
moliugelis
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... Pabandyk paziurek kaip tau iseis;)
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...
Pabandyk paziurek kaip tau iseis;)
Tiesi
4035
2005-03-21 16:08
Tiesi
2011-09-11 03-40
Ghmmm... O kur tą Forms dialogo kortelę surast?
Kalbi kaip su asu, o aš tai žalia žalutėlė
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... Pabandyk paziurek kaip tau iseis;)
Kalbi kaip su asu, o aš tai žalia žalutėlė
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...
Pabandyk paziurek kaip tau iseis;)
Tax.lt © 2002 - 2024, admin@tax.lt,
Reklama tax.lt
Buhalterinės apskaitos sistema internete smulkiam ir vidutiniam verslui