Zastąp znaki akcentowane zwykłymi znakami w VBA

Zastąp znaki akcentowane zwykłymi znakami za pomocą Kutools for Excel

Dla użytkowników, którzy mają doświadczenie z Microsoft Excel, użycie makra VBA jest łatwym sposobem radzenia sobie z tą skomplikowaną pracą.

1. Przytrzymaj przycisk inny + F11 klucze w programie Excel i otwiera plik Okno Microsoft Visual Basic for Applications.

2. Kliknij wstawka > Modułi wklej następujące makro w Okno modułu.

Function StripAccent(thestring As String)
Dim A As String * 1
Dim B As String * 1
Dim i As Integer
Const AccChars= "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const RegChars= "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
For i = 1 To Len(AccChars)
A = Mid(AccChars, i, 1)
B = Mid(RegChars, i, 1)
thestring = Replace(thestring, A, B)
Next
StripAccent = thestring
End Function

3. Następnie przejdź do pustej komórki i wklej formułę do komórki: = CheckStringCHAR (InString), Na przykład = CheckStringCHAR („ù”)lub = CheckStringCHAR (A2).

Uwagi:
(1) Twój Microsoft Visual Basic może w ogóle nie rozpoznawać znaków akcentowanych, jeśli nie obsługuje Unicode. Na przykład po wklejeniu „š” w Visual Basic może pojawić się „?”. Jeśli tak, to makro nie jest dostępne.
(2) Nie zastępuje bezpośrednio znaków akcentowanych w ciągach znaków wybranej komórki.

Korzystanie z makra VBA wymaga zbyt dużych umiejętności i wiedzy. Poniższa metoda pomoże Ci pracować łatwiej za pomocą kilku kliknięć. Kutools dla programu Excel's Zamień znaki akcentowane narzędzie umożliwia łatwe jednoczesne zastępowanie wszystkich rodzajów znaków akcentowanych zwykłymi znakami.

1. Wybierz zakres, w którym zastąpisz wszystkie znaki akcentowane.

2. Kliknij Kutools > Tekst > Zastąp znaki akcentowane… Patrz zrzut ekranu:

3. In Zastąp znaki akcentowane okno dialogowe, kliknij przycisk Wybierz wszystko , aby wybrać wszystkie reguły zamiany, i kliknij przycisk OK, aby zamienić wszystkie znaki akcentowane. zobacz zrzut ekranu:

Uwagi:
(1) Jeśli nie ma określonych znaków akcentowanych, które chcesz, możesz kliknąć Dodaj regułę , aby dodać własne reguły do ​​pola listy w powyższym oknie dialogowym Zamień znaki akcentowane.
(2) Możesz dostosować nowe zasady zastępowania w oknie dialogowym Zamień znaki akcentowane.

Teraz wszystkie znaki akcentowane w ciągach wybranego zakresu zostaną natychmiast przekonwertowane na zwykłe znaki. Zobacz zrzut ekranu:

Połączenia Zastąp znaki akcentowane funkcja Kutools for Excel może łatwo zastąpić wszystkie rodzaje znaków akcentowanych zwykłymi znakami w całym skoroszycie. Bezpłatna wersja próbna!