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. simppeli ratkaisu
    oletetaan, että sulla vaikka 2000 nimikettä sarakkeessa A1:A2000 ja ja luvut sarakkeessa B1:B2000(vain esimerkkinä, voi olla kuinka monta vaan )

    Kuvaajan tiedot vastaavasti E1:F20000
    Kun aloitat kuvaajan tekoa niin laita soluun E1 =1 tai montako niitä lukuja onkaan alkuhetkellä ja vastaava summa soluun F1

    tee kaavio data-alueesta esim. E1:F2000
    Ala sitten syöttömään lukuja nimikkeille ja kaavio päivityy sitä mukaan.

    mallikoodissa lisää nyt pvm ja kpl, mutta hipsaamalla sen rivin ja poistamalla riviltä
    ' Range("E10000").End(xlUp).Offset(1, 0) = Application.WorksheetFunction.Count(Range("B:B"))

    hipsun, saat kpl ja summakaavion.

    taulukon moduuliin...

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
    ' eiintymien määrä
    ' Range("E10000").End(xlUp).Offset(1, 0) = Application.WorksheetFunction.Count(Range("B:B"))
    ' päivämäärä
    Range("E10000").End(xlUp).Offset(1, 0) = Date
    Range("E10000").End(xlUp).Offset(0, 1) = Application.WorksheetFunction.Sum(Range("B:B"))
    End If
    End Sub


    Keep EXCELing
    @Kunde
  2. tallentaa samaan kansioon kuin originaali
    jos samanniminen kysyy tallennetaanko päälle
    saa pois ton kyssärin, jos haluaa, ottamalla hipsun pois riviltä
    'Application.DisplayAlerts = False

    moduuliin...

    Sub copyAndSave()
    Dim ws As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    'Application.DisplayAlerts = False
    For Each ws In Worksheets
    ws.Copy
    ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ws.Name & ".xlsx"
    ActiveWorkbook.Close
    Next
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
    End Sub

    Keep EXCELIng
    @Kunde
  3. noduuliin...

    Sub Poista()
    Range("H:H").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End Sub

    Keep EXCELing
    @Kunde
  4. http://msdn.microsoft.com/en-us/library/office/ff194426.aspx
  5. Function IBAN(Solu As String) As String
    IBAN = Left(Solu, 4) & " " & Mid(Solu, 5, 4) & " " & Mid(Solu, 9, 4) & " " & Mid(Solu, 13, 4) & " " & Mid(Solu, 17, 2)
    End Function


    Keep EXCELing
    @Kunde
  6. taulukon oduuliin...

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
    Target = StrConv(Target, vbProperCase)
    End If
    End Sub

    Keep EXCELing
    @Kunde
  7. jos sallitaan XXX kpl lukuja eri tai samoja summaan YYY, niin siinäpä alkaa olla tekemistä. Kokeilin VBA:lla tehdä, mutta tyhmyyteni alkoi paljastua aika pian ja tyydyttävää ratkaisua en saanut. Monesti jäi osatuloksista pois,, mutta aina kuitemkin 1 oikean ratkaisun saan.
    Haasteellinen juttu sanon minä. Eikös toi mee 2 potenssiin lukujen määrä noi variaatiot eli kasvaa aika nopeasti jos lukujen määrä kasvaa?
    Arrayrta sinä åyörittelin yhtä jos toista, mutta en tajua miksi se pudotti oikeita tuloksia pois välillä. Jos kerkiin niin kattelen vielä tota

    Keep EXCELing
    @Kunde
  8. ilmeisesti sulta jäi toi I tosta esimerkki muotoilusta pois...

    en tiedä onko IBAN tilinumero aina samanpituinen (en jaksanut tarkistaa..) ?
    jos on niin tossa tosi simppeli käyttäjän oma funktio

    moduuliin..

    Function IBAN(Solu As String) As String
    IBAN = Left(Solu, 5) & " " & Mid(Solu, 6, 4) & " " & Mid(Solu, 10, 4) & " " & Mid(Solu, 14, 3) & " " & Mid(Solu, 17, 2)
    End Function.

    ja soluun mihin haluat muotoiltuna IBANin kaava esim. = IBAN(A1)
    muokkaa nyt solun A1 IBAN koodin

    jos tarttet muunlaista ratkaisua niin onnistuu sekin...
    esim.
    syötöt soluun IBAn koodin ja enterillä tekee ton
    hiiren oikealla?
    tuplaklikkauksella muuttaa?
    jne...

    Keep EXCELing
    @Kunde
  9. Miksi noin monimutkaisesti, jos Excel auki kokoajan ja 00:00:00 tapahtuu makron suoritus?

    yksi helppo keino olisi käyttää Windowsin omaa ajastettua toimintaa ja silloin Excel voi olla suljettuna kokoajan. Toki, jos pitää lukea dataa jostain kokoajan niin ei voi käyttää. Mutta jos esim. juuri, ennen makron suoritusta voidaan lukea dataa sisään silloin tekisin itse tällä, koska ei tartte Excelin olla auki resursseja viemässä.
    siis START/ ADMINISTRATIVE TOOLS/ SHEDULE TASK ja siellä lisäät ton Excelin avaamisen ja Auto-Open tapahtumaan tarvittavat koodit ...


    Keep EXCELing
    @Kunde
  10. eiköhän toukta peltierin sivuilta löydy tarvittava...
    http://peltiertech.com/Excel/

    Keep EXCELing
    @Kunde
  11. Älä vaivaa päätäsi tollasilla...
    VBA koodit aukee ihan helposti oli sun mielessä mitä jippoja tahansa.
    Mulla kokemusta koodaamisesta reilut 10 v ja eri ohjelmilla...
    Tyydy vaan siihen salasanaasi. Ei sitä tavalliset käyttäjät saa auki ilman apuohjelmia.
    Ja jos muuta jippoja on ja saavat auki, niin hakkeroija on sit parempi asiantuntija kuin sinä..
    ;-)

    Keep EXCELing
    @Kunde
  12. Voin kyllä ilman testausta sanoa, että Mr.VBAn koodi ei toimi kuin kerran ja siis ja vain kun avataan tiedosto. Ja toimii silloinkin vain jos avauksessa solussa oleva aika on "tulevaisuudessa"

    Toisaalta kysymyshän oli miten korvata F9 napin painallus, jos solussa aika muuttuu ja raja ylittyy
    ihan piece of case, mutta katsotaan miten Mr.VBA ratkaisee hommat...
    jos ei onnaa, niin ehkäpä Kunde auttaa...


    muuten HYVÄÄ VAPPUA KAIKILLE etenkin mun foorumin lukijoille!

    KEEP EXCELing
    @Kunde
  13. "Moi Kunde, ei mitään."

    Aivan oikein! Ei tapahdu mitään

    Aika = Range("A1").Value

    jos oletuksena oli vaikka Taul1 ja siellä toi arvo haetaan, toimiii niin kauan oikein kun olet tallentanut EXCELin Taul1 ollessa aktiivinen. Jos sen sijaan tallennat esim. Taul2 ollessa aktiivinen, ei toimi koska A1 arvo luetaan aktiivisesta taulukosta ja todennäköisesti muissa taulukoissa ei ole tota aikaa A1:ssa

    ymmärsitkö pointtini?


    Keep EXCELing
    @Kunde
  14. jos tallennatkin jonkun muun kuin sun ajatuksissasi olleen taulukon ollessa aktiivinen, niin mitäs tapahtuu seuraavalla kerralla kun avaat ExCELin... ;-)
    ei hjuva

    Keep EXCELing
    @Kunde
  15. ei siinä tartte olla ominaisuuksissa LinkedCel kohdassa mitään
    ihan sama mihin soluun viittaa ja tekee mitä haluu arvolla....

    Private Sub ComboBox1_Change()
    Range("A1") = Val(ComboBox1)
    End Sub

    Keep EXCELing
    @Kunde
  16. "Haluan, että värit kattavat tietyln skaalan, vaikka Labelien lukumäärä vaihtelee.. .."
    ;-)

    Keep EXCELing
    @Kunde
  17. turhahan niiä sinne leikepäydälle on siirrellä ja kopioida takasin kun sen voi noin tehdä suoraan ilman leikepäytää, niinkuin koodisi nyt tekee,.


    alla hiukan siitittynä toi sama makro . Siinä poistettu vaan turhia toimintoja ja oletusarvoja.

    Sub Makro1()
    ' Makro1 Makro
    Range("A65536").End(xlUp).Offset(1, 0).Resize(, 4) = Sheets("Taul1").Range("E7:H7").Value
    End Sub


    Keep EXCELing
    @Kunde
  18. Lisää nimet ja viittauksessa laitat nimille arvot
    Nimi=Omena
    Viitaus=1

    ja sitten vaan soluuun mihin haluat tuloksen laitat kaavan esim.
    =päärynä*mango


    Keep EXCELing
    @Kunde
  19. EPS helppo ja vaivaton

    Leikkasin CNC lankaleikkurillani paneelit, listat yms.
    Tarkoitus oli pinnoittää aidolla vilulla, mutta en saanut ajoissa viilua, joten hoidin sitten polyurealla jutut.
    Polyureallahan saa EPS:tä kivikovaa...
    Seuraavaan projektiin tulee sit aidolla viilulla pinnoitetua EPS:ää.
    Mallimökki tehtiin 100 mm EPS MgO (10 mm MgO+ 80 mm EPS +10 mm MgO) eltsuista. Ulkopuolelle tuli 100 mm leveää ja 25 mm paksua panelijäljitelmää pystyyn sekä vaakaan, peitelistoja sekä koristelistoja.
    U-arvotkin kohillaan ja EPS paksuudellahan sitä saa parannettua helposti ja tarvetta sille onkin tämmösillä helteillä kuin nytkin +40 C (Thaimaa)

    Leveydet, paksuudet ja profiilit saa just semmoset kuin itse haluu ja noita puulajejakin on kymmenittäin ja lopuksi värittömällä UV-suoja polyurealla kellastumisenesto.
    samoin EPS MgO eltsut helppo tehdä just semmosille U arvoille kun tarttee ja paloluokitukset saa kanssa kohillaan
    3 mm paksu MgO levy vastaa paloluokaltaan 13 mm Gyprocia ja saumoissa on I- profiili lasikuitupalkit,joten monikerrosratkaisut onnistuu helposti.
    Lujuus sitten ihan eriluokassa kuin Gyproc levyllä. Kuka semmosta levyä enää käyttääkään?
    Kaikki rakenneosat talossa on kierrätettävää ja betonia ei tartte missään.

    polyurea... ?, sitäpä ei siellä suomenmaalla moni edes tiedä ja sotkee senkin sit polyuretaaniin...

    jos kiinnostaa niin laita viestiä @kunde (suomi24)
  20. korjaa noi rivit koodissa, mulla oli vaan 3 diaa ja siksi unohdin fiksata ne tohon mallikoodiin...

    Set PPSlide = PPPres.Slides.Add(2, ppLayoutBlank)
    PPApp.ActiveWindow.View.GotoSlide 2

    mutta ne
    Set PPSlide = PPPres.Slides.Add(26, ppLayoutBlank)
    PPApp.ActiveWindow.View.GotoSlide 26

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