Taulukon makro toimii vain ensimmäisellä rivillä.
Miten makron saa toimimaan myös alemmilla riveillä, vai pitääkö jokaiselle riville olla oma makro?
Makro usealle riville
4
626
Vastaukset
- mikroo
makro tekee just mitä sen on ohjelmoija laittanut tekemään.
Koodi esimerkki auttaisi kummasta ongelmasi ratkaisemisessa...- Oops..
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 Subnä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- Oops..
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 SubKiitos 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!
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kuvat! Dannyyn liitetty Helmi Loukasmäki, 22, on puhjennut naisena kukkaan - Some sekoaa: "Sä..."
Ooo, kaunis aikuinen nainen Helmistä on kasvanut siinä yli 80-vuotiaan Dannyn rinnalla! Katso uudet kuvat: https://ww574230- 472891
Suodatinpussin kastelemalla saa parempaa kahvia
Kokeilin niksiä ja kyllä tämä kahvi on parempaa nyt. Ei lainkaan maistu paperiselta. Huljuttelee hanan alla suppiloa pap1322175Tidätkö nainen
että suoraan sanottuna v.tut.aa että pääsit näin lähelle minua. Ei olisi oikeasti aikaa tähän mutta silti aina välillä o1051896Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.641383Onkohan sinulla kaikki hyvin?
Nyt vähän sellainen outo tunne tuli. Sinun asiasi niin ei minulle toki tarvitse kertoa. Kunhan mietin...381177- 1731066
Huikeeta, mahtavaa, ihan mielettömän upeeta
Me ostettiin talo Espanjasta. Tosin saadaan käyttää sitä vain muutama viikko vuodessa kun on monta muutakin ostajaa! M1871049En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois871048Oho! Arja Koriseva paljastaa TTK:n ekasta suorasta lähetyksestä: "On vähän ärsyttävä yhtälö!"
Upea Arja Koriseva! Tsemppiä haasteelliseen tilanteeseen! Lue lisää: https://www.suomi24.fi/viihde/oho-arja-koriseva-161012