Sut i atal cofnodion gwag neu goll mewn celloedd yn Excel?
Gan dybio eich bod yn creu tabl yn ystod A1: B10 o daflen waith ac angen atal cell wag rhag ymddangos yn yr ystod tabl hon, sut i'w chyflawni? Mae'r erthygl hon yn cyflwyno dull i popio blwch prydlon yn awtomatig os yw cofnod gwag yn ymddangos mewn amrediad bwrdd penodol wrth olygu. Dilynwch y dull gam wrth gam yn yr erthygl.
Atal cofnodion gwag neu goll mewn celloedd trwy ddefnyddio cod VBA
Atal cofnodion gwag neu goll mewn celloedd trwy ddefnyddio cod VBA
A1: B10 yw'r amrediad lle mae angen i chi greu bwrdd y tu mewn, ac mae A1, B1 yn cynnwys penawdau'r tabl fel y dangosir isod. Gwnewch fel a ganlyn i atal cofnodion gwag neu goll rhag ymddangos yn ystod A2: B10 wrth greu'r tabl.
1. Yn y daflen waith na fyddwch yn caniatáu cofnodion gwag mewn ystod benodol, cliciwch ar y dde ar y tab dalen, ac yna cliciwch Gweld y Cod o'r ddewislen clicio ar y dde.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïo a gludo'r cod VBA isod i mewn i ffenestr y Cod. Gweler y screenshot:
Cod VBA: Atal cofnodion gwag neu goll mewn ystod o gelloedd
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
Dim isect As Range
On Error Resume Next
Set isect = Application.Intersect(Target, Range("A2:B10"))
If Not (isect Is Nothing) Then
If Target.Column = 1 Then
If Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0 Then
MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
Target.ClearContents
End If
Else
If (Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0) Or (Len(Target.Value) > 0 And Len(Target.Offset(0, -1).Value) = 0) Then
MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
Target.ClearContents
End If
End If
End If
End Sub
Nodyn: Yn y cod VBA, A2: B10 yw'r ystod o gelloedd nad ydych chi am adael unrhyw gell wag y tu mewn iddynt. Newidiwch yr ystod yn ôl yr angen.
O hyn ymlaen, pan fyddwch chi'n sgipio cell wag ac yn llenwi'r gell nesaf yn yr ystod benodol yn uniongyrchol, fe gewch chi a Kutools ar gyfer Excel blwch deialog fel y dangosir isod screenshot.
Erthyglau perthnasol:
- Sut i atal data rhag cael ei fewnbynnu i gelloedd penodol o daflen waith yn Excel?
- Sut i atal dewis nifer o daflenni gwaith yn Excel?
- Sut i atal taflen waith benodol rhag cael ei dileu yn Excel?
- Sut i atal cynnwys celloedd penodol rhag cael ei ddileu 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!
