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. Sub Tarkista()
    Dim vika As Long
    Dim solu As Range
    vika = Range("B65536").End(xlUp).Row
    For Each solu In Range("B1:B" & vika)
    solu.Offset(0, 1) = DateSerial(Year(Date), Month(solu), Day(solu)) ' c-solu
    solu.Offset(0, 2) = DateSerial(Year(solu), Month(solu) - 4, Day(solu)) ' d-solu
    solu.Offset(0, 2) = solu.Offset(0, 2).Value
    Select Case True ' vertailu
    Case solu.Offset(0, 1) > solu.Offset(0, 3) 'c>e
    solu.Offset(0, 5) = "Myöhässä"
    Case solu.Offset(0, 2) < solu.Offset(0, 3) 'd
  2. Sub aaa()
    Range("A:A").Interior.ColorIndex = xlNone
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
    If WorksheetFunction.CountIf(Range("A1:A" & i), Cells(i, 1).Value) > 1 Then
    Cells(i, 1).Interior.ColorIndex = 3
    If MsgBox("Duplicates highted...Do you want to delete", vbYesNo) = vbYes Then
    Cells(i, 1).EntireRow.Delete
    Else
    Range("A:A").Interior.ColorIndex = xlNone
    End If
    End If
    Next i
    End Sub
  3. Sub nimea_captions(c)
    Nappitaulukko.CommandButton1.Caption = NAppitaulukko.Cells(8, c)
    Nappitaulukko.CommandButton2.Caption = NAppitaulukko.Cells(9, c)
    End Sub

    Sub a()
    nimea_captions (1)
    End Sub
  4. comboboxilla ei ole caption ominaisuutta ...
    ehkä tarkoitit komentopainiketta tai vastaavaa
    no nimeä nyt Taul2:n ominaisuuksisa se eka Name vaikka Nappitaulu

    ja sitten koodissa
    ...
    Nappitaulukko.CommandButton1.Caption = Sheets("xxx").Cells(8, c)
    Nappitaulukko.CommandButton2.Caption = Sheets("xxx").Cells(9, c)
    ...
  5. koodi jättää vain uniikit arvot jäljelle, joten poistaa tuplat, triplat jne...
  6. solussa A1 aika muodossa mm:ss esim 34000:30
    muunnos tunneiksi ja minuuteiksi esim solu B1 =DOLLARDE(VASEN(A1;ETSI(":";A1;1)-1);60)/1440 (566:30)

    päivät/ tunnit/ min esim solu C1 =KOKONAISLUKU(B1)& " päivää " &TEKSTI(JAKOJ(B1;1);"tt") & " tuntia "&TEKSTI(JAKOJ(B1;1);"mm")&" minuuttia" (23 päivää 14 tuntia 40 minuuttia)
  7. vielä yksi tarkistuspaikka
    Referenssit ja jos jossakin teksti Missing niin lisää se sitten
    Eihän siellä ole enkkuversio? Joten kaavassa oleva erotin ; pitäisi olla , ???

    no paikallista Hyvää Uutta Vuotta sitten ( 3. Uusi Vuosi jo tälle vuodelle...) olispas nää muutkit juhlat sitten aina kolmena kappaleena... ;-)
  8. kokeile tätäkin...

    Sub koe2()
    MsgBox UBound(Split(Range("G6"), Chr(44))) + 1
    End Sub
    jos ei näillä pelitä sitten toisella tapaa...
    nyt täällä paikallinen uusivuosi joten menee sitten ensiviikkoon vastaukset...
  9. kyllä se SPLIT sittenkin esiteltiin jo 2000 versiossa...

    kokeilesvielä tällä toimiiko se. Eli pitäisi palauttaa sanojen lkm solusta G6

    Sub koe1()
    MsgBox UBound(Split(Range("G6"), ",")) + 1
    End Sub

    en tiedä toimisko tämmönen sitten tämmönen "kikka kolmonen", että kopioit sen 2003 version EXCEL.EXE jonnekin kansioon siellä duunissa ja lisäät sitten VBA puolella referenssin siihen... ja sitten kokeilet uudelleen funktiota?
  10. jos oikein muistelen, niin toi SPLIT funtio tuli vasta 2003 versioon...
    eli ei toimi sitten 2000 versiossa ja vaatii toisenlaisen lähestymistavan
  11. haluatko muunnosmakrot vaiko mitä?
    eli kysyy mmm:ss ja ilmoitaa hh:mm vaiko laskee johonkin soluun?
  12. koodin pätkä moduuliin... ja tallennat. Kun seuraavan kerran avaat Excelin niin kuvat päivittyvät...

    Sub Auto_Open()
    Dim kuva As Object
    Dim i As Long

    For i = 1 To Sheets.Count
    For Each obj In Worksheets(i).OLEObjects
    If obj.OLEType = 2 Then
    Set kuva = obj
    kuva.Object.Picture = LoadPicture("C:\kuvat\logot\logo1.jpg ")
    End If
    Next
    Next
    End Sub
  13. valikosta VIEW / TOOLBARS ja avautuvasta listasta valitset CONTROL TOOLBOX. Työkaluvalikosta sitten klikkaat IMAGE kontrollia ja hiirellä maalaat sopivan kokoisen alueen.taulukossa. Voit myöhemmin muutella paikkaa ja kokoa. Klikkaa hiiren oikealla ja avautuvasta menusta valitse PROPERTIES. Ominaisuuksista valitse Picture ja klikkaa oikealla olevia 3 pistettä ja avautuvasta valikosta selaat sitten logolle oikean polun. Samaisella lomakkeella voit säädellä kuvan paikan tarkasti ja korkeuden ja leveyden yms.
  14. "Ihminen näkee katkaisukohdat, mutta excel ei ilman Kunden koodia..."
    ;-)

    osoitteet nyt C1:Cxx ja purkaa katuosoitteen D- sarakkeeseen ja postitoimipaikan numeroineen E -sarakkeeseen

    moduuliin...

    Sub PuraOsoitteet()
    Dim i As Long
    Dim Postinumero As Integer
    Dim solu As Range
    Dim vika As Long
    vika = Range("C65536").End(xlUp).Row
    For Each solu In Range("C1:C" & vika)
    For i = Len(solu) To 1 Step -1
    If IsNumeric(Mid(solu, i, 1)) Then
    Postinumero = Postinumero + 1
    End If
    If Postinumero = 5 Then
    solu.Offset(0, 1) = Left(solu, i - 1)
    solu.Offset(0, 2) = Mid(solu, i)
    Exit For
    End If
    Next
    Postinumero = 0
    Next
    End Sub

    Keep EXCELing
    @Kunde
  15. no raahaa se se kontrolli sopivaan kohtaan ja kahvoista fiksaat koon sopivaksi, jos ei onnaa niin kysy koodia sitten...

    @Kunde
  16. ehkäpä helpoin tapa on Contol toolboxista lisätä image control ja liittää siihen se logo ja kopsata sitten kontrolli kaikkiin taulukoihin. Sen jälkeen vaan kun logo muuttuu niin nimeää uuden logon vanhan nimiseksi ja aina kun Excel aukeaa se päivittää logon taulukoihin.

    Sub Auto_Open()
    Dim kuva As Object
    Dim i As Long

    For i = 1 To Sheets.Count
    For Each obj In Worksheets(i).OLEObjects
    If obj.OLEType = 2 Then
    Set kuva = obj
    kuva.Object.Picture = LoadPicture("C:\kuvat\logot\logo1.jpg ")
    End If
    Next
    Next
    End Sub

    Keep EXCELing
    @Kunde
  17. =LEN(TRIM(A1))-LEN(SUBSTITUTE(A1;" ";""))+1
    mutta tulos voi heittää, koska ylimääräiset/ puutuvat välilyönit vaikeuttaa tilannetta(mm. tupla välilyönti ennen pilkkua.)
    Toki voishan sitä monsterikaavaa vääntää, mutta siististi ja varmasti VBA:lla

    soluun kaava =sanojenlkm(A1;","), missä A1 solu ja "," erotin

    moduuliin...

    Function SanojenLkm(Solu As Range, Erotin As String) As Integer
    SanojenLkm = UBound(Split(Solu, Erotin)) + 1
    End Function

    Keep EXCELing
    @Kunde
  18. toivottavasti ei tuu ähkyolo ;-)

    Sub Aikaerot()
    Dim vika As Long
    Dim solu As Range
    Dim Aikaero As Long
    Dim taulukot
    Dim i As Long
    On Error Resume Next
    Sheets("Ohi").Range("N1:N4") = ""
    taulukot = Array("Taul1", "Taul2", "Taul3")
    For i = LBound(taulukot) To UBound(taulukot)
    vika = Sheets(taulukot(i)).Range("G65536").End(xlUp).Row
    For Each solu In Sheets(taulukot(i)).Range("G1:G" & vika)
    Aikaero = CDbl(solu.Offset(0, 3)) - CDbl(solu)
    Select Case Aikaero
    Case 1
    Range("N1") = Sheets("Ohi").Range("N1") + 1
    Case 2
    Range("N2") = Sheets("Ohi").Range("N2") + 1
    Case 3
    Range("N3") = Sheets("Ohi").Range("N3") + 1
    Case Is > 3
    Range("N4") = Sheets("Ohi").Range("N4") + 1
    End Select
    Next
    Next
    End Sub
    Keep EXCELing
    @Kunde
  19. tarkoititko todella , että ohi 1pv , 1-2 pv, 2-3 pv ja yli 4 pv?
    vaiko 1,2,3 yli 4 pv?

    no mai pen rai tossa sulle molemmat versiot
    eli tulostukset soluihin N1:N4

    moduuliin...
    Sub Aikaerot()
    Dim vika As Long
    Dim solu As Range
    Dim Aikaero As Long
    On Error Resume Next
    Range("N1:N4") = ""
    vika = Range("G65536").End(xlUp).Row
    For Each solu In Range("G1:G" & vika)
    Aikaero = CDbl(solu.Offset(0, 3)) - CDbl(solu)
    Select Case Aikaero
    Case 1
    Range("N1") = Range("N1") + 1
    Case 2
    Range("N2") = Range("N2") + 1
    Case 3
    Range("N3") = Range("N3") + 1
    Case Is > 3
    Range("N4") = Range("N4") + 1
    End Select
    Next
    End Sub

    Sub Aikaerot2()
    Dim vika As Long
    Dim solu As Range
    Dim Aikaero As Long
    On Error Resume Next
    Range("N1:N4") = ""
    vika = Range("G65536").End(xlUp).Row
    For Each solu In Range("G1:G" & vika)
    Aikaero = CDbl(solu.Offset(0, 3)) - CDbl(solu)
    Select Case Aikaero
    Case 1
    Range("N1") = Range("N1") + 1
    Case 2
    Range("N1") = Range("N1") + 1
    Range("N2") = Range("N2") + 1
    Case 3
    Range("N2") = Range("N2") + 1
    Range("N3") = Range("N3") + 1
    Case Is > 3
    Range("N4") = Range("N4") + 1
    End Select
    Next
    End Sub

    Keep EXCELing
    @Kunde
  20. Kyllä EXCEL on todella hyvä ohjelma.

    Itse käyttelen sitä eri CAD/CAM ohjelmien kanssa laskentaan ja tekstinkäsittelyynkin se on parempi kuin fu**** WORD (koska Exceliin voi hakea Word objektikirjaston ja käyttää lähes kaikkkea mitä worsisäkin voi tehdä) ja asettelut ihan eri luokkaa kuin WORDissä.
    Access ja Excel runnaa loistavasti.
    Ainut mitä en ole lokeilluton Officepaketissa on Powerpoint. En tiedä oikein mihin sitä nyt tarvitsisin kun kaikkea voin Excelillä tehdä.

    Kurisioottina mainittakoon, että suoritin ko. aikuiskoulutuskeskuksessa ATK ammattitutkinnon huvikseni, mutta hylsy tuli kun ei ollut näyttöä, että osaan tehdä joukkokirjeitä. Tosin ihmettelin näitten muitten eri ohjelmien käyttöä rajapintojen kautta kriteeriä, mitä kukaan muu kurssitoveri ei pystynyt osoittamaan ja silti heidän tutkintonsa meni läpi ....

    Silloin tein 2 eri firmaan sovellutukset tilauksesta työmääräimiin/lähetteisiin ja siirrot laskutusohjelmiin ja tein hommat Excelillä. Koodia oli pari mapillista...
    No ei ollut näyttöä joukkokirjeistä tosiaankaa!
    Oli näytöt hiukan kovenpaa luokka kuin joukkokirjeen teko!
    Sitten ja uusinnassa esitin joukkokirjeet 5 eri tavalla ja edelleen ilman WORDIA ja menihän se läpi. Tentattiin, miksi en käytä WORDIA ja kerroin, mitä vi**** mä sillä teen sotkemassa asioita kun ne voi hoitaa paljon fiksummin muilla ohjelmilla ja malliksi esitin sitten vielä WORDin oikoluvun EXCELissä - hehehe

    mutta kivahan sitä oli pompottaa mua...
    terveisiä vaan JMS:lle
    21. 33 / 69
TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt