茨木市ののパソコン教室です。南茨木駅から徒歩3分。
初心者OK。資格取得OK。持込みOK。託児OK。
何かと自由な教室です。



ぱそこんる〜む ブログです。
パソコン教室での日々の出来事や、Tips・解説や、お知らせなど、思いついたままつづっています。教室ホームページへはリンクからどうぞ。
こねこ時計


  毎月15日・末日お休みです。

Profile
Links
おすすめサイト

かわいいイラストのあるサイト
イラストわんパグ

最高に使いやすい家計簿のあるサイト
やさしい家計簿

キャンペーン中


Comment
Category
NewEntry
Archives
Other
Mobile
qrcode
グラフを2種類一度に作るマクロ

「マクロって何が便利なんですか?」

エクセル受講中の生徒さんからの質問です。

 

いや、すっごい便利ですよ!っと思うのですが

テキストで練習される課題は既定の範囲のデーターが削除されるマクロ

「選んでデリートするのとそれほど手間が変わらないように思うのですけど・・・」

同じ範囲を毎回選びなおす手間がないだけでも便利だとは思うのですが、

1回しか練習しないので同じ行為の繰り返しの手間が省ける実感や、

作業工程が少ないとマクロの便利さへの驚きが少ないですよね。

 

で、便利そうに見えるマクロを作ってみました。

サンプル用に集計表を作成

データーを入力して

グラフ作成ボタンを押すと

サイズと位置の整えた2種類のグラフができます。

コードはこんなの↓

-----------------------------

Sub グラフ作成()

' グラフを作る


'横棒グラフ

    ActiveSheet.ChartObjects.Add 0, 180, 407, 200  ’←グラフの位置とサイズを指定してます
    ActiveSheet.ChartObjects(1).Chart.ChartType = xlBarStacked  ’←グラフの種類
    ActiveSheet.ChartObjects(1).Chart.SetSourceData Source:=Range("Sheet1!$B$5:$E$10")  ’←グラフのデータ範囲
   
'円グラフ    
    ActiveSheet.ChartObjects.Add 0, 400, 407, 300
    ActiveSheet.ChartObjects(2).Chart.ChartType = xlPie
    ActiveSheet.ChartObjects(2).Chart.SetSourceData Source:=Range("Sheet1!$B$6:$B$10,Sheet1!$F$6:$F$10")
    ActiveSheet.ChartObjects(2).Chart.HasLegend = False  ’←凡例の非表示
     With ActiveSheet.ChartObjects(2).Chart.SeriesCollection(1)  

        .HasDataLabels = True   ’←データラベルの表示
        .DataLabels.ShowPercentage = True
        .DataLabels.ShowCategoryName = True
        .DataLabels.ShowValue = False
        
    End With
   
End Sub

-------------------------------

 

もちろん、別の月のデーターを入力するために、クリアボタンも

 

-------------------------------
Sub クリア()

' データ消去


    ActiveSheet.ChartObjects(2).Activate
    ActiveSheet.ChartObjects(1).Activate
    Selection.Delete

    
    Range("C5:E10").Select
    Selection.ClearContents
   
  
End Sub

 

--------------------------

もとの空データに戻ります。

 

作成したのはグラフ作成だけのマクロですが、

元の売上データー一覧から

表を作成、

グラフを作った後、印刷プレビューまでマクロにすれば

むちゃくちゃ効率いいですよね。

 

繰り返し作業の多い仕事場ではすごく効率アップになるのですが、

ホームユーザーでは、

マクロ作ったのですごく便利になった!

ていう、事例が思いつきません。

 

ホームユーザーだって、こんな時に便利だよ。って事例ご存知の方!

ぜひ教えていただきたい!

 

 



Excel comments(0)
comment
send






(C) 2017 ブログ JUGEM Some Rights Reserved.