Vapaa kuvaus

Aloituksia

26

Kommenttia

1026

  1. En+ole+pyytänyt+sinulta+mihinkään+asiaan+ratkaisua+koska+olen+itse+jo+ratkaisuut+asian+ja+esittänyt+ratkaisun+täällä."Paskabinniin"+en+laita+mitään+joten+se+käyttöönkään+en+apuasi+tarvitse."Yleisellä+tasolla+voidaan+sanoa,+että+mitään+makroja+ei+solujen+muotoilussa+tarvita,+koska+siihen+on+olemassa+valmiit+työkalut."Niin+on+ja+nuo+riittää+useimmille+minulle+ei.Sen+verran+tuosta+datasta+että+se+on+erään+omatekoisen+sovellukseni+tuottamaa+joka+tekee+nykyversiossa+siitä+tekstitiedoston.+Tuli+juuri+mieleen+että+muutama+vuosi+sitten+tein+sellaisen+sovelluksen+joka+teki+ods-tiedoston+tai+lisäsi+olemassa+olevaan+ods-tiedostoon++taulukot+tai+jo+olevaan+taulukkoon+datan+sekä+teki+muotoilutkin+valmiiksi,+taidampa+kaivaa+tuon+vanhan+koodin+esiin+ja+sitä+sopivasti+muokkaamalla+homma+toimii+kun+entisen+junan+vessa+ilman+että+edes+LibeOfficea+tarvitsee+käynnistää.Menikö+yli+hilseen?+Ei+se+mitään,+varmaan+useimmilta+meni.
  2. Tein+uuden+version,+Sub+Maf2(),+joka+muuttaa+muitakin+solun+ominaisuuksia+isossakin+talukossa+muutamassa+sekunnissa.+Nörtin+ja+nysvääjän+ero+on+nähty+tässäkin+keskustelussa.+Ja+myös+se+että+on+olemassa+myös+tollo-nysvääjiä+joiden+ymmärrys+ei+riitä+tietotekniikan+täysimääräiseen+hyödyntämiseen+edes+sillon+kun+tarjotaan+valmiita+työkaluja+elämän+helpottamiseen.+Maf2()+kuten+Maf()+voi+olla+myös+Sub+kun+se+ei+varsinaisesti+palauta+arvoja.+Maf2()+on+jo+tehnyt+sen+minkä+pitää+tehdä+kun+nysvääjä+vielä+muuttelee+solun+ominaisuuksia.+En+todellakaan+ymmärrä+tuota+solujen+ominaisuuksien+muuttamista+etukäteen,+onko+sellaista+neuvottu+jossain+oppaassa+tai+opetettu+jossain?Sub+Maf2()Dim+oSheetsDim+oSheetoSheets+=+ThisComponent.getSheets()oSheet+=+ThisComponent.getCurrentController.getActiveSheetDim+kRange+as+ObjectDim+rg+As+ObjectDim+oCell+as+ObjectDim+lform+As+integerDim+vform+As+integervform=41+rem+21:15:00rg+=+getUsedRange(oSheet)Dim+kRangeAddress+as+New+com.sun.star.table.CellRangeAddresskRangeAddress+=+rg.getRangeAddress()For+i+=+kRangeAddress.StartColumn+To+kRangeAddress.EndColumnFor+j+=+kRangeAddress.StartRow+To+kRangeAddress.EndRowoCell+=+oSheet.getCellByPosition(i,j)lform=oCell.getPropertyValue("NumberFormat")If+lform=vform+ThenoCell.setPropertyValue("NumberFormat",40)+rem+21:15oCell.setPropertyValue("HoriJustify",+com.sun.star.table.CellHoriJustify.CENTER)+rem+vaakatasaus+keskelleoCell.setPropertyValue("CharWeight",+com.sun.star.awt.FontWeight.BOLD)+rem+fontin+tyyli+lihavoitu+oCell.setPropertyValue("CharColor",+RGB(+0,0,+255+)+)+rem+tekstin+väri+sininenoCell.setPropertyValue("CellBackColor",++RGB(+255,0,+0+)+)+rem+taustaväri+punainenrem+nuo+ominaisuudet+voi+myös+lukea+joistain+mallisoluista+tai+muuttaa+mieleisekseen+suoraan+koodiinEnd+IfNextNextEND+SubFunction+getUsedRange(oSheet)Dim+oCursor+++oCursor+=+oSheet.createCursor()+++oCursor.gotoStartOfUsedArea(False)+++oCursor.gotoEndOfUsedArea(True)+++getUsedRange+=+oCursorEnd+Function
  3. Tuota+ilosanomaa+kannattaa+kertoa+kaikille+netissä,+toreilla+ja+ihan+joka+paikassa+missä+liiluttekin+ja+varsinkin+siellä+missä+ette+liiku.+Myös+Kelan+virkamiehet+näyttävät+olevan+tiedottomia+noinkin+yksinkertaisesta+asiasta+että+kaiken+viranomaistoiminnan+on+perustuttava+tarkoin+lakiin,+ei+laittommiin+ohjeisiin.Kela-raukkis+yrittää+vielä+kusettaa+niitä+jota+vielä+voi+mutta+edes+hallinto-oikeuteen+ei+uskalla+lähteä+vaan+luovuttaa+raukkamaisesti+kun+hävisi+siellä+minulle+viime+vuonna.+Jos+juttuu+päätyisi+Korkeimpaan+hallinto-oikeuteen+ja+sielläkin+Kela-parka+häviäisi+niin+sitten+loppuisi+tuollainen+perseily+kokonaan+lopullisesti+ja+iankaikkisesti+ilman+aamenta+ja+isämeitää.