Ինչպե՞ս հաշվել բջիջները հատուկ տեքստով և լրացնել / տառատեսակի գույնը Excel- ում:
Ձեզ համար կարող է հեշտ լինել հաշվել միայն մեկ պայման պարունակող բջիջների քանակը, օրինակ `հաշվել հատուկ տեքստով կամ տառատեսակի / լրացման գույնով բոլոր բջիջները: Այնուամենայնիվ, գիտե՞ք ինչպես հաշվել բազմակի պայմաններով բջիջները: Օրինակ ՝ հաշվեք բջիջների քանակը, որոնք պարունակում են և՛ հատուկ տեքստ, և՛ տառատեսակի / լրացման գույն: Այս հոդվածը ձեզ ցույց կտա լուծումը:
Հաշվեք բջիջները հատուկ տեքստով և գույնը լրացրեք VBA կոդով
Հաշվեք բջիջները ՝ հատուկ տեքստով և տառատեսակի գույնով, VBA կոդով
Հաշվեք բջիջները հատուկ տեքստով և գույնը լրացրեք VBA կոդով
Ենթադրելով, որ դուք ունեք աղյուսակ, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը, տողի վրա հիմնված B սյունակում բջիջները հաշվելու համար և E2 բջիջի գույնը լրացնելու համար կիրառեք հետևյալ VBA կոդը:
1. Սեղմեք ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, ապա VBA կոդի ներքո պատճենեք Մոդուլի պատուհանում:
VBA կոդ. Հաշվեք բջիջները հատուկ տեքստով և լրացրեք գույնը
Sub CountFillColorValue()
'Update by Extendoffice 20180702
Dim I As Long
Dim xNum As Long
Dim Rows As Long
Dim xRgD As Range
Dim xRg, xRgS As Range
On Error Resume Next
Set xRg = Range("B2:B9")
Set xRgS = Range("E2")
Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
Set xRg = xRg(1)
xNum = 0
For I = 1 To xRows
If xRg.Offset(I - 1, 0).Interior.ColorIndex = xRgS.Interior.ColorIndex Then
If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
xNum = xNum + 1
End If
End If
Next
xRgD = xNum
End SubՆշումԿոդում ՝ B2: B9- ը այն տիրույթն է, որի մեջ դուք կհաշվեք բջիջները, E2- ը պարունակում է տեքստ և լրացնում է այն գույնը, որի վրա կհաշվեք բջիջները: Կարող եք դրանք փոխել ըստ ձեր կարիքի:
3. Սեղմեք F5 կոդը գործարկելու բանալին, ապա ա Kutools for Excel երկխոսության պատուհանը հայտնվում է, ընտրեք բջիջը արդյունքը տեղադրելու համար և այնուհետև կտտացրեք այն OK կոճակ Տեսեք,
Այնուհետեւ հաշվարկի արդյունքը անմիջապես ցուցադրվում է ընտրված խցում:
Հաշվեք բջիջները ՝ հատուկ տեքստով և տառատեսակի գույնով, VBA կոդով
B2: B9 տիրույթում գտնվող բջիջները հաշվելու համար, որոնք հիմնված են E2 բջիջի տեքստի և տառատեսակի գույնի վրա, կատարեք հետևյալը.
1: բացել Microsoft Visual Basic հավելվածների համար պատուհանը սեղմելով ալտ + F11 ստեղները:
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, ապա VBA կոդի ներքո պատճենեք Մոդուլի պատուհանում:
VBA կոդ. Հաշվեք բջիջները հատուկ տեքստով և տառատեսակի գույնով
Sub CountFontColorValue()
'Update by Extendoffice 20180702
Dim I As Long
Dim xNum As Long
Dim xRows As Long
Dim xRgD As Range
Dim xRg, xRgS As Range
On Error Resume Next
Set xRg = Range("B2:B9")
Set xRgS = Range("E2")
Set xRgD = Application.InputBox("Please select a cell:", "KuTools for Excel", Selection.Address, , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
Set xRg = xRg(1)
xNum = 0
For I = 1 To xRows
If xRg.Offset(I - 1, 0).Font.ColorIndex = xRgS.Font.ColorIndex Then
If xRg.Offset(I - 1, 0).Value = xRgS.Value Then
xNum = xNum + 1
End If
End If
Next
xRgD = xNum
End SubՆշումԿոդում `B2: B9- ը այն միջակայքն է, որի մեջ դուք կհաշվեք բջիջները, E2- ը` այն չափանիշները, որոնց հիման վրա կհաշվեք բջիջները: Դուք կարող եք փոխել դրանք, ինչպես ձեզ հարկավոր է:
3. Սեղմեք F5 կոդը գործարկելու բանալին, ապա ա Kutools for Excel երկխոսության պատուհանը հայտնվում է, ընտրեք բջիջը արդյունքը տեղադրելու համար և այնուհետև կտտացրեք այն OK կոճակ Տեսեք,
Արդյունքը կստանաք, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը.
Առնչվող հոդվածներ քանակը:
- Ինչպե՞ս հաշվել բջիջների քանակը Excel- ում երկու արժեքների կամ ամսաթվերի միջև:
- Ինչպե՞ս Excel- ում ընտրության մեջ հաշվել հատուկ տեքստով բջիջները:
- Ինչպե՞ս հաշվել, եթե բջիջը պարունակում է տեքստ կամ տեքստի մի մաս Excel- ում:
- Ինչպե՞ս հաշվել Excel- ում որոշակի / հատուկ բառերի մի բջիջ կամ մի շարք բջիջներ:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel հմտությունները Kutools for Excel, և փորձիր արդյունավետություն, ինչպես երբեք: Kutools for Excel Առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab Ներդիրներով ինտերֆեյսը Office է բերում և ձեր աշխատանքը շատ ավելի հեշտացնում
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
