Excel VBAで選択されたセルにつきチャートデータを変える方法?
5160 ワード
この記事では、Excel VBAで選択されたセルごとにグラフデータを変更する方法を学びます.下で見ましょう!次のリンクからMS Excelの公式バージョンを取得しますhttps://www.microsoft.com/en-in/microsoft-365/excel
Step 1 :グラフのソースとしてデータをシートに準備する まず、シート内の異なる領域からサンプルデータを作成する必要があります. さて、ソースデータとして名前を付ける必要があります.
ソースデータ
ステップ2:別のシート上の1つの地域のデータを一度に取得 新しいシートを挿入して“ダッシュボード”と名付けなければなりません. その後、1つの列ですべてのヶ月をコピーする必要があります. 今、あなたは1つの地域の名前を書くことが隣接している.
ダッシュボード その後、セルB 1の領域のデータをプルする必要がある. 下記の式を使用しなければなりません.
次に、ダッシュボードのシートにこのデータを使用してグラフを挿入する必要があります. さて、グラフのアイコンをクリックしてグラフを選択する必要があります.
ラインチャート
ステップ3:あなたが指定された範囲内の地域名を選択すると、地域を変更 まず、範囲内のすべての領域の名前を書き、範囲A 2 : A 4で書く必要があります. ダッシュボードのシート名を右クリックしなければなりません.
ダッシュボード名をクリック 次に、ワークシートモジュールを使用してワークシートイベントを使用できるように、ワークシートモジュールに直接入力するビューコードオプションをクリックする必要があります. さて、VBエディタで以下のコードを書く必要があります.
その後、選択してコードを保存し、ウィンドウを閉じる必要があります.
コードを保存する 再度、Excelのスプレッドシートに移動し、[開発]タブをクリックします. コードセクションでマクロオプションを選択する必要があります.
マクロオプション その後、範囲A 2:A 4のセルを選択する必要があります、そしてそれは値がD 1に割り当てられ、それに応じてグラフのデータが変更されます. 最後に、以下のように出力を受け取ります.
チャートのデータ
短い要約
このチュートリアルでは、Excel VBAで選択されたセルごとにグラフデータを変更する方法をご案内します.以下のコメントのセクションであなたの質問/提案を残してください.訪問ありがとうGeek Excel. 学習を続ける!
続きを読む Creating Quarterly Sales Chart by Clustered Region in Excel 365!! How to Create a Drop-Down List in Excel 365? -Using Kutools How to Create a Step Chart in Excel using Kutools? How to Unhide a Worksheet in Microsoft Excel 365? How to Create a Column Chart With Percentage Change in Excel?
Step 1 :グラフのソースとしてデータをシートに準備する

ステップ2:別のシート上の1つの地域のデータを一度に取得

=VLOOKUP(C2,'Source Data'!$A$2:$D$8,MATCH($D$1,'Source Data'!$A$1:$D$1,0))

ステップ3:あなたが指定された範囲内の地域名を選択すると、地域を変更

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A4")) Is Nothing Then
Range("A2:A4").Interior.ColorIndex = xlColorIndexNone
Dim region As Variant
region = Target.value
On Error GoTo err:
Select Case region
Case Is = "Central"
Range("D1").value = region
Case Is = "East"
Range("D1").value = region
Case Is = "West"
Range("D1").value = region
Case Else
MsgBox "Invalid Option"
End Select
Target.Interior.ColorIndex = 8
End If
err:
End Sub



短い要約
このチュートリアルでは、Excel VBAで選択されたセルごとにグラフデータを変更する方法をご案内します.以下のコメントのセクションであなたの質問/提案を残してください.訪問ありがとうGeek Excel. 学習を続ける!
続きを読む
Reference
この問題について(Excel VBAで選択されたセルにつきチャートデータを変える方法?), 我々は、より多くの情報をここで見つけました https://dev.to/excelgeek/how-to-change-chart-data-as-per-selected-cell-in-excel-vba-4932テキストは自由に共有またはコピーできます。ただし、このドキュメントのURLは参考URLとして残しておいてください。
Collection and Share based on the CC Protocol