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. vois ylläpiito laittaa kooditagit näihin ohjelmointiosioihin...
  2. no loppuosa sitten...
    solu.Offset(0, 5) = "Tulossa"
    Case Else
    MsgBox "mitähän tässä tapauksessa?"
    End Select
    Next
    End Sub
  3. ei oo eka kerta kun foorumi sekoilee...
    nytkin heittelee minne sattuu kun yrittää vastata tähän...

    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(Date), Month(solu) - 4, Day(solu)) ' d-solu
    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
  4. 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
  5. 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
  6. 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
  7. 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)
    ...
  8. koodi jättää vain uniikit arvot jäljelle, joten poistaa tuplat, triplat jne...
  9. 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)
  10. 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... ;-)
  11. 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...
  12. 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?
  13. jos oikein muistelen, niin toi SPLIT funtio tuli vasta 2003 versioon...
    eli ei toimi sitten 2000 versiossa ja vaatii toisenlaisen lähestymistavan
  14. haluatko muunnosmakrot vaiko mitä?
    eli kysyy mmm:ss ja ilmoitaa hh:mm vaiko laskee johonkin soluun?
  15. 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
  16. 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.
  17. "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
  18. no raahaa se se kontrolli sopivaan kohtaan ja kahvoista fiksaat koon sopivaksi, jos ei onnaa niin kysy koodia sitten...

    @Kunde
  19. 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
  20. =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
    21. 33 / 69
TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt