Ինչպե՞ս առանձնացնել Excel- ում բանաձևով հղված բոլոր բջիջները:
Այս հոդվածում խոսվում է բոլոր բջիջները լուսաբանելու մասին, որոնք հղում են կատարել Excel- ի բանաձևով: Խնդրում ենք հետևել ստորև ներկայացված երկու մեթոդներին `այն իրականացնելու համար:
Կարճացրեք ստեղնաշարի միջոցով բանաձևով նշված բոլոր բջիջները
Նշեք VBA կոդով բանաձևով նշված բոլոր բջիջները
Կարճացրեք ստեղնաշարի միջոցով բանաձևով նշված բոլոր բջիջները
Այս բաժինը ձեզ խորհուրդ կտա օգտագործել դյուրանցման ստեղնը ՝ ընտրելու համար բանաձևով հղված բոլոր բջիջները, այնուհետև ձեռքով լրացնելու համար դրանց գույնը:
1. Ենթադրելով, որ E1- ը բանաձևային բջիջ է, և դուք պետք է ընդգծեք բոլոր բջիջները, որոնց վրա հղում է կատարվել: Խնդրում ենք ընտրել բանաձև E1 բջիջը, այնուհետև սեղմել Ctrl + [ (բաց քառակուսի փակագծում) ստեղները միաժամանակ:
2. Այժմ ընտրված են այս բանաձևով հղված բջիջները, նշեք լրացման գույնը `դրանք ընդգծելու համար: Տեսեք,
Նշեք VBA կոդով բանաձևով նշված բոլոր բջիջները
Կարող եք նաև գործարկել VBA կոդ ՝ բոլոր բջիջները լուսաբանելու համար, որոնք հղում են կատարել Excel- ի բանաձևով:
1. Մամուլ ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և տեղադրեք ներքևի VBA կոդը Մոդուլի պատուհանում:
VBA կոդ. Նշեք Excel- ում բանաձևով նշված բոլոր բջիջները
Sub HighlightCellsReferenced()
Dim rowCnt As Integer
Dim i As Integer, j As Integer, strleng As Integer
Dim strTxt As String, strFml As String
Dim columnStr, cellsAddress As String
Dim xRg As Range, yRg As Range
On Error Resume Next
Set xRg = Application.InputBox(Prompt:="Please select formula cell(s)...", _
Title:="Kutools For Excel", Type:=8)
strTxt = ""
Application.ScreenUpdating = False
For Each yRg In xRg
If yRg.Value <> "" Then
strFml = yRg.Formula + " "
strFml = Replace(strFml, "(", " ")
strFml = Replace(strFml, ")", " ")
strFml = Replace(strFml, "-", " ")
strFml = Replace(strFml, "+", " ")
strFml = Replace(strFml, "*", " ")
strFml = Replace(strFml, "/", " ")
strFml = Replace(strFml, "=", " ")
strFml = Replace(strFml, ",", " ")
strFml = Replace(strFml, ":", " ")
For j = 1 To Len(strFml)
If Mid(strFml, j, 1) <> " " Then
cellsAddress = cellsAddress + Mid(strFml, j, 1)
Else
On Error Resume Next
Range(cellsAddress).Interior.ColorIndex = 3
cellsAddress = ""
End If
Next
End If
Next yRg
Application.ScreenUpdating = True
End Sub
3. Սեղմեք F5 ծածկագիրը գործելու համար: Պատուհանման մեջ Excel- ի համար նախատեսված գործիքներ երկխոսության տուփ, խնդրում ենք ընտրել բանաձևի բջիջ կամ բազմակի բանաձևի բջիջներ, որոնց վրա անհրաժեշտ է լուսաբանել հղված բջիջները, և դրանց վրա կտտացնել OK կոճակ Տեսեք,
Այժմ ընտրված բանաձևի (ներ) ի վրա հիմնված բոլոր հղվող բջիջները անմիջապես կարմիրով են նշվում, ինչպես ցույց է տրված նկարում:
Առնչվող հոդվածներ:
- Ինչպե՞ս Excel- ում կայուն պահել բանաձևի բջիջների տեղեկանքը:
- Ինչպե՞ս հղել ներդիրի անունը Excel- ում գտնվող բջիջում:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: