Conas cealla a ghlasáil nó a chosaint tar éis sonraí a iontráil nó a ionchur in Excel?
Má tá bileog oibre agat agus nach gá ach sonraí áirithe a iontráil, agus tar éis duit sonraí a ionchur, ní mór duit na cealla a ghlasáil go huathoibríoch d’fhonn athruithe a chosc arís. Conas is féidir leat a dhéanamh chun é a bhaint amach? Is féidir leis an alt seo cabhrú leat.
Cealla a ghlasáil nó a chosaint tar éis sonraí a iontráil nó a ionchur le cód VBA
Cealla a ghlasáil nó a chosaint tar éis sonraí a iontráil nó a ionchur le cód VBA
Mar shampla, is é A1: F8 an raon áirithe cealla bána. Déan mar a leanas le do thoil chun na cealla seo a ghlasáil tar éis sonraí a iontráil in Excel.
1. Díghlasáil an raon seo ar dtús, roghnaigh na cealla agus deaschliceáil, ansin roghnaigh Cealla Formáid sa roghchlár cliceáil ar dheis, agus sa Cealla Formáid bosca dialóige, gan an Faoi Ghlas bosca faoin cosaint cluaisín, agus ar deireadh cliceáil ar an OK cnaipe. Féach an pictiúr:
2. cliceáil Athbhreithniú > Bileog Cosanta. Agus sonraigh pasfhocal chun an bhileog oibre seo a chosaint.
3. Cliceáil ar dheis ar an táb bileog, roghnaigh Féach an cód ón roghchlár cliceáil ar dheis. Ansin cóipeáil agus greamaigh an cód VBA thíos i bhfuinneog an Chóid. Féach an pictiúr:
Cód VBA: Glasáil nó cosaint cealla tar éis sonraí a iontráil nó a ionchur
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
nótaí: Sa chód, is é “A1: F8” an raon a theastaíonn uait sonraí a ionchur; agus is é “123” pasfhocal na bileoige cosanta seo. Athraigh iad de réir mar is gá duit.
4. Brúigh Eile + Q eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
Tar éis dóibh sonraí a iontráil i gcealla raon A1: F8, cuirfear faoi ghlas iad go huathoibríoch. Agus gheobhaidh tú bosca dialóige pras má dhéanann tú iarracht aon ábhar cille den raon seo a athrú. Féach an pictiúr:
Earraí gaolmhara:
- Conas gach tagairt cille i bhfoirmlí a ghlasáil ag Excel ag an am céanna?
- Conas cealla a ghlasáil nó a dhíghlasáil bunaithe ar luachanna i gcill eile in Excel?
- Conas pictiúr / íomhá a ghlasáil go cill nó laistigh de 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á!