Ինչպե՞ս թաքցնել վանդակը, երբ շարքը թաքնված է Excel- ում:
Սովորաբար, երբ շարքը թաքցնելը տողի վանդակներ է պարունակում տողի վանդակում, վանդակները չեն թաքնվելու տողի հետ, բայց համընկնում են մյուս շարքի բովանդակության հետ, ինչպես ցույց է տրված ձախ սքրինշոթը: Ինչպե՞ս թաքցնել վանդակները, երբ շարքը թաքնված է Excel- ում: Այս հոդվածը կօգնի ձեզ լուծել այն:
Թաքցնել վանդակը, երբ տողը թաքնված է VBA կոդով
Թաքցնել վանդակը, երբ տողը թաքնված է VBA կոդով
Excel- ում տող թաքցված վանդակները թաքցնելու համար կարող եք գործարկել հետևյալ VBA կոդը:
1. Աջ կտտացրեք թերթիկի ներդիրին, որը ցանկանում եք թաքցնել վանդակները, և կտտացրեք Դիտել կոդը աջ կտտացնելու ցանկից:
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և տեղադրեք ներքևի VBA կոդը ՝ Կոդ պատուհան.
VBA կոդ. Թաքցնել վանդակը, երբ տողը թաքնված է
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xChkBox As CheckBox
Dim xCell As Range
Dim xHide As Boolean
If Target.EntireRow.AddressLocal = Application.Intersect(Target, Target.EntireRow).AddressLocal Then
xHide = (MsgBox("Hide Rows ???", vbYesNo + vbQuestion, "Kutools for Excel") = vbYes)
Target.EntireRow.Hidden = xHide
For Each xChkBox In ActiveSheet.CheckBoxes
Set xCell = xChkBox.TopLeftCell
If Not Intersect(xCell, Target) Is Nothing Then
xChkBox.Visible = Not xHide
End If
Next
End If
End Sub
3. Այնուհետեւ սեղմեք ալտ + Q ստեղները միևնույն ժամանակ փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
4. Ընտրեք տողերի ամբողջ տողը, որը անհրաժեշտ է թաքցնել, այնուհետև երկխոսության պատուհան է բացվում, սեղմեք Այո կոճակը:
Դրանից հետո դուք կարող եք տեսնել, որ բոլոր վանդակները թաքնված են տողի հետ, ինչպես ցույց է տրված նկարում:
Նշում. Թաքնված տողը վանդակները ցույց տալու համար խնդրում ենք ընտրել, որ ամբողջ տողերը ներառեն թաքնված տողը, և ելնող երկխոսության դաշտում կտտացրեք Ոչ կոճակ Այնուհետև կցուցադրվի տողերով տող:
Առնչվող հոդվածներ քանակը:
- Ինչպե՞ս թաքցնել տողերը ՝ հիմնված Excel- ում այսօրվա ամսաթվի վրա:
- Ինչպե՞ս թաքցնել / ցուցադրել տողերը կամ սյունակները Excel- ում գումարած կամ մինուս նշանով:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: