Kaip naudoti VBA, kad nustatytumėte "Excel" diapazono kintamąjį kaip pasirinktą (5 metodai)

Hugh West

16-10-2023 Makrokomandos ir "Excel VBA
  • Pasidalinti
Hugh West

Šiame straipsnyje pateiksime keletą idėjų, kaip naudoti "Excel VBA nustatyti diapazono kintamasis galime atlikti kai kurias įprastas operacijas su šiomis pasirinktomis ląstelėmis naudodami VBA . Toliau pateiktame "Excel" duomenų rinkinyje pateikiame keletą vakarų grupių pavadinimai ir juos atitinkantys vokaliniai dainininkai .

Atsisiųsti praktikos sąsiuvinį

VBA nustatyti diapazoną į Selection.xlsm

5 būdai, kaip naudoti VBA, kad nustatytumėte diapazono kintamąjį į pasirinkimą "Excel" programoje

1. Diapazono kintamojo nustatymas diapazonui pasirinkti naudojant "Excel VBA

Diapazoną galime pasirinkti pagal nustatymo diapazonas svetainėje VBA Tarkime, kad norime pasirinkti ląsteles B5:C8 . Pereikime prie toliau pateiktos procedūros.

Žingsniai:

  • Rašyti kodą VBA, pirmiausia atidarykite Kūrėjo skirtukas ir pasirinkite "Visual Basic .

Tada bus atidarytas naujas langas "Microsoft Visual Basic for Applications .

  • Dabar atidarykite Įdėkite >> pasirinkti Modulis

.

  • Įveskite šį kodą į VBA modulis . 
 Sub RangeSelect() Dim Rng1 As Range Worksheets("selectRange").Activate Set Rng1 = Range("B5:C8") Rng1.Select End Sub

Čia mes nustatyti . B5:C8 diapazonas kaip Rng1 . Mes pasirenkame jį pagal Diapazono metodas iš VBA . Turėkite omenyje, kad turime suaktyvinti mūsų Excel lapas todėl suaktyvinome selectRange lapas.

  • Dabar grįžkite į lapas ir paleiskite Makro .

  • Po to pamatysite B5:C8 diapazonas pasirenkamas automatiškai.

Taip galite nustatyti norimą diapazono kintamasis į atranką naudojant VBA .

Skaityti daugiau: "Excel VBA": gauti ląstelių diapazoną su vertėmis (7 pavyzdžiai)

2. VBA naudojimas ląstelėms formatuoti nustatant diapazono kintamąjį

Tarkime, kad mūsų duomenų rinkinys atrodo taip, kaip šiame paveikslėlyje.

Norime, kad antraštė drąsiai ir "AutoFit" . stulpeliai . Tai galime padaryti per VBA . Pažiūrėkime, kaip tai galime padaryti.

Žingsniai:

  • Pirmiausia atidarykite "Visual Basic ir įveskite šį kodą į VBA modulis (norėdami sužinoti, kaip atidaryti "Visual Basic ir VBA modulis , eikite į 1 skirsnis ). 
 Sub SetRange() Dim xyz As Range Set xyz = Range("B4:C4") xyz.Font.Bold = True xyz.Select Worksheets("autofit").Columns("B:C").AutoFit End Sub

Čia nustatome B4:C4 diapazonas kaip xyz . Tada mes naudojome Drąsiai metodą, kad šriftai ląstelėje B4 ir C4 paryškintas tekstas Mes taip pat įrengėme B stulpeliai ir C naudojant "AutoFit" metodas.

  • Dabar grįžkite į lapas ir paleiskite Makro kuris pavadintas kaip SetRange .

Po to aiškiai matysite pavadinimus stulpeliai ir antraštės tapti paryškintas ir pasirinktas.

Eidami šiuo keliu galite formatas ląstelės ir "AutoFit" stulpelių nustatymas diapazono kintamieji svetainėje VBA .

Panašūs skaitiniai

  • Kaip naudoti VBA kiekvienai "Excel" diapazono eilutei
  • Kaip naudoti VBA, norint pasirinkti diapazoną iš aktyvios ląstelės "Excel" programoje (3 metodai)
  • "Excel" makrokomanda: kelių stulpelių rūšiavimas naudojant dinaminį diapazoną (4 metodai)

3. Diapazono kopijavimas nustatant kintamojo diapazono pasirinkimą VBA

Tarkime, kad norime nukopijuoti B6:C9 nustatant diapazono kintamasis į pasirinkite . Toliau aptarsime procedūrą.

Žingsniai:

  • Pirmiausia atidarykite "Visual Basic ir įveskite šį kodą į VBA modulis (norėdami sužinoti, kaip atidaryti "Visual Basic ir VBA modulis , eikite į 1 skirsnis ). 
 Sub CopyRange() Dim cpy As Range Set cpy = Range("B6:C9") cpy.Copy End Sub

Čia tiesiog nukopijavome diapazonas B6:C9 naudodami Kopijuoti metodas VBA . Mes nustatėme diapazonas B6:C9 kaip cpy .

  • Dabar grįžkite į lapas ir paleiskite Makrokomandos . CopyRange nes tai yra jūsų dabartinio Makro .

Pamatysite diapazonas B6:C9 kopijuojamas.

Galite įklijuoti šį diapazonas bet kurioje "Excel" vietoje lapas paspausdami CTRL + V . Įklijavau diapazonas per B12 į C15 .

Taikydami šį metodą galite kopijuoti a diapazonas nustatant diapazono kintamasis į pasirinkimą "Excel" programoje VBA .

Skaityti daugiau: "Excel VBA": dinaminio diapazono kopijavimas į kitą darbaknygę

4. Formatuokite ląsteles spalvomis, nustatydami diapazono kintamąjį į pasirinkimą

Tarkime, kad norime nuspalvinti 8. ir 10. duomenų rinkinio eilutes su žalias . Vadovaukimės toliau pateiktu aprašymu.

Žingsniai:

  • Pirmiausia atidarykite "Visual Basic ir įveskite šį kodą į VBA modulis (norėdami sužinoti, kaip atidaryti "Visual Basic ir VBA modulis , eikite į 1 skirsnis ). 
 Sub ColorRange() Dim color As Worksheet Dim x1 As Range Dim x2 As Range Set color = ActiveSheet Set x1 = Range("B8:C8") Set x2 = Range("B10:C10") x1.Cells.Interior.ColorIndex = 4 x2.Cells.Interior.ColorIndex = 4 End Sub

Čia apibrėžiame savo B8:C8 diapazonas ir B10:C10 kaip x1 ir x2 atitinkamai. Mes padarėme savo spalva "Excel" Lapas kaip ActiveSheet ir nuspalvinome norimą diapazonai pagal ColorIndex savybė .

  • Dabar grįžkite į lapas ir paleiskite Makrokomandos . Spalvų diapazonas nes tai yra dabartinio Makro .

Po to pamatysite norimą diapazonai pripildytas žalias spalva.

Taigi galite formatuoti ląsteles naudodami spalva nustatant diapazono kintamasis atrankai.

Skaityti daugiau: Kaip naudoti diapazoną su kintama eilute ir stulpeliu naudojant "Excel VBA

Panašūs skaitiniai

  • VBA ciklas per "Excel" eilutes ir stulpelius (5 pavyzdžiai)
  • "Excel" VBA ciklas per diapazoną, kol bus tuščia ląstelė (4 pavyzdžiai)
  • Kaip konvertuoti diapazoną į masyvą "Excel VBA" (3 būdai)

5. Eilučių ištrynimas nustatant diapazono kintamąjį VBA

Tarkime, kad norime ištrinti 8. ir 10. duomenų rinkinio eilutes su žalias . Vadovaukimės toliau pateiktu aprašymu.

Žingsniai:

  • Pirmiausia atidarykite "Visual Basic ir įveskite šį kodą į VBA modulis (norėdami sužinoti, kaip atidaryti "Visual Basic ir VBA modulis , eikite į 1 skirsnis ). 
 Sub ColorRange() Dim color As Worksheet Dim x1 As Range Dim x2 As Range Set color = ActiveSheet Set x1 = Range("B8:C8") Set x2 = Range("B10:C10") x1.Cells.Interior.ColorIndex = 4 x2.Cells.Interior.ColorIndex = 4 End Sub

Svetainė diapazonai kuriuos norime ištrinti, yra B8:C8 ir B10:C10 . Mes juos pavadinome x1 ir x2 Tada juos tiesiog ištrinsime Ištrinti metodas.

  • Dabar grįžkite į lapas ir paleiskite Makrokomandos . DeleteRange nes tai yra jūsų dabartinio Makro .

Po to pamatysite B8:C8 intervalai ir B10:C10 nebėra.

Taikydami šį metodą galite ištrinti eilutės nustatant diapazono kintamieji atrankai.

Praktikos skyrius

Toliau pateiktame paveikslėlyje rasite duomenų rinkinį, su kuriuo dirbome šiame straipsnyje, kad galėtumėte praktikuotis patys.

Išvada

Trumpai tariant, straipsnyje daugiausia dėmesio skiriama kai kurioms taikomosioms programoms, skirtoms nustatyti diapazono kintamasis į pasirinkimą pagal "Excel VBA . Aprašėme keletą gana paprastų metodų. Jei turite kitų idėjų ar atsiliepimų, maloniai prašome juos palikti komentarų laukelyje. Tai padės man praturtinti būsimus straipsnius

Ankstesnis įrašas Kaip naudoti SUMIFS, kai ląstelės nėra lygios keliems tekstams
Kitas įrašas Kaip konvertuoti skaičių į datą programoje "Excel" (6 paprasti būdai)

Hugh Westas yra labai patyręs Excel treneris ir analitikas, turintis daugiau nei 10 metų patirtį šioje srityje. Jis yra įgijęs apskaitos ir finansų bakalauro bei verslo administravimo magistro laipsnius. Hugh turi aistrą mokymui ir sukūrė unikalų mokymo metodą, kurį lengva sekti ir suprasti. Jo ekspertinės žinios apie „Excel“ padėjo tūkstančiams studentų ir specialistų visame pasaulyje tobulinti savo įgūdžius ir tobulėti savo karjeroje. Savo tinklaraštyje Hugh dalijasi savo žiniomis su pasauliu, siūlydamas nemokamus „Excel“ vadovėlius ir internetinius mokymus, kad padėtų asmenims ir įmonėms išnaudoti visą savo potencialą.