Ինչպե՞ս խստացնել բոլոր հատուկ բառերը մի շարք բջիջներում:
Excel- ում, Գտնել եւ փոխարինել գործառույթը կարող է օգնել մեզ գտնել որևէ կոնկրետ տեքստ և տալ խիտ կամ որևէ այլ ձևաչափում ամբողջ բջիջների համար: Բայց երբևէ փորձե՞լ եք խցանել միայն հատուկ տեքստը բջիջներում, ոչ ամբողջ բջիջը, ինչպես ցույց է տրված նկարում:
VBA կոդով մի շարք բջիջներում խատիր բոլոր հատուկ բառերը
Հետևյալ VBA կոդը կարող է օգնել խիտ նկարել բջջային բովանդակության մեջ պարունակվող միայն հատուկ տեքստը, խնդրում եմ արեք հետևյալը.
1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:
VBA կոդ. Բազմազան բջիջներում համարձակ հատուկ տեքստ
Sub FindAndBold()
'Updateby Extendoffice 20160711
Dim xFind As String
Dim xCell As Range
Dim xTxtRg As Range
Dim xCount As Long
Dim xLen As Integer
Dim xStart As Integer
Dim xRg As Range
Dim xTxt As String
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
Set xTxtRg = Application.Intersect(xRg.SpecialCells(xlCellTypeConstants, xlTextValues), xRg)
If xTxtRg Is Nothing Then
MsgBox "There are no cells with text"
Exit Sub
End If
xFind = Trim(Application.InputBox("What do you want to BOLD?", "Kutools for Excel", , , , , , 2))
If xFind = "" Then
MsgBox "No text was listed", vbInformation, "Kutools for Excel"
Exit Sub
End If
xLen = Len(xFind)
For Each xCell In xTxtRg
xStart = InStr(xCell.Value, xFind)
Do While xStart > 0
xCell.Characters(xStart, xLen).Font.Bold = True
xCount = xCount + 1
xStart = InStr(xStart + xLen, xCell.Value, xFind)
Loop
Next
If xCount > 0 Then
MsgBox "number of " & CStr(xCount) & " text be bolded!", vbInformation, "Kutools for Excel"
Else
MsgBox "Not find the specific text!", vbInformation, "Kutools for Excel"
End If
End Sub
3, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և հուշվում է արկղը ՝ հիշեցնելու համար, որ ընտրեք տվյալների տիրույթը, որը ցանկանում եք թավարկել, տե՛ս նկարը.
4. Եվ այնուհետեւ կտտացրեք OK, մեկ այլ արկղ դուրս կգա ՝ հիշեցնելու համար, որ մուտքագրում եք այն հատուկ տեքստը, որը ցանկանում եք թեքել միայն բջիջներում, տես նկարի նկարը.
5, Տեքստը մուտքագրելուց հետո սեղմեք OK կոճակը, և ձեր կողմից նշված ամբողջ տեքստը համարձակ է ընտրված տիրույթում, տե՛ս նկարը.
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: