pogojno oblikovanje

Pomoč pri delu z MS Excelom
Odgovori
rop
Prispevkov: 8
Pridružen: Pe Jul 28, 2006 8:04 am

pogojno oblikovanje

Odgovor Napisal/-a rop »

pozdravljeni!
imam problem kot vsi ostali ki se tukaj srečujejo (razen seveda vas).
delam razpredelnico v kateri bi rabil pogojno oblikovanje, vendar le ta dopušča samo 3 pogoje jaz pa jih rabim 9. in sicer preprosto:
če je v celici 1 naj bo celica rdeča, če 2 naj bo modra, če je 3 naj bo zelena, in tako do 9.
še eno vprašanje: ali so se člani brisali, kajti nikakor se nisem mogel prijaviti čeprav sem bil kar nekaj časa že član vašega foruma.
lp bojan
lenuhi so gibalo napredka
admin
Site Admin
Prispevkov: 3692
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: pogojno oblikovanje

Odgovor Napisal/-a admin »

Pozdravljeni

Greva lepo po vrsti, tako kot ste pisali :)
rop napisal/-a: imam problem kot vsi ostali ki se tukaj srečujejo (razen seveda vas).
Daleč od resnice. Vsi imamo večje ali manjše probleme. Če ne na enem pa na drugem področju življenja, a navkljub temu imam tudi jaz probleme pri računalništvu, le da so slednji na precej višjem nivoju kot vaši. A prav je tako, če bi ne imel problemov, bi mi računalništvo ne bilo zanimivo!
rop napisal/-a:...dopušča samo 3 pogoje jaz pa jih rabim 9
V tem primeru je potrebno poseči po VBA kodi in se odzvati na dogodek OnChange (O dogodkih si lahko preberete več v sledeči tematiki http://www.matjazev.net/forum/viewtopic ... ht=dogodek)

Podajam vam primer, ki pogojno oblikuje celice:

Koda: Izberi vse

' www.matjazev.net
' 28.07.2006
Private Sub Worksheet_Change(ByVal Target As Range)
  ' preverimo območje celic
  Dim Obmocje
  Set Obmocje = Intersect(Range("A1:C100"), Range(Target(1).Address))
  
  ' če celica ni v tem območju potem končamo
  If Obmocje Is Nothing Then Exit Sub
  
  ' sicer ukrepamo dalje
  Application.EnableEvents = False
  
  ' za vsako celico
  Dim celica, barva
  
  ' številke barv si lahko ogledate na
  ' http://www.mvps.org/dmcritchie/excel/colors.htm#colorindex
  
  For Each celica In Target
     Select Case celica.Value
        Case 1
            barva = 10
        Case 2
            barva = 12
        Case 3
            barva = 14
        Case 4
            barva = 15
     End Select
     celica.Interior.ColorIndex = barva
   Next celica
   
  Application.EnableEvents = True
End Sub
rop napisal/-a:...še eno vprašanje: ali so se člani brisali
Da, včasih neaktivne člane brišem, ker jih je sicer preveč, pa tudi forum nenehno smetijo "člani", ki lepijo linke na pornografske in podobne strani :(
rop napisal/-a:sociala je potuha, ki jo največkrat izkoriščajo tisti, ki do nje niso upravičeni, kajti drugi so ponavadi preponosni da bi jo.
Ha, tudi na tole se moram odzvati, ker v socialo trdno vrjamem in sem srečen, da živim v državi, ki ima vsaj neke vrste socialo. Raje sem povprečno bogat med povprečno bogatimi ljudmi, ki pomaga(mo/jo) drugim, kot pa da sem bogat med reveži. Vsekakor pa imate pravico do lastnega mnenja in tudi to podpiram, da ne boste tegale razumeli kot "napad" :)
lp,
Matjaž Prtenjak
Administrator
rop
Prispevkov: 8
Pridružen: Pe Jul 28, 2006 8:04 am

Odgovor Napisal/-a rop »

zahvaljujem se vam za odgovor - dela.
tudi z zadnjo točko se strinjam z vami, vendar sem jezen na vse tiste, ki resnično izkoriščajo to socialo. teh pa ni tako malo!
še enkrat hvala.
bojan
lenuhi so gibalo napredka
Odgovori