[[20151009225503]]　『追加質問です』（ちぃさん）　ページの最後に飛ぶ

『追加質問です』（ちぃさん）

お世話になります。

[[20150704211703]]　
こちらの追加質問となります。

（マナ）さんにご教授いただいたコードの部分で

 Sub test2()
    Dim ws As Worksheet
    Dim n As Long
    Dim r1 As Range, r2 As Range
    Dim cht As Chart
    Dim s As Long, e As Long

    Set ws = Sheets("Sheet3")
    n = ws.Cells(Rows.Count, "o").End(xlUp).Row
    Set r1 = ws.Range("a1").Resize(n)
    Set r2 = ws.Range("o1").Resize(n)

    s = Int(n / 2) - 4
    e = Int(n / 2) + 5

    Set cht = ActiveSheet.ChartObjects("test").Chart

    With cht
        .ChartType = xlXYScatterLines
        .SetSourceData Source:=Union(r1, r2)
        With .SeriesCollection.NewSeries
            .XValues = Array(s, s)
            .Values = Array(0, 200)
        End With
        With .SeriesCollection.NewSeries
            .XValues = Array(e, e)
            .Values = Array(0, 200)
        End With
    End With

 End Sub

コチラの

    s = Int(n / 2) - 4
    e = Int(n / 2) + 5

この部分の
　　s = Int(n / 2) - 4
　　　　　　　　　　~~~

    e = Int(n / 2) + 5
                    ~~~

数字の「4」と「5」のぶぶんをエクセルのシートで数字を指定できる方法はありますでしょうか？

どうぞ宜しくお願い致します。

＜使用 Excel：Excel2003、使用 OS：WindowsXP ＞

 新規ブックに以下のマクロを書いて実行してみてください、

 Sub 参考になりますか()
    Dim n As Long
    Dim e As Long
    Dim s As Long
    Dim 変数1 As Long
    Dim 変数2 As Long

    '入力の代わりに
    Range("A1").Value = -4
    Range("A2").Value = 5
    'テスト用に
    n = 20

    'ここから参考コード
    変数1 = Range("A1").Value
    変数2 = Range("A2").Value
    s = Int(n / 2) + 変数1
    e = Int(n / 2) + 変数2

    MsgBox "s=" & s & vbLf & "e=" & e

 End Sub

（β） 2015/10/10(土) 07:17

（β）さん　回答ありがとうございます。

お世話になります。

掲示いただいた内容で解決できました。
ありがとうございます。

（ちぃさん） 2015/10/10(土) 08:48

コメント返信：

[ 一覧(最新更新順) ]

[[20151009225503]] 『追加質問です』（ちぃさん） ページの最後に飛ぶ

[[20151009225503]]　『追加質問です』（ちぃさん）　ページの最後に飛ぶ