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

Conas bileog oibre ar leith a cheilt nó a cheilt bunaithe ar luach cille i mbileog eile?

An bhfuil aon mhodhanna ann chun cluaisín bileog oibre ar leith a cheilt nó a chur ar bun bunaithe ar ábhar cille i mbileog eile? Mar shampla, nuair a iontrálann mé an téacs “Tá” i gcill G1 de Bhileog 2, teastaíonn uaim an Bileog1 a chur i bhfolach, agus nuair a iontrálann mé “Níl”, taispeánfar Bileog1 ag an am céanna. Conas a d’fhéadfainn an fhadhb seo a réiteach in Excel?

Folaigh nó folaigh cluaisín bileog oibre ar leith bunaithe ar luach cille le cód VBA


mboilgeog cheart gorm saighead Folaigh nó folaigh cluaisín bileog oibre ar leith bunaithe ar luach cille le cód VBA

Chun cluaisín bileog oibre ar leith a cheilt nó a cheilt bunaithe ar luach cille i mbileog oibre eile, féadfaidh an cód VBA seo a leanas fabhar a thabhairt duit, déan mar a leanas:

1. Téigh an bhileog oibre ina bhfuil an luach cille ar mhaith leat bileog eile a cheilt bunaithe air.

2. Cliceáil ar dheis ar an táb bileog, agus roghnaigh Féach an cód, sa popped amach Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil agus greamaigh an cód seo a leanas i bhfuinneog bán an Mhodúil, féach an scáileán:

Cód VBA: Folaigh nó folaigh cluaisín bileog oibre bunaithe ar luach cille:

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

cluaisín folaigh doc bunaithe ar luach cille 1

Nóta: Sa chód thuas, G1 agus Sea an t-ábhar cille agus cille ar mhaith leat bonn a chur leis, agus Sheet1 an bhfuil an bhileog shonrach ar mhaith leat a cheilt nó a chur i bhfolach. Is féidir leat iad a athrú de réir do riachtanas.

3. Ansin sábháil agus dún an cód seo, nuair a iontrálann tú “Níl” nó téacs eile i gcill G1, tá Bileog 1 i bhfolach, ach má iontrálann tú “Tá” sa chill, taispeántar Bileog1 ag an am céanna, féach scáileáin scáileáin:

cluaisín folaigh doc bunaithe ar luach cille 2
1
cluaisín folaigh doc bunaithe ar luach cille 3

 


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab

 

Sórtáil tuairimí de réir
Comments (23)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia dhuit
Go raibh maith agat as an leid. Ní mór dom an cás céanna a dhéanamh ach ní ar chill amháin amháin (G1 sa chás seo) ach ar gach ceall de cholún G. Tá iarracht déanta agam le "Raon" ach níor oibrigh sé.

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Má Raon ("X2:X100")="" Ansin
Bileoga ("TOMHAIS AN AE TASCBHUNAITHE"). Infheicthe = Bréagach
Eile
Bileoga ("TOMHAIS TASCBHUNAITHE AN AE").Infheicthe = Fíor
Deireadh Má
Fo Deireadh


Go raibh maith agat roimh ré
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Seans ar bith gur freagraíodh é seo? Táim ag dul isteach sa chás seo freisin nuair a thagann raon iomlán i bhfeidhm in ionad aon chillín amháin... Bhain mé úsáid as an gcódú céanna seo leis na torthaí céanna.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Rinne mé 2 bhileog oibre mar seo a leanas:
Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Má [C20] = "Tá" Ansin
Bileoga("bileog1").Visible = Fíor
Eile
Bileoga("bileog1").Infheicthe = Bréagach
Deireadh Má
Má [C22] = "Tá" Ansin
Bileoga("bileog2").Visible = Fíor
Eile
Bileoga("bileog2").Infheicthe = Bréagach
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An-chabhrach!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ba mhaith liom a fheiceáil an féidir leat cabhrú le mo cheist. Go bunúsach bhí an cód cruinn seo agam ar bhileog a úsáidim ach le feidhm nó mar sin is féidir an freagra a bheith "tá" nó "fíor". Mar sin féin, cuireann an leathán atá á cheilt/gan cheilt uaireanta arís ar chúiseanna anaithnide. Bainfidh sé an folach nuair a scríobhaim tá, ach nuair a théim chun é a úsáid níos déanaí tá sé i bhfolach arís, cé go bhfuil luach na cille fós sea. Aon smaoineamh cén fáth a bhféadfadh sé seo a bheith ag tarlú, agus/nó conas é a réiteach?
Cód le haghaidh tagartha:
Fo-Bileog Oibre Príobháideach_Athraigh(ByVal Target As Range)'Folaigh/Dífolaíonn leathanach Calabrúcháin
Má [B18] = "Tá" Nó Target.Value = "Fíor" Ansin
Bileoga ("Fíorú XXX"). Infheicthe = Fíor
Eile
Bileoga ("Fíorú XXX"). Infheicthe = Bréagach
Deireadh Má

Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá leabhar oibre ag HiI le cluaisíní iomadúla ainmnithe nasctha le bileog innéacs ag an tosach. Is féidir leis an úsáideoir na bileoga is mian leo a úsáid a roghnú ach tic a chur i mbosca in aice le hainm na bileoige - bán, N/B nó Sea (liosta anuas). An bhfuil bealach ann leis an gcód seo a oiriúnú ionas go mbeidh an leathán le feiceáil má tá an ticbhosca bán nó má tá "Tá" ann ach nach bhfuil sé le feiceáil má tá "N/B" sa ticbhosca.
Tá iarracht déanta agam ach níl a fhios agam go leor faoi VBA chun go n-oibreoidh sé. Go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Táim ag iarraidh bileoga a cheilt nó a cheilt bunaithe ar luach cille (Tá/Níl). Tá na luachanna i dtábla (tblFileContents) agus i gcolún D4:D25 agus tá ainm na bileoige in A4:A25 ar an mbileog . Is féidir ord na míreanna a athrú. An bhfuil tagairt agat do shampla a ligfeadh dom é seo a dhéanamh?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá an cheist chéanna agam agus a chuir duine éigin eile réiteach ar fáil.
Déan tábla (formáid mar tábla) le 2 cholún, ainmnigh an colún ar chlé Bileoga le taispeáint/i bhfolach, tá an colún ar dheis suas chugat.Cuir gach ainm bileog sa cholún ar chlé
Ansin roghnaigh View Code don chluaisín seo agus cuir isteach Dim Changed As Range, c As Range, rMTS As Range
Dim i Chomh fada
Dim bShowAll As Boole

Socraigh rMTS = Raon ("TblShowHide[Mark to Show]")
Socraigh Changed = Trasnaigh(Sprioc, rMTS)
Mura n-athraítear Ní dhéanfaidh aon ní Ansin
bShowAll = Len(rMTS.Cells(1).Luach) > 0
Ar Lean Earráid Aghaidh
Chun i = 2 Chun rMTS.Rows.Count
Bileoga(Raon("TblShowHide[Taispeáin/Folaigh Bileoga]").Cealla(i).Luach).Infheicthe = IIf(bShowAll, Fíor, Len(rMTS.Cealla(i).Luach) > 0)
Ar Aghaidh i
Ar Earráid TéighTo 0
Deireadh Má
Fo Deireadh


Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bainfidh mé triail as seo. Go raibh míle maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Níl mé cinnte cad is gá dom a athrú ach níor oibrigh sé dom.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Jean,
Sea, tá sampla agam faoi iamh anseo. Athainmnigh an comhad go example.xlsm (níl sé zipped, ach bhí air a athainmniú chun uaslódáil)
Ar an táb roghchláir tá tábla leis na hainmneacha cluaisíní éagsúla, déan x nó aon charachtar eile chun an cluaisín a thaispeáint, má bhaineann tú an carachtar, seithí an cluaisín.
Dóchas a chuidíonn
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá roinnt míreanna anseo ach níl aon chomhad excel ann.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Teastaíonn uaim Roghchlár/Clár na nÁbhar a bheith mar mo chéad bhileog oibre agus bunaithe ar fhreagraí Tá/Níl – feictear bileoga oibre áirithe ie bíonn níos mó ná 1 le feiceáil.
Tá mé ag streachailt le roinnt bileoga oibre a bheith le feiceáil bunaithe ar an gcód thuas.
An féidir liom feidhm AND a úsáid m.sh.
Fáilte mhór roimh aon chomhairle.
Maidir is
Helen
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cén chaoi a bhfuil tú ag iarraidh a fháil, cén fáth a bhfuil tú ag iarraidh a chlárú sa tábla?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit a chara,

Is féidir leat bileog nua Google a oscailt, bileog nua a chur leis ionas go mbeidh "Bileog1" agus "Bileog2" ann agus ansin téigh chuig Uirlisí > Eagarthóir Scripte. San eagarthóir, greamaigh an méid seo a leanas.

feidhm myFunction() {
var ss = ScarbhileogApp.getActiveSpreadsheet();
var sheet1 = ss.getSheetByName("Bileog1");
var sheet2 = ss.getSheetByName("Bileog2");

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

má (cell1.getValue() == 2) {
bileog2.hideSheet();
}

má (cell1.getValue() == 3) {
bileog2.showSheet();
}
}

Bain triail as, le do thoil.

Le meas,
Mandy
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Oibríonn an cód seo go hiontach, ach tá 42 athróg agam le haghaidh 70 bileog mar sin éiríonn an cód seo an-fhada agus stopann sé ag obair. An bhfuil bealach ann chun an cód seo a dhéanamh in ailt nach sáróidh an méid cód is féidir le VBA a láimhseáil? Nó an gcaithfidh mé iad seo a roinnt ina dhá excel ar leith?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Liz
Is oth liom, faoi láthair, níl bealach maith ann chun d’fhadhb a réiteach.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá luach agam i gCill B1 má fholaíonn sé bileog1 ach freisin luach i B2 is é sin má fholaíonn tá bileog 2 etc etc. folaíonn sé / dífholaíonn sé an leathán deiridh go fíneáil ach ní fholaíonn sé an chuid eile, conas a déarfainn 10 luach a cheilt 10 mbileog dhifriúla? go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Andy,
Chun d’fhadhb a réiteach, cuir an cód thíos i bhfeidhm le do thoil:
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

nótaí: Sa chód thuas, ní mór duit ach na scripteanna thíos a chóipeáil arís agus arís eile agus an tagairt cille agus an t-ainm bileog a athrú chuig do chuid féin.
If [B2] = "Yes" Then
Sheets("Sheet1").Visible = True
Else
Sheets("Sheet1").Visible = False
End If


Bain triail as, le do thoil, tá súil gur féidir leis cabhrú leat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá fadhb agam nuair is mian liom go dtaispeánfadh an táb do raon luachanna, seachas TÁ nó NÍL. Nuair a dhéanaim iarracht an ráiteas IF a athdhéanamh san fho, tugann sé earráid dom agus nuair a dhéanaim iarracht luachanna iolracha a liostú sa ráiteas if, faighim earráid. Aon smaointe?

Is cosúil nach mór dom ráiteas IF/OR a úsáid ach níl mé cinnte conas a n-oibreodh sé sin.

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Má tá [K6] = "VS 1", "VS 2", "VS 3", VS 4" Ansin
Bileoga("Leathanach 6").Infheicthe = Fíor
Eile
Bileoga("Leathanach 6").Infheicthe = Bréagach
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Margaret,
Chun d'fhadhb a réiteach, cuir an cód thíos i bhfeidhm le do thoil, ba cheart duit Nó chun na coinníollacha a chomhcheangal.
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

Bain triail as, le do thoil, tá súil gur féidir leis cabhrú leat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Skyyang - d'oibrigh sé seo go foirfe. Go raibh maith agat as do fhreagra pras!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Táim ag iarraidh é seo a úsáid ach tá sé ag teacht suas le "earráid tiomsaithe - ní féidir tionscadal nó leabharlann a aimsiú" agus ag cur béime ar an gcill ina bhfuil an anuas Tá/Níl suite. Sílim go bhféadfadh sé a bheith mar gheall ar seo a bheith ina cill chumaisc, an bhfuil aon bhealach timpeall seo?
Níl aon tráchtanna curtha suas anseo go fóill
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL