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
3
473
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
Suomi on täysin sekaisin
Jo ties monettako päivää hirveä itku ja poru jostain helvetin nilviäisistä. https://www.is.fi/taloussanomat/art-20000104244655Ensimmäisestä kohtaamisesta saakka
minulla on ollut hämmentynyt olo. Miten voit tuntua siltä, että olisin tuntenut sinut aina? Sinun kanssasi on yhtä aikaa141660Aivan täysin tahallinen teko
Ei mitään puolusteluja, eikä selittelyitä. Kuljettajalle kerrottiin asiasta siinä paikanpäällä, mutta silti hän ajoi ves911401Suomussalmi saatu vihdoin maailmankartalle!
Nyt kun Suomussalmi on vihdoin viimein saatu ennennäkemättömällä tavalla maailman tietoisuuteen niin voitaisiin järjestä521309Olet saanut minut sekoamaan
Tunteiden ristiaallokossa vellominen on ollut melkoinen kokemus. Ei kukaan ole saanut minua niin raiteiltaan kuin sinä.171204Mainehaitta metsäkonefirmalle
Hukkajoen tapahtumista liikkuu paljon huhuja. Eikö kannattaisi julkaista raakkuja tuhonneen metsäkoneyrityksen nimi, kos501141Oho! Maajussi-Kallelta pakit saanut morsioehdokas Miss Suomi -kisoissa! Tunnistaisitko hänet nyt?
Hmm, tunnistaisitko?!? Onnea missihulinoihin! Lue lisää ja katso kuvat: https://www.suomi24.fi/viihde/oho-maajussi-01055Myönnän sinulle nyt
Että olen erittäin mustasukkainen sinusta jo nyt. Ikävä on tämä tunne, kun tietämättömyyden solista nousee myrkkyä miele54950Olen käyttäytynyt ristiriitaisesti
eikä minusta varmaankaan ota mitään selvää. Se johtuu siitä, kun järki sanoo ei, ei, ei ja sydän sanoo kyllä, kyllä, kyl60829Pysytäänkö nainen
edelleen yhtä viileän tyynenä kun nähdään. Uskotko että tahtoessani saisin murettua tyyneytesi hyvin helposti.54827