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. https://www.dropbox.com/s/5z984r7fqx434wy/hönö2.mp4?dl=0Keep+EXCEling@Kunde
  2. https://www.dropbox.com/s/k550nu1i56olkr1/Hönö.mp4?dl=0Keep+EXCEling@Kunde
  3. Turhaa+anonyymi+mulle+naljailet.+Koodini+toimii+loistavasti,+kuten+videolta+voit+nähdä.Anonyymin+koodissa++se+ongelma+oli+eikä+minun+ja+hän+on+koodissaan+käyttänyt+noita+Keypress+komentoja,+jotka+eivät+ole+luotettavia,+eikä+niitä+olisi+kovin+suotavaa+käyttää.
  4. Kannattaa+välttää+noita+Keypress++komentoja+koodissa,+eivät+toimi+luotettavasti
  5. Videollani+testi+työkirja+on+suljettuna.Melkoista+kikkailua+tuo+koodi...Virheen+syy...https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/code-execution-has-been-interrupted?f1url=?appId=Dev11IDEF1&l=en-US&k=k(vblr6.chm1011317);k(TargetFrameworkMoniker-Office.Version=v16)&rd=trueKeep+EXCEling@Kunde
  6. https://www.dropbox.com/s/uzq106xr4pv2cof/ScreenRecorderProject283.mp4?dl=0Keep+EXCELing@Kunde
  7. vanhoissa+oli+tuo+7+tasoa+ja+2007+alkaen+64+tasoaTonhan+pystyy+kiertämään+siten,+että+tekee+ekana+7/64+tason+jossittelun+ja+tallentaa+sen+nimellä+ja+seuraavat+7/64+ja+tallentaa+nimellä+jne+ja+lopuksi+sitten+nimillä+jossittelee.Ei+tietoa+kuinka+monta+tasoa+uudemmalla+onnistuu,+mutta+tolla+native+booleanilla++rajana+on+merkkien+määrä+solussa+(32,767+merkkiä)
  8. Et+näköjään+tiedä+edes,+mitä+boolean+funktiot+ovat
  9. Simppeli+ja+selkeä+kaava+boolean+jossitteluna...=(B1>16)*(B1<53)*7,45+(B1>52)*(B1<63)*8,65+(B1>62)*(B1<69)*7,45
  10. olet+kyllä+tosi+pihalla+G-koodi+postareista+.Se+kirjoittaa+G-koodia,+kommentteja+tai+mitä+tahansa+haluat+kirjoittaa+tiedostoon...malliksi+hönölle+;-)https://www.dropbox.com/s/jre5n487jtr1rrv/hönö.mp4?dl=0
  11. No+kirjoittahan+halusi+datan+EXCELiin+johonkin+tiettyihin+soluihin+ja+toi+sun+Bash+koodisi+ei+sitä+tee,+joten+fiksaa+se..
  12. Jos+kiinnostaa+voin+tehdä+korvausta+vastaan...
  13. Älä+viitsi+jauhaa+paskaa...Tottakai+ne+pitää+olla+kommenttteina+muutenhan+ei+ohjelma+toimisi.Postari+laskee+esim+työstöajat+ja+rivikoodin+alkuun+lisätään+;+merkki/tai+joku++merkki+minkä+tunnistetaan+kommenttiriviksi+tai+rivin+loppuun+kommentiksi+kutea+alla+olevasta+koodin+pätkästäni+selviää.Aloittaja+on+ihan+oikeassa,+toisin+kuin+sinä+trollaaja.G-+kood+tiedostoi+on+tosiaan+puhdas++.txt,+joten+siltä+osin+olet+oikeassa+;-Tossa+malliksi+2003+vuodelta+koodia+Karibian+risteilijälle+tehdystä+pianobaarin+pöydän+koodin+alusta.Luuletko,+että++nuo+kommentit+pitää+kirjoittaa++käsin...++se+siitä+sun+asiantuntemuksestasi.;+PÖYTÄJATKO.ANC;+Luotu:18+MAR+03+-+14:27;+Tyostoaika+min+:+1+Sec.+35;+++Teralistaus;+T12++h12++L100++D8++TAPPI+8;+T13++h13++L100++D10++TAPPI+10;@ASYNC=1@COLLISION=0@VC=1G90G0+G79+Z0G0+G79+Y0+W0(DLY,0.5)M500+M5+M20E60=-1000+;X+arvo+oikean+paikoittamiseenE61=-3000+;X+arvo+vasemman+paikoittamiseenE63=-800+;W/Y+paikoitusarvoE10=2++;Oikea+poytaG0+G79+Z0G79+Y0E42=+0+++;Y+origo"INIZ"E41=+0+++;X+origoE44=+19;Levyn+paksuusE45=+5.1+;Jigin+paksuusE46=+501+;Valittu+tyostopaaG16XYG0+G79+XE60+Y0+Z0M70M0E1+=+TIME40=+1+;Tyopoyta:+1=oikea+2=vasen(UAO,E40)E44+=+E44+++E45;+PORAUS;+TAPPI+8Halkaisija+8jneKeep+EXCELing@Kunde
  14. Löytyy+kaikki+tarvittavat+tiedot+kyllä+G+koodista...++;-)
  15. Perus+koodiini++helppo+lisätä++noi+esiittämäsi+"lisätoiveet"Keep+EXCELing@Kunde
  16. Toimii+varmasti,+jos+olet+asentanut+koodipätkät+oikeisiin+moduuleihin+ohjeiden+mukaan+ja+testannut+solualuetta+C3:C10..Vilutaa+alueen+soluja+sekunnin+välein,+jos+solun+arvo=0.Keep+EXCEling@Kunde
  17. Nyt+toimii+alueella+A1:A10,+mutta+helppo+lisätä++koodissa+tarvittavia+alueita+tai+solujako.+taulukon+moduuliin...Option+ExplicitDim+VilkutusSolu+As+BooleanDim+Vilkuta+As+BooleanPrivate+Sub+Worksheet_Change(ByVal+Target+As+Excel.Range)Dim+Solu+As+RangeDim+Osoite+As+StringSet+Alue+=+Range("A1:A10")VilkutusSolu+=+FalseFor+Each+Solu+In+Alue+++If+Solu.Value+=+0+Then++++++VilkutusSolu+=+True++++++If+Len(Osoite)+>+0+Then+++++++++Osoite+=+Osoite+&+","+&+Solu.Address++++++Else+++++++++Osoite+=+Osoite+&+Solu.Address++++++End+If+++End+IfNextIf+VilkutusSolu+=+True+And+Vilkuta+=+False+Then+++Set+Alue+=+Range(Osoite)+++Vilkuta+=+True+++AloitaVilkutusElse++++If+VilkutusSolu+=+True+And+Vilkuta+=+True+Then++++++++LopetaVilkutus++++++++Set+Alue+=+Range(Osoite)++++++++AloitaVilkutus++++Else++++++++If+VilkutusSolu+=+False+And+Vilkuta+=+True+Then++++++++++++LopetaVilkutus++++++++++++Vilkuta+=+False++++++++End+If++++End+IfEnd+IfEnd+Subtavalliseen+moduuliin...Option+ExplicitPublic+Alue+As+RangeDim+SeuraavaAika+As+DoubleSub+AloitaVilkutus()With+Alue.Interior+++If+.ColorIndex+=+3+Then++++++++.ColorIndex+=+xlNone++++Else++++++++.ColorIndex+=+3+++End+IfEnd+WithSeuraavaAika+=+Now+++TimeSerial(0,+0,+1)Application.OnTime+SeuraavaAika,+"AloitaVilkutus",+,+TrueEnd+SubSub+LopetaVilkutus()Alue.Interior.ColorIndex+=+xlNoneApplication.OnTime+SeuraavaAika,+"AloitaVilkutus",+,+FalseEnd+SubKeep+EXCELing@Kunde
  18. Toki+sen+voi+koodata+ottamaan+nimen+siitä+solusta,+mutta+ei+mielestäni+järkevää(koska+tarvitaan+sitten+lisätä+virheen+tarkasteluja++yms).++The+Simple+the+Best!Tee+kuten+neuvoin,+eli+nimeä+alue++otsikoineen+ja+ja+käytä+ALUEIDEN+nimä+koodissa.+Koodi+käyttää+alueen+nimeä+ja+sen+ensimmäistä+solua+vasemmasta+yläkulmasta.Koodissa+siis+"nimi",+"osoite"+ja+"+email"+vastaavat++määritettyjen+aluieden+nimiä+ja+klikkaamalla+alueen+vasemmanpuoleisinta+solua++otsikkorivillä+esim.++koodissa+osoite+alueen+(+Range("osoite").Cells(1))+)+solua,++koodi+suoritetaan...Toki+voi+sen+muuttaa+koskemaan+alueen+koko+otsikkoriviäkin.ko.+tauukon+moduuliin...Private+Sub+Worksheet_SelectionChange(ByVal+Target+As+Range)If+Not+Intersect(Target,+Range("nimi").Cells(1))+Is+Nothing+Then++++If+Selection.Count+=+1+Then++++++++If+Range("nimi").Cells(2,+1).EntireRow.Hidden+=+True+Then++++++++++++Range("nimi").Offset(1).Resize(Range("nimi").Rows.Count+-+1).EntireRow.Hidden+=+False++++++++Else++++++++++++Range("nimi").Offset(1).Resize(Range("nimi").Rows.Count+-+1).EntireRow.Hidden+=+True++++++++End+If++++++++Target.Offset(0,+1).Select++++End+IfEnd+IfIf+Not+Intersect(Target,+Range("osoite").Cells(1))+Is+Nothing+Then++++If+Selection.Count+=+1+Then++++++++If+Range("osoite").Cells(2,+1).EntireRow.Hidden+=+True+Then++++++++++++Range("osoite").Offset(1).Resize(Range("osoite").Rows.Count+-+1).EntireRow.Hidden+=+False++++++++Else++++++++++++Range("osoite").Offset(1).Resize(Range("osoite").Rows.Count+-+1).EntireRow.Hidden+=+True++++++++End+If++++++++Target.Offset(0,+1).Select++++End+IfEnd+IfIf+Not+Intersect(Target,+Range("email").Cells(1))+Is+Nothing+Then++++If+Selection.Count+=+1+Then++++++++If+Range("email").Cells(2,+1).EntireRow.Hidden+=+True+Then++++++++++++Range("email").Offset(1).Resize(Range("email").Rows.Count+-+1).EntireRow.Hidden+=+False++++++++Else++++++++++++Range("email").Offset(1).Resize(Range("email").Rows.Count+-+1).EntireRow.Hidden+=+True++++++++End+If++++++++Target.Offset(0,+1).Select++++End+IfEnd+If'jneEnd+SubKeep+EXCELing@Kunde
  19. "Allaoleva+koodi+ko.+moduuliin..."eli+koodi+pitää+olla+ko+taulukon+moduulissa+eikä++tavallisessa+moduulissa....
  20. höpö+höpö...katso+koodini,+ja+siinä+voit+lisätä+ja+poistella+soluja+alueelta+ja+toimii+;-)Keep+EXCEling@Kunde
    21. 2 / 69
TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt