Lielajās datubāzēs lielāko daļu laika pavadāt, strādājot ar diapazoniem un šūnām. Dažreiz jums ir jāatkārto viena un tā pati darbība lielos diapazonos vai lielā šūnu skaitā. Tas vienlaikus nogalina jūsu laiku un samazina efektivitāti. Šīs problēmas gudrs risinājums ir izveidot lietojumprogrammu. VBA programmēšanas kods kas darbosies katrā diapazona šūnā un veiks to pašu darbību, ko jūs norādījāt. Šodien šajā rakstā mēs apspriedīsim, kā veikt VBA katrai šūnai diapazonā programmā Excel.

Lejupielādēt Practice Workbook

Lejupielādējiet šo prakses grāmatu, lai izpildītu uzdevumu, kamēr lasāt šo rakstu.

3 piemēroti veidi, kā piemērot VBA katrai šūnai diapazonā programmā Excel

Izmantojot VBA kodu, varat veikt vienu un to pašu formulu katrai šūnai diapazonā, kolonnā vai rindā. Šajā sadaļā mēs apskatīsim visas sadaļas.

1. Piemērojiet VBA katrai šūnai diapazonā

Apskatiet situāciju, kad jums ir jāpiemēro viens un tas pats VBA kods katrai šūnai noteiktā diapazonā ( B3:F12 ). Lai to izdarītu, mēs izveidosim VBA kodu. Norādījumi ir sniegti turpmāk.

1. solis:

• Vispirms mēs ievietosim komandu pogu, lai vienkāršotu mūsu darbu. Dodieties uz savu Izstrādātāja cilne , izvēlieties Ievietot un noklikšķiniet uz komandas pogas, lai to iegūtu.

• Mēs esam ieguvuši komandu pogu.

• Lai atvērtu opcijas, noklikšķiniet ar peles labo pogu uz komandas pogas. Atlasiet un noklikšķiniet uz Īpašības lai mainītu dažas opcijas.

• Mainiet komandas pogas Virsraksts. Šeit mēs mainām nosaukumu uz " Noklikšķiniet šeit ".

2. solis:

• Tagad divreiz noklikšķiniet uz komandas pogas, lai atvērtu VBA Modulis . Šeit mēs pierakstīsim mūsu VBA kodu uzdevumam.

• Vispirms mēs deklarēsim divus mainīgos. Mēs saucam diapazona objektus par CL un Rng . Jūs varat tos nosaukt, kā vēlaties.

 Dim CL As Range Dim Rng As Range 

• Ar šo komandu piešķir konkrētu diapazonu,

Set Rng = darblapas("VBA1").Range("B3:F12")

• Šeit VBA1 ir mūsu darblapas nosaukums un B3:F12 ir mūsu definētais diapazons.

• Tagad mēs izmantosim kodu, lai izpildītu katru šūnas diapazona šūnu. Kods ir šāds,

 Par katru CL In Rng CL.Value = 100 Nākamais CL 

• Vērtība = 100 atsaucas uz to, ka tas atgriezīsies 100 katrai šūnai dotajā diapazonā.

• Tādējādi mūsu galīgais kods ir,

 Private Sub CommandButton1_Click () Dim CL As Range Dim Rng As Range Set Rng = Worksheets("VBA1").Range("B3:F12") For Each CL In Rng CL.Value = 100 Next CL End Sub 

• Dodieties uz galveno darblapu un noklikšķiniet uz komandu pogas, lai palaistu VBA katrai diapazona šūnai.

3. solis:

• Tāpat kā skaitliskās vērtības, arī teksta vērtības varam ievietot katrā diapazona šūnā. Tādā gadījumā dodieties uz VBA logu un 100 vietā ievietojiet teksta vērtību, kuru vēlaties palaist cauri. Izmainītā rinda ir šāda.

 CL.Value = "ExcelWIKI" 

• Noklikšķiniet uz komandas pogas, un VBA kods atgriezīs šo teksta vērtību katrai šūnai diapazonā.

4. solis:

• Šajā solī mēs iedziļināsimies nedaudz dziļāk. Pieņemsim, ka vēlamies izcelt katru tukšo šūnu mūsu diapazonā.

• Šim nolūkam esošajam kodam pievienojiet jaunu nosacījumu. Jaunā formula ir šāda,

 Ja CL.Value = " " Tad CL.Interior.ColorIndex = 3 Beidz Ja 

• Šis jaunais kods izcels tukšo šūnu ar sarkanu krāsu. Tātad pilnais kods ir,

 Private Sub CommandButton1_Click () Dim CL As Range Dim Rng As Range Set Rng = Worksheets("VBA1").Range("B3:F12") For Each CL In Rng If CL.Value = " " Then CL.Interior.ColorIndex = 3 End If Next CL End Sub 

• Iegūstiet rezultātu, noklikšķinot uz komandas pogas.

Līdzīgi lasījumi:

• Kā lietot VBA VBA diapazona objektu programmā Excel (5 īpašības)
• VBA diapazona nobīde (11 veidi)
• Kā Excel programmā Excel saskaitīt tekstu (7 vienkārši triki)

2. Ievietojiet VBA kodu katrai šūnai diapazona slejā

Varam palaist VBA kodu arī katrai kolonnas šūnai. Pieņemsim, ka mums ir kolonna, kurā ir skaitļi, un mums ir jākrāso vērtības, kas ir mazākas par 10. Mēs izveidosim VBA kodu, lai palaistos katrai kolonnas šūnai.

1. solis:

• Izveidojiet komandu pogu, sekojot norādījumiem, kas tika apskatīti.

2. solis:

• Divreiz noklikšķiniet uz komandas pogas, lai atvērtu VBA logu.
• Mēs deklarēsim mainīgo ar nosaukumu " c " tipa long. Mēs šeit izmantojam Long tipa mainīgo, jo Long mainīgajiem ir lielāka ietilpība nekā Integer mainīgajiem.

 Dim c As Long 

• Pēc tam pievienojiet koda rindu, kas maina visu mūsu kolonnas šūnu fonta krāsu uz melnu.

 Columns(1).Font.Color = vbBlack 

• Ievietojiet šī koda cilpu.

 For c = 1 To Rows.Count Next c 

• Šajā solī ievadīsim nosacījumu, lai iekrāsotu vērtības, kas ir zemākas par C4 šūnas vērtību (10). Lai to izdarītu, ievadiet šo kodu.

 Ja Cells(c, 1).Value <Range("C4").Value Un nav IsEmpty(Cells(c, 1).Value), tad Cells(c, 1).Font.Color = vbRed End If 

• Tātad galīgais kods ir šāds,

 Private Sub CommandButton1_Click () Dim c As Long Columns(1).Font.Color = vbBlack For c = 1 To Rows.Count If Cells(c, 1).Value <Range("C4").Value And Not IsEmpty(Cells(c, 1).Value) Then Cells(c, 1).Font.Color = vbRed End If Next c End Sub 

• VBA tiks palaists un parādīs rezultātus, kad noklikšķināsiet uz komandas pogas.

3. Uzrakstiet VBA kodu katrai šūnai diapazona rindā

Mēs varam palaist VBA kodu arī katrai rindas šūnai. Dotajā rindā mums ir jāveic viena un tā pati darbība katrā rindas šūnā.

1. solis:

• Pievienojiet komandu pogu un mainiet tās nosaukumu uz " Noklikšķiniet šeit! "

• Divreiz noklikšķiniet uz pogas, lai atvērtu VBA logu. Ierakstiet tālāk sniegto VBA kodu.

 Private Sub CommandButton1_Click () Dim r As Range Dim MyString As String 'Katrai šūnai rindā un piemēro dzeltenas krāsas aizpildījumu For Each r In Range("B3:F3").Rows r.Interior.ColorIndex = 6 Next End Sub 

• Kods tiks palaists cauri katrai rindas šūnai un katrai šūnai tiks piemērots dzeltenas krāsas aizpildījums.

• Noklikšķiniet uz pogas, un mūsu rezultāts ir šeit.

Ātrās piezīmes

👉 Ja jums nav redzama izstrādātāja cilne, varat to aktivizēt, izmantojot šo instrukciju.

Pielāgotā ātrās piekļuves rīkjosla → Vairāk komandu → Pielāgot lenti → Izstrādātājs → Labi

Secinājums

Mēs esam aplūkojuši trīs dažādas pieejas, lai palaistu VBA katrai diapazona šūnai. Ja jums ir kādi jautājumi vai jautājumi, laipni aicinām komentēt. Varat arī apskatīt citus mūsu rakstus, kas saistīti ar Excel uzdevumiem!