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. uteliaisuuttani kyselen voisitko lähettää mulle esimerkin tosta mailiini (versio Excel 2003) [email protected].

    alkutilanne siis tää

    https://skydrive.live.com/?cid=5cde060cd65c2e75&sc=photos&id=5CDE060CD65C2E75!189

    ja tommonen siitä pitäs tulla

    https://skydrive.live.com/P.mvc#!/view.aspx/Excel^_ongelma/Taulukko.xlsm?cid=5cde060cd65c2e75&sc=photos
  2. =AVERAGE(OFFSET($D$1;0;0;COUNT($D:$D)))
    =KESKIARVO(SIIRTYMÄ($D$1;0;0;LASKE($D:$D)))
  3. piece of the cake...
    joku aikaa sitten vastasin vastaavantapaiseen kyssäriin, jossa korvattiin joku sana toisella sanalla kaikkiin tiesotoihin kansiossa. Sitä rukkaa hieman .
  4. löyinkin sen hetimiten, joten tossapa korjattuna nyt ISO standardin mukaiseksi...

    Option Explicit

    Sub Teetaulukko()
    Dim vika As Long
    Dim solu As Range
    Dim viikko As Long
    With Worksheets("Koonti")
    .Activate
    .Cells = ""
    .Range("B1") = "viikko:"
    .Range("B2") = "klo"
    .Range("C1").Formula = "1"
    LisääSarjat Range("C1"), 1, 52
    LisääSarjat2 Range("A3")
    End With
    Worksheets("Taul1").Activate
    vika = Range("A65536").End(xlUp).Row
    For Each solu In Range("A3:A" & vika)
    viikko = ViikkoISO(CDate(solu))
    Worksheets("Koonti").Range(UCase(Format(solu, "dddd"))).Cells(Format(solu, "hh") + 1, viikko + 2) = solu.Offset(0, 1)
    Next
    Worksheets("Koonti").Cells.EntireColumn.AutoFit
    End Sub

    Sub LisääSarjat(solu As Range, Aloitus As Long, Määrä As Long)
    With Worksheets("Koonti")
    solu.Formula = Aloitus
    solu.AutoFill Destination:=Range(solu.Address & ":" & solu.Offset(0, Määrä).Address), Type:=xlFillSeries
    End With
    End Sub

    Sub LisääSarjat2(solu As Range)
    Dim i As Long
    With Worksheets("Koonti")
    solu.Select
    For i = 1 To 7
    ActiveCell = UCase(WeekdayName(i))
    ActiveCell.Offset(0, 1).Formula = "0"
    ActiveCell.Offset(0, 1).AutoFill Destination:=Range(ActiveCell.Offset(0, 1).Address & ":" & ActiveCell.Offset(23, 1).Address), Type:=xlFillSeries
    ActiveWorkbook.Names.Add Name:=ActiveCell, RefersTo:=Range(ActiveCell.Address & ":" & ActiveCell.Offset(23, 54).Address)
    ActiveCell.Offset(26, 0).Select
    Next
    End With
    End Sub

    Public Function ViikkoISO(Päiväys As Date) As Long
    Dim D As Date
    D = DateSerial(Year(Päiväys - Weekday(Päiväys - 1) + 4), 1, 3)
    ViikkoISO = Int((Päiväys - D + Weekday(D) + 5) / 7)
    End Function

    Keep EXCELing
    @Kunde
  5. niinpä niin.
    Excelhän laskee viikot väärin-eli ei ISO standardin mukaisesti .... ;-)
    Pitänee aamulla fiksata sulle ISO standardin mukainen koodi. En jaksa nyt ettiä sitä koneeltani, mutta piece of cake se on. Muuttaa vaan ton viikkolaskurin
  6. napin lisäämiseen montakin tapaa... lue helpistä

    taulukon saa nopeimmin Exceliin seuraavasti

    1. Avaa Excel ja Access
    2. Accesissa klikkaa CRTL pohjassa sitä taulukkoa minkä haluat siirtää Exceliin ja raahaa se haluamaasi taulukon kohtaan Excelissä ja vapauta hiiren painike
  7. aika cool...

    lisää taulukko Koonti (oishan sen voinut koodillakin hoitaa, mutta pikaisesti näin nyt- nimeä sopivaksi tarvittaessa)

    jos enemmän tyhjiä rivejä tartte niin muuta lukua isommaksi
    ActiveCell.Offset(26, 0).Select

    moduuliin...

    Option Explicit

    Sub Teetaulukko()
    Dim vika As Long
    Dim solu As Range
    With Worksheets("Koonti")
    .Activate
    .Cells = ""
    .Range("B1") = "viikko:"
    .Range("B2") = "klo"
    .Range("C1").Formula = "1"
    LisääSarjat Range("C1"), 1, 52
    LisääSarjat2 Range("A3")
    End With
    Worksheets("Taul1").Activate
    vika = Range("A65536").End(xlUp).Row
    For Each solu In Range("A3:A" & vika)
    Worksheets("Koonti").Range(UCase(Format(solu, "dddd"))).Cells(Format(solu, "hh") + 1, Format(solu, "ww") + 2) = solu.Offset(0, 1)
    Next
    Worksheets("Koonti").Cells.EntireColumn.AutoFit
    End Sub

    Sub LisääSarjat(solu As Range, Aloitus As Long, Määrä As Long)
    With Worksheets("Koonti")
    solu.Formula = Aloitus
    solu.AutoFill Destination:=Range(solu.Address & ":" & solu.Offset(0, Määrä).Address), Type:=xlFillSeries
    End With
    End Sub

    Sub LisääSarjat2(solu As Range)
    Dim i As Long
    With Worksheets("Koonti")
    solu.Select
    For i = 1 To 7
    ActiveCell = UCase(WeekdayName(i))
    ActiveCell.Offset(0, 1).Formula = "0"
    ActiveCell.Offset(0, 1).AutoFill Destination:=Range(ActiveCell.Offset(0, 1).Address & ":" & ActiveCell.Offset(23, 1).Address), Type:=xlFillSeries
    ActiveWorkbook.Names.Add Name:=ActiveCell, RefersTo:=Range(ActiveCell.Address & ":" & ActiveCell.Offset(23, 54).Address)
    ActiveCell.Offset(26, 0).Select
    Next
    End With
    End Sub

    Keep EXCELing
    @Kunde
  8. makrolla piece of cake...

    1. seurataan taulukossa muutosta- mikä solu muuttui?
    2. haetaan esim. A sarakkeeesta työntekijän nimi muuttuneen solun rivin perusteella ja hänelle palkka palkkataulukosta ja lisätään esim solun ID:hen
    3. suoritetaan palkanlasku käyttäen solun ID arvoa(palkka) ja solun arvoa (tunnit) ja summataan ne kumulatiivisesti johonkin tiettyyn soluun esim AK

    jos ja kun palkka muuttuu niin käyttää aina sen hetkistä arvoa laskuissa ja laskelmat on päivälleen reaaliajassa. Tarvittaessa voi vielä takaperoisestikin korjata solun ID arvoja, joten palkkaa voi nostella/laskella ID arvoa muuttamalla...

    ei ton kummosempi ja toimii... ;-)

    Keep EXCELing
    @Kunde
  9. turhahan siinä on tehdä mitään ylimääräisiä taulukoita...
    koodilla suoraan tiedostoon- piece of the cake ja taatusti maistuu hyvälle...

    Keep EXCELing
    @Kunde
  10. joo bugi oli , muuttuja oli väärää tyyppiä sille ekalle solulle(String kun pitäs olla Date)...
    Pikkuvika ja helppo korjata. Kumma, kun en itse huomannut testatessa tota eroa...

    ActiveCell = Alku
    ActiveCell = CDate(Alku)

    mutta tossa korjattu versio

    Option Explicit
    Sub TäytäKuukaudet()
    Dim Alku
    Dim Loppu
    Dim i As Long
    Dim testi
    Application.ScreenUpdating = False
    uusi1:
    Alku = Application.InputBox("Anna aloitus pvm muodossa 17.06.2011")
    If Not IsDate(Alku) Then
    MsgBox "päiväys virheellinen"
    Alku = ""
    GoTo uusi1
    End If
    uusi2:
    Loppu = Application.InputBox("Anna lopetus pvm muodossa 17.06.2011")
    If Not IsDate(Loppu) Then
    MsgBox "päiväys virheellinen"
    Loppu = ""
    GoTo uusi2
    End If

    testi = MsgBox("Täytetäänkö kuukaudet väliltä " & Alku & " - " & Loppu & "?", vbInformation + vbYesNo)
    If testi = 6 Then
    ActiveCell = CDate(Alku)
    For i = 1 To DateDiff("m", Alku, Loppu)
    ActiveCell.Offset(i, 0) = DateSerial(Year(ActiveCell.Offset(i - 1, 0)), Month(ActiveCell.Offset(i - 1, 0)) + 1, Day(ActiveCell.Offset(i - 1, 0)))
    Next i
    Range(ActiveCell, ActiveCell.Offset(i - 1)).NumberFormat = "mmmm yy"
    End If
    Application.ScreenUpdating = True
    End Sub
    Keep EXCELing
    @Kunde

    kiitti palautteesta ;-)
  11. turhan monimutkaista edellinen....
    =TEKSTI(A1;"ppkkvv")
  12. ei varsinaisesti excel vinkki vaan yleinen
    jos haluat tulostaa kansiosta useamman työkirjan niin valitse tulostettavat työkirjat SHIFT /CTRL avulla ja klikkaa hiiren oikealla ja avutuvasta valikosta valitse tulosta....
  13. jos haluat sulkea kaikki työkirjat kerralla niin SHIFT pohjassa klikkaa tiedosto menua ja siellä uusi komento sulje kaikki. Toki pitää vastata kyssärrin haluatko tallentaa muutokset, mutta silti kätevä....
  14. jos haluat hieman erilaisia vaihtoehttoja kopiointiin/siirtoon, niin valitse alue ja klikkaa reunuksen päällä hiiren oikealla ja raahaa oikean paikkaan ja vapauta hiiren napin painallus ja avautuvassa valikossa eri vaihtoehtoja....
  15. jos haluat piilottaa käyttämästäsi taulukosta kaavat niin...
    valitse koko taulukko klikkaamalla vasemmassa yläkulmassa olevaa ruutua (sarake ja rivitunnuksien välissä). Klikkaa sitten hiiren oikealla ja avautuvasta valikosta valitse muotoile solut ja edelleen avautuvasta valikosta suojaus. Rujsaa kohta piilota ja OK. Suojaa taulukko salasanalla ja kopioi se sitten uuteen taulukkoon ja poista originelli taulukko ja tallenna. Nyt voit lähettää työkirjan eteenpäin ilman käyttämäsi kaavoja...
  16. täyttää aktiivisesta solusta alaspäin valittujen päiväysten väliset kuukaudet

    moduuliin...

    Sub TäytäKuukaudet()
    Dim Alku
    Dim Loppu
    Dim i As Long
    Dim testi
    Application.ScreenUpdating = False
    uusi1:
    Alku = Application.InputBox("Anna aloitus pvm muodossa 17.06.2011")
    If Not IsDate(Alku) Then
    MsgBox "päiväys virheellinen"
    Alku = ""
    GoTo uusi1
    End If
    uusi2:
    Loppu = Application.InputBox("Anna lopetus pvm muodossa 17.06.2011")
    If Not IsDate(Loppu) Then
    MsgBox "päiväys virheellinen"
    Loppu = ""
    GoTo uusi2
    End If

    testi = MsgBox("Täytetäänkö kuukaudet väliltä " & Alku & " - " & Loppu & "?", vbInformation + vbYesNo)
    If testi = 6 Then
    ActiveCell = Alku
    For i = 1 To DateDiff("m", Alku, Loppu)
    ActiveCell.Offset(i, 0) = DateSerial(Year(ActiveCell.Offset(i - 1, 0)), Month(ActiveCell.Offset(i - 1, 0)) + 1, Day(ActiveCell.Offset(i - 1, 0)))
    Next i
    Range(ActiveCell, ActiveCell.Offset(i - 1)).NumberFormat = "mmmm yy"
    End If
    Application.ScreenUpdating = True
    End Sub

    Keep EXCELing
    @Kunde
  17. ei tuukaan...

    siis pitääkö yhdistää 100 tiedostoa vaiko sata muuttujaa yhdestä tiedosotosta vaiko miten?
    vaikeeta koodata näin ylimalkaisolla ohjeilla...
    siis mistä haetaan ja mitä?
    onko tiedot samassa soluissa aina vaiko eri soluissa?
    mitä tyyppiä tieto on ja etsitäänkö sitä taulukosta vai onko se siis valmiina tietyissä soluissa
    mihin kopioidaan ja miten (allekkain vierekkäin jne)?
    ...
    ...
    ...
  18. eihäm tommosta ookaan joka osaa lukea sun ajatukset ja laittaa ne sarakkeeseen...
    jos haluat niin makrolla voi tehdä aktiivisesta solusta alkaen (oletuksena nyt sitten alaspäin...) antamastasi päiväyksestä alkaen loppupäiväykseen kuukausittain päiväykset ja muuttaa ne muotoon elokuu 11, syyskuu 11
    tommostako haluat....
  19. tiedot pitää olla 2 eri sarakkeessa, koska tekstilajittelu hankalampaa numeroill eli esim Csarake pvm ja D -sarake asiakas
    oletuksena tiedot alkaa C1
    jos tiedot alkaa muualta muuta osoitteita

    toimii nyt näin
    syötetään tieto C-sarakkeeseen ja jos D sarakkeesta puuttuu vastaava tieto siirtyy siihen. Jos D sarakkeessa oli tieto lajittelee
    ja päinvastoin D sarakkeen kanssa

    taulukon moduuliin...

    Option Explicit

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns("C:D")) Is Nothing Then
    If Not Intersect(Target, Columns("C:C")) Is Nothing Then
    If Target.Offset(0, 1) = "" Then
    Target.Offset(0, 1).Select
    GoTo loppu
    End If
    Else
    If Target.Offset(0, -1) = "" Then
    Target.Offset(0, -1).Select
    GoTo loppu
    End If
    End If
    Columns("C:D").Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
    DataOption1:=xlSortNormal
    End If
    loppu:
    End Sub

    Keep EXCELing
    @Kunde
  20. niksinurkasta toka postaus

    http://keskustelu.suomi24.fi/node/9847941
    21. 28 / 69
TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt