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
Kuinka tällaisen teko onnistuu - auttaisiko joku
katiko
3
607
Vastaukset
- 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 SubSub 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
Kela tukee virallisesti Pride-liikettä
Iso kiitos Kansaneläkelaitokselle tuen osoittamisesta myös vähemmistöille. Näin toimii vastuullinen valtiollinen koko k323738Jorma Lind kuollut
Ylen uutisankkurina 40 vuotta toiminut Jorma Lind on kuollut 85-vuotiaana. https://yle.fi/a/74-20230265 ARVl on näet511659- 731359
Mahdatko ymmärtää sitä
Mä en selviä jollei me jutella kunnolla. Tarvitsen sua siihen. Etkä sä voi sitä tietää kun en ole ilmaissut mutta olen751191Hitaille omat kassat
Kassoilla hidastelevat ärsyttävät. Menee heti loppupäivä pilalle, kun kauppareissu kestää hidastelijoiden takia. Näille1721047Ensimmäisenä Helluntaina ei uudelleen kastettu KETÄÄN!
Raamattu kertoo, että Helluntaina kastettiin. Mutta vaikka Raamattu ei erikseen kerro tiedän VARMASTI Ettei6911041- 84925
Olisit ollut niin
Minunlaiseni. Ehkä se on helmpompi kun emme kohtaa. Kipeältä se tuntui ettet valinnut minua39807Mitä yhteistä sinulla
on kaivattusi kanssa? Sama musiikkimaku, tai huumorintaju, tai ehkä työpaikka? Vai ettekö tunne vielä niin hyvin?49771- 39750