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

489

Ää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. Mikä on tulevan kevään teema?

      Sun kohdallasi
      Ikävä
      143
      5930

    2. Maisa Torppa

      Voitto oikeudesta. Tässä näkee miten huteralla pohjalla nuo syytökset ovat. Hyvä Maisa 💖. IL
      Kotimaiset julkkisjuorut
      270
      4998

    3. Kalle Palander kertoi fantasioivansa siitä, kuinka Kiira Korpi naisi häntä sträppärillä ahteriin

      Sai potkut Yleltä. https://yle.fi/a/74-20140000
      Maailman menoa
      273
      3627

    4. Kun katsoin häntä

      Niin ajattelin että hän on niin rakas ❤️
      Ikävä
      12
      2081

    5. Mitä sanoisit kolmella sanalla

      kaivatullesi ja tunteidesi kohteelle? 🙎💝💝
      Ikävä
      166
      1776

    6. Nainen, älä tee aloitetta, jos

      Jos olet: - ylipainoinen - yksinhuoltaja - tatuoitu - tukassa on varoitusväri - sinulla on muita lävistyksiä kuin korvak
      Ikävä
      190
      1710

    7. Haluisin niin

      Selvittää sun kanssa asiat. Kumpa uskaltaisin. Haluatko sinä?
      Ikävä
      104
      1343

    8. Persut palkitsisi verohelpotuksin röökin polton ja ryyppäämisen lopettamisesta

      >> Perussuomalaiset ehdottavatkin, että haittaverojen sijaan terveellisestä elämää viettäville ihmisille voitaisii
      Maailman menoa
      228
      1327

    9. Veronika Honkasalo(vas.)venäjän asialla

      Honkasalon mukaan mukaan venäläisiä turvapaikanhakijoita kohdellaan lainvastaisesti. "Vasemmistoliiton varapuheenjohtaj
      Maailman menoa
      102
      1235

    10. Miksi Pekkaa ei hyväksytä maailmalla julkisiin virkoihin?

      On mennyt jo monta hommaa ohitse.
      80 plus
      62
      1205
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt