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

542

    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. Päivän Sanna: Nvidia sijoittaa miljardi dollaria Nokian osakkeisiin

      Nvidia merkitsee osakkeet 6,01 Yhdysvaltain dollarin osakekohtaisella merkintähinnalla tavanomaisten toteutumisehtojen t
      Maailman menoa
      41
      5236
    2. Palkansaajilta kupattiin 27,5 mrd euroa työeläkkeisiin

      Jo pelkän himmelin toimintakulut olivat 400 miljoonaa euroa, jolla olisi mukavasti tuottanut myös sote-palveluja hyvinvo
      Maailman menoa
      73
      3142
    3. Suomessa Pohjoismaiden tyhmimmät demarit......aijaijai..

      Lasse Lehtinen sanoo suoraan, että Ruotsissa on fiksummat demarit kuin Suomessa. Ja Tampereella fiksummat demut kuin Hel
      Maailman menoa
      18
      2998
    4. HS: persujen v. 2015 turvapaikanhakijoista alle puolet töissä

      Aikuisina Suomeen tulleista ja myönteisen päätöksen saaneista vain 42 prosenttia oli vuonna 2023 töissä, vaikka he ovat
      Maailman menoa
      143
      2881
    5. Nepotismi jytkyttää porvaristossa

      Taas uutisoidaan, että useampi perussuomalainen kansanedustaja on palkannut oman perheenjäsenensä eduskunta-avustajaksi
      Maailman menoa
      38
      1691
    6. Martina Aitolehti podcastissa: Ero

      Martina Aitolehti podcastissa: Ero Martina Aitolehti kertoi BFF-podcastin https://www.iltalehti.fi/viihdeuutiset/a/696
      Kotimaiset julkkisjuorut
      227
      1613
    7. Persut muuten hyväksyvät 2 + 8 mrd. euron maatalous- ja yritystuet

      Vaikka molemmat tukimuodot tiedetään haitallisiksi, koska ovat käytännössä pelkkää säilyttävää tukea, eivätkä kannusta k
      Maailman menoa
      89
      1598
    8. Kaikki ovat syntisiä!!!

      Näin täällä koko ajan vakuutellaan uskovaisten toimesta. Myös Päivi Räsänen on toistanut tätä samaa matraa jatkuvasti. N
      Luterilaisuus
      427
      1323
    9. Persut palkkaavat verorahoilla

      avustajikseen lapsiaan ja naisystäviään. Juuso on palkannut avustajakseen oman poikansa. Hänen koulutustaustastaan ei
      Maailman menoa
      238
      1181
    10. Haluaisitko sinä

      Että välimme selkeäisivät vai tämäkö riittää sinulle?
      Ikävä
      68
      1150
    Aihe