Kuinka tällaisen teko onnistuu - auttaisiko joku

katiko

Tällainen lukujärjestys (tässä tiedon osoite)
http://personal.inet.fi/koti/kati/lukkari.htm
minulle annettiin ja pitäisi tehdä excelin VB:llä. Minulta loppui taju. Ensin pohdin if lausita ja sitten select case, vaan varmaan for i olisi se oikea tai yksinkertaisin vaihtoehto. Löytyisikö joltain apua asian ratkaisuun, jottei tarttisi näyttää ihan tyhmältä haasteen antajan edessä??

Kiitoksen etukäteen mahdollisille auttajille

3

552

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • vb2005

      Sub lasordning()
         Dim i As Long, j As Long, veckor As Long
         Dim dag As Variant
         dag = Date
         veckor = 2
         For j = 1 To veckor
            ActiveSheet.Cells(j * 7 - 6, 1).Value = "tid"
            For i = 1 To 7
               ActiveSheet.Cells(j * 7 - 6, i 1).Value = dag
               dag = dag 1
            Next i
         Next j
      End Sub

      • vb2005

        Sub lasordning()
           Dim i As Long, j As Long, veckor As Long
           Dim dag As Variant
           dag = Date
           veckor = 2
           For j = 1 To veckor
              With ActiveSheet.Cells(j * 7 - 6, 1)
                 .Value = "tid"
                 .Interior.ColorIndex = 15
                 .Interior.Pattern = xlSolid
              End With
              For i = 1 To 7
                 With ActiveSheet.Cells(j * 7 - 6, i 1)
                    .Value = Format(dag, "ddd d.m.yyyy", vbMonday, vbUseSystem)
                    .Interior.ColorIndex = 15
                    .Interior.Pattern = xlSolid
                 End With
                 dag = dag 1
              Next i
           Next j
           For i = xlEdgeLeft To xlInsideHorizontal
              With ActiveSheet.Range(Cells(1, 1), Cells(veckor * 7, 8)).Borders(i)
                 .LineStyle = xlContinuous
                 .Weight = xlThin
                 .ColorIndex = xlAutomatic
              End With
           Next i
        End Sub

      • vb2005
        vb2005 kirjoitti:

        Sub lasordning()
           Dim i As Long, j As Long, veckor As Long
           Dim dag As Variant
           dag = Date
           veckor = 2
           For j = 1 To veckor
              With ActiveSheet.Cells(j * 7 - 6, 1)
                 .Value = "tid"
                 .Interior.ColorIndex = 15
                 .Interior.Pattern = xlSolid
              End With
              For i = 1 To 7
                 With ActiveSheet.Cells(j * 7 - 6, i 1)
                    .Value = Format(dag, "ddd d.m.yyyy", vbMonday, vbUseSystem)
                    .Interior.ColorIndex = 15
                    .Interior.Pattern = xlSolid
                 End With
                 dag = dag 1
              Next i
           Next j
           For i = xlEdgeLeft To xlInsideHorizontal
              With ActiveSheet.Range(Cells(1, 1), Cells(veckor * 7, 8)).Borders(i)
                 .LineStyle = xlContinuous
                 .Weight = xlThin
                 .ColorIndex = xlAutomatic
              End With
           Next i
        End Sub

        Sub lasordning()
           Dim i As Long, j As Long, veckor As Long
           Dim veckdag As Integer
           Dim dag As Variant
           dag = Date
           veckdag = DatePart("w", dag, vbMonday, vbUseSystem)
           If veckdag > 1 Then
              dag = dag 8 - veckdag
           End If
           veckor = 2
           For j = 1 To veckor
              With ActiveSheet.Cells(j * 7 - 6, 1)
                 .Value = "tid"
                 .Interior.ColorIndex = 15
                 .Interior.Pattern = xlSolid
              End With
              For i = 1 To 7
                 With ActiveSheet.Cells(j * 7 - 6, i 1)
                    .Value = Format(dag, "ddd d.m.yyyy", vbMonday, vbUseSystem)
                    .Interior.ColorIndex = 15
                    .Interior.Pattern = xlSolid
                 End With
                 dag = dag 1
              Next i
           Next j
           For i = xlEdgeLeft To xlInsideHorizontal
              With ActiveSheet.Range(Cells(1, 1), Cells(veckor * 7, 8)).Borders(i)
                 .LineStyle = xlContinuous
                 .Weight = xlThin
                 .ColorIndex = xlAutomatic
              End With
           Next i
        End Sub

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Riikan perintö: ennätysvelka, ennätystyöttömyys ja ennätysverotus

      Tavallisen keskituloisen suomalaisen verotus on kireintä vuosikymmeniin, ja ensi vuonna palkansaajien käteen jää vieläki
      Maailman menoa
      207
      3576

    2. Mies, näen sinua hetken

      ja olet mielessä ikuisuuden. Toisia näen ikuisuuden ja he eivät jää mieleen hetkeksikään. Muistan jokaisen kohtaamisen
      Ikävä
      13
      3316

    3. Riikka Purra on ihana, jämpti

      Hän yrittää saada Suomen taas kuntoon. Sanoo asiat suoraan, eikä piiloudu kapulakielen taakse. Riikan kaltaisia päättä
      Maailman menoa
      70
      2526

    4. Antti Lindtman kiitti valtiovarainministeri Purraa

      Ministeri Purra kertoi ottavasa vastuun EU:n alijäämämenettelyyn joutumisesta. Hän myös sanoi tietävänsä, että Lindtman
      Perussuomalaiset
      9
      2165

    5. Henkilökohtaisia paljastuksia Dubaista - Kohujulkkis Sofia Belorf on äitipuoli ja puoliso!

      Tiesitkö, että Sofia on äitipuoli ja rakastava puoliso? Sofia Belorf saa oman sarjan, jossa seurataan hänen Bling Bling
      Kotimaiset julkkisjuorut
      46
      2009

    6. Suomalaisten enemmistö on (ateisteja / fiksuja / sosialisteja)

      Tai jokin noiden yhdistelmä, koska S-ryhmän markkinaosuus päivittäistavarakaupasta on yli 50 prosenttia.
      Maailman menoa
      6
      1888

    7. Sorsa: kuvaputki - Lipponen: kaasuputki - Marin: ryppyputki

      Nuo kolme demaria ovat poikkeuksia Suomen poliittisessa historiassa. Ovat ainoita, jotka ovat kyenneet nostamaan puolue
      Suomen sosialidemokraattinen puolue
      40
      1708

    8. Mitä ajattelet

      Siitä henkilöstä jota kaipaat? Sana vapaa!
      Ikävä
      90
      1581

    9. Mikä kaivatussasi

      kolahti? 💥
      Ikävä
      72
      1143

    10. Kenen luo menisit nyt

      jos se olisi mahdollista?
      Ikävä
      74
      1130
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt