Note: The other languages of the website are Google-translated. Back to English

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


swigen dde glas saeth 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
1
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.
tab kte 201905

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!
gwaelod officetab

 

sylwadau (23)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
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
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.
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
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cymwynasgar iawn!
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

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
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?
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


Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rhoddaf gynnig ar hyn. Diolch yn fawr iawn!
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.
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
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hwn yn cynnwys sawl eitem ond dim ffeil excel.
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
Lleihawyd y sylw hwn gan y safonwr ar y wefan
А я вот не могу понять, как такое сделать в гугл таблицах именно?
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
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?
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.
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
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!
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
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!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Skyyang - gweithiodd hyn yn berffaith. Diolch am eich ymateb prydlon!
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?
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL