Excel

kai kurios sąrašo ląstelės yra formatuotos kaip tekstas.

Ačiū, bandysiu pakeisti

apie ląstelės reikšmės formatavimą voba.apie.lt/?page_id=10906

Hmmm...nejaugi negalima kelias funkcijas padaryti 2 ar net 5 pvz i A1 reguoja 3 if reiksmes po to reik kad B2 irgi butu paklusni Worksheet_Change ir taip t.t.
Cia vis apie ta macru pasileidima nuo ivestu duomenu i tam tikra cele

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

Wertis aciu dar syki. Sakyk zmogau gal kokios geros literaturos galetum pasiulyti apie exceli.

na apie excelį šiek tiek voba.apie.lt
apie VBA ir pan. bus ateityje naujoje svetainėje.

šiaip literatūros exceliui išmokti neskaičiau jokios. kai pamatęs knygyne nusipirkau rusišką knygelę apie Excel VBA, kažko naujo joje jau neradau. šovė tik mintis: kaip nuobodu būtų iš jos ką dabar mokytis. paprasčiausiai studink gautą record'intą kodą, VBA helpą paskaitinėk, pasiklausinėk čia kai kur užstrigsi. tiek žinių. sėkmės.

Jooo... Toli pazengem nuo 97 metu, tada kai labai reikejo isigyjau V.Šakys Excel 97 knyga, ja ir siai dienai laikau gera knyga, tik gaila tai kad paseno daug kas nuo Office97. o nuo 98 nebereikejo excelio, tai ir makauleje daug kas pamirsto jau. Šis formas tikrai jėga.

Na taip, neblogos ne tik buhalterijos, bet ir excel pamokos :). Kas link VBA, nžnau kiek moka Wertis, tačiau pasigilinęs į excel forumus internete supratau, kad zinau 0.0001 proc. , tačiau patarinėti jau galiu , nes teko kadaise univere kurti macrosus, kurie vartojui jau per daug sudėtingi, tai su draugu buvom užsiedę ir giliai kapstėmės , iki ciklų ir spalvų kodų ir t.t. Excelis - fainas dalykas

Na kagi vel blin pribrendo reikalas prasyti pagalbos :(
Vel gi reikia kad nuo irasyto tam tikro teksto islystu tipo mesage box su tam tikru irasu ir su dviem atsakymu variantais "Taip" ir "Ne", atsakymu variantai turetu paleisti tam tikras macro komandas. Manau, kad tai imanoma, bet tai tikrai ne mano nosei.

If MsgBox("Ar tikrai taip?", vbYesNo) = vbYes Then
MacroTaip
Else
MacroNe
End If

pranešk kaip pavyko

If MsgBox("Ar tikrai taip?", vbYesNo) = vbYes Then
MacroTaip
Else
MacroNe
End If

pranešk kaip pavyko

[/quote]

Wertis kiek supratau pradedi kankinima biški :) tai turbut hrenovas mokinys aš ir tikrai šiu teiginių dajungti niekur negaliu nors bandžiau daug ką darašyti ar pakeisti nieks iškyrus klaidų nesigavo:( kiek iš tavo kom. eilutės supratau tai, kad čia trūksta to msg pasileidimo adreso tipo: If target.Address = "$D$20" Then. ar kaip kitaip.

if Target.Address = "$D$20" Then
If MsgBox("Ar tikrai taip?", vbYesNo) = vbYes Then
MacroTaip
Else
MacroNe
End If
End if

Šiek tiek ne į temą, bet nenoriu atidarinėti naujos temos. Kai programoje KONTO noriu pažiūrėti ataskaitą Print Preview Landscape formate, nerodo kas yra parašyta lapo dešinėje pusėje, nors atspauzdina kaip priklauso. Agentas suvertė kaltę mano Windows XP. Ką man reikėtu papurtyti ar agentus ar kas instaliavo Windows.
Gal į temą apie KONTO reikėjo rašyti

matyt..

Private Sub Worksheet_Change(ByVal target As Range)
If target.Address = "$B$8" Then
Select Case target
Case Is > 350: Macro1
End Select
End If
If target.Address = "$B$9" Then
Select Case target
Case Is > 0, 5: Formule_durims
End Select
End If
If target.Address = "$D$20" Then
If MsgBox("Ar tikrai taip?", vbYesNo) = vbYes Then
MacroTaip
Else
MacroNe
End If
End Sub

Nu ir nevykelis gi as neivelnio man nieks nisekasi su tuom dajungimu erorose raso kad proceduros vardas netinka tipo sub, Function arba Property, gal cia visai ta msg atskirai reikia rasyti niekur nedajungineti. Tos dvi pirmosios funkcijos veikia kol nedajungiu tos su msg.

turėtų veikti. aišku vietoje MacroTaip ir MacroNe reikia įrašyti savų procedūrų pavadinimus, kaip kad įrašei Formule_durims. jei nėra tokios procedūros tai ką VBA turi daryti išmesti klaidą

beje, tavo kode trūksta dar vieno End If prieš End Sub

Na macrosai yra su pavadinimais Taip ir Ne, darasiau dar viena end if, bet neivelnio niveikia. Gal galetum padaryti veikianti pavyzdi pls. kad ta msgbox ismestu kai A1 yra daugiau uz 20.

na jei teisingai supratau..
Book1.xls