Miten saisi pitkät numerosarjat jaoteltua siten, että ne olisivat 4-8:n numeron jaksoissa.
Esim. tyyliin 0000 0000 000000 00
Siis tarkoitus on saada (miel. muotoiluasetuksilla) kaikki sarakkeet muotoiltua samannäköisiksi, ja vaikka eri värejä käyttämällä.
Olisiko tarjolla jokin muu keino jaottelemiseksi?
Muotoiluksi olen jo nyt laittanut "teksti", sillä muuten taulukko ei ymmärrä pitkiä numerosarjoja. Nämä numerosarjat eivät vaadi laskemista, joten "tekstimuodosta" ei ole muuten haittaa.
Toinen asia, mikä soveltuisi tarkoitukseeni, olisi se, että pitkä numerosarja jakautuisi automaattisesti saman rivin useaan soluun.
Onnistuuko tälläinen jako jotenkin?
Numerot syötetään soluun automaattisesti, joten olisi tarpeen tuo myös tuo "automaattijako".
Esim. tyyliin 0000 0000 000000 00
Siis tarkoitus on saada (miel. muotoiluasetuksilla) kaikki sarakkeet muotoiltua samannäköisiksi, ja vaikka eri värejä käyttämällä.
Olisiko tarjolla jokin muu keino jaottelemiseksi?
Muotoiluksi olen jo nyt laittanut "teksti", sillä muuten taulukko ei ymmärrä pitkiä numerosarjoja. Nämä numerosarjat eivät vaadi laskemista, joten "tekstimuodosta" ei ole muuten haittaa.
Toinen asia, mikä soveltuisi tarkoitukseeni, olisi se, että pitkä numerosarja jakautuisi automaattisesti saman rivin useaan soluun.
Onnistuuko tälläinen jako jotenkin?
Numerot syötetään soluun automaattisesti, joten olisi tarpeen tuo myös tuo "automaattijako".
Vastaukset 7
Vanhimmat
Terve, ja juhannuksen jälkeistä elämää!
Muotoile solut näin:
Muotoile/Solut/Luku-välil., luokka oma ja kirjoita muotoilu esim. 0000 0000 000000 00. Ts. nollina luvut ja välilyönneillä välit, miten sitten haluatkin.
eli kirjoita muotoilusi Laji-kohtaan.
En saanut toimimaan.
Huomasitko, että luku on alunperin 54-merkkiä pitkä, jota Exel ei osaa käsitellä, ellei se ole muotoiltu "tekstiksi"?
Annan esimerkin.
222222222222222222222222222222222222222222222222222222
Pitäisi saada jaoteltua vaikka muotoon...
22222 22222 22222 22222 22222222 22222222 22 2222222222222222 (kaikki luvut ovat yhdellä rivillä)
Toinen vaihtoehto olisi, että luvut voisi jakaa automaattisesti useisiin soluihin siten, että ne olisivat lyhyemmässä moodossa.
Luvut syötetään soluihin vaikka siten, että pidetään näppäintä pohjassa niin kauan, että rivillä on 54-merkkiä.
Siis tässä toimisi myös sellainen vaihtoehto, että pitämällä näppäintä pohjassa,...luvut jakautuisivat useisiin peräkkäisiin soluihin, mutta samalla rivillä koko ajan. Siten numerosarjat olisivat lyhyempiä.
käytä nolla ryhmien ympärillä "-merkkejä muotoilessasi, silloin sinun ei tarvitse muotoilla lukua ensin tekstiksi.
Vähän nytkähti asia eteenpäin.
_*"0"__ "0000000000000"__ "000000,""00"__ "00000000000000000000"__ "000000"__ "0000"__ "0"
Tuollaisella muotoilulla jaotus meni oikein, mutta....
1...Nyt pitäisi saada homma toimimaan siten, että nuo nollat(0) korvautuvat niillä syötetyillä (=näppäiltavillä) numeroilla.
2...kunkin numeroryhmän fontti saisi olla tunnusvärillä merkitty.
Kiitos tuosta edellisestä vihjeestä!
Viela pitaisi kuukausi jaksaa palmujen alla, joten aikani kuluksi paatin vastata.
Taulukon moduuliin suraava koodi ja kirjoita soluun luku ja sitten tuplaklikkaat (esim. koodissa nyt vain)solussa A1 niin makro tekee siita 54 merkkia pitkan ja varjaa fontit ryhmittain. Vaihda itselle sopivaksi
Public Arvo
Dim i As Integer
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
If Not Len(Target) = 1 Then
MsgBox " Vain yksi numero sallitaan!"
Target = ""
Exit Sub
End If
Arvo = Target
Target = ""
End If
For i = 1 To 54
Select Case i
Case 5, 9, 15, 20, 30, 40
Target = Target & " "
Case Else
Target = Target & Arvo
End Select
Next
Target.Characters(Start:=1, Length:=4).Font.ColorIndex = 3
Target.Characters(Start:=6, Length:=3).Font.ColorIndex = 5
Target.Characters(Start:=10, Length:=5).Font.ColorIndex = 40
Target.Characters(Start:=16, Length:=5).Font.ColorIndex = 36
Target.Characters(Start:=21, Length:=10).Font.ColorIndex = 50
Target.Characters(Start:=31, Length:=10).Font.ColorIndex = 35
Target.Characters(Start:=41, Length:=15).Font.ColorIndex = 0
End Sub
Mukavaa, että sait silmäsi auki palmun alta.
En käsitä tuosta kyllä enenpää, kuin sika hopealusikasta, mutta oli niin hienoa tekstiä, että täytyy yrittää selvitellä.
Oliko tuo ohje siis makrolla suoritettava?
Aikaisemmin olin tehnyt homman juuri makrolla, mutta kiintolevy särkyi, ja makro katosi. Taulukokko oli kyllä varmuuskopioitu useaan paikkaan, mutta kaikisssa oli makro-osa rikki. Se siitä varmuuskopioinnista.
Käytössäni on suomenkielinen ohjelma.
Palataan asiaan myöhemmin.
Hyvää lomaa vaan sinne palmun alle. Muista kääntää välillä kylkeä, ettei nahka pala.