Sut i gloi a rhagflaenu celloedd diamwys yn Excel?
Gan dybio, mae gen i daflen waith sy'n poblogi rhai celloedd gwag o fewn yr ystod ddata, nawr, rydw i eisiau cloi ac amddiffyn pob cell ddata, a gadael y celloedd gwag heb eu cloi er mwyn mewnbynnu rhywfaint o werth newydd. Sut y gallech chi ddim ond cloi ac amddiffyn y celloedd diamwys cyn gynted ag y gallwch yn Excel?
Clowch ac amddiffynwch bob cell ddiamwys mewn ystod ddethol gyda Dalen Amddiffyn
Clowch ac amddiffynwch bob cell ddiamwys mewn ystod a ddefnyddir gyda chod VBA
Clowch ac amddiffynwch bob cell ddiamwys mewn ystod ddethol gyda Dalen Amddiffyn
Fel rheol, gallwch chi orffen y swydd hon yn Excel gyda'r dull canlynol gam wrth gam:
1. Dewiswch yr ystod celloedd rydych chi am eu cloi a diogelu'r celloedd data, ac yna cliciwch Hafan > Dod o Hyd i a Dewis > Ewch i Arbennig, gweler y screenshot:
2. Yn y Ewch i Arbennig blwch deialog, dewiswch Blanciau oddi wrth y dewiswch adran, gweler y screenshot:
3. Yna cliciwch OK botwm, ac mae'r holl gelloedd gwag wedi'u dewis ar unwaith, ac yna pwyswch Ctrl + 1 allweddi i agor y Celloedd Fformat blwch deialog, o dan y Diogelu tab, dadgynnwch y Dan glo opsiwn, gweler y screenshot:
4. Cliciwch OK, ac yna cliciwch adolygiad > Diogelu Dalen, yna nodwch a chadarnhewch y cyfrinair yn ôl yr angen, gweler y screenshot:
5. Cliciwch OK i gau'r deialogau, ac yn awr, mae'r holl gelloedd data wedi'u gwarchod a dim ond gadael y celloedd gwag heb ddiogelwch.
Clowch ac amddiffynwch bob cell ddiamwys mewn ystod a ddefnyddir gyda chod VBA
Mae gan y dull uchod sawl cam, er mwyn ei gyflawni cyn gynted ag y gallwch, gall y cod VBA canlynol ffafrio chi, gwnewch fel hyn:
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yna cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Clowch ac amddiffynwch bob cell ddiamwys mewn taflen waith
Sub UnlockEmptyCells()
'Updateby Extendoffice
Application.ScreenUpdating = False
Cells.Locked = True
Selection.SpecialCells(xlCellTypeBlanks).Locked = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
End Sub
3. Ac yna pwyswch F5 yn allweddol i redeg y cod hwn, dim ond celloedd nonblank sy'n cael eu gwarchod ar unwaith yn yr ystod a ddefnyddir.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for 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...
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!
