Conas cealla a ghlasáil nó a chosaint tar éis iontráil sonraí nó ionchuir isteach 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 chun na cealla seo a ghlasáil tar éis iontráil sonraí 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 pasword 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 chun sonraí a ionchur; agus is é “123” an pasword den bhileog oibre chosanta 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 a ghlasáil i bhfoirmlí ag an am céanna Excel?
- Conas cealla a ghlasáil nó a dhíghlasáil bunaithe ar luachanna i gcill eile Excel?
- Conas pictiúr/íomhá a ghlasáil isteach sa chill nó taobh istigh de Excel?
Uirlisí Táirgiúlachta Oifige is Fearr
Oifig Tacaíochta/Excel 2007-2021 agus 365 | Ar fáil i 44 Teanga | Éasca le Díshuiteáil go hiomlán
Kutools for Excel Tá breis is 300 gné ann, A chinntiú nach bhfuil uait ach cliceáil ar shiúl...
Supercharge Do Excel scileanna: Éifeachtúlacht Taithí Mar Riamh Roimhe Le Kutools for Excel (Triail Iomlán 30-Lá Saor in Aisce)
Office Tab Tugann sé comhéadan Tabbed chuig Oifig, agus Déan do chuid Oibre i bhfad níos éasca
- Cumasaigh eagarthóireacht agus léamh tabáilte isteach Word, Excel, Pointe cumhachta, 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éaduithe ar do tháirgiúlacht faoi 50%, agus laghdaítear na céadta cad a tharlaíonn nuair luiche duit gach lá! (Triail Iomlán 30-Lá Saor in Aisce)
