Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

Sut i gloi neu amddiffyn celloedd ar ôl mewnbynnu neu fewnbynnu data yn Excel?

Gan dybio bod gennych daflen waith a dim ond ystod benodol o gelloedd gwag sydd angen mewnbynnu data, ac ar ôl gorffen mewnbynnu data, mae angen i'r celloedd gael eu cloi yn awtomatig er mwyn atal newidiadau eto. Sut allwch chi ei wneud i'w gyflawni? Gall yr erthygl hon eich helpu chi.

Clowch neu amddiffyn celloedd ar ôl mewnbynnu data neu fewnbynnu gyda chod VBA


Clowch neu amddiffyn celloedd ar ôl mewnbynnu data neu fewnbynnu gyda chod VBA

Er enghraifft, yr ystod benodol o gelloedd gwag yw A1: F8. Gwnewch fel a ganlyn i gloi'r celloedd hyn ar ôl mewnbynnu data yn Excel.

1. Datgloi’r ystod hon yn gyntaf, dewiswch y celloedd a chlicio ar y dde, yna dewiswch Celloedd Fformat yn y ddewislen clicio ar y dde, ac yn y Celloedd Fformat blwch deialog, dad-wirio'r Dan glo blwch o dan y amddiffyn tab, ac yn olaf clicio ar y OK botwm. Gweler y screenshot:

2. Cliciwch adolygiad > Diogelu Dalen. A nodwch gyfrinair i amddiffyn y daflen waith hon.

3. De-gliciwch y tab dalen, dewiswch Gweld y Cod o'r ddewislen clicio ar y dde. Yna copïwch a gludwch y cod VBA isod i mewn i ffenestr y Cod. Gweler y screenshot:

Cod VBA: Clowch neu amddiffyn celloedd ar ôl mewnbynnu neu fewnbynnu data

Dim mRg As Range
Dim mStr As String

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
    Set mRg = Target.Item(1)
    mStr = mRg.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim xRg As Range
    On Error Resume Next
    Set xRg = Intersect(Range("A1:F8"), Target)
    If xRg Is Nothing Then Exit Sub
    Target.Worksheet.Unprotect Password:="123"
    If xRg.Value <> mStr Then xRg.Locked = True
    Target.Worksheet.Protect Password:="123" 
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("A1:F8"), Target) Is Nothing Then
    Set mRg = Target.Item(1)
     mStr = mRg.Value
End If
End Sub

Nodyn: Yn y cod, “A1: F8” yw'r ystod y mae angen i chi fewnbynnu data; a “123” yw cyfrinair y daflen waith warchodedig hon. Newidiwch nhw yn ôl yr angen.

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

Ar ôl gorffen mewnbynnu data i gelloedd amrediad A1: F8, byddant yn cael eu cloi yn awtomatig. A byddwch yn cael blwch deialog prydlon os ceisiwch newid unrhyw gynnwys celloedd o'r ystod hon. Gweler y screenshot:


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
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.