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. Taulukon+tulostusasetuset+voi+kopioida+helpostiWorksheets(2).PageSetup.PrintArea+=+Worksheets(1).PageSetup.PrintAreaKeep+EXCELing@Kunde
  2. Helppoa+kuin+heinän+teko..Ainut+helppo+ja+varma+tapa++tehdä++datatyyppi+muutokset+.++;-)Valitse+solu/sarake/rivi+,+mihin+haluat++muutoksen.Valitse+menusta+Data/Text+to+Columns+Klikkaa+seuraavaa+nappia++2+kertaa+ja+sitten+vaihdat+muotoiluksi+Date+ja+FinishSitten+muoilet+solun/sarakkeen/rivin+muotoiluksi++haluamasi+muotoilun...+Keep+EXCELing@Kunde
  3. Helpoin+ja+ehkä+fiksuin+tapa+onlukea+kaikki+taulukoiden+nimet+esim.+A+-sarakkeeseenB-sarakkeesen+fontiksi+Marlet+ja+kirjain+a+Ok+merkiksi+valintaanvalinta+taulukon+näytölle+tehdään+tuplaklikkaamalla+B-+sarakkeessa+halutun+taulukon+kohdalla+B-sarakkeessa+ja+piilotus+vastaavasti+tuplaklikkaamallaKoodi++esim.++Worksheet_BeforeDoubleClick+tapahtumaan+ja+tutkitaan++sitten+onko+a+-kirjain+vaiko+tyhäja+sen+mukaan+näytetään/piilotetaan+taulukko
  4. fiksattu+ja+tehty+VBA:lla...https://www.dropbox.com/scl/fi/e4nrsv4qclimxcja36n8a/Q-testi.xlsm?dl=0&rlkey=tmaq5loqiy5n5gwma03b6gzguKeep+EXCELing@Kunde
  5. nyt+lukuja+soluissa+A1:A7{=INDEX(A1:A7;MATCH(MIN(ABS(A1:A7-AVERAGE(A1:A7)));ABS(A1:A7-AVERAGE(A1:A7));0))}kaava+syötettävä++matriisikaavanaKeep+EXCELing@Kunde
  6. Sanotaanko++melko+peruskone+käytössä.Järjen+käyttö+on+sallittua+tässäkin+kyssärissa+ja+eihän+tuo+lopputuloksen+koodin+suorituskaan++kauaa+kestä+iman+tulostusta+(n.+5+s)++;-)Tommosen+15!+käsittelyä+ei+tartte+tehdä+(eikä+pystykään)+vaan+pienillä++variaatioilla+aluksi,+jotta+näkee+koodin+toimivuuden+ja+sitten+isonnetaan+variaatioita+jne.
  7. aiemmin+postasin....Koodissani+oli+se+100000+rajoitus+printtauksille(testi)...Fiksasin+nyt+sitten+siten+,+että+tulostaa+ekat+1+000+000+riviä+B-P+sarakkeisiin+ja+loput+401400+sarakkeisiin+R-AF.https://www.dropbox.com/scl/fi/gprp9qjrlo7hyg82zmmzx/Ryhmien-teko.xlsm?dl=0&rlkey=eo3c0jksplndr8z0p49k4o483
  8. tuo+lopun++pitäisi+olla+ja+viimeinen+variaatio('1',+'14',+'15'),('2,+'12',+'13')....('1',+'14',+'15'),('2,+'12',+'13'),('3',+'10',+'11')('1',+'14',+'15'),('2,+'12',+'13'),('3',+'10',+'11'),('4+'8',+'9')('1',+'14',+'15'),('2,+'12',+'13'),('3',+'10',+'11'),('4+'8',+'9'),('5',+'6',+'7')
  9. Kun+tutkailee+kaikkia+kombinaatioita+15!(1,30767E+12+kpl)+!!!,+niin+huomataan,+että+riittää,+kun+kun+käy+läpi+ensimmäisen+ryhmän+kaikki+vaihtoehdot+jotka+alkaa+numerolla+1Olet+ihan+kuutamolla+ja+et+ole+ymmärtänyt++kysymystä,+etkä+selitystäni.Ja+miten+Python+liittyy+EXCEL++VBA+ohjelmointiin?Antamassasi+esimerkissä('A',+'B',+'C')('A',+'C',+'B')('B',+'A',+'C')('B',+'C',+'A')('C',+'A',+'B')('C',+'B',+'A')riittää+kun+kun+ottaa+huomioon+vaan+ekan+rvin,+koska+muuthan+on+aivan+samoja+vaan+eri+järjestyksessä.('A',+'B',+'C')+eli+ohjelmassani+se+vastaa+('1',+'2',+'3')vaihtoehtojahan+on+enemmän+kuin+tuo++6eli+malliksi+muutama+ekarivin+variaatio('1',+'2',+'3')('1',+'2',+'4')('1',+'2',+'5')...('1',+'8',+'15')...ja+viimeinen+variaatio+('1',+'14',+'15')+seuraavaksi+siis++2+ryhmä+(siis+variaation+eka+rivi)('1',+'2',+'3'),('3',+'4',+'5')('1',+'2',+'4'),('3',+'5',+'6')('1',+'2',+'5'),('3',+'4',+'6')...('1',+'8',+'15')('2',+'3',+'4')...ja+viimeinen+variaatio('1',+'14',+'15'),('2,+'13',+'15')....('1',+'14',+'15'),('2,+'12',+'13'),('3',+'10',+'11')('1',+'14',+'15'),('2,+'12',+'13'),('3',+'10',+'11'),('4+'8',+'9')('1',+'14',+'15'),('2,+'13',+'15'),('3',+'10',+'11'),('4+'8',+'9'),('5',+'6',+'7')Esitä+nyt+semmoinen+koodi++vaikka+nyt++sitten+Pythonilla,+joka+tekee++vastaavan+tulostuksen++variaatioista,++sitähän+se+alkuperäinen+kysyjä+on+vailla+,eikä+mitään+muuta.Keep+EXCELing@Kunde
  10. Sub+HakeeKaikistaTaulukoista()Dim+ws+As+WorksheetDim+Löydetty+As+RangeDim+Haku+As+StringDim+Tupla+As+BooleanDim+kpl+As+LongDim+i+As+LongDim+C6Arvo+As+VariantDim+Nimi+As+StringOn+Error+Resume+Next'haettava+tieto+(+nyt+Sheet1+taulukko,+oletetaan+aktiiviseksi,+kuna+makroa+suoritetaan,+muuta+alempana+nimi+oikeaksiHaku+=+Range("B3")kpl+=+Worksheets.CountFor+i+=+1+To+kpl'++++++++muuta+hakusolun++taulukon+nimi+sopivaksi(ettei+hae+siitä...)++++++++If+Worksheets(i).Name+<>+"Sheet1"+Then++++++++++++With+Worksheets(i).UsedRange++++++++++++++++Set+Löydetty+=+.Find(What:=Haku,+After:=.Cells(1,+1),+LookIn:=xlValues,+LookAt:=xlWhole)++++++++++++++++If+Not+Löydetty+Is+Nothing+Then++++++++++++++++++++If+Tupla+Then++++++++++++++++++++++++C6Arvo+=+""++++++++++++++++++++++++Nimi+=+""++++++++++++++++++++++++GoTo+loppu++++++++++++++++++++End+If++++++++++++++++++++Tupla+=+True++++++++++++++++++++C6Arvo+=+Worksheets(i).Range("C6")++++++++++++++++++++Nimi+=+Worksheets(i).Name++++++++++++++++End+If++++++++++++End+With++++++++End+If+Next+i+On+Error+GoTo+0loppu:'muuta+taulukon+nimi+ja+solut+sopiviksiWorksheets("Sheet1").Range("C6")+=+C6ArvoWorksheets("Sheet1").Range("D6")+=+NimiEnd+SubKeep+EXCELing@Kunde
  11. 3exp13=+1+594+323+riviä
  12. Ihme+sekoiluja...Kyssärihän+oli+aivan+selekeästi+esitetty+ja+koodissani+se+tekee+juuri+niinkuin+pitääkinKoodissani+oli+se+100000+rajoitus+printtauksille(testi)...Fiksasin+nyt+sitten+siten+,+että+tulostaa+ekat+1+000+000++riviä++B-P+sarakkeisiin+ja+loput+401400+sarakkeisiin++R-AF.https://www.dropbox.com/scl/fi/gprp9qjrlo7hyg82zmmzx/Ryhmien-teko.xlsm?dl=0&rlkey=eo3c0jksplndr8z0p49k4o483Keep+EXCELing@Kunde
  13. tota+Excelin+omaa+natiivikieltä+voi+käyttää+sitten+suoraan+excelin+solukaavoissaeli+jos+haluat+tuotteen+8+ominaisuuden+3soluun+vaan+kaava+=+tuote8(välilyönti+tässä)ominaisuus3Valitse+"mun+tietokanta"+ja+menusta+FORMULAS/CREAT+FROM+SELECTION+määritteleTOP+ROW+ja+LEFT+COLUMNtekstitiedosto+muotoa(+voit+käyttää+haluamaasi++erotinta,muista+fiksata+myös+koodissa)tuote15;ominaisuus15;15tuote14;ominaisuus14;14tuote13;ominaisuus13;13tuote12;ominaisuus12;12tuote11;ominaisuus11;11tuote10;ominaisuus10;10tuote9;ominaisuus9;9tuote8;ominaisuus8;8tuote7;ominaisuus7;7tuote6;ominaisuus6;6tuote5;ominaisuus5;5tuote4;ominaisuus4;4tuote3;ominaisuus3;3tuote2;ominaisuus2;2tuote1;ominaisuus1;1Sub+TäytäMunTietokanta()Dim+Rivi+As+StringDim+iFile+As+IntegerDim+aDim+Tuote+As+StringDim+Ominaisuus+As+String'muuta+taulukon+nimi+sopivaksiWorksheets("Sheet1").ActivateiFile+=+FreeFile'muuta+polku+ja+tiedostonnimi+sopivaksiOpen+"C:\Kunde\koe.csv"+For+Input+As+#iFileDo+Until+EOF(1)++++Line+Input+#1,+Rivi'++++fiksaa+tarvittaessa+erotin++++a+=+Split(Rivi,+";")++++Tuote+=+a(0)++++Ominaisuus+=+a(1)++++Intersect(Range(Tuote),+Range(Ominaisuus))+=+a(2)LoopClose+#iFileEnd+Sub
  14. Testi
  15. hae+esim.+etsijasiirrä+,+niin+monia+esimerkkejä+ja+varmaan+ihan+suoraan+kyssäriinkin+löytyy+mun+tekemänäjälkimmäiseen++anonyymin+kyssäriin+koodiActiveSheet.Range("$A$1:$G$3258").AutoFilter+Field:=1,+Criteria1:="<>"+&+Range("Mycell")
  16. Lisäsin+koodiin+vielä+semmoisen,+että+jos++A+-sarakkeen+luku+on+jo++0,++niin+ei+voi+lisätä+X+kirjainta-+jos+ei+hyvälisäys,++niin+poistetaan+sitten...Private+Sub+Worksheet_BeforeDoubleClick(ByVal+Target+As+Range,+Cancel+As+Boolean)If+Not+Intersect(Range("C1:Z36"),+Target)+Is+Nothing+Then++++If+Target.Row+Mod+2+=+1+Then++++++++If+Target+=+"X"+Then++++++++++++Target+=+""++++++++++++Range("A"+&+Target.Row)+=+Range("A"+&+Target.Row)+++1++++++++++++If+Target.Column+=+25+Then++++++++++++++++Target.Offset(1,+0).Select++++++++++++Else++++++++++++++++Target.Offset(0,+1).Select++++++++++++End+If++++++++Else++++++++++++If+Range("A"+&+Target.Row)+<=+0+Then+++++++++++++++++Range("A"+&+Target.Row)+=+0++++++++++++++++++++If+Target.Column+=+25+Then++++++++++++++++++++Target.Offset(1,+0).Select++++++++++++++++Else++++++++++++++++++++Target.Offset(0,+1).Select++++++++++++++++End+If++++++++++++Else++++++++++++++++Range("A"+&+Target.Row)+=+Range("A"+&+Target.Row)+-+1++++++++++++++++Target+=+"X"++++++++++++++++If+Target.Column+=+25+Then++++++++++++++++++++Target.Offset(1,+0).Select++++++++++++++++Else++++++++++++++++++++Target.Offset(0,+1).Select++++++++++++++++End+If++++++++++++End+If++++++++End+If++++End+If+End+IfEnd+SubKeep+EXCELing@Kunde
  17. sori+tämäkoodi++piti+postata...Private+Sub+Worksheet_BeforeDoubleClick(ByVal+Target+As+Range,+Cancel+As+Boolean)If+Not+Intersect(Range("C1:Z36"),+Target)+Is+Nothing+Then++++If+Target+=+"X"+Then++++++++If+Target.Column+=+25+Then++++++++++++Target.Offset(1,+0).Select++++++++Else++++++++++++Target.Offset(0,+1).Select++++++++End+If++++Else++++++++Target+=+"X"++++++++If+Range("A"+&+Target.Row)+<=+0+Then+++++++++++++Range("A"+&+Target.Row)+=+0++++++++Else++++++++++++Range("A"+&+Target.Row)+=+Range("A"+&+Target.Row)+-+1++++++++++++If+Target.Column+=+25+Then++++++++++++++++Target.Offset(1,+0).Select++++++++++++Else++++++++++++++++Target.Offset(0,+1).Select++++++++++++End+If++++++++End+If++++End+IfEnd+IfEnd+SubKeep+EXCELing@Kunde
  18. 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
  19. 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
  20. 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
    21. 4 / 69
TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt