Tässä artikkelissa näytän, miten Excel-taulukon ruudut voidaan jäädyttää seuraavalla tavalla Visual Basic of Applications (VBA). Usein Excelissä työskennellessämme meidän on pakastettava työarkin paneelit kätevästi ja paremman käyttökokemuksen saamiseksi. Tänään opit, miten voit tehdä tämän seuraavalla tavalla VBA .

Pysäytä paneelit VBA:lla Excelissä (Pikakatselu)

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

Lataa harjoituskirja

Lataa tämä harjoituskirja, jotta voit harjoitella tätä artikkelia lukiessasi.

Johdatus Excelin jäädytysruutuihin

Microsoft Excelissä ikkunoiden jäädyttäminen tarkoittaa seuraavaa jäädyttää rivin tai sarakkeen tai molemmat siten, että vaikka menisit alaspäin tai oikealle vierityspalkin vierittämisen kautta, kyseinen rivi tai sarake on aina näkyvissä. Se tehdään tavallisesti riveille tai sarakkeille, jotka sisältävät tietokokonaisuuden otsikot.

Katso esimerkiksi alla olevaa tietosarjaa. Tässä taulukko on jäädytetty riville asti. 3 ( Vuodet ) ja sarake B ( Tuotteiden nimi ).

Kun menemme alaspäin laskentataulukkoa vierittämällä vierityspalkkia, huomaamme, että rivit riviin 3 ovat aina näkyvissä.

Sama koskee saraketta B samalla kun selaamme oikealle.

Jos haluat jäädyttää taulukon paneelit manuaalisesti, valitse solu heti rivin ja sarakkeen jälkeen (Solu C4 tässä esimerkissä) ja siirry osoitteeseen View> Freeze Panes> Jäädytyslasit> Freeze Panes Excel-työkalurivillä.

Jos haluat jäädyttää vain rivin, valitse koko rivi ja siirry kohtaan View> Freeze Panes> Jäädytyslasit> Freeze Panes Excel-työkalurivillä.

Vastaavasti, jos haluat jäädyttää vain sarakkeen, valitse koko sarake ja siirry kohtaan View> Freeze Panes> Jäädytyslasit> Freeze Panes Excel-työkalurivillä.

⧭ Huomautuksia:

• Valitse Pysäytä ylärivi jäädyttää vain ylimmän rivin.
• Valitse vastaavasti Ensimmäisen sarakkeen jäädyttäminen jäädyttää vain ensimmäisen sarakkeen.

5 tapaa jäädyttää paneelit VBA: lla Excelissä

Olemme oppineet, mitä on Excelin paneelien jäädyttäminen ja miten se voidaan tehdä manuaalisesti. Siirrytään nyt tämän päivän pääkeskusteluumme, miten paneelit jäädytetään VBA .

1. Vain rivin jäädyttäminen VBA:lla Excelissä

Katsotaan ensin, miten voimme jäädyttää vain rivin, jossa on komentoarvo VBA .

Kuten aiemmin mainittiin, jos haluat jäädyttää vain rivin, sinun on ensin valittava jäädytettävän rivin alapuolella oleva koko rivi (Row 4 tässä esimerkissä).

Sitten sinun on sovellettava Jäädyttää lasit komento.

Joten VBA koodi on:

⧭ VBA-koodi:

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

⧭ Lähtö:

Suorita tämä koodi. Aktiivinen laskentataulukko on jäädytetty riville 3 .

⧭ Huomautuksia:

• Tässä olemme käyttäneet solua C4 valita mikä tahansa rivin solu 4 Valitse se tarpeesi mukaan.
• Koodin viimeinen rivi Range("C4").Select tarkoituksena on poistaa koko rivin valinta. 4 (Minkä tahansa valinnan poistaminen tarkoittaa uuden valinnan valitsemista, sillä Excelissä jonkin on pysyttävä valittuna). Voit halutessasi jättää tämän rivin pois.

Lue lisää: Ylimmän rivin jäädyttäminen Excelissä (4 helppoa menetelmää)

2. Vain sarakkeen jäädyttäminen VBA:lla Excelissä

Olemme nähneet, miten voimme jäädyttää rivin käyttämällä komentoa VBA Katsotaan nyt, miten sarake jäädytetään sarakkeella VBA .

Samoin kuin rivin kohdalla, jos haluat jäädyttää vain sarakkeen, sinun on ensin valittava koko sarake jäädytettävän sarakkeen oikealle puolelle (Sarake C tässä esimerkissä).

Sitten sinun on sovellettava Jäädyttää lasit komento.

Joten VBA koodi on:

⧭ VBA-koodi:

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

⧭ Lähtö:

Suorita tämä koodi. Aktiivinen laskentataulukko on jäädytetty sarakkeeseen C .

⧭ Huomautuksia:

• Tässä olemme käyttäneet solua C4 valita mikä tahansa sarakkeen solu C Valitse se tarpeesi mukaan.
• Koodin viimeinen rivi Range("C4").Select tarkoituksena on poistaa koko sarakkeen valinta. C (Minkä tahansa valinnan poistaminen tarkoittaa uuden valinnan valitsemista, sillä Excelissä jonkin on pysyttävä valittuna). Voit halutessasi jättää tämän rivin pois.

Lue lisää: Kuinka jäädyttää 2 saraketta Excelissä (5 menetelmää)

3. Jäädytä sekä rivi että sarake VBA:lla Excelissä.

Olemme nähneet, miten voimme jäädyttää rivin ja sarakkeen erikseen. Tällä kertaa katsotaan, miten voimme jäädyttää rivin ja sarakkeen yhdessä.

Jos haluat jäädyttää sekä rivin että sarakkeen yhdessä, sinun on valittava solu jäädytettävän rivin alapuolelta ja jäädytettävän sarakkeen oikealta puolelta (Cell C4 tässä esimerkissä).

Sitten sinun on sovellettava Jäädyttää lasit komento.

Joten VBA koodi on:

⧭ VBA-koodi:

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

⧭ Lähtö:

Suorita tämä koodi. Aktiivinen laskentataulukko on jäädytetty riville 3 ja sarake C .

⧭ Huomautuksia:

• Tässä olemme käyttäneet solua C4 valita rivin alapuolella oleva solu 3 ja oikealle sarakkeeseen B Se on solu. C4 Valitse se tarpeidesi mukaan.

Lue lisää: Valittujen paneelien jäädyttäminen Excelissä (10 tapaa)

Samanlaisia lukemia:

• Useiden paneelien jäädyttäminen Excelissä (4 kriteeriä)
• Näppäimistön pikavalinta Excelin paneelien jäädyttämiseen (3 pikavalintaa)
• Ensimmäisten 3 sarakkeen jäädyttäminen Excelissä (4 nopeaa tapaa)

4. Kehitä käyttäjälomake Excelin VBA:n avulla taulukoiden jäädyttämiseksi VBA:lla.

Olemme nähneet, miten voimme jäädyttää rivin tai sarakkeen tai sekä rivin että sarakkeen VBA:lla Excel-taulukossa.

Nyt kehitämme Userform-lomakkeen, joka tuo kaikki eri tehtävät yhteen käyttöliittymään.

⧭ Käyttäjälomakkeen kehittäminen vaihe vaiheelta:

⧪ Vaihe 1:

• Paina ALT+F11 näppäimistöllä avataksesi Visual Basic
• Vuonna Visual Basic editor, mene osoitteeseen Insert> UserForm lisätä uusi Käyttäjälomake .

⧪ Vaihe 2:

• Uusi UserForm nimeltään UserForm1 luodaan VBA
• Vasemmalla puolella UserForm , saat ToolBox nimeltään Valvonta Vie hiiren kursori työkalupakin päälle ja etsi Tekstilaatikko (TextBox1) Kun olet löytänyt yhden, vedä se yläpuolelle UserForm .
• Vastaavasti vedä ListBox ( ListBox1 ) suoraan Tekstilaatikko ja CommandButton (Komentopainike1) oikeaan alakulmaan UserForm . Muuta näytön CommandButton osoitteeseen OK . UserForm pitäisi nyt näyttää tältä:

⧪ Vaihe 3:

Aseta Moduuli ( Lisää> Moduuli ) alkaen VBA työkalupakki

⧪ Vaihe 4:

Lisätään seuraava VBA koodi Moduuli .

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

⧪ Vaihe 5:

Kaksoisnapsauta CommandButton näytetään muodossa OK . Yksityinen aliohjelma nimeltä CommandButton1_Click ja lisää seuraava koodi sinne:

 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 "Valitse vähintään yksi. ", vbExclamation End If Poista UserForm1:n lataus. 

⧪ Vaihe 6:

Vastaavasti kaksoisnapsauta Tekstilaatikko1 . Yksityinen aliohjelma nimeltä TextBox1_Change ja lisää seuraava koodi sinne.

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

⧪ Vaihe 7:

Sinun UserForm on nyt valmis käytettäväksi. Valitse solu jäädytettävän rivin alapuolelta ja jäädytettävän sarakkeen oikealta puolelta (Cell C4 täällä), ja suorita Makro nimeltään Run_UserForm .

⧪ Vaihe 8:

• The UserForm Ladataan, ja valitun solun osoite ( C4 ) vuonna Tekstilaatikko Voit halutessasi muuttaa tämän.
• Valitse sitten jokin kolmesta vaihtoehdosta, jotka ovat käytettävissä kohdassa ListBox Tässä haluan jäädyttää sekä rivin että sarakkeen, joten olen valinnut vaihtoehdon Pysäytä sekä rivi että sarake .
• Napsauta sitten OK .

⧪ Vaihe 9:

Löydät työarkin jäädytettynä haluamallasi tavalla. (Tässä jäädytettynä riville asti. 3 ja sarake B ).

Aiheeseen liittyvä sisältö: Kuinka jäädyttää kehys Excelissä (6 nopeaa temppua)

5. Vaihtoehto Excelin pysäytysruutuihin: ikkunan jakaminen VBA:lla

Olemme puhuneet paljon jäädyttää lasit Excelissä. Katsotaanpa nyt erittäin hyödyllinen vaihtoehto Excelissä käytettävälle jäädyttää lasit Excelissä Jaettu ikkuna komento.

Voit ActiveWindow.SplitRow tai ActiveWindow.SplitColumn osoitteessa VBA jakaa työarkin rivi- tai sarakeviisaasti.

Jos haluat esimerkiksi jakaa työarkin riviltä 3 , käytä:

 ActiveWindow.SplitRow = 3 

Vastaavasti, jos haluat jakaa työarkin sarakkeesta B , käytä:

 ActiveWindow.SplitColumn = 2 

⧭ VBA-koodi:

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

⧭ Lähtö:

Suorita koodi, se jakaa aktiivisen laskentataulukon riviltä 3 ja sarake B .

Liittyvä sisältö: Miten soveltaa mukautettuja jäädytysruutuja Excelissä (3 helppoa tapaa)?

Muistettavat asiat

• Ennen hakemuksen tekemistä Jäädyttää lasit Excelissä, sinun on Poista kaikkien jäädytysruutujen jäädytys Muussa tapauksessa Jäädyttää lasit komento ei toimi.
• The Jäädyttää lasit komento ei toimi yhdistetty soluja. unmerge ne ennen kuin sovellat Jäädyttää lasit komento, jos sellainen on olemassa.

Päätelmä

Näitä menetelmiä on siis käytettävä Jäädyttää lasit kanssa VBA Excelissä. Olen yrittänyt käsitellä kaikkia mahdollisia tapoja soveltaa Jäädyttää lasit Excelissä olevan työarkin yli. Onko sinulla kysyttävää? Kysy meiltä. Äläkä unohda vierailla sivustollamme. ExcelWIKI lisää viestejä ja päivityksiä.