Kuidas külmutada paneelid VBA-ga Excelis (5 sobivat viisi)

Hugh West

13-10-2023 Makros &; Excel VBA
  • Jaga Seda
Hugh West

Selles artiklis näitan teile, kuidas saab Exceli töölehe paneelid külmutada koos Visual Basic of Applications (VBA). Palju kordi on meil Excelis töötades vaja mugavuse ja parema kasutuskogemuse huvides külmutada töölehe paneelid. Täna saate teada, kuidas saate seda teha koos VBA .

Exceli VBA-ga paneelide külmutamine (Kiirvaade) 

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

Lae alla praktiline töövihik

Lae alla see harjutusvihik, et seda artiklit lugedes harjutada.

VBA Freeze Panes.xlsm

Sissejuhatus Exceli külmutuspaneelidesse

Microsoft Excelis tähendab paneelide külmutamine, et rea või veeru külmutamine või mõlemat nii, et isegi kui kerimisriba kerimise kaudu minna allapoole või paremale, on see rida või veerg alati nähtav. Tavaliselt tehakse seda ridade või veergudega, mis sisaldavad andmekogumi pealkirju.

Vaadake näiteks alljärgnevat andmestikku. Siin oleme külmutanud töölehe kuni reani 3 ( Aastad ) ja veerg B ( Tooted Nimi ).

Kui me läheme töölehel allapoole, kerides kerimisriba, leiame, et read kuni reani 3 on alati nähtavad.

Sama kehtib ka veeru kohta B samal ajal kui me kerime paremale.

Kui soovite töölehe paneelide külmutamiseks käsitsi külmutada, valige lahter kohe pärast rida ja veergu (lahter C4 selles näites) ja minna aadressile Vaade> Freeze Panes> Freeze Panes Exceli tööriistaribal.

Ainult rea külmutamiseks valige kogu rida ja minge valikusse Vaade> Freeze Panes> Freeze Panes Exceli tööriistaribal.

Samamoodi, kui soovite ainult veeru külmutada, valige kogu veerg ja valige Vaade> Freeze Panes> Freeze Panes Exceli tööriistaribal.

⧭ Märkused:

  • Valige Külmutage ülemine rida et külmutada ainult ülemine rida.
  • Samamoodi valige Esimese veeru külmutamine külmutada ainult esimene veerg.

5 meetodit VBAga Exceli paneelide külmutamiseks VBAga

Me oleme õppinud, mis on Exceli paneelide külmutamine ja kuidas seda käsitsi teha. Nüüd läheme meie tänase peamise arutelu juurde, kuidas külmutada paneelid koos VBA .

1. Ainult rea külmutamine VBAga Excelis

Kõigepealt vaatame, kuidas me saame külmutada ainult rea koos VBA .

Nagu eelnevalt mainitud, tuleb ainult rea külmutamiseks kõigepealt valida kogu külmutatava rea all olev rida (Row 4 selles näites).

Siis peate rakendama Freeze paneelid käsk.

Nii et VBA kood on:

⧭ VBA kood: 

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

⧭ Väljund:

Käivita see kood. Ja sa leiad, et aktiivne tööleht on külmutatud kuni reani 3 .

⧭ Märkused:

  • Siin oleme kasutanud raku C4 valida ükskõik millise rea lahtri 4 töölehe. Valige see vastavalt oma vajadusele.
  • Koodi viimane rida Range("C4").Select on mõeldud kogu rea väljalülitamiseks. 4 (Mis tahes valiku tühistamine tähendab uue valiku valimist, sest Excelis peab midagi jääma valitud). Selle rea võib soovi korral ära jätta.

Loe lisaks: Kuidas külmutada ülemine rida Excelis (4 lihtsat meetodit)

2. Ainult veeru külmutamine VBAga Excelis

Me nägime, kuidas me saame külmutada rea koos VBA Nüüd vaatame, kuidas külmutada veergu koos VBA .

Sarnaselt reale, et külmutada ainult veerg, tuleb kõigepealt valida kogu veerg, mis jääb paremale külmutatavast veerust (Column C selles näites).

Siis peate rakendama Freeze paneelid käsk.

Nii et VBA kood on:

⧭ VBA kood: 

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

⧭ Väljund:

Käivita see kood. Ja sa leiad, et aktiivne tööleht on külmutatud kuni veeruni C .

⧭ Märkused:

  • Siin oleme kasutanud raku C4 valida ükskõik millise veeru lahtri C töölehe. Valige see vastavalt oma vajadusele.
  • Koodi viimane rida Range("C4").Select on mõeldud kogu veeru väljalülitamiseks. C (Mis tahes valiku tühistamine tähendab uue valiku valimist, sest Excelis peab midagi jääma valitud). Selle rea võib soovi korral ära jätta.

Loe lisaks: Kuidas külmutada 2 veergu Excelis (5 meetodit)

3. VBA abil Exceli nii rea kui ka veeru külmutamine

Nägime, kuidas me saame külmutada rea ja veeru eraldi. Seekord vaatame, kuidas saame külmutada nii rea kui ka veeru koos.

Selleks, et külmutada nii rida kui ka veerg koos, tuleb valida külmutatava rea all olev lahter ja külmutatavast veerust paremale jääv lahter (lahter C4 selles näites).

Siis peate rakendama Freeze paneelid käsk.

Nii et VBA kood on:

⧭ VBA kood: 

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

⧭ Väljund:

Käivita see kood. Ja sa leiad, et aktiivne tööleht on külmutatud kuni reani 3 ja veerg C .

⧭ Märkused:

  • Siin oleme kasutanud raku C4 valida rea all olev lahter 3 ja paremale veergu B . See on rakk C4 Valige see vastavalt oma vajadusele.

Loe lisaks: Kuidas külmutada valitud paneelid Excelis (10 võimalust)

Sarnased lugemised:

  • Kuidas külmutada mitu paneeli Excelis (4 kriteeriumi)
  • Klaviatuuri otsetee Exceli paneelide külmutamiseks (3 otseteed)
  • Kuidas külmutada Exceli esimesed 3 veergu (4 kiiret viisi)

4. Arendage kasutajavormi, et külmutada paneelid VBAga Excelis

Me nägime, kuidas me saame VBA abil Exceli töölehel külmutada rea või veeru või nii rea kui ka veeru.

Nüüd töötame välja kasutajavormi, et koondada kõik erinevad ülesanded ühte kasutajaliidesesse.

⧭ Kasutajavormi väljatöötamise samm-sammuline protseduur:

⧪ 1. samm:

  • Press ALT+F11 klaviatuuril, et avada Visual Basic
  • In the Visual Basic toimetaja, mine aadressile Insert> UserForm sisestada uus Kasutajavorm .

⧪ 2. samm:

  • Uus UserForm nimega UserForm1 luuakse VBA
  • Vasakul on UserForm , saate te ToolBox nimega Kontroll Liigutage hiirega tööriistakasti ja otsige välja Tekstikast (TextBox1) . Pärast ühe leidmist lohistage see üle selle UserForm .
  • Samamoodi lohistage ListBox ( ListBox1 ) otse Tekstikast ja CommandButton (Commandbutton1) paremasse alumisse nurka UserForm . Muuda kuvamist CommandButton aadressile OK . UserForm peaks nüüd välja nägema selline:

⧪ 3. samm:

Sisestage Moodul ( Insert> moodul ) alates VBA tööriistakast

⧪ 4. samm:

Lisage järgmine tekst VBA koodis Moodul . 

 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"Load UserForm1 UserForm1.Show End Sub

⧪ 5. samm:

Topeltklõpsake nupul CommandButton kuvatakse kui OK . eraviisiline allprogramm nimega CommandButton1_Click avaneb. Sisestage sinna järgmine kood: 

 If UserForm1.ListBox1.Selected(0) = True Then Set Rng = Selection Rng.EntireRow.Select ActiveWindow.FreezePanes = True Rng.Select ElseIf UserForm1.ListBox1.Selected(1) = True Then Set Rng = Selection Rng.EntireColumn.Select ActiveWindow.FreezePanes = True Rng.Select ElseIf UserForm1.ListBox1.Selected(2) = True ThenActiveWindow.FreezePanes = True Else MsgBox "Vali vähemalt üks. ", vbExclamation End If Unload UserForm1

⧪ 6. samm:

Samuti topeltklõpsake topeltklõpsuga Tekstikast1 . eraviisiline allprogramm nimega TextBox1_Change avaneb. Sisestage sinna järgmine kood. 

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

⧪ 7. samm:

Teie UserForm on nüüd kasutusvalmis. Valige külmutatava rea all olev lahter ja külmutatavast veerust paremale jääv lahter (lahter C4 siin) ja käivitage Makro nimega Run_UserForm .

⧪ 8. samm:

  • The UserForm laaditakse. Te leiate valitud lahtri aadressi ( C4 ). Tekstikast Kui soovite, võite seda muuta.
  • Seejärel valige ükskõik milline kolmest valikust, mis on saadaval jaotises ListBox Siin ma tahan külmutada nii rea kui ka veeru, seega olen valinud Külmutage nii rida kui ka veerg .
  • Seejärel klõpsake OK .

⧪ 9. samm:

Leiad töölehe külmutatud vastavalt oma soovile. (Siin külmutatud kuni reani 3 ja veerg B ).

Seotud sisu: Kuidas külmutada kaadrit Excelis (6 kiiret trikki)

5. Exceli külmutuskastide alternatiiv: akna jagamine VBA abil

Me oleme palju rääkinud külmutage klaasid Excelis. Nüüd näeme väga kasulikku alternatiivi külmutage klaasid Excelis on Jagatud aken käsk.

Saate ActiveWindow.SplitRow või ActiveWindow.SplitColumn aadressil VBA jagada tööleht rea või veeru kaupa.

Näiteks, et jagada tööleht realt 3 , kasutada: 

 ActiveWindow.SplitRow = 3

Samamoodi, et jagada tööleht veerust B , kasutada: 

 ActiveWindow.SplitColumn = 2

⧭ VBA kood: 

 Sub Split_Window() ActiveWindow.SplitRow = 3 ActiveWindow.SplitColumn = 2 End Sub

⧭ Väljund:

Käivita kood, see jagab aktiivse töölehe realt 3 ja veerg B .

Seotud sisu: Kuidas rakendada Exceli kohandatud külmutuspaneele (3 lihtsat viisi)

Asjad, mida meeles pidada

  • Enne taotluse esitamist Freeze paneelid Excelis, peate Vabastage kõik külmutuspaneelid juba kohaldatud. Vastasel juhul on Freeze paneelid käsk ei tööta.
  • The Freeze paneelid käsk ei tööta läbi ühendatud rakud. unmerge neid enne, kui rakendate Freeze paneelid käsk, kui see on olemas.

Kokkuvõte

Niisiis on need meetodid, mida tuleb kasutada Freeze paneelid koos VBA Excelis. Olen püüdnud arutada kõiki võimalikke viise, kuidas rakendada Freeze paneelid üle Exceli töölehe. Kas teil on küsimusi? Küsige julgelt. Ja ärge unustage külastada meie veebilehte ExcelWIKI rohkem postitusi ja uuendusi.

Eelmine postitus Kirjeldav statistika - Sisendvahemik sisaldab mittenumbrilisi andmeid
Järgmine postitus Kuidas kasutada VLOOKUP-i mitme veeru jaoks Excelis (6 näidet)

Hugh West on suurte kogemustega Exceli koolitaja ja analüütik, kellel on selles valdkonnas üle 10-aastane kogemus. Tal on raamatupidamise ja rahanduse bakalaureusekraad ning ärijuhtimise magistrikraad. Hugh’l on kirg õpetamise vastu ning ta on välja töötanud ainulaadse õpetamisviisi, mida on lihtne järgida ja mõista. Tema Exceli ekspertteadmised on aidanud tuhandetel õpilastel ja spetsialistidel üle maailma oma oskusi parandada ja karjääris silma paista. Oma ajaveebi kaudu jagab Hugh oma teadmisi maailmaga, pakkudes tasuta Exceli õpetusi ja veebikoolitusi, mis aitavad üksikisikutel ja ettevõtetel oma potentsiaali täielikult ära kasutada.