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. ei se oo bugi vaan ominaisuus...
    lue noi niin ymmärrät mistä se johtuu ja sehän koskee vasta 16 desimaalista alkaen...

    http://cpearson.com/excel/rounding.htm
    http://en.wikipedia.org/wiki/Numeric_precision_in_Microsoft_Excel
  2. Sub Makro2()
    Dim vika As Long
    Dim Kopioi As Range
    vika = Range("D1").End(xlDown).Row + 1
    Set Kopioi = Range("D" & vika)
    Kopioi.Offset(1, 0).EntireRow.Insert
    Kopioi.EntireRow.Copy Range("D" & vika).Offset(1, -3)
    Kopioi.EntireRow.Copy Range("D" & vika).Offset(2, -3)
    End Sub

    Keep EXCELing
    @Kunde
  3. muuta rivi
    If Not Intersect(Range("A1"), Target) Is Nothing Then
    seuraavaksi
    If Not Intersect(Range("A:A"), Target) Is Nothing Then

    .Offset(0,1) tarkoittaa siirtymää altiivisesta solusta yhden solun verran oikealle (0- pohjainen-eli aktiivinen solu on (0,0)) vastaavasti vasemmalle solun verran olisi .Offset(0,-1)


    tässä tapauksessa pitää olla kaksoispisteet

    Select Case LCase(.Value)
    Case "appelsiini": .Offset(0, 1).Value = "Hedelmä"
    Case "kurkku": .Offset(0, 1).Value = "Vihannes"
    Case "limsa": .Offset(0, 1).Value = "Coca-cola"
    Case Else: .Offset(0, 1).Value = " "
    End Select

    mutta tässä ei...


    Select Case LCase(.Value)
    Case "appelsiini"
    .Offset(0, 1).Value = "Hedelmä"
    Case "kurkku"
    .Offset(0, 1).Value = "Vihannes"
    Case "limsa"
    .Offset(0, 1).Value = "Coca-cola"
    Case Else
    .Offset(0, 1).Value = " "
    End Select

    eli KaPo_31 oli lyhentänyt koodin yhdelle riville, siksi tarvitaan tuo ;-piste

    Keep EXCELing
    @Kunde
  4. mikä versio käytössä ja millä versiolla alkuperäinen tiedosto tehty?
    saattaa olla, että yrität talentaa vanhempaan versioon ja se ei tue näitä uusien versioiden muotoiluja yms.
    Eli kokeiles tallentaa 2007-2010 versiona( jos nyt oletukseni sattui osumaan...)
  5. suurimmat syöpöt mulla logot ja kuvat...
  6. hehehe
    isommat mulla jotain luokkaa 10 Megaa ja toimii.
    Tosin toi riippuu miten se on tehty ja onko linkkejä ulospäin...
    Oma isoin sisältää kolme taulukkoa, joissa 20 000 riviä ja 10 saraketta kummassakin...
    suurimmat syöpöt tossa tiedostossa on tulosteet kuvineen ja logoineen...

    Keep EXCELing
    @Kunde
  7. jos soluissa
    A1= desimaaliaika
    B1=päiväys aikoineen
    C1=B1+A1/24 ja soluun sopiva oma muotoilu esim. pp.kk.vvvv t:mm:ss

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

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

    Keep EXCELing
    @Kunde
  10. ihan hyvinhän sie oot oppinut.... ;-)
    Mutta jos saivarrellaan niin toi rng määrittely ja käyttö on turhaa, koska sisäisessä funktiossa on jo määritelty TARGET rangeksi ja sehän edustaa silloin A1 solua, jota voi käyttää, jos solussa A1 oli tapahtunut muutos...


    Option Explicit

    Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo XIT
    Application.EnableEvents = False
    If Not Intersect(Range("A1"), Target) Is Nothing Then
    With Target
    Select Case LCase(.Value)
    Case "appelsiini": .Offset(0, 1).Value = "Hedelmä"
    Case "kurkku": .Offset(0, 1).Value = "Vihannes"
    Case "limsa": .Offset(0, 1).Value = "Coca-cola"
    Case Else: .Offset(0, 1).Value = " "

    End Select
    End With
    End If

    XIT:
    Application.EnableEvents = True

    End Sub
  11. =TULOJEN.SUMMA(EPÄSUORA("Taul1!"& B2&"2:"&B2&"2000" ))
    jos tarttet dollari merkit niin & merkillä lisää
  12. =CHOOSE(MONTH(U6);"F";"G";"H";"I";"J";"K";"L";"M";"N";"O";"P";"Q")
  13. http://www.kundepuu.com/viewtopic.php?f=155&t=510&p=689#p689

    Keep EXCELing
    @Kunde
  14. ei selkeämmin voi sanoa...

    ohjeena oli
    ThisWorkbook moduuliin...

    eli kopioi koodi ThisWorkbook moduuliin ja se on siinä ;-)


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

    Keep EXCELing
    @Kunde
  16. cool.. . ;-)

    Keep EXCELing
    @Kunde
  17. "uusi vuosi uudet kujeet"...

    http://www.kundepuu.com/viewtopic.php?f=155&t=506&p=674#p674

    Keep EXCELing
    @Kunde
  18. http://www.kundepuu.com/viewtopic.php?f=155&t=507&p=676#p676

    Keep EXCELing
    @Kunde
  19. ei ole unohtunut, mutta ollut niin kiirettä ettei ole kerinnyt paneutua asioihin.

    Mutta nyt alkaa uuden vuoden vietto ja vkl aikana onkin sitten aikaa "harrastaa". Landella ei oo nettiä joten tiistaina varmaan jotain tuotosta tarjolla
  20. laita labelin captioniin se tieto....

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