Ինչպե՞ս անջատել Excel- ում տող և սյուն տեղադրելու հնարավորությունը:
Սովորաբար, մենք կարող ենք արագ և հեշտությամբ շարքեր և սյուններ տեղադրել առկա տվյալների միջև, եթե կանխում եք, որ մյուսները սյուններ կամ տողեր տեղադրեն աշխատաթերթում, հնարավոր է, որ դուք կարող եք պաշտպանել թերթը ՝ ներդիրների տողերի կամ սյունակների գործառույթն անջատելու համար: Բայց ինչպե՞ս կարող եք անջատել ներդիրի տողի և սյունակի գործառույթները ՝ առանց թերթ պաշտպանելու:
Կանխեք մյուսների կողմից VBA կոդով տողերի և սյունակների տեղադրումը
Կանխեք մյուսների կողմից VBA կոդով տողերի և սյունակների տեղադրումը
Հաջորդ VBA կոդը կարող է օգնել ձեզ անջատել տողի և սյունակի գործառույթը Excel- ի աշխատանքային գրքում, խնդրում ենք արեք հետևյալ կերպ.
1. Մամուլ Alt + F11 բացելու համար Microsoft Visual Basic կիրառման համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ Մոդուլի պատուհանը բացելու համար, ապա պատճենեք հետևյալ VBA- ն պատուհանում:
VBA կոդ. Կանխել տողերի և սյունակների տեղադրումը.
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. Մամուլ F5 ստեղնը այս կոդն աշխատեցնելու համար, հիմա, երբ աջ կտտացնում ես տողեր կամ սյունակներ տեղադրելու մտքին, Տեղադրել տարբերակը չի կարող կիրառվել համատեքստային ընտրացանկում: Տեսեք,
Նշումներ:
1. Այս VBA- ն անջատելու է Տեղադրեք գործառույթը բոլոր աշխատանքային գրքերում համատեքստի ընտրացանկում, երբ աջ կտտացրեք տողեր կամ սյուններ տեղադրելու համար:
2. Համատեքստային ընտրացանկում Տեղադրելու հրամանը վերականգնելու համար խնդրում ենք կիրառել հետևյալ կոդը.
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
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
