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

Sut i gloi neu ddatgloi celloedd yn seiliedig ar werthoedd mewn cell arall yn Excel?

Mewn rhai achosion, efallai y bydd angen i chi gloi neu ddatgloi celloedd yn seiliedig ar werthoedd mewn cell arall. Er enghraifft, mae angen datgloi ystod B1: B4 os yw cell A1 yn cynnwys gwerth “Derbyn”; ac i'w gloi os yw cell A1 yn cynnwys gwerth “Gwrthod”. Sut allwch chi ei wneud i'w gyflawni? Gall yr erthygl hon eich helpu chi.

Cloi neu ddatgloi celloedd yn seiliedig ar werthoedd mewn cell arall gyda chod VBA


Cloi neu ddatgloi celloedd yn seiliedig ar werthoedd mewn cell arall gyda chod VBA

Gall y cod VBA canlynol eich helpu i gloi neu ddatgloi celloedd yn seiliedig ar werth mewn cell arall yn Excel.

1. Cliciwch ar y dde ar y tab dalen (y ddalen gyda chelloedd y mae angen i chi ei chloi neu ei datgloi yn seiliedig ar werthoedd mewn cell arall), a chlicio Gweld y Cod o'r ddewislen clicio ar y dde.

2. Yna copïwch a gludwch y cod VBA canlynol i mewn i ffenestr y Cod.

Cod VBA: Clowch neu ddatgloi celloedd yn seiliedig ar werthoedd mewn cell arall

Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("A1") = "Accepting" Then
        Range("B1:B4").Locked = False
    ElseIf Range("A1") = "Refusing" Then
        Range("B1:B4").Locked = True
    End If
End Sub

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

O hyn ymlaen, pan fyddwch yn nodi gwerth “Derbyn” yng nghell A1, mae'r ystod B1: B4 wedi'i datgloi.

Wrth nodi gwerth “Gwrthod” i gell A1, mae'r ystod benodol B1: B4 wedi'i chloi'n awtomatig.


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 (50)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut i gloi/datgloi cell newidiol ee pan fo cell yn [=INDEX(A16:L35,MATCH(W5,A16:A35,0),MATCH("PAY",A16:L16,0))]
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf am gael gorchymyn VBA syml ac ni allaf ei ddarganfod, helpwch
Os yw cell A1 yn Falk yna mae Cell A2 wedi'i chloi ac os yw Cell A1 yn cynnwys unrhyw Werth yna mae Cell A2 wedi'i datgloi
Yn yr un modd os yw cell A2 yn wag yna mae Cell A3 wedi'i chloi ac os yw Cell A2 yn cynnwys unrhyw werth yna mae Cell A3 wedi'i datgloi
ac yn y blaen cymaint o gelloedd ag sydd yn ofynnol mewn unrhyw ran o'r ddalen.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rwy'n ceisio cyflawni hyn, ond rwy'n cael gwall nad yw VBA yn gallu gosod eiddo Locked y dosbarth Ystod os yw'r daflen wedi'i diogelu. Bydd dad-ddiogelu'r ddalen wedyn yn negyddu'r gell sy'n cael ei chloi. Sut i fynd o gwmpas hyn? Diolch am unrhyw help.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A wnaethoch chi ddatrys? Yr un broblem sydd gennyf
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Memo,
Rhowch gynnig ar y cod VBA isod.

Is-daflen waith preifat_Activate()
Os Ddim yn ActiveSheet.ProtectContents Yna
Ystod ("A1"). Wedi'i gloi = Gau
Ystod ("B1:B4"). Wedi'i gloi = Gau
Gorffennwch Os
Is-End
Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Dim xRg Fel Ystod, xRgA Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
Application.EnableEvents = Gau
Gosod xRg = Ystod ("B1: B4")
Gosod xRgA = Ystod ("A1")
Os Croestorri(Targed, xRg).Cyfeiriad <> Target.Address _
Neu xRgA = "Derbyn" Yna
Application.EnableEvents = Gwir
Is Allanfa
Arall If Activesheet.ProtectContents _
Ac Croestorri(Targed, xRg) = Targed _
Ac xRgA.Value = "Gwrthod" Yna
xRgA.Dewis
Gorffennwch Os
Application.EnableEvents = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Byddwch chi eisiau defnyddio'r llinell rhyngwyneb yn y llyfr gwaith felly pan fyddwch chi'n agor y ffeil, mae'n amddiffyn y dalennau ond yn caniatáu i macros wneud newidiadau beth bynnag;

Is Gweithlyfr Preifat_Agored() 'Mae hwn yn mynd i mewn i "Y Llyfr Gwaith Hwn"

Taflenni gwaith ("Offeryn Archebu").Protect Password:="Pwd", UserInterFaceOnly:=Gwir

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Ant,
Gall y cod VBA isod eich helpu i ddatrys y probem hwn. Diolch i chi am eich sylw.

Is-daflen waith preifat_Activate()
Os Ddim yn ActiveSheet.ProtectContents Yna
Ystod ("A1"). Wedi'i gloi = Gau
Ystod ("B1:B4"). Wedi'i gloi = Gau
Gorffennwch Os
Is-End
Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Dim xRg Fel Ystod, xRgA Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
Application.EnableEvents = Gau
Gosod xRg = Ystod ("B1: B4")
Gosod xRgA = Ystod ("A1")
Os Croestorri(Targed, xRg).Cyfeiriad <> Target.Address _
Neu xRgA = "Derbyn" Yna
Application.EnableEvents = Gwir
Is Allanfa
Arall If Activesheet.ProtectContents _
Ac Croestorri(Targed, xRg) = Targed _
Ac xRgA.Value = "Gwrthod" Yna
xRgA.Dewis
Gorffennwch Os
Application.EnableEvents = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,

A yw'n bosibl i'r VBA hwn gloi un set o gelloedd / datgloi un arall yn seiliedig ar hyn? Er enghraifft mae Ystod B1:B4 wedi'i ddatgloi ac mae C1:C4 wedi'i gloi ar gyfer "derbyn" ac yna mae B1:B4 wedi'i gloi a C1:C4 wedi'i ddatgloi ar gyfer "gwrthod"?


Diolch,
Cristnogol
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Cristnogol,
Ydy'ch taflen waith wedi'i diogelu?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
os gwelwch yn dda a all rhywun fy helpu gyda'r canlynol.
Rwyf am fewnosod lluniau o fyfyriwr mewn un ddalen, yn ymddangos mewn taflen arall yn seiliedig ar eu henwau
Creu awyren lywio i gynorthwyo defnyddwyr
Neilltuo dalen(nau) arbennig i ddefnyddiwr
I greu rhyngwyneb ar gyfer y llyfr gwaith
I greu tudalen mewngofnodi
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl leo,
Unrhyw gwestiwn am Excel, peidiwch ag oedi cyn postio yn ein fforwm: https://www.extendoffice.com/forum.html.
Byddwch yn cael mwy o gefnogaeth am Excel gan ein gweithiwr Excel proffesiynol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,

Rwyf wedi rhoi cynnig ar eich cod a golygu ychydig, ond ni allaf weithio allan beth yr wyf yn ei wneud yn anghywir yma?

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Os Ystod ("A40") <> "" Yna
Ystod ("D40:E40"). Wedi'i gloi = Gau
Ystod ElseIf("A40") = "" Yna
Ystod ("D40:E40"). Wedi'i gloi = Gwir
Gorffennwch Os
Is-End


Fy meddwl am y peth oedd os nad oes dim byd ynddo (A40). Yna rydw i eisiau cloi gan VBA. Os yw A40 yn cynnwys rhywbeth, yna rwyf am iddo gael ei ddatgloi. Rwy'n gobeithio y gallwch chi weld y synnwyr ohono.


Cofion Kristoffer
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Nid oes dim o'i le ar eich cod. Mae'n gweithio'n dda i mi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo. Ni allaf hefyd gael y cod hwn i weithio. Nid yw'n gwneud dim byd o gwbl. Fel os nad yw'r cod hyd yn oed yno?? Rwy'n newydd iawn i VBA ac mae gennyf ddealltwriaeth sylfaenol ohono. A yw'r cod hwn yn cael ei redeg fel y mae, neu a oes rhaid ychwanegu pethau ato hefyd er mwyn iddo redeg? Neu wedi'i droi'n Macro (na dwi wir yn cael pam oherwydd dyna recordiad o gyfarwyddiadau, ar fy nealltwriaeth i ohonyn nhw)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
BETH FYDD Y CÔD OS BYDDAF AM GLOI CELL E1, E2, E3 .............. AR GYFER TESTUN PENODOL (DEWERTH DWEUD "P") AR GELL B1, B2, B3... ...............YN FAWR.

DIOLCH YMLAEN LLAW
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod Da
Ceisiwch isod sgript VBA.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Os yw Target.Count = 1 Yna
Os yw Target.Address = Ystod ("A1").Address And Target.Value = "A" Yna
Ystod ("B1").Locked = Gwir
ElseIf Target.Address = Ystod ("A2").Address And Target.Value = "A" Yna
Ystod ("B2").Locked = Gwir
ElseIf Target.Address = Ystod ("A3").Address And Target.Value = "A" Yna
Ystod ("B3").Locked = Gwir
Gorffennwch Os
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! angen rhywfaint o gyngor.
A oes ffordd i beidio â chaniatáu i gell gael ei diweddaru oni bai ei bod wedi bodloni amod ar gell arall?
Sampl: os na chaiff cell A ei diweddaru ni fydd yn caniatáu i mi newid gwerth cell B i'w chwblhau.

Gwerthfawrogi'r adborth.
Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Margie,
Ceisiwch islaw cod VBA.

Dim PreVal Fel Llinyn
Dim NesafVal Fel Llinyn
Is-daflen waith preifat_Activate()
PreVal = Ystod ("A1")
NextVal = Ystod ("A1")
Is-End
Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Os (Target.Count = 1) Ac (Target.Address = "$A$1") Yna
NextVal = Ystod ("A1")
Gorffennwch Os
Is-End
Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Os yw Target.Count = 1 Yna
If Target.Address = "$A$1" Yna
PreVal = Ystod ("A1")
ElseIf (Target.Address = "$B$1") Yna
Os PreVal = NextVal Yna
Application.EnableEvents = Gau
Ystod ("A1"). Dewiswch
Application.EnableEvents = Gwir
Gorffennwch Os
Gorffennwch Os
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
a all rhywun gywiro hyn pls >>>

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Ar gyfer i = 7 I 100
If Range("Cells(D, i)") = "Benthyciad" Yna
Ystod ("Celloedd(V, i): Celloedd(X, i)"). Wedi'i gloi = Gwir
Ystod ElseIf ("Cells(D, i)") = "Arbedion" Yna
Ystod ("Celloedd(Q, i): Celloedd(U, i)"). Wedi'i gloi = Gwir
Ystod ("Celloedd(C, i): Celloedd(X, i)"). Wedi'i gloi = Gwir
ElseIf Range("Cells(D, i)") = "ShareCap" Yna
Ystod ("Celloedd(Q, i): Celloedd(U, i)"). Wedi'i gloi = Gwir
Ystod ("Celloedd(V, i)").Locked = Gwir
Gorffennwch Os
Nesaf i
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! A all rhywun fy helpu? Mae'n rhaid i mi gloi/rhewi cell. Mae'r gell honno'n gysylltiedig ag un arall ac mae ganddi werth sy'n newid bob munud. Yr hyn yr wyf yn beth i'w wneud yw cadw'r gwerth am funud / awr benodol. Sut alla i wneud hynny heb ei gopïo a'i gludo fel gwerth?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Mira,
Mae'n ddrwg gennym ni all helpu gyda hyn, gallwch bostio eich cwestiwn yn ein fforwm: https://www.extendoffice.com/forum.html i gael mwy o gefnogaeth Excel gan ein gweithiwr proffesiynol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Rwy'n wirioneddol newydd i hyn.
Rwyf wedi bod yn ceisio rhoi system anfonebu at ei gilydd yn excel.
Creais 3 tudalen.
1. Templed anfoneb (Anfoneb)- Dim ond anfoneb generig sy'n cael ei hanfon at fy asiantiaid yn wythnosol.

2. Taflen ddata (Dalen ddata) i fod yn fanwl gywir - lle gall yr anfoneb ddarllen cyfeiriad enw'r cwmni ac ati, felly os bydd unrhyw beth yn newid bydd yr anfoneb yn cael ei diweddaru'n awtomatig.

3. Tab calendr (Calendr 2018) i fod yn union - y cyfeirir ato yn y templed anfoneb, ac yn rhoi'r dyddiad cyfatebol a rhif yr anfoneb ar yr anfonebau gwirioneddol.

Beth rydw i eisiau ei wneud.
Y tab calendr fyddai fy mhrif dudalen, ychwanegais gell cwympo statws ar gyfer pob wythnos gydag opsiynau "Active" a "Ar gau". Hoffwn Cloi'r tab "Anfoneb" cyfan os yw'r gell gyfatebol wedi'i gosod i "Ar Gau".

Rwy'n gobeithio eich bod chi'n deall yr hyn rydw i'n ceisio'i wneud.
Ddiolch i mewn ddyrchaf.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Ando Veres.
Gall y cod VBA isod eich helpu. Rhowch y cod yn ffenestr cod dalen Calendr 2018 newid A1 i'ch cwympgell. Diolch.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Dim xRg Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
Gosod xRg = Croestorri(Targed, Ystod ("A1"))
Os yw xRg Yn Ddim Yna Ymadael Is
Os yw Target.Validation.Type >= 0 Yna
If Target.Value = "Ar Gau" Yna
Taflenni ("Taflen Ddata"). Diogelu
ElseIf xRg.Value = "Gweithredol" Yna
Taflenni ("Taflen Ddata").Dadamddiffyn
Gorffennwch Os
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n paratoi rheolaeth stoc warws yn excel template.I gyflwyno stoc rhaid i mi gyhoeddi pass giât.Rwyf am i bob pas giât, bydd data cyfatebol yn cael ei ddiweddaru yn dyddiol cyfrif stoc page.With newid y giât cyfresol rhif, y bydd y rhes yn cael ei chloi a'r nesaf yn cael ei llenwi.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Byddai'n braf pe gallech uwchlwytho'ch llyfr gwaith yma. Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Allwch chi fy arwain ar beth sydd o'i le yma os gwelwch yn dda? Diolch ymlaen llaw.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
If Range("K:K") = "DROS STOC" Yna
Ystod ("S:S").Locked = Gwir
Ystod ElseIf("K:K") = "SYMUD ARAF" Yna
Ystod ("S:S").Locked = Gwir
Ystod ElseIf ("K:K") = "NORMAL" Yna
Ystod ("S:S"). Wedi'i gloi = Gau
Ystod ElseIf ("K:K") = "PRYDER" Yna
Ystod ("S:S"). Wedi'i gloi = Gau
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A fyddech mor garedig â rhoi cyngor i mi ar sut i gywiro hyn? Diolch ymlaen llaw.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
If Range("A:A") = "SYMUD ARAF" Yna
Ystod ("B:B"). Wedi'i gloi = Gwir
ElseIf Range("A:A") = "DROS STOC" Yna
Ystod ("B:B"). Wedi'i gloi = Gwir
Ystod ElseIf ("A:A") = "NORMAL" Yna
Ystod ("B:B"). Wedi'i gloi = Gau
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heb fod yn arbenigwr VB byddwn yn dweud bod gennych chi ormod o "Elseif" - os ydych chi'n eu newid i gyd i IF yn unig heblaw am yr un olaf yna gobeithio y bydd hynny'n gweithio.
Yn y bôn Os yw X yn gwneud hyn, Os yw Y yn gwneud hyn, os yw Z yn gwneud hyn, os nad oes un o'r rhain - gwnewch hyn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut fyddai'r cod pe bawn i eisiau cloi bloc o gelloedd (Rhesau 6, 7, ac 8 / Llythyrau D trwy U yn ogystal â chelloedd F5 a J5) a chael eu datgloi pan fyddaf yn rhoi "X" yng nghell E5? Diolch ymlaen llaw!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo MitchyII,
Ydych chi'n golygu bod y bloc penodedig o gelloedd wedi'u cloi â llaw ymlaen llaw a dim ond eisiau eu datgloi trwy deipio "X" yng nghell E5?
Os tynnu "X" o gell E5, ydych chi am gloi'r amrediadau eto?
Dwi angen mwy o fanylion am y broblem.
Diolch am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Mitchyll (neu unrhyw un), adeiladu oddi ar Crystal. Rwyf wedi cloi pob cell â llaw ac yn seiliedig ar y wybodaeth yng ngholofn G, hoffwn iddynt aros dan glo neu ddatgloi. DIM OND os gosodir "c/p" yn y gell flaenorol yng ngholofn G y dylid datgloi celloedd enghreifftiol yng ngholofn H
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw'n bosibl cloi cell, pan fydd yn cyrraedd gwerth penodol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, a allech chi wirio'r rheswm pam nad yw'n gweithio?

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Os Ystod ("A3:A37").Gwerth <> "" Yna
Ystod ("B3:B37"). Wedi'i gloi = Gwir
Ystod ElseIf ("A3:A37") = "" Yna
Ystod ("B3:B37"). Wedi'i gloi = Gau
Gorffennwch Os

Os Ystod ("B3:B37").Gwerth <> "" Yna
Ystod ("A3:A37"). Wedi'i gloi = Gwir
Ystod ElseIf ("B3:B37") = "" Yna
Ystod ("A3:A37"). Wedi'i gloi = Gau
Gorffennwch Os

Is-End


Diolch yn fawr iawn ymlaen llaw!!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi
Rwyf newydd geisio defnyddio'r cod uchod
ac mae'n dweud gwall math 13 pan geisiaf ei ddefnyddio.
allech chi fy helpu gyda hyn?

diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Pa fersiwn Excel ydych chi'n ei ddefnyddio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
hi

os oes angen i mi gloi cell ar ddalen 2 (cell C4) yn seiliedig ar hawliad o ddalen 1 (cell C1),
os "na" ar ddalen 1 C4; rhaid cloi dalen 2 a rhaid iddi drosglwyddo'r gwerth o ddalen 1 C4,
i ddalen 2 C4.

os "ydw" ar ddalen 1, rhaid i mi allu teipio'r gell ar ddalen 2 i mewn

Diolch Benthe
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo os gwelwch yn dda unrhyw un yn fy helpu ar gyfer cod VBA.

os dewisaf o'r gwymplen yn y gell Ystod (A1: A1000) "abc" yna peidio â chloi Ystod (D1: D1000) i (F1: F1000)



os dewisaf o'r gwymplen yn y gell Ystod (A1: A1000) "abc" yna peidio â chloi Ystod (D1: D1000) i (F1: F1000)



os byddaf yn dewis o'r gwymplen yn y gell Ystod (A1: A1000) "abc" yna cloi Ystod (D1: D1000) i (F1: F1000)



hy cell briodol A1 ar gyfer D1 i F1



A2 ar gyfer D2 i F2
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Fe wnes i gopïo popeth oddi uchod i mewn i ddalen. Gweithiodd am eiliad a nawr rydw i'n cael y gwall 'Methu gosod eiddo Locked y dosbarth Range'. Fe wnes i hyd yn oed agor dalen newydd gyfan a chopïo'ch enghraifft air am air. Unrhyw syniad beth sy'n digwydd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,

Dwi angen dy ffafr di. pan fyddaf yn dewis Dim opsiwn o gell rydw i eisiau i'r colofnau isod gael eu cloi / llwydo allan.

A yw hynny'n bosibl? Rhoddais gynnig ar y fformiwla hon ond dint gwaith

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)

If Range("D90") = "Ie" Yna

Ystod ("C94:F104"). Wedi'i gloi = Gau

ElseIf Range("D90") = "Na" Yna

Ystod ("C94:F104"). Wedi'i gloi = Gwir

Gorffennwch Os

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Steffi,
Mae'r cod yn gweithio'n dda.
Os ydych chi am gloi'r ystod o gelloedd i atal golygu, mae angen i chi amddiffyn y daflen waith â llaw ar ôl dewis Dim opsiwn yn D90.
A chan fod D90 yn yr ystod C94:F104, ar ôl amddiffyn y daflen waith, ni ellir golygu D90 ychwaith.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw D90 yn yr ystod. Mae'n 4 rhes uwchben C94
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir