Tax.lt narys Wertis
W
- Tax.lt narys nuo
- 2004-11-21
- Wertis
- forume parašė 308 žinučių
Naujausios žinutės:
2005-10-19 19:25
Programinė įranga »
Excel »
#216473
galima. viskas rašoma toje pačioje procedūroje. maždaug:
if target.address="$A$1" then
select case target.value
case 1: macro1
case 2: macro2
end select
end if
if target.address="$B$1" then
select case target.value
case 1: macro3
case 2: macro4
end select
end if
if target.address="$A$1" then
select case target.value
case 1: macro1
case 2: macro2
end select
end if
if target.address="$B$1" then
select case target.value
case 1: macro3
case 2: macro4
end select
end if
2005-10-19 14:44
Programinė įranga »
Excel »
#216374
apie ląstelės reikšmės formatavimą voba.apie.lt/?page_id=10906
2005-10-19 14:27
Programinė įranga »
Excel »
#216365
kai kurios sąrašo ląstelės yra formatuotos kaip tekstas.
2005-10-18 23:37
Programinė įranga »
Excel »
#216118
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.
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
2005-10-18 10:48
Programinė įranga »
Excel »
#215788
mintis apie formą buvo gan geras sprendimas. patalpinau nematomą textbox laukelį lentelėje, kuris ir reaguoja į pasikeitusią reikšmę.
2005-10-17 21:59
Programinė įranga »
Excel »
#215675
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
2005-10-17 21:27
Programinė įranga »
Excel »
#215661
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_Arvis rašė: O pranesimus eina gauti su Data/Validation...
2005-10-17 21:02
Programinė įranga »
Excel »
#215652
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_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
2005-10-17 20:51
Programinė įranga »
Excel »
#215648
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")
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")
2005-10-17 20:38
Programinė įranga »
Excel »
#215641
klaipėdiečiai klaipėdiečiams. Klaipėda - Lietuvos Excel sostinė! 
klaipėdiečiai klaipėdiečiams. Klaipėda - Lietuvos Excel sostinė!
2005-10-17 20:28
Programinė įranga »
Excel »
#215636
ir kalba eina apie lentelės ar apie VBA funkciją?
2005-10-17 20:25
Programinė įranga »
Excel »
#215634
A_Arvis rašė: ir vel reik helpo
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. paaiškink
A_Arvis rašė: ir vel reik helpo
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.
2005-10-16 23:16
Programinė įranga »
Word - skaiciai paverciami zodziais »
#215418
gal dar prie to paties. worde suma žodžiais. chm, įdomu. sumos žodžiais prireikia kai ta suma apskaičiuojama formulėmis iš kitų duomenų ir gan dažnai keičiasi, tačiau kam word tekste suma žodžiais, juk jei ji ir keičiasi tai turbūt retai, o ir yra ne išskaičiuojama, o nurodoma tiesiogiai. gal ko nesuprantu, nupieškit situaciją kada jums worde suma žodžiais tikrai praverstų.
2005-10-16 20:51
Programinė įranga »
Excel »
#215413
Dodi rašė: Kaip skaičiais parašytas sumas paversti žodžiais aiškiai pateikta šiuo adresu: < verslas.banga.lt/lt/leidinys.full/3edde8495be1b>
ir dar čia voba.apie.lt/?page_id=10947
Dodi rašė: Kaip skaičiais parašytas sumas paversti žodžiais aiškiai pateikta šiuo adresu: < verslas.banga.lt/lt/leidinys.full/3edde8495be1b>
ir dar čia voba.apie.lt/?page_id=10947
2005-10-15 16:31
Gyventojų pajamų mokestis »
e-verslo legalizavimas »
#215337
to Artas71: konkrečiu atveju nelabai kas nori šviestis, o tai ir nėra svarbu. čia tax.lt nurodžiau, kaip pvz. įdomu, tik kaip tokios pajamos apmokestinamos, nes girdėjau, kad tokiu atveju nelabai kokius mokesčius ir moka. ar tai jau pajamų slėpimas 
apšvieskit kas išmanot.
apšvieskit kas išmanot.
2005-10-15 15:02
Programinė įranga »
Excel »
#215332
A_Arvis rašė: Na gal dar biskuti klausimuks, gal kazka pakeitus eina kopinti ir ne tik i kitus sheetus nesokinejant i juos, nesinori to mirksejimo matyti
Range("A11").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("B12").Select
End Sub
po Sub ... įterpk tokią eilutę:
Application.ScreenUpdating = False
o prieš End Sub tokią:
Application.ScreenUpdating = True
A_Arvis rašė: Na gal dar biskuti klausimuks, gal kazka pakeitus eina kopinti ir ne tik i kitus sheetus nesokinejant i juos, nesinori to mirksejimo matyti
Range("A11").Select
Selection.Copy
Sheets("Sheet2").Select
Range("A5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("B12").Select
End Sub
po Sub ... įterpk tokią eilutę:
Application.ScreenUpdating = False
o prieš End Sub tokią:
Application.ScreenUpdating = True
2005-10-15 07:23
Gyventojų pajamų mokestis »
e-verslo legalizavimas »
#215303
Kaip yra kai situacija tokia kaip tax.lt, manau. kai firma, besirūpinanti reklamos banerių teikimu, sumoka už jų parodymus. realiai joks darbas nėra atliekamas. gal tai labiau panašėja į nuomą. kaip toks atvejis traktuojamas ir kokie mokesčiai privalomi?
2005-10-14 21:46
Programinė įranga »
Excel »
#215282
Va kaip tai veikia.
Beje, tam kad veiktų macros, reikia excel'yje nueiti Tools / Macro / Security ir nustatyti Low. Tada iš naujo pasileisti excel.
Maniau, kad išmanai daugiau. Nors ir turėsi jau veikiantį pvz, labai abejoju, kad pavyks pačiam pasidaryti ko nori. Rašiau kur patalpinti nurodytą kodą, o tu padėjai visai kitur ir dar procedūros viduryje
Pabandykim dar kartą: mano nurodytas kodas yra įdėtas ne Module1, o Sheet1. Ten patekti gali dukart spustelėjęs pele ant kairėje viršuje VBA lango esančio lentelės pavadinimo Sheet1.
Sėkmės.
Beje, tam kad veiktų macros, reikia excel'yje nueiti Tools / Macro / Security ir nustatyti Low. Tada iš naujo pasileisti excel.
Maniau, kad išmanai daugiau. Nors ir turėsi jau veikiantį pvz, labai abejoju, kad pavyks pačiam pasidaryti ko nori. Rašiau kur patalpinti nurodytą kodą, o tu padėjai visai kitur ir dar procedūros viduryje
Pabandykim dar kartą: mano nurodytas kodas yra įdėtas ne Module1, o Sheet1. Ten patekti gali dukart spustelėjęs pele ant kairėje viršuje VBA lango esančio lentelės pavadinimo Sheet1.
Sėkmės.
2005-10-13 23:02
Programinė įranga »
Excel »
#214980
atsiųsk, kokį ten stebuklą pasidarei, įdomu. tuo pačiu sutvarkysiu.
2005-10-13 22:55
Programinė įranga »
Excel »
#214979
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.
=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.
2005-10-13 20:12
Programinė įranga »
Excel »
#214961
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)
Taip ten turi būti tavo macro (teisingiau sakyti VBA procedūros)
2005-10-13 07:40
Programinė įranga »
Excel »
#214606
turiu eit į darbą. pagalvok ir parašyk kas konkrečiai neaišku
2005-10-12 22:18
Programinė įranga »
Excel »
#214592
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.
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.
2005-10-12 21:53
Programinė įranga »
Excel »
#214588
A_Arvis rašė: Rasau jau trecia syki 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ę
A_Arvis rašė: Rasau jau trecia syki
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.
2005-10-12 20:38
Programinė įranga »
kompiuteris »
#214564
airin rašė: Ką gi dabar bent žinosiu, kad problema monitoriuje. Teks taisyti.
iš mano kuklios patirties, jei jau monitorius žaliuoja ar mėlynuoja, labai galimas dalykas, kad prisieis apturėti naują
airin rašė: Ką gi dabar bent žinosiu, kad problema monitoriuje. Teks taisyti.
2005-10-12 20:04
Programinė įranga »
kompiuteris »
#214553
airin rašė: Kas galėjo atsitikti su kompiuteriu. Visas vaizdas staiga pažaliavo
DAbar viskas kaip per žalius akinius. Siaubas kažkoks. Kas galėjo sugesti ar monitorius ar pačiam komiuteryje 
arba monitorius parėjo arba pabandyk laidą geriau ikišti. kartais laidą pakeisti padeda.
airin rašė: Kas galėjo atsitikti su kompiuteriu. Visas vaizdas staiga pažaliavo
DAbar viskas kaip per žalius akinius. Siaubas kažkoks. Kas galėjo sugesti ar monitorius ar pačiam komiuteryje
2005-10-12 11:20
Programinė įranga »
Reik Help is Exel=io »
#214334
A_Arvis rašė: Ar eina kokiu nors budu susiaktivinti irasytai macro comandai nuo celeje gautu duomenu ? Pvz. jei A1 = 1 turi susiaktivinti Macro1 ir jei toje pat celeje A1 = 3 suveikia Macro2, o jei kiti skaiciai tai nevyksta nieko.
tipo: =IF(A1=1;runMacro1;IF(A1=2;runMacro3;0))
Na ir prie to paties ar formules pagalba nuo tam tikru duomenu gali keisti celes spalva ir uzdeti linijas
Is anksto dekoju Galima ir taip padaryti :)
A_Arvis rašė: Ar eina kokiu nors budu susiaktivinti irasytai macro comandai nuo celeje gautu duomenu ? Pvz. jei A1 = 1 turi susiaktivinti Macro1 ir jei toje pat celeje A1 = 3 suveikia Macro2, o jei kiti skaiciai tai nevyksta nieko.
tipo: =IF(A1=1;runMacro1;IF(A1=2;runMacro3;0))
Na ir prie to paties ar formules pagalba nuo tam tikru duomenu gali keisti celes spalva ir uzdeti linijas
Is anksto dekoju
Tax.lt © 2002 - 2024, admin@tax.lt,
Reklama tax.lt
Buhalterinės apskaitos sistema internete smulkiam ir vidutiniam verslui