Sut i analluogi'r gallu i fewnosod rhes a cholofn yn Excel?
Fel rheol, gallwn fewnosod rhesi a cholofnau rhwng data sy'n bodoli eisoes yn gyflym ac yn hawdd, os byddwch chi'n atal eraill rhag mewnosod colofnau neu resi mewn taflen waith, efallai y gallwch chi amddiffyn dalen i analluogi'r swyddogaeth mewnosod rhesi neu golofnau. Ond, sut allech chi analluogi'r swyddogaeth mewnosod rhes a cholofn heb amddiffyn dalen?
Atal eraill rhag mewnosod rhesi a cholofnau gyda chod VBA
Atal eraill rhag mewnosod rhesi a cholofnau gyda chod VBA
Gall y cod VBA canlynol eich helpu i analluogi'r swyddogaeth mewnosod rhes a cholofn yn llyfr gwaith Excel, gwnewch hyn:
1. Gwasgwch Alt + F11 i agor a Microsoft Visual Basic ar gyfer Cymhwyso ffenestr.
2. Cliciwch Mewnosod > Modiwlau i agor ffenestr Modiwl, yna copïwch y VBA canlynol i'r ffenestr.
Cod VBA: atal mewnosod rhesi a cholofnau:
Sub NoInsert()
'Updateby Extendoffice
Dim I As Integer
Dim cbStr As String
Dim cbCtrl As CommandBarControl
Application.ScreenUpdating = False
For I = 1 To 2
If I = 1 Then
cbStr = "row"
Else
cbStr = "column"
End If
For Each cbCtrl In Application.CommandBars(cbStr).Controls
If cbCtrl.ID = 3183 Then
cbCtrl.Enabled = False
End If
Next
Next
Application.ScreenUpdating = True
End Sub
3. Gwasgwch F5 allwedd i redeg y cod hwn, nawr pan fyddwch chi'n clicio ar y dde i fynd i fewnosod rhesi neu golofnau, mae'r Mewnosod ni ellir defnyddio'r opsiwn yn y ddewislen cyd-destun. Gweler y screenshot:
Nodiadau:
1. Bydd y VBA hwn yn anablu'r swyddogaeth Mewnosod yn y ddewislen cyd-destun ym mhob llyfr gwaith pan fyddwch chi'n clicio ar y dde i fewnosod rhesi neu golofnau.
2. I adfer y gorchymyn Mewnosod yn y ddewislen cyd-destun, cymhwyswch y cod canlynol:
Sub NoInsert()
'Updateby Extendoffice
Dim I As Integer
Dim cbStr As String
Dim cbCtrl As CommandBarControl
Application.ScreenUpdating = True
For I = 1 To 2
If I = 1 Then
cbStr = "row"
Else
cbStr = "column"
End If
For Each cbCtrl In Application.CommandBars(cbStr).Controls
If cbCtrl.ID = 3183 Then
cbCtrl.Enabled = True
End If
Next
Next
Application.ScreenUpdating = True
End Sub
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for 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...
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!
