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. noin se ehkä toimii Calcissa
    esim. ton hemmon sivuilla upeita vääntöjä ilman koodia...

    http://peltiertech.com/Excel/Charts/XYAreaChart.html

    toisaalta taas VBA:lla vois tehdä ton kanssa, mutta jostain syystä mä inhoon käppyröitä ja ei sytytä, sorry ;-)
  2. Eli mitä meinasit tuolla jutskien muodolla?
    mikä on solumuotoilu?

    Eikä tuo soluviittauksien muuttaminenkaan näin sanallisessa muodossa oikein auennut minulle.
    Ymmärtääkseni on jo laskettu ero voittajaan sarakkeessa E?
    joten
    Käyttämäni kaava on hieman monimutkaisempi eli =1000-(kilpailijan aika - voittajan aika)/voittajan aika*1000. Eli toisin sanottuna =1000 - (Dx - Dy) / Dy * 1000, jossa x on käsiteltävä rivi ja y voittajan tulosrivi.

    1000-sarake E/ D & aloitusrivi*1000 on oikea kaava ( aloitusrivi on eri koodissa ekalla sarjalla ja toisella sarjalla, joten pientä hienosäätöä)...

    ;-)
    Keep Excelling
    @Kunde
  3. eihän siinä tartte kuin muuttaa soluviittaukset kaavariville...
    ei tietoa missä muodossa noi jutskat on.
    Olit kuitenkin jo laskenut eron sarakkeeseen E joten kai sitä sitten olisi voinut käyttää nyt meni vahingossa sarakkeelle D ...

    keep Excelling
    @Kunde
  4. Sub Testimakro_A()
    Dim vika As Long
    Dim solu As Range
    Dim aloitus As String

    Range("F:F") = ""

    aloitus = "F4"
    Range("F4") = 1000
    vika = Range("F4").Offset(1, -2).End(xlDown).Row
    For Each solu In Range(aloitus & ":F" & vika)
    solu = (Range(aloitus) - solu.Offset(0, -2)) / Range(aloitus) * 1000
    Next

    vika = vika + 3
    aloitus = "F" & vika
    Range("F" & vika) = 1000
    vika = Range("D" & vika).Offset(1, 0).End(xlDown).Row
    For Each solu In Range(aloitus & ":F" & vika)
    solu = (Range(aloitus) - solu.Offset(0, -2)) / Range(aloitus) * 1000
    Next
    End Sub

    Keep Excelling
    @Kunde
  5. mutta kysyjähän halusi käyttäjän oman funktion, joka löytyy kaavavelhosta...
  6. ei voi toimi millään toi sun ehdotus... ;-)
  7. soluun mihin haluat tuloksen kaava =Supistus(F1) ja muuttaa sitten soluun laskutuloksen tuloksen solu(F1) haluamallasi tavalla???
    Ja funktio löytyy normaalisti kaavavelhosta...

    moduuliin...

    Function Supistus(Arvo As Double) As Double
    Application.Volatile True
    If Arvo < 0 Then
    Do Until Arvo > 0
    Arvo = Arvo + 24
    Loop
    ElseIf Arvo > 24 Then
    Do Until Arvo < 24
    Arvo = Arvo - 24
    Loop
    End If
    Supistus = Arvo
    End Functio
  8. hakusanoina etsijasiirrä haejasiirrä
    kirjoittaja kunde ja tuloksena kymmeniä esimerkkejä ja melkein suoraan toimiva koodikin ...

    esim. http://keskustelu.suomi24.fi/node/9136220#comment-44514587

    Keep Excelling
    @Kunde
  9. =AVERAGE(IF(A1:A4>0;A1:A4))
  10. soluun mihin haluat tuloksen kaava esim. =PosKeskiarvo(A1:A40)

    moduuliin...

    Function PosKeskiarvo(Alue As Range) As Double
    Dim solu As Range
    Dim i As Integer
    On Error Resume Next
    Application.Volatile True
    For Each solu In Alue
    If solu >= 0 Then
    i = i + 1
    PosKeskiarvo = PosKeskiarvo + solu
    End If
    Next
    PosKeskiarvo = PosKeskiarvo / i
    End Function
  11. kopioi koodi moduuliin...
    avaa funktiovelho ja etsi sieltä Sarja funktio ja tee kuten normaalistikin funktioiden kanssa eli lisää tarvittavat soluviittaukset oikeisiin kohtiin lomakkeella

    oikea kaava on muotoa muuten tässä tapauksessa...
    =A1*((1-POWER(A2;A3+1))/(1-A2))-A1
  12. soluissa esim
    A1= x arvo
    A2= q arvo
    A3= n arvo
    soluun mihin haluat tuloksen kaava==Sarja(A1;A2;A3)

    moduuliin...

    Function Sarja(x As Double, q As Double, n As Double) As Double
    Dim i As Integer
    Application.Volatile True
    For i = 1 To n
    Sarja = Sarja + q ^ i
    Next i
    Sarja = Sarja * x
    End Function

    Hyvää Joulua kaikille foorumilaisille!

    Keep EXCELing
    @Kunde
  13. Sub Siirrä()
    Dim vika As Long
    vika = Range("A65536").End(xlUp).Row
    Sheets("Sheet1").Activate
    For Each solu In Range("A2:A" & vika)
    session.findById("wnd[0]").maximize
    session.findById("wnd[0]/mbar/menu[1]/menu[3]").Select
    session.findById("wnd[0]/usr/ctxt[0]").Text = Cells(1, 10).Value
    session.findById("wnd[0]/usr/ctxt[4]").Text = solu
    session.findById("wnd[0]/usr/ctxt[4]").SetFocus
    session.findById("wnd[0]/usr/ctxt[4]").caretPosition = 7
    session.findById("wnd[0]").sendVKey 0
    Next
    MsgBox "ALL " & vika - 1 & " Excel rows processed"
    End Sub
  14. Siis kukkuu on avoinna ja haluat siitä siirtää Sheet1 A sarakkeen tiedot alueelta A2:Axx vai?
    Jos näin on niin excelin objekti on turha

    parempi toteuttaa näin

    Sub Siirrä()
    Dim vika As Long
    vika = Range("A65536").End(xlUp).Row
    Sheets("Sheet1").Activate
    For Each solu In Range("A2:A" & vika)
    session.findById("wnd[0]").maximize
    session.findById("wnd[0]/mbar/menu[1]/menu[3]").Select
    session.findById("wnd[0]/usr/ctxt[0]").Text = Cells(1, 10).Value
    session.findById("wnd[0]/usr/ctxt[4]").Text = infot
    session.findById("wnd[0]/usr/ctxt[4]").SetFocus
    session.findById("wnd[0]/usr/ctxt[4]").caretPosition = 7
    session.findById("wnd[0]").sendVKey 0
    Next
    End Sub
  15. viittaus referensseissä Excel kirjastoon!

    Sub SiirräExceliin()
    Dim Excel As Object
    Dim ExcelSheet As Object

    On Error Resume Next
    Set Excel = GetObject(, "Excel.Application")
    If Err 0 Then
    Err.Clear
    Set Excel = CreateObject("Excel.Application")
    If Err 0 Then
    MsgBox "Exceliä ei voitu aukaista ", vbExclamation
    End
    End If
    End If
    On Error GoTo 0
    Excel.Visible = True
    Excel.Workbooks.Open ("c:\documents and settings\kukkuu.xls")
    ' oma koodi alkaa...
    Sheets(1).Activate
    infot = Range("J9")
    MsgBox infot
    ' oma koodi loppuu...
    Excel.Quit
    Set Excel = Nothing
    End Sub
  16. solussa kaava = PITUUS(A1) ilmoittaa merkkien määrän solussa A1
    kelpoisuusehto soluun =PITUUS(A1)
  17. et voi nimetä taulukon tapahtumaa omaksi makroksi.
    Virheilmoitus tulee siitä kun lisäsit sen rivin etkä lisännyt viimeiselle riville End Subia...
    joten poista se lisäämäsi rivi ja muuta vain soluosoitteet-älä mitään muuta
    ja muista
    TAULUKON MODUULIIN...
  18. taulukon moduuliin...
    muuta solut sopiviksi nyt
    A1=kaava
    A2= solu, mihin tulos siirretään


    Private Sub Worksheet_Change(ByVal Target As Range)
    Static vanha
    On Error Resume Next
    Application.EnableEvents = False
    If vanha = Empty Then
    vanha = Range("A1")
    End If
    If Range("A1") > vanha Then
    Range("A2") = Range("A1")
    End If
    vanha = Range("A1")
    Application.EnableEvents = True
    End Sub
  19. näinmäätonlaskisin...
    kaavasi ei kylläkään laske solusta D3 alaspäin soluissa olevien ikien keskiarvoa?

    Ihan perustasolla toi munkin juttu on. Jos osaa kopioida kaavat moduuliin niin sen jälkeen löytyy kaavat normaali kaavaluettelosta ja loppu on ihan samaa kuin käyttäisit "peruskaavoja" lisää funktion avulla, mutta nyt hommat vaan paljon helpommalla. Esim. olkoon nyt ikä mallina kaavasta

    soluun kaava =ikä()
    ja laskee automaattisesti D3 alaspäin keskiarvon ijille. Jos tarttee muuttaa aluetta ei ole iso ongelma, muuttaa yhdellä kaavarivillä osoitetta, toisin kuin dynaamisella "perustason kaavalla", jonka ehkä saat nikkaroitua. Katellaan mitä tuleman pitää...

    Vaikeatako?

    Keep VBAing
    @Kunde
  20. moduuliin...

    souun kaava esim. =kulutus("B1";"B2";"C1";"C2"),
    jossa B1=alkupvm
    jossa B2=loppupvm
    jossa C1=alkulukema
    jossa C2=loppulukema

    soluosoite voi olla mikä vaan

    Function Kulutus(Alkupvm As String, Loppupvm As String, Alkulukema As String, Loppulukema As String) As Double
    Dim kokokulutus As Double
    Application.Volatile True
    pvlkm = CDate(Range(Loppupvm)) - CDate(Range(Alkupvm))
    kokokulutus = Range(Loppulukema) - Range(Alkulukema)
    Kulutus = Int(365 / pvlkm * kokokulutus)
    End Function

    laskee nyt D3 alaspäin viimeiseen soluun keskiarvon ijille(= mitenkähän pitäs kirjottaa ;-)). Kaavasolussa sitten säätelet desimaalit sopivaksi solumuotoilulla...


    Function ikä() As Double
    Dim vika As Long
    Dim syntymäaika As Double
    Dim ikäka As Double
    Dim laskuri As Long
    Application.Volatile True
    vika = Range("D65536").End(xlUp).Row

    For Each solu In Range("D3:D" & vika)
    laskuri = laskuri + 1
    syntymäaika = CDate(solu)
    ikä = ikä + CDate(Date) - CDate(syntymäaika)
    Next
    ikäka = ikä / laskuri
    ikäka = DateDiff("m", Date - ikäka, Date)
    ikä = ikäka / 12
    End Function


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