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. höpö+höpö...ei+tartte++tallentaa+ennen+makron+suorittamistamuuta+taulukon+nimi+sopivaksiSub+TallennaPDF()++++ActiveSheet.ExportAsFixedFormat+Type:=xlTypePDF,+Filename:=+_++++++++"C:\Users\Kunde\Desktop\"+&+Worksheets("Taul1").Range("B1")+&+".pdf",+Quality:=xlQualityStandard,+_++++++++IncludeDocProperties:=True,+IgnorePrintAreas:=False,+OpenAfterPublish:=+_++++++++TrueEnd+SubKeep+EXCELing@Kunde
  2. tarkoitat+varmaan+tätät+koodia?Function+SivunNimi(n)+++SivunNimi+=+Sheets(n).NameEnd+Functionse+ei+päivity+ja+ongelma+myös+siinä,+jos+siirrät+taulukkoa+palauttaa+väärän+taulukon++nimen.+Ainoat+keinot+on+APi+ja+toi+allaoleva+koodini,+jotka+palauttavat++oikean+taulukon+siirtelee+sitä+tai+ei.tämä+päivittyyFunction+SivunNimi(n)Application.+Volatile+++SivunNimi+=+Sheets(n).NameEnd+FunctionKeep+EXCELing@Kunde
  3. Sub+koe2()Dim+Solu+As+RangeDim+i+As+Longi+=+1With+Worksheets("Taul2").Range("A:A")+=+""For+Each+Solu+In+Worksheets("Taul1").Range("A1:A10")++++If+Not+Solu.Offset(0,+1)+=+""+Then++++++++.Range("A"+&+i).Resize(Solu.Offset(0,+1))+=+Solu++++++++i+=+i+++Solu.Offset(0,+1)++++End+IfNextEnd+WithEnd+Subkeep+EXCELing@Kunde
  4. ehdollinen+muotoiluesim.+jos+B-sarakkeessa+vaikka+osoite,+niin++kaavaksi=NOT(B1=Sheet1!B1)muuta+taulukon+nimi+sopivaksi
  5. logiikalla...=(A1<1980)*1+(A1<=1990)*(A1>=1980)*2+(A1>1990)*3
  6. ei+tarvitse+määritellä+aluetta...Sub+Piilota()ActiveCell.EntireRow.SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden+=+TrueEnd+SubSub+Näytä()ActiveCell.EntireRow.SpecialCells(xlCellTypeBlanks).EntireColumn.Hidden+=+FalseEnd+SubKeep+EXCELing@Kunde
  7. Sub+TAulukonNimet()Dim+i+As+LongFor+i+=+1+To+Sheets.Count++++Cells(i,+1)+=+Sheets(i).Name+++++Cells(i,+2)+=+Worksheets(i).Range("C1")Next+iEnd+SubKep+EXCELing@Kunde
  8. koodilla+mahdollisuuksia+kikkailla+lisäähiiren+oikea,+tuplaklikkaus+ja+solun+aktivointi+ja+valintalomake+usealle+linkille+nyt+ainakin+onnistuu...Keep+EXCELing@Kunde
  9. Jos+hiiren+oikealla+klikkaa+solua+,+niin+siihen+aukeavaan+valikkoon+voi+koodilla+lisätä+tekstiä+ja+liittää+makroja+tekstiin+ja+eri+soluissa+voisi+olla+vaikka+eri+linkit+ja++useitakin++linkkejäkommenttiin+voi+liittää++1+linkin,+mutta+kommentti+pitää+olla+näkyvillä+kokoajanKopioimalla+tekstin+jostakin+solusta+kuvana+ja+liittämällä+se+soluun+ja+siihen+sitten+hyperlinkin+onnistuu+samaan+tapaan+kuin+edellisissä+postauksissa+on+kerrottuKeep+EXELing@Kunde
  10. Tools+valikosta++tarkista+onko++Require+Variable+Declaration+valittuna.++Helpottaa+ainakin+nimien+väärinkirjoittamisen++tarkistuksessa.En+tiedä+onko+haittaa,+jos+poistat+täpän+Auto+Systax+Checkistä.+Ainakin+voisi+kuvitella+auttavanLuulen,+että+syynä+sulla+tupla+välilyöntejä+ja+muita+kirjoitusvirheitä+kirjoittaessa+ja+kun++ohjelma+aika+ajoin+tekee+auto+tarkistuksia+ja+poistaa+tupla+välilyöntejä+yms.+jolloin+kursori+saattaa+siirtyä.++Ei+ole+itsellä+tullut+tommosta+esille.Keep+EXCELing@Kunde
  11. Huonosti+luin+...Sulla+olikin+siis+kaava+soluissa,+joka+muuttuu.+Muutin+nyt+alueeksi+A1:A100,+jolla+tekee+muutokset....helppo+fiksata+tota+solualuettaPrivate+Sub+Worksheet_Change(ByVal+Target+As+Range)Dim+Solu+As+RangeFor+Each+Solu+In+Range("A1:A100")If+Not+Solu.Value+Like+"*[!0-9]*"+ThenSolu.NumberFormat+=+"General"ElseIf+Not+Solu.Value+Like+"*[!0-9,]*"+And+Not+Solu.Value+Like+"*,*,*"+ThenSolu.NumberFormat+=+"0.0000"ElseSolu.NumberFormat+=+"General"End+IfNextEnd+SubKeep+EXCELing@Kunde
  12. ko.+taulukon+moduuliin...muuta+solualue+sopivaksi+nyt+A+-sarakePrivate+Sub+Worksheet_Change(ByVal+Target+As+Range)++Dim+Solu+As+Range++For+Each+Solu+In+Intersect(Target,+Columns("A"))++++If+Not+Solu.Value+Like+"*[!0-9]*"+Then++++++Solu.NumberFormat+=+"General"++++ElseIf+Not+Solu.Value+Like+"*[!0-9,]*"+And+Not+Solu.Value+Like+"*,*,*"+Then++++++Solu.NumberFormat+=+"0.0000"++++Else++++++Solu.NumberFormat+=+"General"++++End+If++NextEnd+SubKeep+EXCELing@Kunde
  13. 2010+toimii+hyvin.Miksi+pitää++päivitttäa+bugiversioihin?Ja+mitä+hyötyä+tavikselle+on+jostain++2003+vanhasta+versiostakaan++päivittää?Aina+vaan+hankalampaa+käyttää..
  14. tuolta+voi+ladata+mallinhttps://www.dropbox.com/s/wr7k86pbjek3bub/Hakukoe.xlsx?dl=0
  15. se+muistaakseni+toimii+niin,+että+kun+syöttää+kirjaimen+niin+hakee+sitä+solusta+eli+esim.+jos+solussa+teksti+Kunde,+niin+se+tulee+listaan+kun+kirjoittaaK+tai+u+tai+n+tai+d+tai+e+tai+Ku+tai+un+tai+nd+tai+de+tai+kun+ja+jne.Eli+jos+soluista+löytyy+mistä+kohtaa+tahansa++syötetyt+merkit+peräkkäin,+niin+näyttää+ne.Toisaalta+fiksumpi+kuin+pelkkä+ekakirjain,+koska+aina+eivoi+muistaa+koko+nimeä+niin+riittää+kun+osan+muistaa...Olisiko+sopiva+ratkaisu+tommonen?Sinä+näppärästi+kikkaillaan+kaavoilla,+hieman+duunia+vaatii+tehdä,+mutta+toimii+kyllä+hyvin..
  16. kikkailemalla+kyllä+saa+aikaiseksi+ilman+VBA:taJossain+koviksella+mulla+semmonen+on...
  17. juuri+näin
  18. moduuliin...Sub+EtsiJaPoista()Dim+vika+As+LongDim+solu+As+RangeDim+cainoa+As+New+CollectionDim+i+As+LongDim+uList()+As+Variant'muuta+taulukon+nimi+oikeaksiWorksheets("Sheet2").Activate'++++muuta+sarake+oikeaksivika+=+Range("C"+&+Rows.Count).End(xlUp).Row++++Application.Volatile++++On+Error+Resume+Next'++++muuta+sarake+oikeaksi++++For+Each+solu+In+Range("C1:C"+&+vika)++++++++If+solu.Formula+<>+""+Then++++++++++++cainoa.Add+solu.Value,+CStr(solu.Value)++++++++End+If++++Next+solu++++If+cainoa.Count+>+0+Then++++++++ReDim+uList(1+To+cainoa.Count)++++++++For+i+=+1+To+cainoa.Count++++++++++++uList(i)+=+cainoa(i)++++++++Next+i++++End+If'muuta+nimi+oikeaksiWorksheets("Sheet1").ActivateFor+i+=+1+To+UBound(uList)'++++muuta+sarake+oikeaksi++++EtsiJaSiirrä(uList(i),+Range("C:C")).EntireRow.DeleteNextOn+Error+GoTo+0End+SubFunction+EtsiJaSiirrä(Hakuehto+As+Variant,+Hakualue+As+Range)+As+RangeDim+solu+As+RangeDim+EkaOsoite+As+StringWorksheets("Sheet1").ActivateOn+Error+Resume+NextWith+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
  19. Sub+Trimmaa()Dim+Solu+As+Range'muuta+solualue+sopivaksi...For+Each+Solu+In+Range("A1:C10")Solu.Value+=+Trim(Solu.Value)Next+SoluEnd+Sub
  20. ;-)
    21. 9 / 69
TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt