[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『追加質問です』(ちぃさん)
お世話になります。
[[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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.