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. sori olin postannut vai osan testifunktiosta tänne, enkä kokofunktiota ja enpähän näköjään osannut kääntää SEARCH funktiota lontoosta sohjolaan...

    kuten yllä jo korjattiin
    SEARCH = KÄY.LÄPI - etsii merkkijonoa (ei tunnista kirjainkokoa) ;-)

    =SUMPRODUCT(ISNUMBER(SEARCH("*bens*";C1:C122))*D1:L122)
    =TULOJEN.SUMMA(ONLUKU(KÄY.LÄPI("*bens*";C1:C122))*D1:L122)
  2. tallennus oletusnimellä
    vaihda kansio sopivaksi
    et maininnut mikä versio käytössä ja tää nyt vain yleisenä laittaa oletuksena solun B2 tiedostonimeksi (vain tiedostonnimi soluun, ilman päätettä).
    jos haluat sitten tallentaa ilman makroja taikka tekstitiedostona yms. niin vaatii reippaammin koodia, mutta onnistuu kyllä ilman turhia herjoja ja klikkailuja...

    moduuliin...

    Sub Tallenna()
    ChDir "E:/Excel"
    Application.Dialogs(xlDialogSaveAs).Show Worksheets("Sheet1").Range("B2")
    End Sub

    tokaan kyssäriin kanssa simppeli vastaus

    ThisWorkBook moduuliin...

    Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Worksheets("Sheet1").Range("A1") = Now()
    End Sub

    jos perut tallennuksen päivittää kumminkin, mutta käsiteltävissä tuokin koodaamalla....
    Luultavasti riittänee sulle näin?
  3. =SUMPRODUCT(SEARCH("*bensa*";C1:C9)*D1:L9)
    =TULOJEN.SUMMA(ETSI("*bensa*";C1:C9)*D1:L9)

    Keep EXCELing
    @Kunde
  4. kerro tulos 24:lla, koska tulos on päivän desimaaliosa 1=24h ja 0,5 on 12 h

    siis 0,3125*24=7,5
  5. http://www.kundepuu.com/viewtopic.php?p=663#p663

    ;-)


    Keep EXCELing
    @Kunde
  6. saattaapi tulla ongelmia jos "luvut" sopivat päiväyksiin esim. 12.11 ja EXCEL "arpoo" sen päiväykseksi niin ...
    malliesim. ei ongelmia tämän suhteen
    lycka till!
  7. http://www.kundepuu.com/viewtopic.php?f=155&t=504

    Keep EXCELing
    @Kunde
  8. laita moduuliin oma funktio
    määrittelet vain muuttujille oikeat tyypit samoin kuin funktion palautusarvolle
    esim.

    Function Kuutiontilavuus(Leveys As Double, Syvyys As Double, Korkeus As Double) As Double
    Kuutiontilavuus = Leveys * Syvyys * Korkeus
    End Function


    ja sitten soluun kaava esim. =Kuutiontilavuus(A1;B1;C1)
    siinäpä se yksinkertaisimmallaan...


    Keep EXCELing
    @Kunde
  9. mikä fontin nimi ja fontin koko?
  10. jos käytät jotain tiettyä fonttia niin sen fontin attribuuttien avulla VBA:lla voi laskea likimain tekstin pituuden ja vertailla sitä sitten solun leveyteen. Ei ole muut keinoa...
    jos useampi fontti käytössä niin ei kiinnosta...

    Keep EXCELing
    @Kunde
  11. http://www.kundepuu.com/viewtopic.php?f=155&t=502

    Keep EXCELing
    @Kunde
  12. http://www.kundepuu.com/viewtopic.php?p=656#p656

    Keep EXCELing
    @Kunde
  13. ei ole Excelissä tapahtumaa scrollaukselle ja vaatii API komentoja ja menee liian monimutkaiseksi...
    pitänee nyt vaan tyytyä siihen, että on piilossa niin kauan kunnes klikkaat solua...
    toki nuolinäppäimillähän se toimii ihan Ok!
  14. http://www.kundepuu.com/viewtopic.php?f=155&t=500

    Keep EXCELing
    @Kunde
  15. http://www.kundepuu.com/viewtopic.php?f=155&t=499

    Keep EXCELing
    @Kunde
  16. et ole lisännyt Active X työkalupalkista tekstiruutua vaan tavallisen tekstiruudun lisää valikosta

    Keep EXCELing
    @Kunde
  17. et maininnut mikä versio, mutta samanlailla se toimii kaikissa versioissa, paitsi ei tästä 2010 ribboneista mitään löydä itekään ja asensin vanhan malliset valikot...

    eli lisää Active X komponenteistä tekstiruutu klikkaamalla sen kuvaketta ja piirrät sitten taulukkoon suorakaiteen. Tuplaklikkaa suorakaidetta ja koodisivu aukeaa. Vasemmalla pitäisi olla Ominaisuudet ikkuna Properties Window ja sieltä muuttelet noi arvot sopiviksi. Jos ei ole näkyvillä niin valikosta View klikkaa Properties Window
    Vasemmalla yläkulmassa pitäisi olla Project ikkuna ja sieltä klikkaat ko. taulukkoa mihin lisäsit tekstiruudun ja koipoit koodin oikealla olevaan valkoiselle alueelle. Jos et näe Project ikkunaa niin View valikosta klikkaa Project Explorer
    siinäpä se...


    Keep EXCELing
    @Kunde
  18. =EPÄSUORA(OSOITE(RIVI()-1;SARAKE()))
    =INDIRECT(ADDRESS(ROW()-1);COLUMN() ))

    Keep EXCELing
    @Kunde
  19. =EPÄSUORA("A"& RIVI()-1)
    =INDIRECT("A"& ROW()-1)

    Keep EXCELing
    @Kunde
  20. http://www.kundepuu.com/viewtopic.php?f=155&t=496&p=641#p641

    keep EXCELing
    @Kunde
    21. 22 / 69
TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt