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

554

Ää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. Riikka runnoo! Uutta velkaa tänä vuonna 17 mrd. euroa

      Tirsk. Nyt kyllä hihityttää kuin pientä eläintä. Riikka takoo maailmanennätyksiä tasaiseen tahtiin. " [Riikka] joutuu
      Maailman menoa
      99
      7479

    2. Jens Ihlen (ex Kukka) poika todistaa oikeudessa

      10:49 "Välit ovat olemattomat" Minkälainen isäsi ja sinun välinen suhde on tällä hetkellä? "Minulla ei ole minkäännäkö
      Maailman menoa
      226
      7355

    3. K-kaupassa on mukava käydä, kun ei tarvitse katsella köyhiä

      vasemmistolaisia, joista monet myös varastavat. Mielellään maksaa vähän enemmän tuotteista K-kaupassa, jotka ovat paljon
      Maailman menoa
      139
      5098

    4. Suomeen ei kuulu ihmiset jotka ei halua kätellä toisia ihmisiä, koska tämä on vääräuskoinen

      Nainen joka ei halunnut kätellä Stubbia on selvästi ääripään muslimi, eli sitä sakkia josta niitä ongelmia koituu. Ulos
      Maailman menoa
      140
      4789

    5. PS:n Purra teki -JÄTTI-VELAT

      * * PS:n Purra teki -JÄTTI-VELAT - ! ja jätti MaksuHuolet -Kansan Maksettavaksi -! *
      Maailman menoa
      42
      4555

    6. Suomessa on ollut suurtyöttömyyttä ennenkin, ja lääkäriin pääsee nykyäänkin

      Täällähän oli jonkun sekopään(vas.) juttu, että ennen ei ollut työttömyyttä ja lääkäriin pääsi. Siihen alkoi tietysti ko
      Maailman menoa
      87
      4259

    7. Kysymys: Kuinka moneen maahan neuvosto-venäjä on hyökännyt

      viimeisten 90-vuoden aikana? Ja lähinnä on siis kyse neuvosto-venäjän naapurimaista - kuten Suomesta. Lista on huomatta
      Maailman menoa
      115
      4072

    8. Ootko sä nainen suuttunut

      jostain? Harmi jos tullut väärinkäsityksiä.
      Ikävä
      162
      1751

    9. Nainen, sanotaan että totuus tekee kipeää

      Ehkä mutta se voi olla myös se kaikkein kamalin asia kohdata. Kuplassa on turvallista, kun tietää vähemmän on helpompi.
      Ikävä
      9
      1569

    10. Valtio lopettaa pienituloisten perheiden kylpylälomien tukemisen

      Pienituloiset suomalaiset ovat voineet vuosikymmenten ajan hakea tuettuja lomia terveydellisin, sosiaalisin ja taloudell
      Maailman menoa
      245
      1401
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt