Kaavion luominen VBA: n avulla Microsoft Excelissä
Tässä artikkelissa aiomme oppia luomaan kaavion VBA: n avulla Microsoft Excelissä.
Ymmärrämme yksinkertaisella harjoituksella, kuinka voimme luoda kaavion VBA: n avulla Microsoft Excelissä.
Meillä on tietoja alueella A1: F10, jossa sarake A sisältää opiskelijan nimen, sarake B Merkit 1, sarake C Merkit 2, sarake D Merkit 3, sarake E sisältää kokonaispisteet ja sarake F sisältää keskiarvon.
Noudata alla annettuja ohjeita ja koodia:-
- Lisää komentopainike Kehittäjä -välilehdeltä> Lisää> Komentopainike 1.
- Avaa näppäimistö Alt+F11 avataksesi VBE -sivun kirjoittaaksesi makron.
- Siirry sitten välilehteen ja lisää moduuli.
- Kirjoita alla mainittu koodi sivulle.
Yksityinen alikomentoButton1_Click ()
Alue ("A2: A10, F1: F10"). Valitse
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Lähde: = Alue ("'Sheet1'! $ A $ 2: $ A $ 10, 'Sheet1'! $ F $ 2: $ F $ 10")
ActiveChart.ChartType = xlColumnClastered
ActiveSheet.ChartObjects (1) Aktivoi
ActiveSheet.ChartObjects (1)
Sheets ("Sheet2"). Valitse
ActiveSheet.Paste
Sheets ("Sheet1"). Valitse
Alue ("F11"). Aktivoi
End Sub
Koodin selitys:- Ensin määritämme kaavion lisäysalueen ja asetamme tietolähteen ja kaavion tyypin. Ennen kuin suoritamme toiminnon kaaviossa, meidän on aktivoitava se ja valittava sitten kohde, johon haluamme liittää kaavion, ja sen jälkeen meidän on palattava taulukolle 1.
- Suorita makro painamalla näppäintä F5.
- Kaavio luodaan työkirjan taulukkoon 2.
Tällä tavalla voimme luoda kaavion VBA: n kautta Microsoft Excelissä.
