Ինչպե՞ս շարունակել աշխատել Excel- ում մեկ կամ մեկ բջիջում:
Այս հոդվածը ձեզ ցույց կտա մի եղանակ ՝ Excel- ում մեկ կամ մեկ բջիջում ընդհանուր աշխատելու համար: Օրինակ, ներկայումս A1 բջիջը պահում է 10 թիվ, երբ մուտքագրում է մեկ այլ թիվ, ինչպիսին է 5-ը, A1- ի արդյունքի արժեքը կլինի 15 (10 + 5): Դա հեշտությամբ կատարելու համար կարող եք անել հետևյալը.
Շարունակեք գործարկել ընդհանուր մեկ կամ մեկ բջիջում VBA կոդով
Շարունակեք գործարկել ընդհանուր մեկ կամ մեկ բջիջում VBA կոդով
Ստորև ներկայացված VBA կոդը կարող է օգնել ձեզ ամբողջովին շարունակել գործել խցում: Խնդրում եմ քայլ առ քայլ կատարեք հետևյալը.
1. Բացեք աշխատաթերթը պարունակում է այն բջիջը, որը դուք կշարունակեք գործել դրա մեջ: Աջ կտտացրեք թերթիկի ներդիրին և ընտրեք Դիտել կոդը համատեքստի ընտրացանկից:
2. Բացման մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և տեղադրեք ներքևում գտնվող VBA կոդի մեջ `կոդ պատուհանում: Տեսեք,
VBA կոդ. Շարունակեք գործել ընդհանուր մեկ կամ մեկ խցում
Dim mRangeNumericValue As Double
'Updated by ExtendOffice 20180814
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo EndF
Application.EnableEvents = False
If Target.Count = 1 Then
If (Len(Target.Range("A1").Value) > 0) And IsNumeric(Target.Range("A1").Value) Then
If Target.Range("A1").Value = 0 Then mRangeNumericValue = 0
Target.Range("A1").Value = 1 * Target.Range("A1").Value + mRangeNumericValue
End If
End If
EndF:
Application.EnableEvents = True
mRangeNumericValue = 0
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo err0
If Target.Count = 1 Then
If (Len(Target.Range("A1").Value) > 0) And IsNumeric(Target.Range("A1").Value) Then
mRangeNumericValue = Target.Range("A1").Value
End If
End If
err0:
End Sub
ՆշումԿոդում `A1- ը այն բջիջն է, որի մեջ դուք կշարունակեք գործել ամբողջությամբ: Խնդրում ենք նշեք բջիջը, որքան ձեզ հարկավոր է:
3. Սեղմեք ալտ + Q ստեղները փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
Այսուհետ, թվեր մուտքագրելիս A1 բջիջը, ընդհանուրը կշարունակի գործել ներսում, ինչպես ցույց է տրված նկարում:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: