Ako používať ActiveCell v Exceli pomocou VBA

Ak pracujete s aplikáciou Microsoft Office Excel sa často , že je dobré vedieť , ako používať " ActiveCell " vlastnosť pridať , dostať , a dokonca aj zmeniť formát dátumu v liste . Visual Basic for Applications ( VBA ) je programovací jazyk použiť na automatizáciu rutinných úloh . Vo VBA môžete použiť " ActiveCell " vlastnosť vykonávať zmeny dát . S VBA môžete ušetriť čas tým , že automatizuje proces namiesto vykonávajúci rovnakú úlohu ručne . Pokyny dovolená 1

Spustite program Microsoft Office Excel , kliknite na kartu " Vývojár " , a kliknite na tlačidlo " Visual Basic " .
2

Kliknite na " Vložiť " menu a kliknite na " modul " vložiť nový kód modulu . Zadajte nasledujúci kód spustiť nový čiastkové postup :

Private Sub usingActiveCell ( )
3

Skopírujte a vložte nasledujúci aktivovať " Hárok1 "

Pracovné listy ( " Hárok1 " ) Aktivovať
4

skopírujte a vložte nasledujúci pridať hodnotu na " A1 " , " A2 " a " A3 : . " klipart

rozsah ( " A1 " ) . Vyberte

ActiveCell.Value = 3,5

Range ( " A2 " ) . Vyberte

ActiveCell.Value = 10

rozsah . ( " A3 " ) Vyberte

ActiveCell.Value = 20
5

skopírujte a vložte nasledujúci zvýrazniť bunky s dátami :

s ActiveCell

Rozsah ( Cells ( riadok , CurrentRegion.Column ) , Cells ( riadok , CurrentRegion.Columns.Count + CurrentRegion.Column - ..... 1 ) ) . Interior.ColorIndex = 8

typu ( Cells ( CurrentRegion.Row , Stĺp ) , Cells ( CurrentRegion.Rows.Count + CurrentRegion.Row - ..... 1 , stĺpec ) ) . Interior.ColorIndex = 8

End With

Application.ScreenUpdating = TRUE
6

skopírujte a vložte nasledujúci zobrazenie hodnoty pridanej pomocou " Immediate Window : " .

Range ( " A1 " ) Zvoľte

Debug.Print ActiveCell.Value

Range ( " A2 " ) . Vyberte

Debug.Print ActiveCell.Value

Range ( " A3 " ) . Vyberte

Debug.Print ActiveCell.Value
7

skopírujte a vložte nasledujúci na koniec procedúry Sub :

End Sub
8

Stlačte tlačidlo " Ctrl " a " G " sa zobrazí " Immediate okno " a stlačte " F5 " spustiť procedúru .

• Predchádzajúca strana: Ako používať Excel pre prevod desatinných miest , aby frakcia 
• Ďalšia strana: Ako Rozbaliť všetky stĺpce v programe Excel 2007