Sut i guddio neu guddio taflen waith benodol yn seiliedig ar werth celloedd mewn dalen arall?

A oes unrhyw ddulliau i ni guddio neu ddadorchuddio tab taflen waith benodol yn seiliedig ar gynnwys celloedd mewn dalen arall? Er enghraifft, pan fyddaf yn nodi'r testun “Ydw” yng nghell G1 o Daflen 2, rwyf am i'r Daflen1 gael ei chuddio, a phan fyddaf yn nodi “Na”, bydd y Daflen1 yn cael ei harddangos ar unwaith. Sut allwn i ddatrys y broblem hon yn Excel?

Cuddio neu guddio tab taflen waith benodol yn seiliedig ar werth celloedd gyda chod VBA

Cuddio neu guddio tab taflen waith benodol yn seiliedig ar werth celloedd gyda chod VBA

I guddio neu guddio tab taflen waith benodol yn seiliedig ar werth cell mewn taflen waith arall, gall y cod VBA canlynol ffafrio chi, gwnewch fel a ganlyn:

1. Ewch i'r daflen waith sy'n cynnwys y gwerth cell rydych chi am guddio dalen arall yn seiliedig arni.

2. De-gliciwch y tab dalen, a dewis Gweld y Cod, yn y popped allan Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch a gludwch y cod canlynol i mewn i ffenestr y Modiwl gwag, gweler y screenshot:

Cod VBA: Cuddio neu guddio tab taflen waith yn seiliedig ar werth celloedd:

Private Sub Worksheet_Change(ByVal Target As Range)
If [G1] = "Yes" Then
Sheets("Sheet1").Visible = True
Else
Sheets("Sheet1").Visible = False
End If
End Sub

tab cuddio doc yn seiliedig ar werth celloedd 1

Nodyn: Yn y cod uchod, G1 ac Ydw yw'r cynnwys celloedd a chelloedd rydych chi am seilio arno, a Sheet1 yw'r ddalen benodol rydych chi am ei chuddio neu ei chau. Gallwch eu newid i'ch angen.

3. Yna arbedwch a chau'r cod hwn, pan fyddwch chi'n nodi “Na” neu destun arall yng nghell G1, mae Sheet1 wedi'i guddio, ond os byddwch chi'n nodi “Ydw” yn y gell, mae Sheet1 yn cael ei arddangos ar unwaith, gweler y sgrinluniau:

tab cuddio doc yn seiliedig ar werth celloedd 2

tab cuddio doc yn seiliedig ar werth celloedd 3

Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
Mwy na 300 o nodweddion pwerus. Yn cefnogi Office / Excel 2007-2021 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.

Read More ... Lawrlwythiad Am Ddim... Prynu ...

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!

Read More ... Lawrlwythiad Am Ddim... Prynu ...

sylwadau (23)

Dim sgôr eto. Byddwch y cyntaf i sgorio!

Lido Walido

tua 4 o flynyddoedd yn ôl

#27241

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Helo
Diolch am y tip. Mae angen i mi wneud yr un senario ond nid ar un gell yn unig (G1 yn yr achos hwn) ond ar bob cell o golofn G. Rwyf wedi ceisio gyda "Range" ond nid oedd yn gweithio.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
If Range("X2:X100")="" Yna
Taflenni ("MESURIADAU SY'N SEILIEDIG AR DASG YR UE"). Gweladwy = Gau
arall
Taflenni ("MESURIADAU SY'N SEILIEDIG AR DASG YR UE"). Gweladwy = Gwir
Gorffennwch Os
Is-End

Diolch ymlaen llaw

ateb

adroddiad

Scott Hobin Lido Walido

tua 3 o flynyddoedd yn ôl

#27242

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Unrhyw siawns yr atebwyd hwn? Rwyf hefyd yn rhedeg i mewn i'r senario hwn lle mae ystod gyfan yn dod i chwarae yn lle dim ond un gell ... Defnyddiais yr un codio hwn gyda'r un canlyniadau.

ateb

Andrew

tua 2 o flynyddoedd yn ôl

#34772

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Gwnes 2 daflen waith fel a ganlyn:
Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
If [C20] = "Ie" Yna
Dalennau("taflen1").Visible = Gwir
arall
Dalennau("taflen1").Visible = Gau
Gorffennwch Os
If [C22] = "Ie" Yna
Dalennau("taflen2").Visible = Gwir
arall
Dalennau("taflen2").Visible = Gau
Gorffennwch Os
Is-End

ateb

Guest Andrew

tua blwyddyn yn ôl

#34773

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Cymwynasgar iawn!

ateb

Cliffork Andrew

tua blwyddyn yn ôl

#34774

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Rwyf am weld a allwch chi helpu gyda'm mater. Yn y bôn, mae'r union god yma wedi bod mewn dalen dwi'n ei defnyddio ond gyda ffwythiant neu ffwythiant felly gall yr ateb fod yn "ie" neu "gwir". Fodd bynnag, mae'r ddalen sy'n cael ei chuddio/datguddio weithiau'n ail-guddio ei hun am resymau anhysbys. Bydd yn datguddio pan fyddaf yn teipio ie, ond pan fyddaf yn mynd i'w ddefnyddio yn nes ymlaen mae'n cael ei guddio eto, er bod gwerth y gell yn dal i fod yn ie. Unrhyw syniad pam y gallai hyn fod yn digwydd, a/neu sut i'w drwsio?
Cod er gwybodaeth:
Is-Daflen Waith Breifat_Change(ByVal Target As Range)' Yn cuddio/datguddio'r dudalen Graddnodi
Os [B18] = "Ie" Neu Target.Value = "Gwir" Yna
Taflenni ("Dilysiad XXX"). Gweladwy = Gwir
arall
Taflenni ("Dilysiad XXX"). Gweladwy = Gau
Gorffennwch Os

ateb

adroddiad

JELEE

tua blwyddyn yn ôl

#35314

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Mae gan HiI lyfr gwaith gyda nifer o dabiau wedi'u henwi wedi'u cysylltu â thaflen fynegai yn y blaen. Gall y defnyddiwr ddewis y dalennau y mae am eu defnyddio trwy dicio blwch wrth ymyl enw'r ddalen - yn wag, Ddim yn berthnasol neu Ydy (rhestr gwympo). A oes ffordd o addasu'r cod hwn fel bod y ddalen yn weladwy os yw'r blwch ticio yn wag neu'n cynnwys "Ie" ond ddim yn weladwy os yw'r blwch ticio yn cynnwys "D/A".
Rwyf wedi ceisio ond nid wyf yn gwybod digon am VBA i wneud iddo weithio. Diolch

ateb

adroddiad

Jean

tua blwyddyn yn ôl

#37114

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Rwy'n edrych i guddio neu ddad-guddio dalennau yn seiliedig ar werth cell (Ie / Na). Mae'r gwerthoedd mewn tabl (tblFileContents) a cholofn D4:D25 ac mae enw'r ddalen yn A4:A25 ar y ddalen . Gellir newid trefn yr eitemau. A oes gennych gyfeiriad at enghraifft a fyddai’n caniatáu imi wneud hyn?

ateb

pY Jean

tua blwyddyn yn ôl

#37115

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Mae gennyf yr un mater a darparodd rhywun arall ateb.
Gwnewch dabl (fformat fel tabl) gyda 2 golofn, enwch y golofn chwith Dalennau i'w dangos/cuddio, chi sydd i benderfynu ar y golofn dde. Rhowch enwau pob dalen yn y golofn chwith
Yna dewiswch Gweld Cod ar gyfer y tab hwn a rhowch Dim Wedi Newid Fel Ystod, c Fel Ystod, rMTS Fel Ystod
Dim i Cyhyd
Dim bShowAll Fel Boolean

Gosod rMTS = Ystod ("TblShowHide[Mark to Show]")
Gosod Newid = Croestorri(Targed, rMTS)
Os Na chaiff ei Newid Ydy Dim Yna
bShowAll = Len(rMTS.Cells(1).Value) > 0
Ar Ail-ddechrau Gwall Nesaf
Am i = 2 I rMTS.Rows.Count
Taflenni(Amrediad("TblShowHide[Dangos/Cuddio Taflenni]").Celloedd(i).Gwerth).Gweladwy = IIf(bShowAll, Gwir, Len(rMTS.Cells(i).Gwerth) > 0)
Nesaf i
Ar Gwall Ewch i 0
Gorffennwch Os
Is-End

ateb

Jean pY

tua blwyddyn yn ôl

#37116

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Rhoddaf gynnig ar hyn. Diolch yn fawr iawn!

ateb

Jean Jean

tua 12 mis yn ôl

#37117

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Ddim yn siŵr beth sydd angen i mi ei newid ond ni weithiodd i mi.

ateb

pyclen Jean

tua 12 mis yn ôl

#37118

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Helo Jean,
oes mae gen i enghraifft atodais yma. Ail-enwi'r ffeil i enghraifft.xlsm (nid yw wedi'i sipio, ond bu'n rhaid ailenwi'r ffeil i'w huwchlwytho)
Ar y tab dewislen mae tabl gyda'r enwau tab amrywiol, gwnewch x neu unrhyw gymeriad arall i ddangos y tab, os byddwch chi'n tynnu'r cymeriad, mae'r tab yn cuddio.
Gobaith sy'n helpu

Gweld Atodiadau (1 / 5

ateb

adroddiad

Kruzer pyclen

tua 11 mis yn ôl

#37119

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Mae hwn yn cynnwys sawl eitem ond dim ffeil excel.

adroddiad

Helen Hay

tua 9 mis yn ôl

#37911

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Rwyf am gael Dewislen/Tabl Cynnwys fel fy nhaflen waith gyntaf ac yn seiliedig ar atebion Ie/Na - mae rhai taflenni gwaith yn ymddangos hy mae mwy nag 1 yn dod yn weladwy.
Rwy'n cael trafferth cael nifer o daflenni gwaith yn ymddangos yn seiliedig ar y cod uchod.
A allaf ddefnyddio ffwythiant AND ee Os X cell = "Ydw" Yna Gwnewch Y Daflen yn weladwy a Z Sheet a K Sheet?
Mae croeso mawr i unrhyw gyngor.
Regards
Helen

ateb

Vlad

tua 8 mis yn ôl

#38280

Lleihawyd y sylw hwn gan y safonwr ar y wefan

А я вот не могу понять, как такое сделать в гугл таблицах именно?

ateb

MandyZhou Vlad

tua 8 mis yn ôl

#38344

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Helo ffrind,

Gallwch agor dalen Google newydd, ychwanegu dalen newydd fel bod "Taflen1" a "Taflen 2" yna ewch i Tools> Script Editor. Yn y golygydd, gludwch y canlynol.

ffwythiant myFunction() {
var ss = SpreadsheetApp.getActiveSpreadsheet();
var sheet1 = ss.getSheetByName("Taflen1");
var sheet2 = ss.getSheetByName("Taflen2");

var cell1 = sheet1.getRange('B2');

os (cell1.getValue() == 2) {
taflen2.cuddio Taflen();
}

os (cell1.getValue() == 3) {
taflen2.showSheet();
}
}

Rhowch gynnig arni.

Yn gywir,
Mandy

ateb

adroddiad

Liz

tua 6 mis yn ôl

#38914

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Mae'r cod hwn yn gweithio'n wych, ond mae gen i 42 o newidynnau ar gyfer 70 tudalen felly mae'r cod hwn yn mynd yn hir iawn ac yn stopio gweithio. A oes ffordd i wneud y cod hwn mewn adrannau fel na fydd yn fwy na maint y cod y gall VBA ei drin? Neu a oes rhaid i mi rannu'r rhain yn ddau ragoriaeth ar wahân?

ateb

skyyang Liz

tua 6 mis yn ôl

#38980

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Helo, Liz
Mae'n ddrwg gennyf, ar hyn o bryd, nid oes ffordd dda o ddatrys eich problem.

ateb

adroddiad

Andy Lannon

tua 2 mis yn ôl

#41133

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Mae gen i werth yng Nghell B1, os ydw, mae'n datguddio dalen 1 ond hefyd gwerth yn B2 hynny yw os ydy, dadguddio Dalen2 ac ati ac ati. 10 taflen wahanol? diolch

ateb

skyyang Andy Lannon

tua 2 mis yn ôl

#41611

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Helo, Andy,
I ddatrys eich problem, defnyddiwch y cod isod:

Private Sub Worksheet_Change(ByVal Target As Range)
If [B2] = "Yes" Then
Sheets("Sheet1").Visible = True
Else
Sheets("Sheet1").Visible = False
End If
If [B3] = "Yes" Then
Sheets("Sheet2").Visible = True
Else
Sheets("Sheet2").Visible = False
End If
If [B4] = "Yes" Then
Sheets("Sheet3").Visible = True
Else
Sheets("Sheet3").Visible = False
End If
If [B5] = "Yes" Then
Sheets("Sheet4").Visible = True
Else
Sheets("Sheet4").Visible = False
End If
If [B6] = "Yes" Then
Sheets("Sheet5").Visible = True
Else
Sheets("Sheet5").Visible = False
End If
End Sub

Nodyn: Yn y cod uchod, does ond angen i chi gopïo'r sgriptiau isod sawl gwaith a newid cyfeiriad y gell ac enw'r ddalen i'ch un chi.

If [B2] = "Yes" Then
Sheets("Sheet1").Visible = True
Else
Sheets("Sheet1").Visible = False
End If

Rhowch gynnig arni, gobeithio y gall eich helpu!

ateb

adroddiad

Margaret M.

tua 2 mis yn ôl

#41622

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Rwy'n cael problem lle rwyf am i'r tab ddangos ar gyfer ystod o werthoedd, yn hytrach na dim ond YDW neu NAC OES. Pan fyddaf yn ceisio ailadrodd y datganiad IF yn yr is, mae'n rhoi gwall i mi a phan fyddaf yn ceisio rhestru gwerthoedd lluosog yn y datganiad if, rwy'n cael gwall. Unrhyw syniadau?

Mae bron yn ymddangos fel bod angen i mi ddefnyddio datganiad IF/NEU ond ddim yn siŵr sut byddai hynny'n gweithio.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
If [K6] = "VS 1", "VS 2", "VS 3", VS 4" Yna
Taflenni ("Tudalen 6"). Gweladwy = Gwir
arall
Taflenni ("Tudalen 6"). Gweladwy = Gau
Gorffennwch Os
Is-End

ateb

skyyang Margaret M.

tua 2 mis yn ôl

#41627

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Helo, Margaret,
I ddatrys eich problem, cymhwyswch y cod isod, dylech ddefnyddio Neu i ymuno â'r amodau.

Private Sub Worksheet_Change(ByVal Target As Range)
If [K6] = "VS 1" Or [K6] = "VS 2" Or [K6] = "VS 3" Or [K6] = "VS 4" Then
Sheets("Page6").Visible = True
Else
Sheets("Page6").Visible = False
End If
End Sub

Rhowch gynnig arni, gobeithio y gall eich helpu!

ateb

adroddiad

Margaret M. skyyang

tua 2 mis yn ôl

#41635

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Skyyang - gweithiodd hyn yn berffaith. Diolch am eich ymateb prydlon!

ateb

Bob

tua 2 wythnos yn ôl

#42672

Lleihawyd y sylw hwn gan y safonwr ar y wefan

Rwy'n ceisio defnyddio hwn ond mae'n meddwl am "gwall llunio - methu dod o hyd i brosiect neu lyfrgell" ac yn amlygu'r gell lle mae'r gwymplen Ie/Na. Rwy'n meddwl efallai ei fod oherwydd bod hon yn gell unedig, a oes unrhyw ffordd o gwmpas hyn?

ateb

Nid oes unrhyw sylwadau wedi'u postio yma eto

Gadewch eich sylwadau

Postio fel Gwestai

Mewngofnodi

Enw (Angenrheidiol)

E-bost (Angenrheidiol)

Graddiwch y swydd hon:

Ailosod

0 Cymeriadau

Cytunaf â'r telerau a chyflwr