En ole varma onko tämä oikea palsta mutta yritän kuitenkin jos apua saisi.
Koneessa on Excel 2000, (jos tarvittava tieto )
Ongelmani on seuraava:
Jos kopioidaan esim.soluun: ( A1 : numero sarja 20 1 – 5 – 10 ) miten tämän saa automaattisesti ohjelmoitua niin että kyseinen sarja saadaan eroteltua soluihin esim.
A 2 = 20
A 3 = 1
A 4 = 5
A 5 = 10
Koneessa on Excel 2000, (jos tarvittava tieto )
Ongelmani on seuraava:
Jos kopioidaan esim.soluun: ( A1 : numero sarja 20 1 – 5 – 10 ) miten tämän saa automaattisesti ohjelmoitua niin että kyseinen sarja saadaan eroteltua soluihin esim.
A 2 = 20
A 3 = 1
A 4 = 5
A 5 = 10
Vastaukset 6
Vanhimmat
Ei sillä etteikö se onnistuisi...
Mutta minkä ihmeen takia et voi suoraan tuota lukusarjaa syöttää niihin soluihin erikseen?!?!?!?
Voisit vähän valottaa ongelmaa, pelkästään tuon vuoksi en viitsi vaivaa nähdä.
..mulla oli itselläni kerran vähän vastaavanlainen probleema ku piti reilut 20 000 riviä dataa saada parseroitua siistimpään muotoon,jotta siitä oli omissa vakioveikkaus-jutuissa hyötyä....että tuo runsas datan määrä selittäisi todennäköisimmän syyn!
Niin itse asiassa voisi syöttää eri soluihin suoraan kyseisen sarjan, käsin. Mutta ongelma on se että jos haen esim. webistä joitakin tilastoja, jotka päivitän aika ajoin. Nissä kun jotkut numero sarjat menevät suoraan yhdelle solulle, ja tämän solun sisältö pitäisi saada eroteltua. Jotta tuosta saa tehtyä erilaisia laskutoimituksia.
Kiitos jos jaksat nähdä vaivaa . Minä en ainakaan ymmärrä tätä asiaa.
Function PilkoTeksti()
Dim sStr As String
sStr = Sheets(1).Cells(1, 1)
Sheets(1).Cells(2, 1) = Left(sStr, InStr(1, sStr, " "))
sStr = Mid(sStr, InStr(1, sStr, " ") 1)
Sheets(1).Cells(3, 1) = Left(sStr, InStr(1, sStr, " - "))
sStr = Mid(sStr, InStr(1, sStr, " - ") 3)
Sheets(1).Cells(4, 1) = Left(sStr, InStr(1, sStr, " - "))
sStr = Mid(sStr, InStr(1, sStr, " - ") 3)
Sheets(1).Cells(5, 1) = sStr
End Function
Tuhannesti kiitoksia. Sain vihjeen tuosta Pilko Teksti ja löytyihän sieltä ohjattu toiminto. Kiitos vielä kerran.
Tein ihan piruuttani seuraavanlaisen vaihtoehtoisen string-separointimallin, mutta yllätyksekseni se ei toiminutkaan tässä tapauksessa, koska tuo esimerkki-stringin viiva on ASCII merkistössä 150 ja tuo Split-funktioon näppäimistöltä näpytelty vastaavasti 45 (tavuviiva/miinusmerki).
Excel:ssä koodi 150 näyttää kyllä pidemmältä kuin 45, mutta ei kuitenkaan hard-koodaustilassa, jolloin erehtymisen mahdollisus on todellinen.
Voi hyvin olla, että tuo juttu kopioitavassa lähteessä on tehty siksi, että eroitin ei sekoitu miinusmerkkiin koneellisessa käsittelyssä, mutta melko vitunaikaiselta kumminkin vaikuttaa.
Miten ihmeessä on muuten ensinnäkin mahdollista, että ASCII-merkistöstä löytyy kaksi ulkoasultaan samaa merkkiä ja vielä niin, että niiden sekoittamisen seurauksena voi olla suurkatastrofi? Entä, kuka tässä maailmassa on niin kusipää, että laittaa lukujoukon yhdeksi eroittimeksi merkin, joka voi aivan hyvin tarkoittaa luvun etumerkkiä?
Private Sub CmdButton1_Click()
Dim str, a, i, sep1, sep2
str = Sheets("Sheet1").Cells(1, 1)
sep1 = Sheets("Sheet1").Cells(1, 2)
sep2 = Sheets("Sheet1").Cells(1, 3)
a = Split(str, sep1)
For i = LBound(a) To UBound(a)
a(i) = Trim(a(i))
Next
str = Join(a, sep2)
a = Split(str, sep2)
For i = LBound(a) To UBound(a)
Sheets("Sheet1").Cells(2, i 1) = a(i)
Next
End Sub
Jonttu