Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12835 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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のところでエラーがでていたようです。
返事ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12835 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free