Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


15881 / 76734 ←次へ | 前へ→

【66327】Re:連続散布図作成&異常点削除
発言  kanabun  - 10/8/23(月) 11:21 -

引用なし
パスワード
   ▼ここ さん:
>C列の様に99999という異常点を
>ダブルクリックすればグラフには反映しない様にする

ヒントです。

ダブルクリックは「オブジェクトの書式設定」の動作ですから、
それはだめ。
手動で、ある系列のある特定の点を選択する(Pointする)方法は
ご存知ですよね?
手動で、ある系列の異常点をPointしてから、
以下のマクロを走らせてみてください。

Sub GetPointNo()
 Dim myPoint As Point
 Dim ss As String
 
 If TypeName(Selection) = "Point" Then
   Set myPoint = Selection
   With myPoint
    .HasDataLabel = True
    ss = myPoint.DataLabel.Name
    .HasDataLabel = False
   End With
   MsgBox Split(ss, "P")(1)
 End If
End Sub

myP.DataLabel.Nameを取得すると、
"文字列 S2P4"のように系列と要素が判ります。
(by あすなろさん)

うえの MsgBox のところを
   Dim nSeries As Long
   Dim nPoint As Long
   Dim srcRange As String
   
   nSeries = Val(Split(ss, "S")(1))  '系列番号
   nPoint = Val(Split(ss, "P")(1))  'Point番号
   
   srcRange = Split(ActiveChart.SeriesCollection _
        .Item(nSeries).Formula, ",")(1) 'X軸データ範囲
   MsgBox Excel.Range(srcRange).Item(nPoint).Value

に変更して、実行してみてください。
X軸元データ範囲のPointされた番号の位置の値が表示されると思います。

1 hits

【66322】連続散布図作成&異常点削除 ここ 10/8/23(月) 8:54 質問
【66326】Re:連続散布図作成&異常点削除 kanabun 10/8/23(月) 10:20 発言
【66328】Re:連続散布図作成&異常点削除 ここ 10/8/23(月) 13:44 お礼
【66329】Re:連続散布図作成&異常点削除 kanabun 10/8/23(月) 13:59 発言
【66327】Re:連続散布図作成&異常点削除 kanabun 10/8/23(月) 11:21 発言

15881 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free