VBA 코드를 사용하여 데이터 통계를 구현하는 방법

그림을 클릭하여 애니메이션 효과를 보다. 네가 원하는 것은 아래와 같다.

Sub? 텍스트 ()

암담한가? 나%,? J%

뭐 때문에? 나? =? 1? 어디 가? 셋；삼；3

설정? S? =? ActiveSheet 입니다. Chartobjects.add (I? -응? 1)? *? 300,? 100,? 300,? 150)

남도표. 차트 유형? =? XlColumnClustered

사우스 Chart.SetSourceData? 출처: = 시트1. 범위 (시트1. 세포 (2, 1),? 시트1. 세포 (5, 나? +? 1),? PlotBy:=xlColumns

남해도. 위치? 여기서: =xlLocationAsObject,? 이름: = "시트1"

사우스 Chart.HasDataTable? =? 진짜

만약? 나? & gt? 1? 그리고 나서

뭐 때문에? J? =? 1? 어디 가? 나? -응? 1

사우스 chart.series collection (1). 고르다

선택。 삭제

그리고 나서

끝? 만약

그리고 나서

끝? 잠수함