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

Sut i guddio neu guddio siâp penodol yn seiliedig ar werth celloedd penodol yn Excel?

Mewn gwirionedd, gall siâp penodol fod yn gudd neu'n gudd yn seiliedig ar werth cell benodol. Gall y dull canlynol eich helpu chi.

Cuddio neu guddio siâp penodol yn seiliedig ar werth penodol y gell gyda chod VBA


Cuddio neu guddio siâp penodol yn seiliedig ar werth penodol y gell gyda chod VBA


Er enghraifft, rydych chi am agor siâp penodol wrth nodi rhif 1 yng nghell A1, neu guddio'r siâp hwn os yw cell A1 yn werthoedd eraill. Os gwelwch yn dda rhedeg y cod VBA canlynol i'w gyflawni.

1. De-gliciwch y tab dalen sy'n cynnwys y siâp y byddwch chi'n ei guddio neu'n ei guddio, yna cliciwch Gweld y Cod o'r ddewislen clicio ar y dde.

2. Yna y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr pops i fyny. Copïwch a gludwch y cod VBA isod i'r Côd ffenestr.

Cod VBA: Cuddio neu guddio siâp penodol yn seiliedig ar werth penodol y gell

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 1 And Target.Column = 1 Then _
        Me.Shapes("Oval 6").Visible = (Cells(1, 1).Value = 1)
End Sub

Nodiadau: Yn y cod:

1) Rhes = 1 ac Colofn = 1 nodwch y gell benodol sydd wedi'i lleoli yn rhes un a cholofn un, Celloedd (1, 1) yw'r gell gyfatebol A1.
2) Gwerth = 1, rhif 1 yw'r gwerth penodol rydych chi am ddangos y siâp yn seiliedig arno.
3) "6 Oval”Yw enw'r siâp penodol.

Gallwch eu newid yn seiliedig ar eich angen.

3. Gwasgwch y Alt + Q allweddi ar yr un pryd i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

O hyn ymlaen, wrth nodi rhif 1 yng nghell A1, mae'r siâp “Oval 6” yn gudd. Ond os rhowch werth arall fel rhif 2 i mewn i'r gell A1, mae'r siâp “Oval 6” wedi'i guddio ar unwaith.


Erthyglau perthnasol:


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 Swyddfa / Excel 2007-2019 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 (11)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn gweithio'n wych i mi cyn belled â bod y gwerth a nodir yn rhif. Dwi ei angen i weithio ar lythrennau fel ABC ac ati: pan dwi'n defnyddio llythrennau mae'n gweithio tuag yn ôl rhowch A ac mae'n cuddio dwi angen iddo fod yn weladwy pan dwi'n mewnbynnu llythyr unrhyw syniadau
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gallwch ddefnyddio llythrennau yn lle hynny, does ond angen ychwanegu " i'r naill ochr neu'r llall. ee Me.Shapes("Oval 6").Visible = (Celloedd(1, 1).Value = "A")
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth am os ydw i eisiau ychwanegu dau werth fel y mewnbwn megis : ee Me.Shapes ("Oval 6").Visible = (Celloedd(1, 1).Value = "A" Neu "B")?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Me.Shapes("Petryal Talgrynnu 2").Gweladwy = (Celloedd(1, 1).Gwerth = "A" Neu Gelloedd(1, 1).Gwerth = "B")
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n newbie yn VBA Excel. Rwy'n gweithio gyda'r cod hwn a hoffwn ei optimeiddio. Mae'r cod hwn yn gwneud siâp yn weladwy ar gell weithredol os yw gwerth yn 1 mae gwerthoedd eraill yn ei guddio. Mae'r amrediad yn cynnwys J13:AC161. Os byddaf yn defnyddio'r cod isod, bydd yn cymryd mwy o linellau o god i mi. Bydd unrhyw help yn cael ei werthfawrogi'n fawr.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Os ActiveSheet.Range("E13").Value = 1 Yna
ActiveSheet.Shapes("rt1").Visible = Gwir
arall
ActiveSheet.Shapes("rt1").Visible = Gau
Gorffennwch Os

Os ActiveSheet.Range("F13").Value = 1 Yna
ActiveSheet.Shapes("rt2").Visible = Gwir
arall
ActiveSheet.Shapes("rt2").Visible = Gau
Gorffennwch Os

Os ActiveSheet.Range("G13").Value = 1 Yna
ActiveSheet.Shapes("rt3").Visible = Gwir
arall
ActiveSheet.Shapes("rt3").Visible = Gau
Gorffennwch Os

Os ActiveSheet.Range("H13").Value = 1 Yna
ActiveSheet.Shapes("rt4").Visible = Gwir
arall
ActiveSheet.Shapes("rt4").Visible = Gau
Gorffennwch Os

Os ActiveSheet.Range("I13").Value = 1 Yna
ActiveSheet.Shapes("rt5").Visible = Gwir
arall
ActiveSheet.Shapes("rt5").Visible = Gau
Gorffennwch Os

Os ActiveSheet.Range("J13").Value = 1 Yna
ActiveSheet.Shapes("rt6").Visible = Gwir
arall
ActiveSheet.Shapes("rt6").Visible = Gau
Gorffennwch Os
...

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Ydych chi'n golygu eich bod am arddangos neu guddio llawer o siapiau penodol yn seiliedig ar gelloedd yn ystod J13:AC161 gyda chod byr?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
2 gwestiwn:

1. Mae'n ymddangos na allaf gael y cod hwn i redeg ac nid wyf yn deall pam... ei gopïo a'i gludo yn union fel y mae yno... help!!!


2. sut ydw i'n ei newid ar gyfer siapiau fel Shapes.Range(Array("Rounded Rectangle 1"))
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Gus,
Rhaid i chi golli rhywbeth yn y llawdriniaeth.
Gan dybio mai enw eich siâp yw "Petryal Crynion 1", copïwch y cod isod i ffenestr cod y daflen waith (dylai'r daflen waith hon gynnwys y siâp penodedig "Petryal Crwn 1").
O hyn ymlaen, dim ond teipio rhif 1 i mewn i gell A1 sy'n gallu dangos y siâp "Petryal Crwn 1". Os teipiwch gynnwys arall, bydd y siâp yn cael ei guddio.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Os yw Target.Row = 1 A Target.Column = 1 Yna _
Me.Shapes("Petryal wedi'i Dalgrynnu 1").Gweladwy = (Celloedd(1, 1).Gwerth = 1)
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rydych wedi gadael y ":"
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw'r erthygl hon yn rhoi unrhyw awgrym o sut i gael enw siâp.

Rwyf wedi gwirio'r rheolwr enw a'r rheolwr gwrthrych yn VBA yn ogystal â'r ddewislen cyd-destun - nid oes dewislen "Priodweddau" ar gyfer siapiau.

Felly, ble mae enw'r siâp?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Cornan,
Bydd enw'r siâp yn cael ei arddangos ar y blwch Enw ar y daflen waith wrth ddewis y siâp. Ymddiheuriadau am yr anghyfleustra.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir