Excel

D
DaivaP 5451
2005-10-10 19:26 DaivaP 2011-09-11 03-52

Gita1 rašė: Man atrodo, kad Jūs, DaivaP, mane ne taip supratot

Tikrai, nesupratau. Bet tokio čiūdo niekad nemačiau. Man visada nusitrina tai, kas turi nusitrinti ir normaliai užsirašo naujas pav. smile smile
Paieškok kieto excelisto vardu Wertis. Gal jis padės smile
Gita1 Gita1 8424
2005-10-10 19:47 Gita1
Tai va, kad tikėjausi, kad jis bus, tai ir darbo namo parsinešiau smile ...o kur paieškot smile
Tiesi Tiesi 4035
2005-10-10 19:59 Tiesi 2011-09-11 03-52
Ne visai supratau. Ar nori pervardint lentelę?
Tuomet dešiniu pelės klavišu spaudi ant lentelės, kurią nori pervardint ir RENAME.
Tiesa, tame pačiame faile negali būt dviejų lentelių (sheet) tuo pačiu pavadinimu. Jei tokia lentelė jau yra, tuo pačiu pavadinimu kitos lentelės pervardinti neleis.


Gita1 rašė: Tai va, kad tikėjausi, kad jis bus, tai ir darbo namo parsinešiau smile ...o kur paieškot smile
Gita1 Gita1 8424
2005-10-10 20:05 Gita1
Tiesi, taip ir aš moku smile , va reikalas ir yra tame, kad kai pervardinu, tai priekyje dar parašo failo pavadinimą, o man jo nereik.
Tiesi Tiesi 4035
2005-10-10 20:14 Tiesi 2011-09-11 03-52
Pratrink duomenis (padaryk kopiją) ir atmesk į emeilą. Tikrai smalsu pasidarė smile


Gita1 rašė: Tiesi, taip ir aš moku smile , va reikalas ir yra tame, kad kai pervardinu, tai priekyje dar parašo failo pavadinimą, o man jo nereik.
Tiesi Tiesi 4035
2005-10-10 21:03 Tiesi
Viskas gražiai trinasi ir koreguojasi. Įmečiau atgal. Nebent vėl išsikraipytų smile
Kas atsidarė?
Gita1 Gita1 8424
2005-10-10 22:03 Gita1
Žinot, kas įdomiausia, kopijoj viskas tvarkosi, o vat originale ne smile , ten turbūt kažkas suprogramuota.
A
A_Arvis 128
2005-10-12 20:57 A_Arvis
Rasau jau trecia syki smile Dabar turbut jau pataikiau.
Zmogiukai padekit pls. aiskus jei tai imanoma. Turiu prisidares tam tikras macroso komandas kurios man keicia labai daug ka - formatai, formules, kas nereikalinga pasalina, reikalinga iterpia ir viskas yra chiki, ir viso to yra tikrai nemazai o raktas yra pavadinime kuriam ir reikia pritaikyti vienoki ar kitoki macrosa. Taigi klausimuks ar imanoma kokiu nors budu suaktivinti makrosa formules atsakymu
P.S. Atskiru failu poreikis netinka.
W
Wertis 308
2005-10-12 21:53 Wertis 2011-09-11 03-52

A_Arvis rašė: Rasau jau trecia syki smile Dabar turbut jau pataikiau.
Zmogiukai padekit pls. aiskus jei tai imanoma. Turiu prisidares tam tikras macroso komandas kurios man keicia labai daug ka - formatai, formules, kas nereikalinga pasalina, reikalinga iterpia ir viskas yra chiki, ir viso to yra tikrai nemazai o raktas yra pavadinime kuriam ir reikia pritaikyti vienoki ar kitoki macrosa. Taigi klausimuks ar imanoma kokiu nors budu suaktivinti makrosa formules atsakymu
P.S. Atskiru failu poreikis netinka.
Na kad reaguotų į formulę deja nesugalvoju kaip tai padaryt. Galiu tik patart kaip padaryt kad reaguotų į tiesiogiai įvedamą reikšmę smile
A
A_Arvis 128
2005-10-12 22:00 A_Arvis 2011-09-11 03-52
[/quote] Na kad reaguotų į formulę deja nesugalvoju kaip tai padaryt. Galiu tik patart kaip padaryt kad reaguotų į tiesiogiai įvedamą reikšmę smile
[/quote]

Hmmm, gal ir tiktu, nes ta poreiki sudaro butent pavadinimas
W
Wertis 308
2005-10-12 22:18 Wertis 2011-09-11 03-52
Atsidarai VBA langą (kuriame rašai macros), kairėje turėtų būtų langelis su išvardintomis lentelėmis bei moduliais. Dukart paspausk pele ant norimos lentelės pavadinimo. Atsidariusiame naujame lange suvedi sekantį kodą:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Select Case Target
Case 1: MacrosA
Case 2: MacrosB
Case 3: MacrosC
End Select
End If
End Sub

Sub MacrosA()
End Sub

Sub MacrosB()
End Sub

Sub MacrosC()
End Sub

Vietoje $A$1 įvesk reikiamos ląstelės adresą, pakoreguok galimas tos ląstelės reikšmes 1, 2, 3, vietoje MacrosA, MacrosB, MacrosC patalpink savuosius makrosus.

A
A_Arvis 128
2005-10-13 07:32 A_Arvis 2011-09-11 03-52

Wertis rašė: Atsidarai VBA langą (kuriame rašai macros), kairėje turėtų būtų langelis su išvardintomis lentelėmis bei moduliais. Dukart paspausk pele ant norimos lentelės pavadinimo. Atsidariusiame naujame lange suvedi sekantį kodą:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Select Case Target
Case 1: MacrosA
Case 2: MacrosB
Case 3: MacrosC
End Select
End If
End Sub

Sub MacrosA()
End Sub

Sub MacrosB()
End Sub

Sub MacrosC()
End Sub

Vietoje $A$1 įvesk reikiamos ląstelės adresą, pakoreguok galimas tos ląstelės reikšmes 1, 2, 3, vietoje MacrosA, MacrosB, MacrosC patalpink savuosius makrosus.




Ideja gal tikrai nebloga, bet yra sioks toks bet. Niekada nera teke rasyti VBA naujo macroso juos esu dares n kartu tik auto irasymo budu bei nereikalingus fragmentus paredaguodavau tame VBA - fontu, size, sriftu isvalymas po auto iraso. Taigi jei gali pakuoreguok ta savo pasiulyma. Dekui
W
Wertis 308
2005-10-13 07:40 Wertis 2011-09-11 03-52
turiu eit į darbą. pagalvok ir parašyk kas konkrečiai neaišku
A
A_Arvis 128
2005-10-13 19:31 A_Arvis 2011-09-11 03-52

Wertis rašė: turiu eit į darbą. pagalvok ir parašyk kas konkrečiai neaišku


Na turbut nedasunta man ta vieta kur reikia ivesti IF reiksmes per VBA, visa kita lyg ir gerai.

Na o cia kiek suprantu turi buti mano Macrosai?
Sub MacrosA()
End Sub

Sub MacrosB()
End Sub

Sub MacrosC()
End Sub
W
Wertis 308
2005-10-13 20:12 Wertis 2011-09-11 03-52
IF reikšmes vedi vietoje 1, 2, 3. Esmė tokia: jei reikšmė 1 - bus vykdomas MacrosA, jei 2 - MacrosB,..
Taip ten turi būti tavo macro (teisingiau sakyti VBA procedūros)

A
A_Arvis 128
2005-10-13 22:42 A_Arvis 2011-09-11 03-52

Wertis rašė: IF reikšmes vedi vietoje 1, 2, 3. Esmė tokia: jei reikšmė 1 - bus vykdomas MacrosA, jei 2 - MacrosB,..



Nu vsio amba man visiskai kiek visko isbandziau ir nieko nepesiau, kurioje gi vietoje ta auksine vieta kur duomenu reiksmes IF tame VBA reik ivesti nes A1 ka berasyciau nieko nevyksta

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Select Case Target
Case 1: MacroA
Case 2: MacroB
Case 3: MacroC
End Select
End If
End Sub
Jei gali paaiskin kaip zaliam, as gi stalius, o ne programeris, bet man excelis padaro tai ko nepadaro nei viena baldu projektavimo programa.
W
Wertis 308
2005-10-13 22:55 Wertis 2011-09-11 03-52
Jeigu tavo sąlyga yra tokia:

=IF(A1=1;runMacro1;IF(A1=2;runMacro3;0))

realizuota tai būtų sekančiai:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Select Case Target
Case 1: Macro1
Case 2: Macro3
End Select
End If
End Sub

beje, patalpinti ją reikia ne bet kur, apie tai rašiau anksčiau. savo macros taip pat siūlyčiau persikelt ten pat tik žemiau.

W
Wertis 308
2005-10-13 23:02 Wertis 2011-09-11 03-52
atsiųsk, kokį ten stebuklą pasidarei, įdomu. tuo pačiu sutvarkysiu.
A
A_Arvis 128
2005-10-14 07:37 A_Arvis 2011-09-11 03-52

Wertis rašė: atsiųsk, kokį ten stebuklą pasidarei, įdomu. tuo pačiu sutvarkysiu.


Stebuklas hmmm... nejoks cia ne stebuklas. Paprasciausiai yra toks niuansas kaip baldu gaminio detalizacija kuria reikia numatyti ir neapsirikti(kas labai daznai ivyksta, ne man o projektuotojams, bet renku as ir paskui knisuosi) stalciu detales, stumdomu duru prasikeitimai ir max stalciaus plotis, duru auksciai kintami nuo ivairiausiu navorotu(kanizai halogenines lentos, paciu duru mechanizmai ir t.t. ir kaip tycia jie is savo profesanalumo ivelia klaidu. Atsiusti ta faila... nebent kai ji sutvarkysiu, nes jame dabar toks bardakas kuriame as pats vos gaudausi, o ji susitvarkyti greitai galeciau butent su tuom stebuklingu makroso pasileidimu kuris keistu formules bei uzpildymo blanko laukus priklausomai nuo gaminio pavadinimo.
W
Wertis 308
2005-10-14 10:29 Wertis 2011-09-11 03-52
na tai ar pavyko?
Tu esi neprisijungęs vartotojas
Prisijungti arba registruotis
Tax.lt © 2002 - 2024, admin@tax.lt, Reklama tax.lt

Buhalterinės apskaitos sistema internete smulkiam ir vidutiniam verslui