Excel VBA質問箱 IV

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

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


12837 / 13646 ツリー ←次へ | 前へ→

【8383】グラフの最大・最小 k- 03/10/14(火) 11:14 質問
【8384】Re:グラフの最大・最小 INA 03/10/14(火) 13:22 回答
【8386】Re:グラフの最大・最小 k- 03/10/14(火) 14:18 お礼

【8383】グラフの最大・最小
質問  k-  - 03/10/14(火) 11:14 -

引用なし
パスワード
   min1 = TextBox4.Value
max1 = TextBox5.Value
yokomin = Application.Min(Range(Cells(min1, 7), Cells(max1, 7)).Value)
yokomax = Application.Max(Range(Cells(min1, 7), Cells(max1, 7)).Value)

 テキストボックスに入力した値からグラフの範囲の中の最大値、最小値を求めようと
思っていますが、範囲指定がおかしいのか最大、最小が求められません。

 どなたか教えてください。

【8384】Re:グラフの最大・最小
回答  INA  - 03/10/14(火) 13:22 -

引用なし
パスワード
   > min1 = TextBox4.Value
> max1 = TextBox5.Value
> yokomin = Application.Min(Range(Cells(min1, 7), Cells(max1, 7)).Value)
> yokomax = Application.Max(Range(Cells(min1, 7), Cells(max1, 7)).Value)

具体的な範囲に記述を変更して試してみてはいかがでしょうか?
Dim min1 As Long
Dim max1 As Long
min1 = 1
max1 = 5
yokomin = Application.Min(Range(Cells(1, 7), Cells(5, 7)).Value)
yokomin = Application.Min(Range("G1:G5").Value)

【8386】Re:グラフの最大・最小
お礼  k-  - 03/10/14(火) 14:18 -

引用なし
パスワード
   ▼INA さん:
>具体的な範囲に記述を変更して試してみてはいかがでしょうか?
>Dim min1 As Long
>Dim max1 As Long
>min1 = 1
>max1 = 5
>yokomin = Application.Min(Range(Cells(1, 7), Cells(5, 7)).Value)
>yokomin = Application.Min(Range("G1:G5").Value)

返信ありがとうございます。具体的な範囲で記述して試してみたところ、間違いに気づきました。参照ページの行が抜けていることにより、rangeのところでエラーがでていたようです。
返事ありがとうございました。

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