[Excel] Waarden in cellen omdraaien (spiegelen)

[Anoniem: 108012]

Hallo,

Ik zit met een probleempje,
Ik wil graag bepaalde cellen in mijn excel worksheet spiegelen, maar heb geen idee hoe dat kan!

als bijv in een cel "12345" staat dan wil ik in die cel ernaast "54321" krijgen.

Is dat mogelijk?
zoja, hoe?

alvast bedankt!

steven

[Spider.007]

Moet niet zo moeilijk zijn met een eenvoudige str_rev in VBA oid? Wat heb je zelf al geprobeerd?

[CoRrRan]

Visual Basic:

Public Function StringReverse(strInput As String) As String
  
  Dim i As Integer
  Dim strOutput As String
  
  For i = Len(strInput) To 1 Step -1
    strOutput = strOutput & Mid(strInput, i, 1)
  Next i
  
  StringReverse = strOutput
  
End Function

Het kan vast sneller, maar daar heb ik geen zin in om dat te proberen.

[BtM909]

CoRrRan schreef op dinsdag 10 mei 2005 @ 11:23:

Visual Basic:

Public Function StringReverse(strInput As String) As String
  
  Dim i As Integer
  Dim strOutput As String
  
  For i = Len(strInput) To 1 Step -1
    strOutput = strOutput & Mid(strInput, i, 1)
  Next i
  
  StringReverse = strOutput
  
End Function

Het kan vast sneller, maar daar heb ik geen zin in om dat te proberen.

Het kan zeker korter, misschien toch wat beter de documentatie induiken?

code:

StrReverse(expression)

[CoRrRan]

BtM909 schreef op dinsdag 10 mei 2005 @ 11:27:
[...]

Het kan zeker korter, misschien toch wat beter de documentatie induiken?

code:

StrReverse(expression)

Jah, maar: "Where's the sport in that?"

[onkl]

Visual Basic:

Public Function StringReverse(omtedraaien As Variant) As String
  
Dim tekst as string
tekst = CStr$(omtedraaien)
  StringReverse = StrReverse(tekst)
  
End Function

Variant om Excel niet over datums ed te laten zeuren.

[Anoniem: 108012]

Ik dacht dat ik redelijk bekend was met excel, maar ik zie nu dat dat totaal niet het geval is!!
Bestaat er nou geen formule die ik gewoon uit dat rijtje kan pikken in het 'formule menu' en boen-bats het staat er omgekeerd?!

steven

ps heb trouwens de nederlandse versie!

[onkl]

Nee, die bestaat niet. Dit is overigens niet zo moeilijk als het lijkt, op deze manier maak je eigenlijk een nieuwe formule die net zo werkt als excel's eigen functies.
-In Excel: Alt-F11.
Microsoft Visual Basic opent zich.
Linksboven zie je een soort Windows-explorer waarin je waarschijnlijk iets als VBA Project (Naam van je bestand) ziet staan (vet). Klik daarop met rechtermuisknop, invoeren, module.
In het vak rechts verschijnt er een nieuwe module (kan je in typen en zo.
Copy-Paste daar het stuk code uit mijn vorige post.
Type in Excel nu =Stringreverse(123) et voila.
Zorg wel dat je macrobeveiliging niet te hoog staat (Extra-Opties-Beveiliging ergens een knopje met "macro" en dan op maximaal medium.)

[Anoniem: 51002]

Dit kan met www.asap-utilities.com

[Anoniem: 108012]

onkl schreef op woensdag 11 mei 2005 @ 14:43:
Nee, die bestaat niet. Dit is overigens niet zo moeilijk als het lijkt, op deze manier maak je eigenlijk een nieuwe formule die net zo werkt als excel's eigen functies.
-In Excel: Alt-F11.
Microsoft Visual Basic opent zich.
Linksboven zie je een soort Windows-explorer waarin je waarschijnlijk iets als VBA Project (Naam van je bestand) ziet staan (vet). Klik daarop met rechtermuisknop, invoeren, module.
In het vak rechts verschijnt er een nieuwe module (kan je in typen en zo.
Copy-Paste daar het stuk code uit mijn vorige post.
Type in Excel nu =Stringreverse(123) et voila.
Zorg wel dat je macrobeveiliging niet te hoog staat (Extra-Opties-Beveiliging ergens een knopje met "macro" en dan op maximaal medium.)

Top! Bedankt!

steven