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?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!