Makro usealle riville

Tällainen koodi pitäisi saada toimimaan useilla riveillä. Tuo toimii vaan 1. rivillä. Makron tehtävänä on jakaa 54 merkkiä pitkä numerosaraja halutun pituisiksi sarjoiksi.

Mielellään myös alku pitäisi saada siirrettyä esim. riville 3 ja toimia siitä alaspäin jokaisella rivillä.(A3,A4,A5..jne)

Jos osaisitte muuttaa tuon valmiiksi, niin olisi hyvä. Vertailen sitä sitten oppiakseni löytämään tarvittavat muutokset.

Lisäksi olisi hyvä, jos tuon makrossa lukuna 8 (siis 8 lukua tuolla rivillä) saisi 6:nnen luvun jälkeen pilkun. (luvut lasketaan myöhemmin yhteen, niin desimaalit saisi näkyviin todellisena)

Kiitos!
-------------------------------------------------

Sub JaaLuku()
Dim i As Integer
Dim a As Integer
a = 1
Range("B1:H1").NumberFormat = "@"
For i = 0 To 6
j = Array(1, 14, 8, 20, 6, 4, 1)(i)
Cells(1, 2 i) = Mid(Range("A1"), a, j)
a = a j
Next
End Sub

Oops.. kirjoitti:

Tällainen koodi pitäisi saada toimimaan useilla riveillä. Tuo toimii vaan 1. rivillä. Makron tehtävänä on jakaa 54 merkkiä pitkä numerosaraja halutun pituisiksi sarjoiksi.

Mielellään myös alku pitäisi saada siirrettyä esim. riville 3 ja toimia siitä alaspäin jokaisella rivillä.(A3,A4,A5..jne)

Jos osaisitte muuttaa tuon valmiiksi, niin olisi hyvä. Vertailen sitä sitten oppiakseni löytämään tarvittavat muutokset.

Lisäksi olisi hyvä, jos tuon makrossa lukuna 8 (siis 8 lukua tuolla rivillä) saisi 6:nnen luvun jälkeen pilkun. (luvut lasketaan myöhemmin yhteen, niin desimaalit saisi näkyviin todellisena)

Kiitos!
-------------------------------------------------

Sub JaaLuku()
Dim i As Integer
Dim a As Integer
a = 1
Range("B1:H1").NumberFormat = "@"
For i = 0 To 6
j = Array(1, 14, 8, 20, 6, 4, 1)(i)
Cells(1, 2 i) = Mid(Range("A1"), a, j)
a = a j
Next
End Sub

Lue lisää

näyttäisi mun väsäämältä koodilta...

nyt rivit 3:100 ja 6.luvun jälkeen pilkku ja 7 solussa 6 desimaalia...
en ehkä ymmärtänyt kysymystäsi oikein, mutta kuitenkin tossa koodi

Sub JaaLuku()
Dim i As Integer
Dim a As Integer
Range("B3:H100").NumberFormat = "@"
For Each solu In Range("A3:A100")
If Not solu = "" Then
a = 1
For i = 0 To 6
j = Array(1, 14, 8, 20, 6, 4, 6)(i)
If i = 5 Then
Cells(solu.Row, 2 i) = Mid(solu, a, j) & ","
Else
Cells(solu.Row, 2 i) = Mid(solu, a, j)
End If

a = a j
Next
End If
Next

End Sub

kunde kirjoitti:

näyttäisi mun väsäämältä koodilta...

nyt rivit 3:100 ja 6.luvun jälkeen pilkku ja 7 solussa 6 desimaalia...
en ehkä ymmärtänyt kysymystäsi oikein, mutta kuitenkin tossa koodi

Sub JaaLuku()
Dim i As Integer
Dim a As Integer
Range("B3:H100").NumberFormat = "@"
For Each solu In Range("A3:A100")
If Not solu = "" Then
a = 1
For i = 0 To 6
j = Array(1, 14, 8, 20, 6, 4, 6)(i)
If i = 5 Then
Cells(solu.Row, 2 i) = Mid(solu, a, j) & ","
Else
Cells(solu.Row, 2 i) = Mid(solu, a, j)
End If

a = a j
Next
End If
Next

End Sub

Lue lisää

Kiitos paalautteestasi!
Jostain syystä en saanut tuota toimimaan, enkä ymmärrä noita koodeja. Kuitenkin tuo koodi olisi toimivana virheenkorjausta ajatellen tosi hyvä. Sen vuoksi olen kiinnostunut saamaan sen toimivaksi.

Se alkuperäinen koodi on hyvä, mutta tarvisi vaan vähän säätöä. Yritän kertoa esimerkillä, jos se helpottaisi koodin kirjoittamista:

Syötä allaoleva luku soluun A1

333333333333333444444445555555555555555555566666677778

Ja suorita sitten allaoleva makro...
_______________________________________
Sub JaaLuku()
Dim i As Integer
Dim a As Integer
a = 1
Range("B1:H1").NumberFormat = "@"
For i = 0 To 6
j = Array(1, 14, 8, 20, 6, 4, 1)(i)
Cells(1, 2 i) = Mid(Range("A1"), a, j)
a = a j
Next
End Sub
------------------------------------------------
A1:een syötetty luku...
233333333333333444444445555555555555555555566666677778
jakautuu muotoon.....

A1= 233333333333333444444445555555555555555555566666677778
B1= 2
C1= 33333333333333
D1= 44444444
E1= 55555555555555555555
F1= 666666
G1=7777
H1=8

Ja nyt ne ongelmat!

1. Alkuperäisen luku syötetään soluun A1. Tuo syöttöpaikka täytyisi muutaa soluksi B3. (ja sitten muissakin syöttösoluissa, eli B4, B5..jne vaikka B500:n saakka)
2. Esimerkissä olevat luvut 44444444 pitäisi maada muotoon 444444,44 (eli tuo pilkku sitä myöhempää yhteenlaskua varten)
3. Koko "systeemi" pitäisi toimia vaikka 500:lla rivillä.

( Homma toimisi siis siten, että jokaisen rivin ensimmäinen solu on aina jaettavaksi tarkoitetun luvun syöttösölu )

Kiitos, että jaksat auttaa!