kunde

Vapaa kuvaus

Isaan Rules WFF CCC If you walked away smiling-then for you the price was right Keep Exceling Suosikkibändit/artistit: Queen, Rammstein, genesis, Bruce Bringsteen, Kino, Mandref Mann Earth band Who Lempikirjat: ohjelmointi... Suosikkipalstat Suomi24 Keskusteluissa: EXCEL, Kivitalot, EPS En pidä: pakkanen ja loskakelit Ruoka & juoma: loimulohi ja valkkari Linkit: http://www.kundepuu.com, Khorat Koulutus: --- Ammatti: Tiede/teknologia Työskentelen: freelancer Ase tai siviilipalvelus: yliluutnantti Siviilisääty: Varattu Lapset: --- Hakusanat: Thaimaa, korat, Excel, VBA, ACAD, CNC, Polyurea, EPS, MgO elementti

Aloituksia

7

Kommenttia

1377

  1. ko++taulukon+moduuliin...nyt+tuplaklikkaamalla+solua+alueella++lisää+soluun+X+ja+pienentää++vastaavan+solun+rivin+A+sarakkeen+arvoa+-1+ja+jos+nolla+ei+tee+mitään.Private+Sub+Worksheet_BeforeDoubleClick(ByVal+Target+As+Range,+Cancel+As+Boolean)If+Not+Intersect(Range("C1:Z36"),+Target)+Is+Nothing+Then++++Target+=+"X"++++If+Range("A"+&+Target.Row)+=+0+Then++++++++Else++++++++++++Range("A"+&+Target.Row)+=+Range("A"+&+Target.Row)+-+1++++Target.Offset(0,+1).Select++++End+IfEnd+IfEnd+Sub
  2. ko+taulukon+moduuliin...Option+ExplicitPrivate+Sub+Worksheet_Change(ByVal+Target+As+Range)If+Not+Intersect(Target,+Range("A1"))+Is+Nothing+Then++++If+Target.ID+=+""+Then++++++++Target.ID+=+Target++++++++Target.Offset(0,+1)+=+1++++Else++++++++If+Not+Target.ID+=+Target+Then++++++++++++Target.Offset(0,+1)+=+Target.Offset(0,+1)+++1++++++++++++Target.ID+=+Target+++++++++End+If++++End+If++++End+IfEnd+SubKeep+EXCELing@Kunde
  3. Varmaan+aloittejilla+helpoin+tämä+kirjainmerkki+toteuttaa...Excelissä+on+10++firman+tiedot+ja+siirtää+ne+Lasku.docx+kirjainmerkkeihin+ja++tekee+niistä+10++uutta+tiedostoa+firman+nimellä...https://www.dropbox.com/s/v6evx4y22fehonm/Exceltesti.zip?dl=0Keep+EXCELing@Kunde
  4. -Kaikki+VBA+ohjeet+skippasin+samantien,+koska+se+on+liian+vierasta+aluetta.+Eri+asia+jos+joku+lyö+valmiin+koodin.vaikeetahan+toimivaa+koodia+on+tehdä+tässä+tapauksessa+kun,+e+i+tiedä++mitä++siirretään+yksittäisiä+soluja+,+solu+alue+tms.Parilla+eri+tapaa+ton+vois+tehdä,+jos++enemmän+infoa+olisi+saatavilla...
  5. Viel'+helpompaa+taitaa+olla+VBA:lla++käyttää+Wordin+Activedocument.variables+....silloin+tiedot+on+itse+Wordin+tiedostossa+ja+rivien+määrä+putoaa+ehkä+alle+10+riviin....Keep+EXCELing@Kunde
  6. jaa+ei+vain...VBA..Tarvitset+Excelissä++vain+viittauksen+WordiinWordissä+teet++liitettäville+Excelin+soluille+kirjainmerkit++tyyliin+Nimi.Osoite...+ja+tallennat.Koodilla+avaat++Wordin+ja+liität+Excelistä++tiedot+kirjainmerkkeihin+ja+tallennat+yrityksen+nimellä.Luulisin+,+että+noin+20+riviä+koodia+tarttee....Keep+EXCEling@Kunde
  7. Voithan+sä+sen+makron+liittää+suoraan++ennen+sulkemista+tapahtumaankin,+jolloin+tota+aukeamistapahtuman+makroa+ei+sitten+tarvitse+ja+suorittaa+sen+sun+makron+automaattisesti...Private+Sub+Workbook_BeforeClose(Cancel+As+Boolean)tähän+oman+makro+kutsuEnd+SubKeep+EXCELing@Kunde
  8. Kun+Excel+aukeaa,+niin+voit+liittää+siihen+makron.+Mutta+jos+1+pikku+makro+on+liikaa,+niin+sitten+manuaalisesti+vaan..Private+Sub+Workbook_Open()Worksheets(1).Range("E27")+=+1End+Sub
  9. Eli+oikein+sitten+ymmärsin.+Jälkeenpäin+huomasin+,+että+olin+manuaalisesti+tehdessä+kuvamallia+mokannut...Keep++EXCELing@Kunde
  10. ei+ole+virhetarkastelua+lisättynäinputboxissa+on+nyt+sallittu+vain+numerot+ja+sen+virhettä+vo+käsitellä++helpostikini+Sub+Tulosta()Dim+Alku+As+LongDim+Loppu+As+LongDim+i+As+LongAlku+=+Application.InputBox("Anna+sarjanumero+mistä+aloitetaan",+1)Loppu+=+Application.InputBox("TULOSTETTAVIEN+SARJANUMEROIDEN+MÄÄRÄ",+1)For+i+=+Alku+To+Alku+++Loppu++++Range("D11")+=+Format(i,+"0000")++++Range("D11").NumberFormat+=+"@"++++ActiveWindow.SelectedSheets.PrintOut+Copies:=1,+Collate:=TrueNextMsgBox+("Tulostus+valmis"),+64,+"Huomautus!"End+Sub
  11. Tarkista+solun+muotoilu...jjos+päiväys+tulee+pillkulla,+niin+silloin+sulla++väärä+muotoilu+solussa
  12. ilman+turhia+luuppauksiaSub+Korvaa()Dim+originaalit+As+VariantDim+korvaavat+As+VariantDim+x+As+Longoriginaalit+=+Array("A",+"B",+"C",+"a",+"b",+"c")korvaavat+=+Array("X",+"Y",+"Z",+"x",+"y",+"z")For+x+=+LBound(originaalit)+To+UBound(originaalit)++++Selection.Replace+What:=originaalit(x),+Replacement:=korvaavat(x),+_++++LookAt:=xlPart,+MatchCase:=TrueNextEnd+SubKeep+EXCELing@Kunde
  13. Eihän+toi+makro+toimi+niinkuin+aloittaja+pyytelee...Liitä+nappiin+koodiaivan+pelkistettynä+nyt.Ton+voi+helposti+tehdä+Change+tapahtumaan+3+sarakkeelle,+jolloin+kun+lisää+projektiin+työvaiheen+tietoja++niin+automaattisesti+päivittyy+kaavion+ja+ei+tartte+erikseen+klikkailla+nappiaSub+SiirräData()'maalaa+alue+-+joko+pelkät+ajat+tai+myös+projektin+vaihe+ja+hipssa+oikea+vaihto+ehto+käyttöön'alku+ja+loppupäivät+vaanSelection.Copy+Range("D6")'+projektin+vaihe++alku+ja+loppupäivätSelection.Copy+Range("C6")End+SubKeep+EXCELing@Kunde
  14. Sub+example_DATE()Range("B3").Value+=+DateEnd+Subei+voi+toimia,+kun+ei+sitä+mistään+kutsuta...jos+haluat,+että+se+päivittyy+kun,+joku+sarakkeen+C+solu+muuttuu,+niin+koodi+silloin+ja+example_DATE()++tavallisessa+moduulissako+taulukon+moduuliin...Private+Sub+Worksheet_Change(ByVal+Target+As+Range)If+Not+Intersect(Range("C:C"),+Target)+Is+Nothing+Then++++example_DATEEnd+IfEnd+Subautomaatisesti+avatessa+päivyttävä+kood(päivittyy+vain+tiedostoa+avattaessa)ThisWorkbook+moduuliin...Private+Sub+Workbook_Open()Range("A1")+=+DateEnd+Subvastaava+vain+suljettaessa+sourotettava+koodiPrivate+Sub+Workbook_Close()Range("A1")+=+DateEnd+Subjos+koodilla+haluat+tehdä+automaattisen++päivityksen,+kun+tehdään+uudelleen+laskenta,+tarvitaan+koodiin++lisätä+volatile+truesoluun,+mihin+haluat+automaatisesti+päivityksen(voi+olla+mitä+tahansa+koosissa,+ei+siis+vain+päiväys)++laitat+kaavan+=päiväys()tavalliseen+moduuliin...Function+Päiväys()+As+DateApplication.Volatile+TruePäiväys+=+Date'sama+muotoiltuna+päiväyksenä'Päiväys+=+Format(Date,+"dddd")End+FunctionNOW()+ja+TODAY()+kyllä+päivittyvät,+jos+taukossa+tapahtuu+uudelleenlaskenta...Keep+EXCELing@Kunde
  15. Avainsana+on+volatile+functiions...http://www.decisionmodels.com/calcsecretsi.htmKeep+EXCELing@Kunde
  16. moduuliin...Tallentaa+viimeksi+tallenetun+tekstitedoston+nimen++muuttujaan++VikaTiedostonnimi+Tallentaa+viimeksi+tallenetun+tekstitedoston+tallennusajan+muuttujaan++VikaPäiväys+Option+ExplicitDim+Polku+As+StringDim+Tiedostonnimi+As+StringPublic+VikaTiedostonnimi+As+StringPublic+VikaPäiväys+As+DateDim+TallennusPäiväys+As+DateSub+Uusintiedosto()'muuta+polku+ja+tiedostopääte+sopivaksiPolku+=+"C:\Kunde\"Tiedostonnimi+=+Dir(Polku+&+"*.txt",+vbNormal)If+Len(Tiedostonnimi)+=+0+Then++++MsgBox+"Ei+löytynyt+tekstitiedostoja...",+vbExclamation++++Exit+SubEnd+IfDo+While+Len(Tiedostonnimi)+>+0++++TallennusPäiväys+=+FileDateTime(Polku+&+Tiedostonnimi)++++If+TallennusPäiväys+>+VikaPäiväys+Then++++++++VikaTiedostonnimi+=+Tiedostonnimi++++++++VikaPäiväys+=+TallennusPäiväys++++End+If++++Tiedostonnimi+=+DirLoopEnd+SubKeep+EXCELing@Kunde
  17. Koodit+on+postattu+vuonna+2014++ja+silloin+ei+ollut+tommosia+ongelmia+.+Foorumin+ulkonäköä+fiksailtu+ja+uusittu+sen+jälkeen++ja+koodista+kadonnut+sitten+noita+tiettyjä+merkkejä...
  18. foorumi+hukannut++ja-+merkin++&+eli+pitäisi+olla"HaeArvot+=+HaeArvot+(tähän+ja-+merkki+)Solu.Offset(0,+3).Valuetähän+merkit+kohtaan+ilman+sulkuja+siis++ja-merkki+&Keep+EXCEling@Kunde
  19. Koodasin+alkuperäisen+taulukon+mukaisesti+ja++siinähän+oli+päiväykset+A-sarakkeessa+tyyliin+A5=1.12A12=2.12+jnetämän+perusteella+sitten+kokosin+ton+kokoomajutun+eli+siinä+on+siis+7++riviä++päivää+kohden...Mutta+nyt+kertomasi+perusteella+siis+vain+1+rivi/pv+ja+silloinhan+tuo+olisi+ollut+aivan+simppeli+tapaus+vs+nykyinen+7+priviä+tapaus...voit+lähettää+emailin+mulle,+missä+kaikki+olisi+niinkuin+haluat,,+niin+helpompi+tehdä+kerralla+oikein+kuin+arvaillaKeep+EXCELing@Kunde
  20. https://www.dropbox.com/s/7ixav9p44d7tzkc/Kelpoisuusehto+oikea+valikko.xlsm?dl=0Keep+EXCELing@Kunde
    21. 5 / 69
TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt