Ինչպե՞ս ինքնաբերաբար թաքցնել տողերը, եթե սյունակում դատարկ բջիջներ կան:

Եթե դուք ունեք մի շարք տվյալներ, որոնք սյունակում պարունակում են որոշ դատարկ բջիջներ, և այժմ, դուք ցանկանում եք ինքնաբերաբար թաքցնել այն շարքերը, որոնք պարունակում են այդ սյունակի դատարկ բջիջները: Excel- ում այս աշխատանքը արագ և հեշտ լուծելու լավ եղանակներ կա՞ն:

Ավտոմատ թաքցրեք տողերը, եթե դատարկ բջիջները VBA կոդով սյունակում են

Ավտոմատ թաքցրեք տողերը, եթե դատարկ բջիջները VBA կոդով սյունակում են

Հետևյալ ծածկագիրը կարող է օգնել թաքցնել բոլոր տողերը, եթե միանգամից դատարկ բջիջներ լինեն հատուկ սյունակում, և եթե այդ սյունակում բջջային բովանդակությունը ջնջեք, տողերն էլ ինքնաբերաբար կթաքցվեն: Խնդրում ենք անել հետևյալը.

1, Աջ կտտացրեք թերթիկի ներդիրին, որը ցանկանում եք ավտոմատ կերպով թաքցնել շարքերը, եթե սյունակում կան դատարկ բջիջներ, ապա ընտրեք Դիտել կոդը համատեքստի ընտրացանկից ՝ դուրս եկած պատուհանում Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք պատճենել և տեղադրեք հետևյալ կոդը դատարկի մեջ Մոդուլներ:

VBA կոդ. Ավտոմատ թաքցնել տողերը, եթե սյունակում կան դատարկ բջիջներ.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xRg As Range
    Application.ScreenUpdating = False
        For Each xRg In Range("A1:A20")
            If xRg.Value = "" Then
                xRg.EntireRow.Hidden = True
        
            Else
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True
End Sub

ՆշումՎերոհիշյալ ծածկագրում A1: A20 տվյալների ցուցակն է, որը պարունակում է դատարկ բջիջներ, որոնք ցանկանում եք ինքնաբերաբար թաքցնել:

2, Հետո վերադառնաք աշխատանքային թերթիկ, և այժմ, երբ կրկնակի կտտացնում եք ցանկացած բջիջ և սեղմում Մտնել բանալի, տողերը, որոնք պարունակում են դատարկ բջիջներ A սյունակում, միանգամից թաքցվել են, և եթե A սյունակի նշված բջիջներում մաքրեք բջջի որևէ պարունակություն, տողերն ինքնաբերաբար կթաքցվեն:

Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...

մեկնաբանություններ (32)

Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:

Մրջյուն

մոտ 5 տարի առաջ

#21776

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև, ես օգտագործում եմ excel 2016 և այն չի աշխատում: Ես ստանում եմ սինտաքսի սխալի հաղորդագրություն: կարող եք օգնել?

պատասխանել

skyyang Մրջյուն

մոտ 5 տարի առաջ

#21777

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև, Մրջյուն,

Վերոնշյալ կոդը լավ է աշխատում իմ Excel 2016-ում, փոխե՞լ եք կոդի բջջային հղումը ըստ ձեր կարիքի:

պատասխանել

հաշվետվություն

Լարս

մոտ 5 տարի առաջ

#21785

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ես ստանում եմ «13» «Գործարկման ժամանակի» սխալ.

Տեսակը անհամապատասխանություն

Ով կարող է օգնել???

պատասխանել

alex

մոտ 5 տարի առաջ

#22014

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Կարո՞ղ եմ դադարեցնել այս մակրոյի ինքնաբերաբար գործարկումը enter սեղմելուց հետո: Կարո՞ղ եմ այն կցել կոճակին, որպեսզի թաքցնեմ բջիջները միայն սեղմելիս:

պատասխանել

դեվին alex

մոտ 4 տարի առաջ

#22015

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

ինչ-որ մեկը երբևէ հասկացե՞լ է սա: Ես նույնպես կցանկանայի իմանալ.

պատասխանել

Գնել դեվին

մոտ 4 տարի առաջ

#22016

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

որևէ մեկը դեռ պատասխան է տվել

պատասխանել

Andrea Գնել

մոտ 4 տարի առաջ

#22017

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

նույն հարցը այստեղ

պատասխանել

skyyang Andrea

մոտ 4 տարի առաջ

#22018

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև տղերք,
Կոճակի միջոցով թաքցնելու այն տողերը, որոնք որոշակի սյունակ պարունակում է դատարկ բջիջներ, խնդրում ենք անել այսպես.
Նախ, դուք պետք է տեղադրեք Command կոճակը Developer ներդիրից:
Եվ այնուհետև կիրառեք հետևյալ VBA կոդը Command կոճակի համար (Նշում. խնդրում ենք փոխել բջջային հղումը a1:a20 ձեր սեփականի)

Մասնավոր ենթահրամանի կոճակ1_Click()
Dim rng Որպես միջակայք, x Որպես միջակայք
Սահմանել rng = միջակայք ("a1:a20")
Դիմում. ScreenUpdating = Սուտ է
Յուրաքանչյուր x-ի համար Rng-ում
Եթե Len(x.Text) = 0 Ապա
x.EntireRow.Hidden = Ճիշտ է
Ուրիշ
x.EntireRow.Hidden = False
Վերջ: Եթե
Հաջորդ x
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub

Խնդրում եմ փորձեք այն, հուսով եմ, որ այն կարող է օգնել ձեզ:

Դիտել հավելվածները (1 / 5)

պատասխանել

հաշվետվություն

chinmay salpe

մոտ 4 տարի առաջ

#25197

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

ինչպես ավտոմատ թաքցնել տողերը, եթե դատարկ բջիջները 2 տարբեր սյունակներում VBA կոդով

պատասխանել

skyyang chinmay salpe

մոտ 4 տարի առաջ

#25198

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև սալփե,
Տողերը, եթե դատարկ բջիջները 2 տարբեր սյունակներում ավտոմատ կերպով թաքցնելու համար, խնդրում ենք կիրառել հետևյալ կոդը.

Private Sub Worksheet_Change (ByVal Target as Range)
Dim xRg, xCell As Range
Dim xRgs, xRgArea որպես միջակայք
Սահմանել xRgs = միջակայք ("A1:A22,D1:D22")
Դիմում. ScreenUpdating = Սուտ է
Սխալի դեպքում GoTo Ctn
Յուրաքանչյուր xRgArea-ի համար xRgs.Areas-ում
Debug.Print xRgArea.Address
Յուրաքանչյուր xRg-ի համար xRgArea.Columns-ում
Յուրաքանչյուր xCell-ի համար xRg.Rows-ում
If xCell.Value = "" Ապա
xCell.EntireRow.Hidden = Ճիշտ է
GoTo Ctn
ElseIf Not xCell.EntireRow.Hidden then
xCell.EntireRow.Hidden = False
Վերջ: Եթե
Ctn:
հաջորդ
հաջորդ
հաջորդ
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub

Դուք կարող եք փոխել բջջային հղումները ըստ ձեր կարիքի:
Խնդրում ենք փորձել այն:

պատասխանել

հաշվետվություն

فتحى السعيد

մոտ 4 տարի առաջ

#26276

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

بسم الله وجزاكم الله خيرا هذا الكود رائع ولكن حين قمت بتطبيق كود حذف الصف يبطأ الشيت بطريقة طويلة جدا فما العمل؟

պատասխանել

ԱՉԻՆՏԱ ՊԱՆԴԵ

մոտ 3 տարի առաջ

#28283

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ես ուզում եմ իմանալ, արդյոք կոդը կաշխատի, եթե բանաձևի արդյունքում բջիջը դատարկ է:

պատասխանել

skyyang ԱՉԻՆՏԱ ՊԱՆԴԵ

մոտ 3 տարի առաջ

#28284

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև, ԱՉԻՆՏԱ,
Վերոնշյալ VBA կոդը կիրառվում է նաև դատարկ բջիջների վրա՝ բանաձևի արդյունքում, կարող եք փորձել այն, շնորհակալություն:

պատասխանել

հաշվետվություն

Բարեսիրտ կատակ

մոտ 3 տարի առաջ

#28692

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բանաձևն աշխատում է սկզբում տեղեկատվության վրա հիմնված բջիջները թաքցնելու համար, բայց նորից չի բացահայտում բջիջները, եթե դրանց բովանդակությունը փոխվի: Ես ուզում եմ, որ այն բացահայտի ցանկացած նոր բջիջ, որը լցված է տեղեկատվությամբ (որը տեղի է ունենում բջիջների որոնման միջոցով): Ինչպե՞ս կարող եմ դա անել:

պատասխանել

TTtempo Բարեսիրտ կատակ

մոտ 4 ամիս առաջ

#39851

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Bom dia, esta é minha necessidade também.

Preciso ocultar e quando a célula for preenchida (uso uma formula que preenche a mesma se houver valor em outra planilha) seja reexibida a linha novamente de forma automática:

Շնորհակալ.

պատասխանել

Քաչա

մոտ 2 տարի առաջ

#34313

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Այն, ինչ ես ուզում եմ, այսպիսի բան է, որպեսզի աշխատի ակտիվ թերթիկում.

Եթե բջիջները D2:D55 = ""
Այնուհետև Hide.EntireRow

Եթե բջիջները D2:D55 = «ունի որևէ արժեք»
Այնուհետև Show.EntireRow

How?

պատասխանել

skyyang Քաչա

մոտ 2 տարի առաջ

#34314

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ողջույն, Kacha, Դուք պարզապես պետք է փոխեք բջջային հղումը կոդի մեջ ձեր սեփական բջջային տիրույթին, ինչպես ստորև. Մասնավոր ենթաթերթ_Փոփոխություն (ByVal-ի նպատակը որպես միջակայք)
― Թարմացնելով Extendoffice
Dim xRg որպես տիրույթ
Դիմում. ScreenUpdating = Սուտ է
Յուրաքանչյուր xRg միջակայքում («D2:D55»)
Եթե xRg.Value = "" Ապա
xRg.EntireRow.Hidden = Ճիշտ է

Ուրիշ
xRg.EntireRow.Hidden = False
Վերջ: Եթե
Հաջորդ xRg
Դիմում. ScreenUpdating = ueիշտ է
Ավարտել ենթաօրենսդրությունը Կոդը տեղադրելուց հետո հիշեք, որ կրկնակի սեղմեք ցանկացած բջիջի վրա և սեղմեք Enter ստեղնը, որպեսզի կոդը ուժի մեջ մտնի:

պատասխանել

հաշվետվություն

Գիտենալ

մոտ 1 տարի առաջ

#35676

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ո՞րն է ավտոմատ թաքցումը չեղարկելու ամենադյուրին ճանապարհը:

պատասխանել

Binh

մոտ 1 տարի առաջ

#36469

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև, mình có dùng 2 կոդ trong 1 ֆայլ excel (1 կոդ là của bạn) với mục đích in ra những bản riêng biệt và không bị thừa dòng. Khi mình ấn in từng bản thì ok nhưng nếu in 1 loạt thì կոդը Թաքցնել không có tác dụng, bạn xem giúp mình với nhìnhén,

Ենթ PRINT_PRINT()
Dim rng Որպես միջակայք, x Որպես միջակայք
Սահմանել rng = միջակայք ("a16:a23")
Դիմում. ScreenUpdating = Սուտ է
Յուրաքանչյուր x-ի համար Rng-ում
Եթե Len(x.Text) = 0 Ապա
x.EntireRow.Hidden = Ճիշտ է
Ուրիշ
x.EntireRow.Hidden = False
Վերջ: Եթե
Հաջորդ x
Դիմում. ScreenUpdating = ueիշտ է

Պղտոր p1, p2, i&
p1 = Sheet1.Range(«O1»).Արժեք
p2 = Sheet1.Range(«O2»).Արժեք
Եթե IsNumeric(p1) = False Կամ IsNumeric(p2) = False Ապա
tb = MsgBox ("So code phai la so.", "Thông báo")
Ելք ենթ
Վերջ: Եթե
Եթե p1 > p2 Ապա
tb = MsgBox ("So code sau phai >= so code truoc", , "Thông báo")
Ելք ենթ
Վերջ: Եթե
Եթե p1 < 1 Կամ p2 < 1 Ապա
tb = MsgBox ("So code phai >= 1", , "Thông báo")
Ելք ենթ
Վերջ: Եթե
Եթե p1 <= p2 Ապա
i = p1-ից մինչև p2-ի համար
Sheet1.Range(«M2») Value = i
Sheet1.PrintOut
հաջորդ
Վերջ: Եթե
Վերջ Sub

պատասխանել

Մոնիկա Ռոդրիգես Պերես

մոտ 1 տարի առաջ

#36800

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Hola,Necesito crear una macro que me oculte una columna.Sería así: en la primera fila poner un 1 a las columnas que no quiero ocultar y no poner ningún valor a las columnas que quiero ocultar. Estoy haciendo el siguiente codigo, pero no se en que fallo:
Sub OcultarColumnaSin1()
Դիմում. ScreenUpdating = Սուտ է
Յուրաքանչյուր ռանգոյի համար սյունակներում
If rango = "" Ապա
rango.EntireColumn.Hidden = Ճիշտ է
Ուրիշ
rango.EntireColumn.Hidden = False
Վերջ: Եթե
Հաջորդ ռանգոն
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub

պատասխանել

JOlsen2011

մոտ 1 տարի առաջ

#37029

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Սա ինձ համար հիանալի է աշխատում, այն թաքցնում է տողերը և բացում դրանք, երբ իմ արժեքները փոխվում են բանաձևերի հիման վրա: Հարցն այն է, որ իմ թերթիկը 104 տող է: Ամեն անգամ, երբ ես սեղմում եմ բջիջի վրա, այն մի փոքր պտտվում է: Որևէ միջոց կա՞ արագացնել անցումը, երբ այն ակտիվացված է: Թե՞ դա իմ համակարգիչն է: Շնորհակալություն:

պատասխանել

հաշվետվություն

Cathy

մոտ 6 ամիս առաջ

#39166

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ես կցանկանայի ավտոմատ կերպով թաքցնել տողերը, եթե E սյունակը դատարկ է կամ 0

պատասխանել

Cathy

մոտ 6 ամիս առաջ

#39168

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Եթե E սյունակի արժեքը դատարկ է կամ 0, ես կցանկանայի, որ տողը ինքնաթաքնվի: Եթե E-ի արժեքը փոխվում է դատարկից կամ 0-ից այլ բանի, ես կցանկանայի, որ այն ցույց տա: Հաշվետվությունը 1500 տող է

պատասխանել

skyyang Cathy

մոտ 6 ամիս առաջ

#39194

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև Քեթի,
Դատարկ բջիջների կամ 0 արժեքների հիման վրա տողերը ավտոմատ կերպով թաքցնելու համար խնդրում ենք օգտագործել ստորև բերված vba կոդը.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xRg As Range
    Application.ScreenUpdating = False
        For Each xRg In Range("E1:E1500")
            If (xRg.Value = "") Or (xRg.Value = "0") Then
                xRg.EntireRow.Hidden = True
            Else
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True
End Sub

Խնդրում եմ փորձեք, հուսով եմ, որ դա կարող է օգնել ձեզ:

պատասխանել

հաշվետվություն

Ես Նյոման Սվետան

մոտ 5 ամիս առաջ

#39465

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Ինչպե՞ս թաքցնել տողը, որը պարունակում է վանդակ:

պատասխանել

skyyang Ես Նյոման Սվետան

մոտ 5 ամիս առաջ

#39550

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև, Սվետա

Վանդակով տողերը թաքցնելու համար ստորև բերված հոդվածը կարող է ձեզ լավություն անել.
Ինչպե՞ս թաքցնել վանդակը, երբ տողը թաքնված է Excel-ում:

Խնդրում եմ փորձեք, եթե դեռ որևէ այլ հարց ունեք, խնդրում ենք մեկնաբանել այստեղ:

պատասխանել

հաշվետվություն

Ասաֆ

մոտ 5 ամիս առաջ

#39749

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

2013/2019/2021 գրասենյակում կոդը գործարկելիս այն աշխատում է, բայց ավարտելու համար չափազանց շատ ժամանակ է պահանջվում (միայն 95 տող թաքցնելու համար):
Ինչպե՞ս կարող եք արագացնել դա:
Thanks!

պատասխանել

skyyang Ասաֆ

մոտ 5 ամիս առաջ

#39781

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև, Ասաֆ,
Կոդը լավ է աշխատում իմ Excel ֆայլում, կարո՞ղ եք վերբեռնել ձեր հավելվածի աշխատանքային գիրքը, եթե դեմ չեք: Որպեսզի մենք կարողանանք օգնել ստուգել խնդիրը:

Thank you!

պատասխանել

հաշվետվություն

Սյաֆիտրի Նուրջանահ

մոտ 4 ամիս առաջ

#39837

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

apakah ada rumus lain?, saa berharap baris kosong itu akan terhapus saat mencetak file menjadi PDF tapi tampilan di excelnya tetap

պատասխանել

skyyang Սյաֆիտրի Նուրջանահ

մոտ 4 ամիս առաջ

#39861

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև, Նուրջանա
Խնդիրը լուծելու համար նախ պետք է թաքցնել դատարկ տողերը, այնուհետև տպել տվյալները, իսկ տվյալները տպելուց հետո պետք է նորից բացել դատարկ տողերը: Խնդրում ենք անել այսպես.
1. Կիրառեք այս բանաձևը՝ =COUNTA(A2:E2) ձեր տվյալների կողքին, տես սքրինշոթը՝

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-hide-blanks-1.png

2. Այնուհետև զտեք նոր օգնական դատարկ սյունակը, թաքցրեք բոլոր 0 արժեքային տողերը, տես սքրինշոթը.

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-hide-blanks-2.png

3. Եվ այնուհետև, դուք պետք է թաքցնեք նոր դատարկ սյունակը և տպեք տվյալները, աշխատաթերթը տպելուց հետո խնդրում ենք չեղարկել զտիչը՝ դատարկ տողերը ըստ անհրաժեշտության ցուցադրելու համար:
Խնդրում եմ փորձեք, հուսով եմ, որ դա կարող է օգնել ձեզ:

պատասխանել

հաշվետվություն

Վիան ՄաքՆամարա

մոտ 1 ամիս առաջ

#42074

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև, ես խնդիրներ ունեմ մակրոյի «ավտոմատացման» հետ: Ես փնտրում եմ միջոց, որպեսզի կոդը աշխատի որպես ավտոմատացված գործընթաց՝ առանց մակրոյի «ձեռքով» գործարկելու անհրաժեշտության: Ես օգտագործում էի ձեր կոդի իմ տարբերակը, քանի որ խնդիրներ եմ գտել ձեր կոդը օգտագործելու համար: Սա իմ տարբերակն է.

Sub HideRows ()
Dim xRg որպես տիրույթ
Դիմում. ScreenUpdating = Սուտ է
Յուրաքանչյուր xRg միջակայքում («A3:A800»)
Եթե (xRg.Value = "") Ապա
xRg.EntireRow.Hidden = Ճիշտ է
Ուրիշ
xRg.EntireRow.Hidden = False
Վերջ: Եթե
Հաջորդ xRg
Դիմում. ScreenUpdating = ueիշտ է
Վերջ Sub

Ես փորձում եմ ստեղծել աղյուսակ, որը պահանջում է անընդհատ փոփոխվող արժեքներ, հետևաբար կպահանջի իսկական «ավտոմատացված» ընթացք: Ես համեմատաբար նոր եմ VBA-ում, և եթե ձեր կոդը իրականում արդեն համապատասխանում է իմ պահանջներին, դեմ կլինե՞ք օգնել/սովորեցնել ինձ կիրառել այն VBA-ում: Շնորհակալություն։

պատասխանել

հաշվետվություն

skyyang Վիան ՄաքՆամարա

մոտ 1 ամիս առաջ

#42240

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել

Բարև, Վիան
Փաստորեն, մեր հոդվածի կոդը կարող է ավտոմատ կերպով գործարկվել:
Դուք պետք է պատճենեք և տեղադրեք կոդը ընթացիկ աշխատաթերթի կոդի մոդուլում, այնուհետև վերադառնաք աշխատաթերթ, կրկնակի սեղմեք ցանկացած բջիջ և սեղմեք կոճակը: Մտնել բանալին, դատարկ բջիջը պարունակող տողը ուղղակիորեն թաքնված է:

Խնդրում ենք քայլ առ քայլ հետևել այս հոդվածի մեթոդին, հուսով եմ, որ այն կարող է օգնել ձեզ:
Thank you!

պատասխանել

հաշվետվություն

Առայժմ ոչ մի մեկնաբանություն չկա

Թողեք ձեր մեկնաբանությունները

Հրապարակում որպես հյուր

Մուտք

Անուն (պարտադիր է)

Email (պահանջվում է)

Գնահատեք այս գրառումը.

Նորից դնել

0 Անձնավորություններ

Ես համաձայն եմ, որ պայմանները եւ պայմանները