/ Forside/ Teknologi / Udvikling / VB/Basic / Spørgsmål
Login
Glemt dit kodeord?
Brugernavn 

Kodeord  


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Splitning af indhold i celler med VB
Fra : gunnarb
Vist : 488 gange
70 point
Dato : 27-03-05 13:56

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.

mvh gbn

 
 
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

Kommentar
Fra : gunnarb


Dato : 28-03-05 00:25

Jeg vil selvfølgelig gerne hvide hvordan man gør, jeg har selv rodet lidt med det, men det er ikke lykkedes.

Kommentar
Fra : gunnarb


Dato : 28-03-05 00:29

UPS der kom vist et h for meget med.

Kommentar
Fra : winetaster


Dato : 30-03-05 11:41

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 : gunnarb


Dato : 30-03-05 17:51

Nej ingen blanke tegn. Der er altid 13 tegn i de 4 celler ialt, men hvor der er fire tegn kan variere.

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`

Kommentar
Fra : winetaster


Dato : 05-04-05 13:16

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

:O = ":O"

Kommentar
Fra : winetaster


Dato : 06-04-05 11:53

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.
Søg
Reklame
Statistik
Spørgsmål : 173471
Tips : 31650
Nyheder : 719565
Indlæg : 6382445
Brugere : 218248

Månedens bedste
Årets bedste
Sidste års bedste