Šajā rakstā es parādīšu, kā var iesaldēt Excel darblapas paneļus ar lietojumprogrammu Visual Basic (VBA). Daudzkārt, strādājot programmā Excel, mums ir nepieciešams iesaldēt darblapas paneļus ērtībai un labākai pieredzei. Šodien uzzināsiet, kā to var izdarīt ar VBA .

Paneļu iesaldēšana ar VBA programmā Excel (ātrais skats)

 Sub Freeze_Panes_Row_and_Column() Range("C4").Select ActiveWindow.FreezePanes = True End Sub 

Lejupielādēt Practice Workbook

Lejupielādējiet šo prakses darba burtnīcu, lai vingrinātos, kamēr lasāt šo rakstu.

Ievads Excel iesaldēšanas paneļos

Microsoft Excel programmā iesaldēt paneļus nozīmē rindas vai kolonnas iesaldēšana vai abas tā, lai pat tad, ja, ritinot ritināšanas joslu, slīdot uz leju vai pa labi, šī rinda vai sleja vienmēr būtu redzama. Parasti to dara ar rindām vai kolonnām, kurās ir datu kopas galvenes.

Piemēram, aplūkojiet tālāk redzamo datu kopu. Šeit mēs esam iesaldējuši darblapu līdz rindai. 3 ( Gadi ) un slejā B ( Produktu nosaukums ).

Kad, ritinot ritjoslu, mēs dosimies lejup pa darblapu, mēs redzēsim, ka rindas līdz pat rindai. 3 vienmēr ir redzami.

Tas pats attiecas uz kolonnu B kamēr mēs ritinām pa labi.

Tagad, lai darblapā manuāli iesaldētu rūtiņas, atlasiet šūnas, kas atrodas uzreiz aiz rindas un kolonnas (šūna C4 šajā piemērā) un dodieties uz Skatīt> Iesaldēšanas paneļi> Iesaldēšanas paneļi Excel rīkjoslā.

Lai iesaldētu tikai rindu, atlasiet visu rindu un dodieties uz Skatīt> Iesaldēšanas paneļi> Iesaldēšanas paneļi Excel rīkjoslā.

Līdzīgi, lai iesaldētu tikai kolonnu, atlasiet visu kolonnu un dodieties uz Skatīt> Iesaldēšanas paneļi> Iesaldēšanas paneļi Excel rīkjoslā.

⧭ Piezīmes:

• Atlasiet Sasaldēt augšējo rindu lai iesaldētu tikai augšējo rindu.
• Līdzīgi atlasiet Pirmās kolonnas iesaldēšana lai iesaldētu tikai pirmo kolonnu.

5 metodes paneļu iesaldēšanai ar VBA programmā Excel

Mēs esam uzzinājuši, kas ir iesaldēt paneļus programmā Excel un kā to paveikt manuāli. Tagad pāriesim pie mūsu šodienas galvenās diskusijas par to, kā iesaldēt paneļus ar VBA .

1. Iesaldēt tikai rindu ar VBA programmā Excel

Vispirms aplūkosim, kā mēs varam iesaldēt tikai rindu ar VBA .

Kā minēts iepriekš, lai iesaldētu tikai rindu, vispirms ir jāizvēlas visa rinda zem iesaldējamās rindas (rinda 4 šajā piemērā).

Pēc tam jums ir jāpiemēro Sasaldēšanas paneļi komanda.

Tātad VBA kods būs:

⧭ VBA kods:

 Sub Freeze_Panes_Only_Row() Range("C4").EntireRow.Select ActiveWindow.FreezePanes = True Range("C4").Select End Sub 

⧭ Izvades:

Palaidiet šo kodu. Un redzēsiet, ka aktīvā darblapa ir iesaldēta līdz rindai 3 .

⧭ Piezīmes:

• Šeit mēs esam izmantojuši šūnu C4 lai atlasītu jebkuru rindas šūnu 4 darblapas. Atlasiet to atbilstoši savām vajadzībām.
• Pēdējā koda rindiņa Range("C4").Select ir paredzēts, lai atceltu visas rindas atlasi. 4 (Jebkuras atlases atcelšana nozīmē jaunas atlases atlasi, jo programmā Excel kaut kam ir jāpaliek atlasītam). Ja vēlaties, šo rindu varat izlaist.

Lasīt vairāk: Kā iesaldēt augšējo rindu programmā Excel (4 vienkāršas metodes)

2. Iesaldēt tikai kolonnu ar VBA programmā Excel

Mēs esam redzējuši, kā varam iesaldēt rindu ar VBA . Tagad aplūkosim, kā iesaldēt kolonnu ar VBA .

Līdzīgi kā rindas gadījumā, lai iesaldētu tikai kolonnu, vispirms ir jāizvēlas visa kolonna, kas atrodas pa labi no iesaldējamās kolonnas (Column C šajā piemērā).

Pēc tam jums ir jāpiemēro Sasaldēšanas paneļi komanda.

Tātad VBA kods būs:

⧭ VBA kods:

 Sub Freeze_Panes_Only_Column() Range("C4").EntireColumn.Select ActiveWindow.FreezePanes = True Range("C4").Select End Sub 

⧭ Izvades:

Palaidiet šo kodu. Un redzēsiet, ka aktīvā darblapa ir iesaldēta līdz kolonnai C .

⧭ Piezīmes:

• Šeit mēs esam izmantojuši šūnu C4 lai atlasītu jebkuru kolonnas šūnu C darblapas. Atlasiet to atbilstoši savām vajadzībām.
• Pēdējā koda rindiņa Range("C4").Select ir paredzēts, lai atceltu visas kolonnas atlasi. C (Jebkuras atlases atcelšana nozīmē jaunas atlases atlasi, jo programmā Excel kaut kam ir jāpaliek atlasītam). Ja vēlaties, šo rindu varat izlaist.

Lasīt vairāk: Kā iesaldēt 2 kolonnas programmā Excel (5 metodes)

3. Rindas un kolonnas iesaldēšana ar VBA programmā Excel

Mēs jau redzējām, kā varam iesaldēt rindu un kolonnu atsevišķi. Šoreiz aplūkosim, kā varam iesaldēt gan rindu, gan kolonnu kopā.

Lai iesaldētu gan rindu, gan kolonnu kopā, ir jāizvēlas šūna zem iesaldējamās rindas un pa labi no iesaldējamās kolonnas (šūna C4 šajā piemērā).

Pēc tam jums ir jāpiemēro Sasalšanas paneļi komanda.

Tātad VBA kods būs:

⧭ VBA kods:

 Sub Freeze_Panes_Row_and_Column() Range("C4").Select ActiveWindow.FreezePanes = True End Sub 

⧭ Izvades:

Palaidiet šo kodu. Un redzēsiet, ka aktīvā darblapa ir iesaldēta līdz rindai 3 un kolonnu C .

⧭ Piezīmes:

• Šeit mēs esam izmantojuši šūnu C4 lai atlasītu šūnu zem rindas 3 un pa labi uz kolonnu B . Tas ir šūna C4 . Izvēlieties to atbilstoši savām vajadzībām.

Lasīt vairāk: Kā iesaldēt atlasītos paneļus programmā Excel (10 veidi)

Līdzīgi lasījumi:

• Kā iesaldēt vairākus paneļus programmā Excel (4 kritēriji)
• Tastatūras saīsnes, lai iesaldētu paneļus programmā Excel (3 saīsnes)
• Kā iesaldēt pirmās 3 kolonnas programmā Excel (4 ātri veidi)

4. Izstrādājiet lietotāja formu, lai iesaldētu paneļus ar VBA programmā Excel

Mēs esam redzējuši, kā Excel darblapā ar VBA palīdzību varam iesaldēt rindu vai kolonnu, vai gan rindu, gan kolonnu.

Tagad mēs izstrādāsim lietotāja formu, lai visus atšķirīgos uzdevumus apvienotu vienā saskarnē.

⧭ Soli pa solim izstrādājiet lietotāja formu:

⧪ 1. solis:

• Spiediet ALT+F11 uz tastatūras, lai atvērtu Visual Basic
• In the Visual Basic redaktors, dodieties uz Insert> UserForm lai ievietotu jaunu Lietotāja veidlapa .

⧪ 2. solis:

• Jauns Lietotāja veidlapa ko sauc par Lietotāja veidlapa1 tiks izveidots VBA
• Kreisajā pusē no Lietotāja veidlapa , jūs saņemsiet ToolBox ko sauc par Vadība . Novietojiet peli uz rīku kastes un meklējiet Teksta logs (TextBox1) Pēc tam, kad esat atradis vienu no tām, velciet to virs Lietotāja veidlapa .
• Līdzīgi velciet ListBox ( ListBox1 ) līdz Teksta lodziņš , un CommandButton (Commandbutton1) apakšējā labajā stūrī Lietotāja veidlapa . Mainiet displeja CommandButton uz LABI ... Lietotāja veidlapa tagad vajadzētu izskatīties šādi:

⧪ 3. solis:

Ievietojiet Modulis ( Ievietot> Modulis ) no VBA instrumentu kaste

⧪ 4. solis:

Ievietojiet šādu tekstu VBA kods Modulis .

 Sub Run_UserForm() UserForm1.Caption = "Freeze Panes" UserForm1.TextBox1.Text = Selection.Address UserForm1.TextBox1.BorderStyle = fmBorderStyleSingle UserForm1.ListBox1.BorderStyle = fmBorderStyleSingle UserForm1.ListBox1.ListStyle = fmListStyleOption UserForm1.ListBox1.AddItem "1. Freeze Row" UserForm1.ListBox1.AddItem "2. Freeze Column" UserForm1.ListBox1.AddItem "3. Freeze Both Row and Column"UserForm1 UserForm1.Show End Sub 

⧪ 5. darbība:

Divreiz noklikšķiniet uz CommandButton parādīts kā LABI . Privātais aizstājējs ar nosaukumu CommandButton1_Click Atvērsies. Ievietojiet tajā šādu kodu:

 Ja UserForm1.ListBox1.Selected(0) = True Tad Set Rng = Atlase Rng.EntireRow.Select ActiveWindow.FreezePanes = True Rng.Select ElseIf UserForm1.ListBox1.Selected(1) = True Tad Set Rng = Atlase Rng.EntireColumn.Select ActiveWindow.FreezePanes = True Rng.Select ElseIf UserForm1.ListBox1.Selected(2) = True TadActiveWindow.FreezePanes = True Else MsgBox "Izvēlieties vismaz vienu. ", vbExclamation End If Izkraut UserForm1 

⧪ 6. darbība:

Tāpat divreiz noklikšķiniet uz TextBox1 . Privātais aizstājējs ar nosaukumu TextBox1_Change Atvērsies. Ievietojiet tajā šādu kodu.

 Private Sub TextBox1_Change() On Error GoTo Message Range(TextBox1.Text).Select Message: Note = 5 End Sub 

⧪ 7. darbība:

Jūsu Lietotāja veidlapa tagad ir gatavs lietošanai. Izvēlieties šūnas zem iesaldējamās rindas un pa labi no iesaldējamās kolonnas (šūna C4 šeit), un palaidiet Makro ko sauc par Run_UserForm .

⧪ 8. darbība:

• Portāls Lietotāja veidlapa tiks ielādēta. Jūs atradīsiet atlasītās šūnas adresi ( C4 ), kas atrodas TextBox Ja vēlaties, varat to mainīt.
• Pēc tam izvēlieties kādu no trim opcijām, kas pieejamas sadaļā ListBox . Šeit es gribu iesaldēt gan rindu, gan kolonnu, tāpēc esmu izvēlējies Rindas un kolonnas iesaldēšana .
• Pēc tam noklikšķiniet uz LABI .

⧪ 9. darbība:

Jūs atradīsiet darblapu iesaldētu atbilstoši jūsu vēlmēm. (Šeit iesaldēts līdz rindai 3 un kolonnu B ).

Saistīts saturs: Kā programmā Excel iesaldēt kadru (6 ātri triki)

5. Iesaldēšanas paneļu alternatīva programmā Excel: sadaliet logu ar VBA

Mēs esam daudz runājuši par iesaldēt stiklus programmā Excel. Tagad aplūkosim ļoti noderīgu alternatīvu iesaldēt stiklus programmā Excel Split Window komanda.

Jūs varat ActiveWindow.SplitRow vai ActiveWindow.SplitColumn vietnē VBA lai sadalītu darblapu pa rindām vai kolonnām.

Piemēram, lai sadalītu darblapu no rindas 3 , izmantot:

 ActiveWindow.SplitRow = 3 

Līdzīgi, lai sadalītu darblapu no kolonnas B , izmantot:

 ActiveWindow.SplitColumn = 2 

⧭ VBA kods:

 Apakšsadaļa Split_Window() ActiveWindow.SplitRow = 3 ActiveWindow.SplitColumn = 2 End Sub 

⧭ Izvades:

Palaidiet kodu, tas sadalīs aktīvo darblapu no rindas 3 un kolonnu B .

Saistīts saturs: Kā lietot pielāgotus iesaldēšanas paneļus programmā Excel (3 vienkārši veidi)

Lietas, kas jāatceras

• Pirms pieteikšanās Sasalšanas paneļi programmā Excel, jums ir Visu iesaldēšanas paneļu atsaldēšana jau ir piemērots. Pretējā gadījumā Sasalšanas paneļi komanda nedarbosies.
• Portāls Sasaldēšanas paneļi komanda nedarbosies, izmantojot apvienotie šūnas. Tātad apvienot tos pirms piemērošanas Sasalšanas paneļi komandu, ja tāda ir.

Secinājums

Šīs ir metodes, ko izmantot. Sasaldēšanas paneļi ar VBA programmā Excel. Esmu mēģinājis apspriest visus iespējamos veidus, kā piemērot Sasalšanas paneļi Vai jums ir kādi jautājumi? Droši uzdodiet mums. Un neaizmirstiet apmeklēt mūsu vietni. ExcelWIKI vairāk ziņu un atjauninājumu.