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. laskee nyt A-sarakkeesta tyhjät välit alkaen solusta A1 viimeiseen riviin asti ja tulostaa F1 soluun. Tyhjiä välejä voi olla useampiakin kuin pyytämäsi 2

    moduuliin...

    Sub LAskeTyhjätVälit()
    Dim vika As Long
    Dim i As Long
    Dim tulos As String
    vika = Range("A65536").End(xlUp).Row
    For i = 2 To Range("A1:A" & vika).SpecialCells(xlCellTypeBlanks).Areas.Count
    tulos = tulos & Range("A1:A" & vika).SpecialCells(xlCellTypeBlanks).Areas(i).Cells.Count & ", "
    Next
    Range("F1") = Left(tulos, Len(tulos) - 2)
    End Sub

    Keep Excelling
    @Kunde
  2. muuttele taulukoiden nimet, hakualue ja värikoodi (pun=3) sopivaksi
    moduuliin...

    Option Explicit

    Sub EtsiJaSiirrä()
    Dim solu As Range
    Dim vika As Long
    On Error Resume Next
    Worksheets("Sheet2").Cells.Clear
    Worksheets("Sheet1").Activate
    vika = Range("C65536").End(xlUp).Row
    For Each solu In Range("C1:C" & vika)
    If solu.Interior.ColorIndex = 3 Then
    solu.EntireRow.Copy Range("Sheet2!A65536").End(xlUp).Offset(1, 0)
    End If
    Next
    End Sub

    Keep Excelling
    @Kunde
  3. esim. solussa F1 taulukonnimi
    soluun kaava =INDIRECT(F1& "!A1") tai =EPÄSUORA(F1& "!A1")
  4. 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 ;-)
  5. 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
  6. 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
  7. 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
  8. mutta kysyjähän halusi käyttäjän oman funktion, joka löytyy kaavavelhosta...
  9. ei voi toimi millään toi sun ehdotus... ;-)
  10. 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
  11. 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
  12. =AVERAGE(IF(A1:A4>0;A1:A4))
  13. 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
  14. 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
  15. 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
  16. 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
  17. 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
  18. 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
  19. solussa kaava = PITUUS(A1) ilmoittaa merkkien määrän solussa A1
    kelpoisuusehto soluun =PITUUS(A1)
  20. 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...
    21. 39 / 69
TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt