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
502
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
- 1873886
Tekisi niin mieli laittaa sulle viestiä
En vaan ole varma ollaanko siihen vielä valmiita, vaikka halua löytyykin täältä suunnalta, ja ikävää, ja kaikkea muuta m911834Miksi ihmeessä?
Erika Vikman diskattiin, ei osallistu Euroviisuihin – tilalle Gettomasa ja paluun tekevä Cheek281512- 1651372
Erika Vikman diskattiin, tilalle Gettomasa ja paluun tekevä Cheek
Erika Vikman diskattiin, ei osallistu Euroviisuihin – tilalle Gettomasa ja paluun tekevä Cheek https://www.rumba.fi/uut241201Pitääkö penkeillä hypätä Martina?
Eivätkö puistonpenkit ole istumista varten.Ei niitä kannata liata hyppäämällä koskaa likaantuvat eikä siellä kukaan niit2091111Kuinka kauan
Olet ollut kaivattuusi ihastunut/rakastunut? Tajusitko tunteesi heti, vai syventyivätkö ne hitaasti?931071- 361067
Maikkarin tentti: Orpo jälleen rauhallinen ja erittäin hyvä, myös Purra oli hyvä
Lindtman ja Kaikkonen oli kohtalaisia, sen sijaan punavihreät Koskela ja Virta olivat taas heikkoja. Ja vastustavat jalk1291043Milli-helenalla ongelmia
Suomen virkavallan kanssa. Eipä ole ihme kun on etsintäkuullutettu jenkkilässäkin. Vähiin käy oleskelupaikat virottarell189940