Շեշտադրված նիշերը փոխարինեք սովորական նիշերով VBA- ով

Փոխարինեք ընդգծված նիշերը սովորական նիշերով Excel- ի համար Kutools- ով

Այն օգտվողների համար, ովքեր փորձ ունեն Microsoft Excel- ում, VBA մակրո օգտագործելը այս բարդ գործը լուծելու հեշտ միջոց է:

1. Անջատեք ալտ + F11 Excel- ի ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

2. Սեղմել Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ մակրոը ՝ Մոդուլի պատուհան.

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. Դրանից հետո անցեք դատարկ բջիջ և բանաձևը տեղադրեք բջիջում. = CheckString CHAR (InString), Օրինակ, = CheckStringCHAR ("ù")Կամ = CheckStringCHAR (A2).

Նշումներ:
(1) Ձեր Microsoft Visual Basic- ը կարող է ընդհանրապես չճանաչել ընդգծված նիշերը, եթե այն չի ապահովում Unicode- ը: Օրինակ, երբ «š» -ը տեղադրեք Visual Basic- ում, կարող է ստացվել «?»: Եթե ​​այո, ապա այս մակրոը մատչելի չէ:
(2) Այն չի փոխարինում շեշտադրված նիշերին ուղղակիորեն ընտրված բջիջի տողերում:

Դա պահանջում է չափազանց շատ հմտություններ և գիտելիքներ VBA մակրո օգտագործելու համար: Եվ հետևյալ մեթոդը կօգնի ձեզ ավելի հեշտ աշխատել միայն մի քանի կտտոցով: Excel- ի համար Kutools- ի փոխարինած շեշտադրված նիշերը գործիքը հնարավորություն է տալիս միանգամից հեշտությամբ փոխարինել բոլոր տեսակի շեշտադրված նիշերը սովորական նիշերով:

1. Ընտրեք տիրույթը, որով դուք կփոխարինեք բոլոր ընդգծված նիշերը:

2. Սեղմել Կուտոլս > Տեքստ > Փոխարինեք ընդգծված նիշերըSee, տես նկարի նկարը.

3. In Փոխարինեք ընդգծված նիշերը երկխոսության տուփ, կտտացրեք Ընտրել բոլորը բոլոր փոխարինելու կանոնները ընտրելու կոճակը և կտտացրեք Ok կոճակը `բոլոր շեշտադրված նիշերը փոխարինելու համար: տե՛ս սքրինշոթը.

Notes:
(1) Եթե չկան ցանկալի շեշտադրված նիշեր, կարող եք սեղմել Ավելացնել կանոն կոճակը ՝ ձեր սեփական կանոնները վերևում նշված ցուցակի վանդակում ավելացնելու համար «Փոխարինեք ընդգծված նիշերը» երկխոսության դաշտում:
(2) Փոխարինող ընդգծված նիշերը երկխոսության դաշտում կարող եք հարմարեցնել նոր փոխարինող կանոնները:

Այժմ դուք կունենաք բոլոր շեշտադրված նիշերը ընտրված տիրույթի տողերում անմիջապես փոխարկված սովորական նիշերի: Տեսեք,

The Փոխարինեք ընդգծված նիշերը Kutools- ի Excel- ի առանձնահատկությունը կարող է հեշտությամբ փոխարինել բոլոր տեսակի շեշտադրված նիշերը ամբողջ աշխատանքային գրքում կանոնավոր բնութագրերով: Անցկացրեք անվճար փորձություն: