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. Private+Sub+CommandButton1_Click()Dim+vika+As+Longvika+=+Worksheets("Sheet2").Cells(1,+Columns.Count).End(xlToLeft).Offset(1,+0).Column+++1Union(Range("A1:A4"),+Range("A11:A20")).Copy+Worksheets("Sheet2").Cells(1,+vika)End+SubKeep+EXCELing@Kunde
  2. yksinkertaisesti+ilman+luuppeja...vaihda+taulukon+nimi,+johon+siirretään+sopivaksi+samoin+kuin+sarakkeetPrivate+Sub+CommandButton1_Click()Dim+vika+As+Longvika+=+Worksheets("Sheet2").Range("A65536").End(xlUp).RowUnion(Range("A1:A4"),+Range("A11:A20")).Copy+Worksheets("Sheet2").Range("A"+&+vika+++1)End+SubKeep+EXCELing@Kunde
  3. win+10+päivittelee...
  4. Kokeile+vaihtaa+muuttujatyyppi+Dim+s+As+VariantLeikepöytähän+ei+muistaakseni+ole+koskaan+toiminut+100+%+varmasti
  5. ISOWEEKNUM+palauttaa+päiväyksestä+viikkonumeron+eikä+päinvastoin+kuten+kysyjä+haluaa...
  6. Kannattaa+tutustua+Tushar+Mehtan+sivuihin.+Siellä+huippuosaamista.tossa+esim.+sulle+sopiva+kikkailu...http://www.tushar-mehta.com/publish_train/xl_vba_cases/0411+logarithm+scale+on+x+axis.shtmlKeep+EXCELing@Kunde
  7. perusidea+....Sub+Testi()On+error+GoTo+Virhe'koodia...Exit+SubVirhe:'korjaustoimenpiteitä+virheelleResume+NextEnd+Sub
  8. ISO-standardi+määrittelee+vuoden+ensimmäisen+viikon+näin:-+viikko+alkaa+maanantailla,+joten+maanantai+on+ensimmäinen+päivä+jokaisella+viikolla-+vuoden+ensimmäisen+viikon+pitää+sisältää+vähintään+4+päivää+ko.+vuodellatästä+seuraa,+että1.+1.1.+on+viikolla+1,+jos+se+on+maanantai,+tiistai,+keskiviikko+tai+torstai2.+4.1+on+aina+viikolla+1+minä+tahansa+vuonna3.+vuoden+ensimmäinen+torstai+on+aina+viikolla+1Laskutoimitukset:Määritellään+viimeinen+sunnuntai+edelliseltä+vuodeltaLisätään+viikkojen+määrä-1+kerrottuna+7Lisätään+viikonpäivännumero+päivälle+jota+haetaanvuosi:+4+numeroaviikonnumero:+1...53+päivännumero:+maanantai=1,+tiistai=2+jne...Dateserial(vuosi,1,4)+(väittämä+2)+on+aina+viikolla+1ISO-standardissa+maanantai+on+aina+viikon+ensimmäinen+päivävähennetään+päiväyksestä+4.1+sen+päivänumero+ja+tuloksena+saadaan+edeltävä+sunnuntai+ennen+päiväystä++4.1DateSerial(vuosi,1,4)-+Weekday(DateSerial(vuosi,+1,+4),+2)+2+kaavassa+tarkoittaa,+että+viikko+alkaa+maanataistaLisätään+viikkojen+määrä-1+kerrottuna+77*(viikko-1)+Dateserial(vuosi,1,4)-+Weekday(DateSerial(vuosir,+1,+4),+2)Lisätään+viikonpäivännumero+päivälle+jota+haetaan7*(viikko-1)+Dateserial(vuosi,1,4)-+Weekday(DateSerial(vuosir,+1,+4),+2)+päivänumeroeli+maanantai+viikolle+107*(10-1)+Dateserial(2017,1,4)-+Weekday(DateSerial(2017,+1,+4),+2)+1moduuliin...Function+ISOPäiväys(Vuosi+As+Integer,+Viikko+As+Integer,+Päivä+As+Integer)+As+LongISOPäiväys+=+7+*+(Viikko+-+1)+++DateSerial(Vuosi,+1,+4)+-+Weekday(DateSerial(Vuosi,+1,+4),+2)+++PäiväEnd+Functiokaavat++C3=+viikkonumero+,+mille+haetaan+päiväysC8=isopäiväys(2017;C3;1)C9=C8+1+jne...Keep+EXCELing@Kunde
  9. Lisää+ActiveX+komponenteista+yhdistelmäruutu+ja+ominaisuuksissa(tuplaklikkaa+yhdistelmäruutua+suunnittelutilassa)+laitat+BoundColumn+=+2ListFillRange+alue+missä+on+nimet+ja+vastaavat+koodit+esim+A1:B100LinkedCell=+solu+mihin+haluat+numeron+tulevanKeep+EXCELing@Kunde
  10. foorumi+on+poissa+käytöstä+tällä+hetkellä....palaa+takaisin+jonkin+ajan+kuluttua-+toivon+mukaan...Kunde
  11. jos+valitaan+sarake+reilut+miljoona+luuppia+tekee,+vaikka+tarvitsisi+esim.+30+riviä+käydä+läpi+;-)
  12. moduuliin...Sub+Siirrä()Dim+Alue+As+RangeFor+i+=+1+To+6Set+Alue+=+Etsi(i)Alue.Offset(0,+i+++1)+=+Alue.Offset(0,+1)NextColumns("B:B").DeleteEnd+SubFunction+Etsi(Hakuehto+As+Variant)+As+RangeDim+solu+As+RangeDim+EkaOsoite+As+StringWith+Range("A:A")Set+solu+=+.Find(+_What:=Hakuehto,+_LookIn:=xlValues,+_LookAt:=xlWhole,+_SearchOrder:=xlByRows,+_SearchDirection:=xlNext,+_MatchCase:=False,+_SearchFormat:=False)If+Not+solu+Is+Nothing+ThenSet+Etsi+=+soluEkaOsoite+=+solu.AddressDoSet+Etsi+=+Union(Etsi,+solu)Set+solu+=+.FindNext(solu)Loop+While+Not+solu+Is+Nothing+And+solu.Address+<>+EkaOsoiteEnd+IfEnd+WithEnd+FunctionKeep+EXCELing@Kunde
  13. Oikeassa+olet+noiden+pointtien+suhteen,+mutta+tossa+nyt+fiksattu+versio...+;-)Function+SummaX2(a+As+Variant)+As+DoubleSummaX2+=+StrReverse(Val(StrReverse(Replace(a,+"+",+""))))End+FunctionKeep+EXCELing@Kunde
  14. ="-"&+TRIM(SUBSTITUTE(RIGHT(A1;LEN(A1)-FIND("|";SUBSTITUTE(A1;"+";"|";LEN(A1)-LEN(SUBSTITUTE(A1;"+";""))-1)));"-";""))="-"&+POISTA.VÄLIT(VAIHDA(OIKEA(A1;PITUUS(A1)-ETSI("|";VAIHDA(A1;"+";"|";PITUUS(A1)-PITUUS(VAIHDA(A1;"+";""))-1)));"-";""))Keep+EXCELing@Kunde
  15. VBA+puolella+INSERT/MODUL++ja+kopioit+koodin+oikealle+valkoiselle+alueelle.Soluun+mihin+haluat+kaava+=SummaX(A1),+nyt+siis+solusta+A1+haetaan+summamoduuliin..Function+SummaX(a+As+Variant)+As+DoubleDim+b+as+VAriantb+=+Split(Replace(StrReverse(Trim(a)),+".",+","),+"+")Summax+=+CDbl(StrReverse(b(0))+&+StrReverse(b(1)))End+FunctionKeep+EXCELing@Kunde
  16. Miksi+pitää+siirtää+Wordiin?Excelissä+voit+tehdä+kaikki+samat+jutut+kuin+Wordissä+ja+paljon+helpommalla.
  17. Tekee+muotoilut+tulostukseen+ja+poistaa+ne+tulostuksen+jälkeenmuuta+alku+ja+loppuarvot+sopiviksi+samoin+kuin+viivalajitavalliseen+moduuliin...Sub+Viivat()Dim+Alku+As+LongDim+Loppu+As+LongAlku+=+5Loppu+=+20For+rivi+=+Alku+To+Loppu+Step+5++++With+Range("A"+&+rivi+&+":M"+&+rivi).Select++++++++With+Selection.Borders(xlEdgeBottom)++++++++++++.LineStyle+=+xlDash++++++++++++.ColorIndex+=+xlAutomatic++++++++++++.TintAndShade+=+0++++++++++++.Weight+=+xlMedium++++++++End+With++++End+WithNextEnd+SubSub+ViivatPois()Dim+Alku+As+LongDim+Loppu+As+LongAlku+=+5Loppu+=+20Range("A"+&+Alku+&+":M"+&+Loppu).SelectSelection.Borders(xlDiagonalDown).LineStyle+=+xlNoneSelection.Borders(xlDiagonalUp).LineStyle+=+xlNoneSelection.Borders(xlEdgeLeft).LineStyle+=+xlNoneSelection.Borders(xlEdgeTop).LineStyle+=+xlNoneSelection.Borders(xlEdgeBottom).LineStyle+=+xlNoneSelection.Borders(xlEdgeRight).LineStyle+=+xlNoneSelection.Borders(xlInsideVertical).LineStyle+=+xlNoneSelection.Borders(xlInsideHorizontal).LineStyle+=+xlNoneRange("A1").SelectEnd+Subja+ThisWorkbook+(Tämä+työkirja)+moduuliin...Private+Sub+Workbook_BeforePrint(Cancel+As+Boolean)On+Error+Resume+NextApplication.EnableEvents+=+FalseViivatActiveWindow.SelectedSheets.PrintOutViivatPoisApplication.EnableEvents+=+TrueCancel+=+TrueEnd+SubKeep+EXCELing@Kunde
  18. No+ei+tossa+kauan+aikaa+mennytMutta+ei+nyt+mitään+merkittävää+etua,+koska+toi+nimenantajan+vinkki+toimii+hyvin,+koska+sulla+oli+se+solu,+josta+kopioit+sen+muihin.+Jäi+huomioimatta+mulla+;-)Muuten+koodini+olisi+ihan+ehdoton.tossa+testataan+muutettava+kelpoisuusehtoIf+Solu.Validation.Formula1+=+"=$A$50:$A$100"+ja+tossa+muutetaan+uusi+ehto.Add+Type:=xlValidateList,+AlertStyle:=xlValidAlertStop,+Operator:=+_xlBetween,+Formula1:="=$A$50:$A$102"ja+lopuissa+sitten+voi+tehdä+ilmoituksiin+muutoksiaVielä+helpommalla+pääset+kun+teet+jatkossa+listasi+dynaamiseksi+siirtymä(offset)+funktiolla+ja+silloin+ei+tarvitse+muuta,+kuin+lisäillä+tai+poistaa+nimiä+luettelosta+ja+toimii+automaattisesti...Keep+EXCELing@Kunde
  19. tavalliseen+moduuliin...Sub+testi()Dim+Solu+As+RangeOn+Error+Resume+NextFor+Each+Solu+In+Cells.SpecialCells(xlCellTypeAllValidation)++++++++If+Solu.Validation.Formula1+=+"=$A$50:$A$100"+Then++++++++++++With+Solu.Validation++++++++++++++++.Delete++++++++++++++++.Add+Type:=xlValidateList,+AlertStyle:=xlValidAlertStop,+Operator:=+_++++++++++++++++xlBetween,+Formula1:="=$A$50:$A$102"++++++++++++++++.IgnoreBlank+=+True++++++++++++++++.InCellDropdown+=+True++++++++++++++++.InputTitle+=+""++++++++++++++++.ErrorTitle+=+""++++++++++++++++.InputMessage+=+""++++++++++++++++.ErrorMessage+=+""++++++++++++++++.ShowInput+=+True++++++++++++++++.ShowError+=+True++++++++++++End+With++++++++End+IfNextOn+Error+GoTo+0End+SubKeep+EXCELing@Kunde
  20. ="D=+"+&+VAIHDA(F3;",";".")&+"+,+h="&+VAIHDA(F4;",";".")Keep+EXCELing@Kunde
    21. 10 / 69
TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt