Ինչպե՞ս թաքցնել կամ ցուցադրել նշված տողերը կամ սյունակները Excel- ում բջիջ կրկնակի սեղմելու ժամանակ:
Սովորաբար տողերն ու սյունակները կարող են թաքցվել կամ ցուցադրվել ՝ սեղմելով աջ կտտոցով և համատեքստային ընտրացանկից ընտրելով Թաքցնել կամ Unուցադրել տարբերակը: Այս հոդվածում մենք խոսում ենք այն մասին, որ արագորեն թաքնվում կամ ցուցադրվում են նշված շարքերը կամ սյունակները ՝ Excel- ում բջիջը կրկնակի սեղմելով:
Թաքցնել կամ ցուցադրել նշված տողերը կամ սյունակները, երբ կրկնակի սեղմում ես VBA կոդով բջիջ
Թաքցնել կամ ցուցադրել նշված տողերը կամ սյունակները, երբ կրկնակի սեղմում ես VBA կոդով բջիջ
Հետևյալ VBA կոդերը կարող են օգնել արագորեն թաքցնել կամ ցուցադրել որոշակի շարքերը կրկնակի կտտացնելով որոշակի աշխատանքային տետրում նշված տողերը կամ սյունները: Խնդրում եմ արեք հետևյալ կերպ.
1. Բացեք աշխատանքային թերթը, որը ցանկանում եք թաքցնել շարքերը կամ սյունները ներսում: Աջ կտտացրեք թերթիկի ներդիրին և այնուհետև կտտացրեք Դիտել կոդը համատեքստի ընտրացանկից:
2. Բացման մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք պատճենել հետևյալ VBA կոդը կոդի պատուհանում:
VBA. Թաքցրեք / թաքցրեք նշված տողերը աշխատանքային թերթում կրկնակի սեղմումով բջիջների միջոցով.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
Dim xRgHidden As Range
If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
Set xRgHidden = Range("10:13")
xRgHidden.EntireRow.Hidden = Not xRgHidden.EntireRow.Hidden
End If
End Sub
VBA. Թաքցնել/ցուցադրել նշված սյունակները՝ կրկնակի սեղմելով աշխատաթերթի բջիջները.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby20171226
Dim xRgHidden As Range
If (Not Intersect(Target, Range("A1:A4")) Is Nothing) And (Target.Count = 1) Then
Set xRgHidden = Range("D:E")
xRgHidden.EntireColumn.Hidden = Not xRgHidden.EntireColumn.Hidden
End If
End Sub
ՆշումԿոդում, A1: A4, 10:13 և D:E նշեք, որ A1:A4 միջակայքի որևէ բջիջի վրա կրկնակի սեղմելիս 10:13 տողը կամ D:E սյունակը ավտոմատ կերպով կթաքցվեն:
3. Սեղմեք ալտ + F11 ստեղները փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
Այսուհետ A1:A4 տիրույթի ցանկացած բջիջ կրկնակի սեղմելիս, տող 10:13 կամ D:E սյունակում ավտոմատ կերպով կթաքցվի: Եվ նորից կրկնակի սեղմելով բջիջը՝ անմիջապես ցուցադրելու բոլոր թաքնված տողերը կամ սյունակները:
Related Articles:
- Ինչպե՞ս կտտացնել կամ կրկնակի սեղմել բջիջը ՝ Excel- ում նշված օգտվողի ձևը բացելու համար:
- Ինչպե՞ս ավելացնել վանդակը Excel- ում կրկնակի կտտոցով բջիջում:
- Ինչպե՞ս Excel- ում կրկնակի սեղմումով բջիջում ավտոմատ կերպով ավելացնել / մուտքագրել ընթացիկ ամսաթիվը / ժամանակը:
- Ինչպե՞ս կրկնակի սեղմել բջիջը և Excel- ում այդ բջջային արժեքին ավելացնել 1:
- Ինչպե՞ս բացել օրացույցը Excel- ում որոշակի բջիջ սեղմելիս:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: