Conas iontrálacha bána nó in easnamh i gcealla in Excel a chosc?

Má tá tú ag cruthú tábla i raon A1: B10 de bhileog oibre agus go gcaithfidh tú cosc ​​a chur ar chill bhána a bheith sa raon tábla seo, conas é a bhaint amach? Tugann an t-alt seo modh isteach chun bosca pras a phiocadh suas go huathoibríoch má tá iontráil bhán le feiceáil i raon tábla áirithe agus tú ag eagarthóireacht. Lean an modh céim ar chéim san alt le do thoil.

Cosc a chur ar iontrálacha bán nó in easnamh i gcealla trí chód VBA a úsáid

---

Cosc a chur ar iontrálacha bán nó in easnamh i gcealla trí chód VBA a úsáid

A1: Is é B10 an raon inar gá duit tábla a chruthú taobh istigh, agus tá ceanntásca an tábla mar atá thíos an pictiúr a thaispeántar thíos in A1, B1. Déan mar a leanas le do thoil chun cosc ​​a chur ar iontrálacha bán nó in easnamh a bheith i raon A2: B10 agus an tábla á chruthú.

1. Sa bhileog oibre nach gceadóidh tú iontrálacha bána i raon áirithe, cliceáil ar dheis ar an táb bileog, agus ansin cliceáil Féach an cód ón roghchlár cliceáil ar dheis.

2. Sa Microsoft Visual Basic d’Fheidhmchláir an cód VBA thíos a fhuinneog, a chóipeáil agus a ghreamú isteach i bhfuinneog an Chóid. Féach an pictiúr:

Cód VBA: Cosc ar iontrálacha bán nó in easnamh i raon cealla

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

nótaí: Sa chód VBA, is é A2: B10 an raon cealla nach dteastaíonn uait aon chill folamh a fhágáil istigh ann. Athraigh an raon de réir mar is gá duit.

As seo amach, nuair a bheidh tú ag scipeáil cille bán agus ag líonadh an chéad chill eile sa raon sonraithe go díreach, gheobhaidh tú a Kutools le haghaidh Excel bosca dialóige mar a thaispeántar thíos an pictiúr.

---

Earraí gaolmhara:

• Conas iontráil sonraí i mbileog oibre in Excel a chosc i gcealla ar leith?
• Conas cosc ​​a chur ar roghnú iliomad bileoga oibre in Excel?
• Conas bileog oibre áirithe a chosc ó scriosadh in Excel?
• Conas cosc ​​a chur ar ábhar sonrach cille a scriosadh in Excel?