Excel VBAで選択されたセルにつきチャートデータを変える方法?

5160 ワード

tochangechartdataasp vbamacros テキストリンク

この記事では、Excel VBAで選択されたセルごとにグラフデータを変更する方法を学びます.下で見ましょう!次のリンクからMS Excelの公式バージョンを取得しますhttps://www.microsoft.com/en-in/microsoft-365/excel

Step 1 :グラフのソースとしてデータをシートに準備する

まず、シート内の異なる領域からサンプルデータを作成する必要があります.

さて、ソースデータとして名前を付ける必要があります.

ソースデータ

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

新しいシートを挿入して“ダッシュボード”と名付けなければなりません.

その後、1つの列ですべてのヶ月をコピーする必要があります.

今、あなたは1つの地域の名前を書くことが隣接している.

ダッシュボード

その後、セルB 1の領域のデータをプルする必要がある.

下記の式を使用しなければなりません.

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

次に、ダッシュボードのシートにこのデータを使用してグラフを挿入する必要があります.

さて、グラフのアイコンをクリックしてグラフを選択する必要があります.

ラインチャート

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

まず、範囲内のすべての領域の名前を書き、範囲A 2 : A 4で書く必要があります.

ダッシュボードのシート名を右クリックしなければなりません.

ダッシュボード名をクリック

次に、ワークシートモジュールを使用してワークシートイベントを使用できるように、ワークシートモジュールに直接入力するビューコードオプションをクリックする必要があります.

さて、VBエディタで以下のコードを書く必要があります.

 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

その後、選択してコードを保存し、ウィンドウを閉じる必要があります.