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:
- Sut i gloi pob cyfeiriad cell mewn fformwlâu ar unwaith yn Excel?
- Sut i gloi neu ddatgloi celloedd yn seiliedig ar werthoedd mewn cell arall yn Excel?
- Sut i gloi llun / delwedd i'r gell neu'r tu mewn iddi yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!