Veergdiagramm VBA kaudu

Anonim

Kuidas diagrammi Microsoft Excelis VBA kaudu luua

Selles artiklis õpime, kuidas diagrammi luua Microsoft Excelis VBA kaudu.

Mõistame lihtsa harjutusega, kuidas saame diagrammi luua Microsoft Excelis VBA kaudu.

Meil on andmeid vahemikus A1: F10, kus veerus A on õpilase nimi, veerus B märgid 1, veerus C märgid 2, veerus D märgid 3, veerus E on kogutulemus ja veerus F on märgitud keskmine.

Järgige allpool toodud samme ja koodi:-

  • Sisestage käsunupp vahekaardilt Arendaja> Lisa> Käsunupp 1.
  • Makro kirjutamiseks vajutage klahvi Alt+F11, et avada VBE -leht.
  • Seejärel minge vahekaardi sisestamiseks ja sisestage moodul.
  • Kirjutage lehele allpool nimetatud kood.

Privaatne alamkäsk Button1_Click ()

Vahemik ("A2: A10, F1: F10"). Valige

ActiveSheet.Shapes.AddChart.Select

ActiveChart.SetSourceData Allikas: = Vahemik ("'Sheet1'! $ A $ 2: $ A $ 10, 'Sheet1'! $ F $ 2: $ F $ 10")

ActiveChart.ChartType = xlColumnClustered

ActiveSheet.ChartObjects (1). Aktiveeri

ActiveSheet.ChartObjects (1). Lõika

Arvutustabelid ("Leht2"). Valige

ActiveSheet.Paste

Sheets ("Sheet1"). Valige

Vahemik ("F11"). Aktiveerige

End Sub

Koodi selgitus:- Esiteks määratleme diagrammi sisestamiseks vajaliku valiku, seejärel määrame andmeallika ja diagrammi tüübi. Enne diagrammi toimingu sooritamist peame selle aktiveerima ja seejärel valima sihtkoha, kuhu soovime oma diagrammi kleepida, ning pärast seda peame naasma lehele 1.

  • Makro käivitamiseks vajutage klahvi F5.
  • Diagramm luuakse töövihiku lehel 2.

Nii saame diagrammi luua Microsoft Excelis VBA kaudu.