|
|
 | Kommentar
Fra :  h_blunck  |
Dato : 27-03-05 15:26 |
|
Hej GBN
Spørgsmålet er kort: kan det lade sig gøre ved hjælp af VB?
Svaret er lige så kort: Ja.
Du spurgte ikke hvordan.... 
--
Med venlig hilsen
Henrik, Dianalund
| |
| Kommentar
Fra : h_blunck |
Dato : 27-03-05 15:28 |
|
Hej igen...
....før du bliver småmopset over humoren, så må jeg bedrøve dig med, at min kammerat der netop roder med VBA ikke er hjemme her i Påsken, så jeg bliver dig et svar på hvordan skyldigt.
Er selv skiftet til Linux.
Fortsat god dag. 
--
Med venlig hilsen
Henrik, Dianalund
| |
|
Ja, det er absolut muligt, men:
Skal celler med kun 3 tegn opfattes som 3 tegn + et blank-tegn ?
Hvis ja, står blank-tegnet så til højre eller venstre i cellen ?
| |
 | Kommentar
Fra : Phylock  |
Dato : 05-04-05 12:17 |
|
ok hvis jeg skal forstå dig ret ... du har 4 søjler med et ukendt antal rækker
jeg har ikke excel på min computer så jeg har ikke testet det
Kode
Sub opbrydning()
Do Until Cells(6 + ii, 3) = ""
Text = ""
For jj = 0 To 3
Text = Text & Cells(6 + ii, 3 + jj)
Next jj
For kk = 1 To Len(Text)
Cells(7 + ii, 5 + kk).Value = Mid(Text, kk, 1)
Next kk
ii = ii + 1
Loop
End Sub |
mvh
Phylock`
| |
|
Denne er testet, og virker:
Public Sub splii__()
Dim ankr As Range
Dim ankrCol As Range
Dim clCol As Range
Dim roww As Range
Dim clR As Range
Dim ord As String
Dim n As Integer
Dim bogst As String
Set ankr = Range("c6")
Set ankrCol = Range(ankr, ankr.End(xlDown))
For Each clCol In ankrCol
Set roww = Range(clCol, clCol.End(xlToRight))
ord = ""
For Each clR In roww
clR.Select
ord = ord & clR
Next
For n = 1 To Len(ord)
clCol.Offset(0, 4 + n) = (Mid(ord, n, 1))
Next n
Next
End Sub
'Jeg har en hel masse celler i excel regneark, som hver indeholde 3 eller 4 bogstaver eller tal uden mellemrum.
'eks. "12a5 121 111 1d2
'Der er 4 celler pr. række fra (C6:F6) og mange rækker.
'Jeg ønsker at splitte indholdet af hver celle op således at
'hver karrakter får en selvstændig celle fra (H6:T6),
'kan det lade sig gøre ved hjælp af VB.
| |
 | Kommentar
Fra : gunnarb  |
Dato : 06-04-05 10:00 |
|
Til Phylock:
Virker ikke efter hensigten. Indsætningen starter på linie 7 i (F7:R7) og overskriver altså mine data fra række 7 . Resten af rækkerne indsættes i (F[række+1])  række+1), altså kun 10 tegn. Indsætningen skulle starte fra (H6:T6).
Til Winetaster:
Når jeg køre dit program kommer der en: Compiler errow Syntax error. i følgende linie. For Each clR In roww clR.Select
| |
| Kommentar
Fra : gunnarb |
Dato : 06-04-05 10:04 |
| | |
|
Til GunnarB
Linjen:
For Each clR In roww clR.Select
skal rettes til:
For Each clR In roww
Mvh W
| |
| Accepteret svar
Fra : winetaster | 
Modtaget 70 point
Dato : 06-04-05 12:05 |
|
Til GunnarB
Tilsyneladende ændrer Kandu.dk linjeskiftene.
For at undgå enhver misforståelse:
Linjen:
For Each clR In roww clR.Select
skal rettes til:
For Each clR In roww
| |
| Kommentar
Fra : gunnarb |
Dato : 08-04-05 09:36 |
|
Ja, mange tak winetaster for hjælpen, nu virker det perfekt.
Men hvorden giver jeg dig point?
| |
| Godkendelse af svar
Fra : gunnarb |
Dato : 08-04-05 09:54 |
|
Tak for svaret winetaster.
Ok jeg har fundet ud af pointsystemet.
| |
 | Du har følgende muligheder | |
|
Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.
Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.
| |
|
|