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

537

    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ä.

    Luetuimmat keskustelut

    1. Voiko normaali ihminen ryhtyä vasemmistolaiseksi?

      Tätä jäin pohdiskelemaan.
      Maailman menoa
      203
      4266
    2. SDP haluaa 40 000 nettomaahanmuuttajaa

      SDP:n Suunnanmuutos-vaihtoehtobudjetissa, käy ilmi, että demarit itse asiassa vaativat räjähdysmäistä ”työperäisen” maah
      Maailman menoa
      146
      3798
    3. Orpo: Velkajarrua vastustavaa puoluetta vaikea ajatella hallitukseen

      No Minja Koskelan kommunistipuolue jäi ulos tuosta. Kaikki eduskuntapuolueet vasemmistoliittoa lukuun ottamatta sopivat
      Maailman menoa
      137
      3261
    4. Hienoa! Eduskunta luopui käteisen käytöstä

      Nyt tuo sama muutos pitää saada myös muuhun yhteiskuntaan. Käteistähän ei tarvitse tänä päivänä enää kuin rikolliset.
      Maailman menoa
      52
      1638
    5. Ikävä sinua mies

      Vuosia kuluu, mutta tunteet ei ole hävinnyt. Tasoittuneet toki, kun ei olla nähty. Järki palannut päähän kuitenkin. Se i
      Ikävä
      19
      1538
    6. Mikä tämä henkilö mahtaa touhuta Parkanossa

      Kamalaa https://www.ylasatakunta.fi/teksti/pirkanmaan-karajaoikeus-vangitsi-koiran-tappamisesta-epaillyn-6.68.127794.b58
      Parkano
      34
      1490
    7. Sulla on avaimet ja keinot

      Jos haluat jatkaa tutustumista. Itse olen niin jäässä etten pysty tekemään enää mitään. Pidempi keppi johon on helpompi
      Ikävä
      25
      1395
    8. Orpo loukkaantui fasismiin viittaavasta sanavalinnasta

      Mutta miksi loukkaantui? Orpohan on tehnyt yhteistyötä fasistien kanssa jo vuonna 2019, siis jo neljä vuotta ennen loukk
      Maailman menoa
      27
      1351
    9. Kiinnostaa - ei kiinnosta - kiinnostaapas

      Selittäkää hämmentyneelle miksi miehiä ei ikinä kiinnosta silloin, kun sitä olisi itsekin kiinnostunut? Sitten kun siirt
      Sinkut
      117
      1165
    10. Martina haluaa Marbellaan

      Martinan tekisi mieli ottaa lennot Marbellaan, jossa näkisisi kauniita ja hyväntuulisia ihmisiä. No sitten pitää matkust
      Kotimaiset julkkisjuorut
      215
      1063
    Aihe