Ինչպե՞ս հաշվել, թե քանի անգամ է բջիջը փոխվել Excel-ում:
Excel-ում նշված բջիջի փոփոխության քանակը հաշվելու համար կարող են օգնել այս հոդվածում ներկայացված VBA կոդերը:
Հաշվեք, թե քանի անգամ է բջիջը փոխվել VBA կոդով
Հաշվեք, թե քանի անգամ է բջիջը փոխվել VBA կոդով
Հետևյալ VBA կոդերը կարող են օգնել ձեզ հաշվել, թե քանի անգամ է փոխվել նշված բջիջը Excel-ում:
1. Աշխատանքային թերթում, որը պարունակում է մեկ կամ մի քանի բջիջ, որոնց համար անհրաժեշտ է հաշվարկել ընդհանուր փոփոխությունը, աջ սեղմեք թերթի ներդիրի վրա, այնուհետև սեղմեք Դիտել կոդը համատեքստային ընտրացանկից: Տեսեք,
2. Բացման մեջ Microsoft Visual Basic հավելվածների համար պատուհանում, պատճենեք և տեղադրեք հետևյալ VBA կոդերից մեկը Կոդ պատուհան՝ ըստ ձեր կարիքների:
VBA կոդ 1. Հետևեք փոփոխություններին միայն մեկ բջիջում
Dim xCount As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range, xCell As Range
On Error Resume Next
If Target = Range("B9") Then
xCount = xCount + 1
Range("C9").Value = xCount
End If
Application.EnableEvents = False
Set xRg = Application.Intersect(Target.Dependents, Me.Range("B9"))
If Not xRg Is Nothing Then
xCount = xCount + 1
Range("C9").Value = xCount
End If
Application.EnableEvents = True
End Sub
ՆշումԿոդում `B9- ը այն բջիջն է, որի համար անհրաժեշտ է հաշվել դրա փոփոխությունները, իսկ C9- ը` հաշվելու արդյունքը լրացնելու համար բջիջ: Խնդրում ենք փոխել դրանք, ինչպես ձեզ հարկավոր է:
VBA կոդ 2. Հետևեք փոփոխություններին սյունակի մի քանի բջիջներում
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220916
Dim xSRg As Range
Dim xRRg As Range
Set xSRg = Range("B9:B1000")
Set xCell = Intersect(xSRg, Target)
If xCell Is Nothing Then Exit Sub
Application.EnableEvents = False
On Error Resume Next
Set xCell = xCell.Range("A1")
Set xRRg = xCell.Offset(0, 1)
xRRg.Value = xRRg.Value + 1
Application.EnableEvents = True
End Sub
Նշում«Այս տողում»Սահմանել xRRg = xCell.Offset(0, 1)", համարը 1 ներկայացնում է մեկնարկային հղման աջ կողմում գտնվող սյունակների քանակը, որոնք պետք է շրջվեն (այստեղ մեկնարկային հղումը սյունակ է B, և այն թիվը, որը ցանկանում եք վերադարձնել, սյունակում է C որը գտնվում է B սյունակի կողքին): Եթե Ձեզ անհրաժեշտ է արդյունքները դուրս բերել սյունակում S, փոխեք համարը 1 դեպի 10.
Այսուհետ, երբ B9 բջիջը կամ B9:B1000 տիրույթի որևէ բջիջ փոխվի, փոփոխությունների ընդհանուր թիվը կվերածվի և ավտոմատ կերպով լրացնելու նշված բջիջում:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: