|
Macro voor excel om een lijst woorden in één
keer te vervangen in een tekst.
De code voor Visual Basic macro "Vervang" De lijst woorden die men wenst te vervangen bevindt zich in dit voorbeeld in de kolom C4 tot C13.De wisselwoorden in de kolom daarnaast [Offset(0, 1)].
Sub Vervang()
'author piet :: pwProTech
For Each c In Worksheets(1).Range("C4:C13")
Sheets("Blad2").Cells.Replace What:=c.Value, Replacement:=c.Offset(0, 1).Value,
LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
ReplaceFormat:=False
Next c
End Sub
De inhoud van excel Blad1
Range C4 tot C13 :
Hier plaats je de woorden die je wil vervangen en de veervangtekst
Vb.:Blad1:
Op dit blad kan je ook de knop [VERVANG] (die de macro "Vervang" start)
aanbrengen.:
|
A |
B |
C |
D |
... |
|
1 |
|
|
|
|
|
2 |
|
|
|
|
|
3 |
|
Te vervangen: |
met: |
|
|
4 |
|
Event |
DB_action |
|
|
5 |
|
event |
db_action |
|
|
... |
|
... |
... |
|
De inhoud van excel Blad2
Op Blad2 plaats je de tekst die bewerkt moet worden.
Je plakt best de hele tekst in één enkele cel zodat je hem weer gemakelijk kan copiëren
Hoe : dubbele klik in de cel die je verkiest en plakken
Noot: Je kan ook een knop voorzien om de woorden op "Blad1" te verwijderen met de macro "Reset"
Code:
Sub Reset()
'author piet :: pwProTech
For Each c In Worksheets(1).Range("C4:C13")
c.Value = ""
c.Offset(0, 1).Value = ""
Next c
End Sub
|
