Excel

W
Wertis 308
2005-10-17 20:28 Wertis 2011-09-11 03-52
ir kalba eina apie lentelės ar apie VBA funkciją?
R
Rola_ndas 360
2005-10-17 20:33 Rola_ndas 2011-09-11 03-52

A_Arvis rašė: ir vel reik helpo smile Kazkada lyg ir bandziau, bet nebepamenu ar yra formule kuri pazintu cele kaip su irasu ar be. Celeje gali buti ir skaicius ir tekstas arba nieko. Jei kas zinot padekit pls.


jojo, nesupratau nieko...
paaiškink koks tokio atskirimo tikslas... gal formule atseksima...
panašiai daro count(x:y)
W
Wertis 308
2005-10-17 20:38 Wertis 2011-09-11 03-52
smile klaipėdiečiai klaipėdiečiams. Klaipėda - Lietuvos Excel sostinė! smile
A
A_Arvis 128
2005-10-17 20:45 A_Arvis
kalba apie tai i B2 reik tokios formules =IF(A1= jei yra yrasyta kas nors;"Gerai";"Blogai")

Wetis> Klaipedos sostine "Švyturys"
A
A_Arvis 128
2005-10-17 20:47 A_Arvis
Wertis o nuo formules atsakymo neina padaryti macru paleidimo ar tik nuo tiesioginio yraso jie tegali suveikti?
W
Wertis 308
2005-10-17 20:51 Wertis 2011-09-11 03-52

A_Arvis rašė: kalba apie tai i B2 reik tokios formules =IF(A1= jei yra yrasyta kas nors;"Gerai";"Blogai")

Wetis> Klaipedos sostine "Švyturys"


=if(isblank(A1);"Blogai;"Gerai")
arba
=if(A1<>"";"Gerai";"Blogai")

W
Wertis 308
2005-10-17 21:02 Wertis 2011-09-11 03-52

A_Arvis rašė: Wertis o nuo formules atsakymo neina padaryti macru paleidimo ar tik nuo tiesioginio yraso jie tegali suveikti?


sugalvojau, eina! tai realizuoja sekantis kodas:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Text <> "" Then
MsgBox "Làstelë " & Target.Address & " ne tuðèia"
Else
MsgBox "Làstelë " & Target.Address & "tuðèia"
End If
End If
End Sub

A
A_Arvis 128
2005-10-17 21:10 A_Arvis 2011-09-11 03-52
=if(isblank(A1);"Blogai;"Gerai")
arba
=if(A1<>"";"Gerai";"Blogai")

[/quote]

Wertis Dekui
A
A_Arvis 128
2005-10-17 21:16 A_Arvis 2011-09-11 03-52

Wertis rašė:

A_Arvis rašė: Wertis o nuo formules atsakymo neina padaryti macru paleidimo ar tik nuo tiesioginio yraso jie tegali suveikti?


sugalvojau, eina! tai realizuoja sekantis kodas:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Text <> "" Then
MsgBox "Làstelë " & Target.Address & " ne tuðèia"
Else
MsgBox "Làstelë " & Target.Address & "tuðèia"
End If
End If
End Sub





Nu man uzkart erora meta ir perkelia mane i VBE pazymedama sia eilute:
Private Sub Worksheet_Change(ByVal Target As Range)
W
Wertis 308
2005-10-17 21:21 Wertis 2011-09-11 03-52
kol nematysiu nelabai ką padėsiu..
A
A_Arvis 128
2005-10-17 21:22 A_Arvis
O pranesimus eina gauti su Data/Validation...
A
A_Arvis 128
2005-10-17 21:26 A_Arvis 2011-09-11 03-52

Wertis rašė: kol nematysiu nelabai ką padėsiu..

Raso teip: Compile error: Ambiguous neme detected: Worksheet_Change
W
Wertis 308
2005-10-17 21:27 Wertis 2011-09-11 03-52

A_Arvis rašė: O pranesimus eina gauti su Data/Validation...
iš klausimo matau, jog žinai, kad eina. pranešimus apie ką ir kam? visada konkretizuok apie ką kalbi.
A
A_Arvis 128
2005-10-17 21:42 A_Arvis 2011-09-11 03-52

Wertis rašė:

A_Arvis rašė: O pranesimus eina gauti su Data/Validation...
iš klausimo matau, jog žinai, kad eina. pranešimus apie ką ir kam? visada konkretizuok apie ką kalbi.


Nu vsio jau musiek reik jungti lauk ta kompa, arba reik "Švyturio" atsidaryti.
Taip sutinku neaiskiai issireiskiau, Sorry. Cia kiek supratau turetu ismesti pranesima (o gal klystu):
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Text <> "" Then
MsgBox "Làstelë " & Target.Address & " ne tuðèia"
Else
MsgBox "Làstelë " & Target.Address & "tuðèia"
End If
End If
End Sub
Todel kazkaip atsiminiau apie ismetamus prnesimus Validation...
O sis mano teiginys tai skirtas prie preitos savaites temos:
Wertis o nuo formules atsakymo neina padaryti macru paleidimo ar tik nuo tiesioginio yraso jie tegali suveikti?
Nes ta problema kuria tu isprendei i formuliu atsakyma jos nereguoja, kas butu kai kur tikrai neprosal.
Wertis Nepyk jei as cia gryba pjaunu.
W
Wertis 308
2005-10-17 21:59 Wertis 2011-09-11 03-52
jo, tu teisus. susimaišiau. į formulių rezultatą nereaguoja. kaip ir galima būtų padaryti ir taip, bet jau čia būtų per aplinkui. kadangi nėra procedūros kuri reaguotų į pasikeitusią formulės apskaičiuotą reikšmę. kaip galima būtų tai apeiti? gremėzdiškai. ląstelės, kurioje yra formulė, reikšmę išsisaugoti kurioje nors kitoje ląstelėje(x), o procedūrai sureagavus į pokyčius bet kurioje ląstelėje atlikti sulyginimą ar ląstelės su formule reikšmė atitinka ląstelės x reikšmę. jei ne - vykdyti tam tikras komandas. va
R
Rola_ndas 360
2005-10-18 09:15 Rola_ndas 2011-09-11 03-52

Wertis rašė: jo, tu teisus. susimaišiau. į formulių rezultatą nereaguoja. kaip ir galima būtų padaryti ir taip, bet jau čia būtų per aplinkui. kadangi nėra procedūros kuri reaguotų į pasikeitusią formulės apskaičiuotą reikšmę. kaip galima būtų tai apeiti? gremėzdiškai. ląstelės, kurioje yra formulė, reikšmę išsisaugoti kurioje nors kitoje ląstelėje(x), o procedūrai sureagavus į pokyčius bet kurioje ląstelėje atlikti sulyginimą ar ląstelės su formule reikšmė atitinka ląstelės x reikšmę. jei ne - vykdyti tam tikras komandas. va



Na, o negalima taip, susikurti forma, kuri automatiskai atsidaro atidarant excel, taciau yra nematoma (ar paslepta). Tada, keiciantis tam tikros celės skaiciui keiciasi reiksme formoje, o nuo reiksmes formoje vyktu macro komandu pasikeitimai.
Antra vertus paprasciausia butu sukurti viena macro komanda, kurios viduje butu kitos komandos, ir paleisti pasidaryto klaviso (ekrane) paspaudimu, ar klavisiu kombinacijos paspaudimu. Tai buti irgi paprasta.
W
Wertis 308
2005-10-18 10:48 Wertis 2011-09-11 03-52
mintis apie formą buvo gan geras sprendimas. patalpinau nematomą textbox laukelį lentelėje, kuris ir reaguoja į pasikeitusią reikšmę.
Book1.xls
A
A_Arvis 128
2005-10-18 22:27 A_Arvis
Sveiki! Gal galetumet dar viena paslapti atskleisti :)
kai i worksheeta irasomas vienas kodas Private Sub Worksheet_Change(ByVal target As Range) irasius antra private sub... jie kaip ir pjautis tarpusavyje pradeda, gal juos reik kazkaip uzvadinti kazkaip tipo Private sub1 Private sub2 ?
Dekui
W
Wertis 308
2005-10-18 23:37 Wertis 2011-09-11 03-52

A_Arvis rašė: Sveiki! Gal galetumet dar viena paslapti atskleisti :)
kai i worksheeta irasomas vienas kodas Private Sub Worksheet_Change(ByVal target As Range) irasius antra private sub... jie kaip ir pjautis tarpusavyje pradeda, gal juos reik kazkaip uzvadinti kazkaip tipo Private sub1 Private sub2 ?
Dekui
tai jau taip. bet į lentelės pokyčius reaguos vien tik originalus pavadinimas.
K
klaudas07 408
2005-10-19 14:25 klaudas07
Padėkite, kodėl nerikiuoja?
Ačiū rikiavimas.xls
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