Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

15885 / 76738

←次へ　｜　前へ→


	【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された番号の位置の値が表示されると思います。

0 hits

▼

【66322】連続散布図作成＆異常点削除 ここ 10/8/23(月) 8:54