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

1374

  • Uusimmat aloitukset
  • Suosituimmat aloitukset
  • Uusimmat kommentit
  1. tottakai+saa+ja+on+mun+tekemä+koodikin+täällä
  2. Miksi+sitä+kaikkea+tietoa+tarvitsee+tuoda,+jos+kerran+3+riviä++vaan+tarvitaan+joka+sivulta.+Eli+luetaan+tiedostosta+vaan+ne+tarvittavat+3+rivin+tiedot+sivuttain....Keep+EXCELing@Kunde
  3. https://www.youtube.com/watch?v=lAykFf9mXN0Keep+EXCELing@Kunde
  4. Ongelmana+sulla+on+Excelin+volative+functions.Jos+haluat+päästä+eroon+sun++pitää+tehdä+oma+funktio(UDF).Googleta+Excel+volative+functions.Tossa+mikkiksen+oma+tarina+asiasta(epätäydellinen+noiden+volative+functions+kanssa+kuiteskin+)+;-)https://msdn.microsoft.com/en-us/library/office/bb687891.aspx
  5. Muuttele+nimet+ja+polut+oikeaksiSub+Makro1()Dim+polku+As+StringDim+tiedostonnimi+As+StringDim+lähde+As+Workbookpolku+=+"C:\"tiedosto+=+"malli_02"Worksheets("Taul1").Range("A:P")+=+""Set+lähde+=+Workbooks.Open(polku+&+tiedosto)ThisWorkbook.Worksheets("Taul1").Range("A1:P1000").Value+=+lähde.Sheets("Taul1").Range("A1:P1000").Valuelähde.Close+FalseRange("A1").SelectActiveWorkbook.Worksheets("Taul1").Sort.SortFields.ClearActiveWorkbook.Worksheets("Taul1").Sort.SortFields.Add+Key:=Range("A1:A20"),+SortOn:=xlSortOnValues,+Order:=xlAscending,+DataOption:=xlSortNormal++++With+ActiveWorkbook.Worksheets("Taul1").Sort++++++++.SetRange+Range("A1:P1000")++++++++.Header+=+xlGuess++++++++.MatchCase+=+False++++++++.Orientation+=+xlTopToBottom++++++++.SortMethod+=+xlPinYin++++++++.Apply++++End+WithEnd+SubSub+Makro2()Worksheets("Taul1").Range("A:P")+=+""Worksheets("Taul1").Range("A1:P1000").Value+=+Worksheets("Taul2").Range("A1:P1000").ValueRange("A1").SelectActiveWorkbook.Worksheets("Taul1").Sort.SortFields.ClearActiveWorkbook.Worksheets("Taul1").Sort.SortFields.Add+Key:=Range("A1:A20"),+SortOn:=xlSortOnValues,+Order:=xlAscending,+DataOption:=xlSortNormal++++With+ActiveWorkbook.Worksheets("Taul1").Sort++++++++.SetRange+Range("A1:P1000")++++++++.Header+=+xlGuess++++++++.MatchCase+=+False++++++++.Orientation+=+xlTopToBottom++++++++.SortMethod+=+xlPinYin++++++++.Apply++++End+WithEnd+SubSub+Makro3()Dim+vika+As+LongDim+löydetty+As+RangeDim+löydetty2+As+RangeDim+polku+As+StringDim+tiedostonnimi+As+StringDim+lähde+As+WorkbookDim+solu+As+RangeApplication.DisplayAlerts+=+FalseOn+Error+Resume+NextWorksheets("Huuhaa").DeleteOn+Error+GoTo+virheWorksheets.Add(After:=Worksheets(Worksheets.Count)).Name+=+"Huuhaa"polku+=+"C:\"tiedosto+=+"malli_04"Set+lähde+=+Workbooks.Open(polku+&+tiedosto)ThisWorkbook.Worksheets("Huuhaa").Range("F1:I1000").Value+=+lähde.Sheets("Taul1").Range("A1:D1000").Valuelähde.Close+FalseThisWorkbook.Worksheets("Taul1").Range("A1:D1000").Copy+Worksheets("Huuhaa").Range("A1:D1000")With+Worksheets("Huuhaa").Range("E1")++++.FormulaR1C1+=+"=RC[-4]&RC[-3]&RC[-1]"++++.AutoFill+Destination:=Range("E1:E20")End+WithWith+Worksheets("Huuhaa").Range("J1")++++.FormulaR1C1+=+"=RC[-4]&RC[-3]&RC[-1]"++++.AutoFill+Destination:=Range("J1:J20")End+Withvika+=+Worksheets("Huuhaa").Range("J65536").End(xlUp).RowFor+Each+solu+In+Worksheets("Huuhaa").Range("J1:J"+&+vika)++++Set+löydetty+=+EtsiJaSiirrä(solu,+Columns("E:E"))++++If+Not+löydetty+Is+Nothing+Then++++++++If+löydetty2+Is+Nothing+Then++++++++++++Set+löydetty2+=+löydetty++++++++Else++++++++++++Set+löydetty2+=+Union(löydetty2,+löydetty)++++++++End+If+++++End+IfNextWorksheets("Taul1").Range(löydetty2.Address).EntireRow.Deletevirhe:ThisWorkbook.Worksheets("Huuhaa").DeleteApplication.DisplayAlerts+=+TrueEnd+SubFunction+EtsiJaSiirrä(Hakuehto+As+Variant,+HakuAlue+As+Range)+As+RangeDim+solu+As+RangeDim+EkaOsoite+As+StringWorksheets("Huuhaa").ActivateWith+HakuAlueSet+solu+=+.Find(+_What:=Hakuehto,+_LookIn:=xlValues,+_LookAt:=xlWhole,+_SearchOrder:=xlByRows,+_SearchDirection:=xlNext,+_MatchCase:=False,+_SearchFormat:=False)If+Not+solu+Is+Nothing+ThenSet+EtsiJaSiirrä+=+soluEkaOsoite+=+solu.AddressDoSet+EtsiJaSiirrä+=+Union(EtsiJaSiirrä,+solu)Set+solu+=+.FindNext(solu)Loop+While+Not+solu+Is+Nothing+And+solu.Address+<>+EkaOsoiteEnd+IfEnd+WithEnd+FunctionKeep+EXCELing@Kunde
  6. tämmösen+funktiohan+ei+palauta+mitään...++;-)luvun+tai+lukujen+välissä+voi+olla+tyhjiäkin.+Kyssäristä+ei+käy+ilmi+voiko+olla+desimaaleja+yms+?Sub+Testi()MsgBox+HaeLuku("222227++++++++++++cm")End+SubPublic+Function+HaeLuku(s+As+String)+As+VariantHaeLuku+=+Trim(Mid(StrReverse(s),+3))If+IsNumeric(HaeLuku)+Then++++HaeLuku+=+StrReverse(HaeLuku)Else++++HaeLuku+=+"VIRHE"End+IfEnd+FunctionKeep+EXCELing@Kunde
  7. Juuri+noin,+kuten+enosaavba+kirjoittaa...Sub+Tsekkaapäiväykset()Dim+vika+As+Longvika+=+Range("A65536").End(xlUp).RowFor+i+=+vika+To+2+Step+-1'¨muuta+sarake+oikeaksi+1=+A-sarake,+2=B-sarake+jne.If+Cells(i+-+1,+1).Value+<>+Cells(i,+1).Value+ThenCells(i,+1).EntireRow.Insert'Cells(i,+1).InsertEnd+IfNext+iEnd+SubKeep+EXCELing@Kunde
  8. Sub+Tsekkaapäiväykset()Dim+vika+As+Longvika+=+Range("A65536").End(xlUp).RowFor+i+=+vika+To+2+Step+-1'¨muuta+sarake+oikeaksi+1=+A-sarake,+2=B-sarake+jne.++++If+Cells(i+-+1,+1).Value+<>+Cells(i,+1).Value+Then++++++++Cells(i,+1).Insert++++End+IfNext+iEnd+SubKeep+EXCELing@Kunde
  9. Function+EtsiJaSiirrä2(Hakuehto+As+Variant)+As+RangeDim+solu+As+RangeDim+EkaOsoite+As+StringWorksheets("Data").ActivateWith+Range("D:D")Set+solu+=+.Find(+_What:=Hakuehto,+_LookIn:=xlValues,+_LookAt:=xlWhole,+_SearchOrder:=xlByRows,+_SearchDirection:=xlNext,+_MatchCase:=False,+_SearchFormat:=False)If+Not+solu+Is+Nothing+Then++++EkaOsoite+=+solu.Address++++If+UCase(solu.Offset(0,+-1))+=+"C"+Then++++++++Set+EtsiJaSiirrä2+=+solu.Offset(0,+-2)++++++++++++++++Set+EtsiJaSiirrä2+=+Union(EtsiJaSiirrä2,+solu.Offset(0,+1))++++End+IfDo++++Set+solu+=+.FindNext(solu)++++++++If+UCase(solu.Offset(0,+-2))+=+"C"+Then++++++++++++If+EtsiJaSiirrä2+Is+Nothing+Then++++++++++++++++Set+EtsiJaSiirrä2+=+solu.Offset(0,+1)++++++++++++Else++++++++++++++++Set+EtsiJaSiirrä2+=+Union(EtsiJaSiirrä2,+solu.Offset(0,+1))++++++++++++End+If++++End+IfLoop+While+Not+solu+Is+Nothing+And+solu.Address+<>+EkaOsoiteEnd+IfEnd+WithEnd+FunctionSub+Testi2()Dim+Löydetty+As+RangeDim+solu+As+RangeOn+Error+GoTo+virheSet+Löydetty+=+EtsiJaSiirrä2("X")Worksheets("Yhteenveto").Range("B2:B10000")+=+""Löydetty.Copy+Range("Yhteenveto!B65536").End(xlUp).Offset(1,+0)Exit+Subvirhe:MsgBox+"Hakuehdoilla+ei+löytynyt+tietoja!",+vbInformationEnd+SubKeep+EXCELing@Kunde
  10. Edelleen+kuulostaa+tosi+tehottomalta+ratkaisulta+;-)jos+tietosi+on++A1-A300+niin+if+cells(i,1)=""+then+exit+sub+toimii,+muuten+pitää+muuttaavastaamaan+alkavaa+solua+tyyliin+if+cells(99+i,1)=""+then+exitmissä+99+i+on+aloitussolu+eli+tässä+tapauksessa+A100+ja+jos+eri+sarake+kuin+A+esim+B+niin++cells(99+i,2)+eli+B100Keep+EXCELing@Kunde
  11. Miksi+loopata+300+kertaa+ja+kutsua+makroa+kun+sen+voi+kutsua+vain+kerran+ja+tehdä+jutut?
  12. Sub+LisääJokatoka()Dim+vika+As+LongDim+i+As+Longvika+=+Range("C65536").End(xlUp).RowFor+i+=+3+To+746+Step+2Columns(i).Insert+Shift:=xlToRightNextFor+i+=+5+To+746+Step+2'+vähentää+nyt+ylemmästä+alemman,+jos+toistepäin+niin+hipsaa+allaoleva+kaava+ja+poista+hipsu+seuraavalta+riviltäRange(Cells(2,+i),+Cells(vika,+i)).FormulaR1C1+=+"=R[-1]C[-1]-RC[-1]"'Range(Cells(2,+i),+Cells(vika,+i)).FormulaR1C1+=+"=RC[-1]-R[-1]C[-1]"NextEnd+SubKeep+EXCELing@Kunde
  13. luin+vain+kyssäri+huolimattomasti+tsekkasin+koodin...tsekka+luupin+max+arvo+onko+oikein?Sub+LisääJokatoka()Dim+i+As+LongFor+i+=+3+To+746+Step+2Columns(i).Insert+Shift:=xlToRightNextEnd+SubKeep+EXCELing@Kunde
  14. kuten+sanoit+vaatii+yksinkertaisemman+makron...+;-)Range("C1:ABR1").Insert+Shift:=xlToRightKeep+EXCELing@Kunde
  15. piece of the cake koodilla....

    Keep EXCELing
    @Kunde
  16. ei ne häviä mihinkään jos oikein asiat tekee.
    Viedessä soluissa pitää olla oikeat muotoilut ja kun tuo niin apuna käyttää tuontivelhoa tai makroa ja muistaa määritellä kentille oikeat muotoilut ja taatusti kaikki on OK

    Keep EXCELing
    @Kunde
  17. odotellaan seuraavaa varmasti tulevaa bugia ;-)...

    Keep EXCELing
    @Kunde
  18. just niinhän koodi tekee ;-)
    Keep EXCELing
    @Kunde
  19. Varmaan moni ihmettelee tota koodiani ja sen logiikkaa...

    Excelissä ehdollinen muotoilu priorisoi solussa olevat "normaalit" muotoilut ja sitä käytetään hyväksi. Koodi muuttaa Rivinumeron arvon aina aktiivisen solun rivinumeroksi ja jos solun ehdollinen muotoilu =(RIVI()=Rivinumero ) toteutuu, se ylikirjoittaa solussa olevan normimuotoilun ehdon mukaisesti ja jos ehto ei toteudu, niin mitään ei tapahdu ;-)

    Keep EXCELing
    @Kunde
  20. 1. Valikosta Kaavat/Nimien hallinta/Uusi...
    Nimi= Rivinumero
    Viittaus=0 ja Ok ja Sulje

    2. Valitse solualue tai koko taulukko ja tee ehdollinen oma muotoilu. Kaavana käytä
    =(RIVI()=Rivinumero ) ja määrittele muotoilut...

    3. Kopioi postaamani koodinpätkä. Alhaalta tilariviltä klikkaa taulukon nimeä hiiren oikealla ja valikosta valitse Näytä koodi. Liitä oikealla olevaan valkeaan tilaan koodi. Tallenna työkirja ja naati!

    Keep EXCELing
    @Kunde
    21. 11 / 69
TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt