[リストへもどる]
一括表示

投稿時間:2002/11/12(Tue) 11:16
投稿者名:秋風
Eメール:
URL :
タイトル:
Excelの関数の使い方について
こんにちは。
 Excelで、データを読み込ませた後、データ値のMIN値を
出したいのですが、どのように範囲選択するのか分かりません。
 データ表は、
  A(MIN値)      B     C     D     E    F
1     4          4     5     8     9
2     3          3     5     9
3     1          7     1     6     4    3
のような感じでA列にMIN値をオートで入れたいのです。
Excelのヘルプを参考に作成してみたのですが、
Dim gyou As Long
    gyou = lngkikakugyou - 1   ←lngkikakugyouは、
                               データファイル(この中に個々のデータあり)の数
    Set minrange = xlSheet.Range(xlSheet.Cells(gyou, 2):xlSheet.Cells(gyou, 256)).Select
    xlSheet.Cells(1, 1) = xlApp.WorksheetFunction.Min(minrange)
(この式は間違っていますが、こんな感じで作成したいという例です。後、
この例は、とりあえず1行目だけに入れる式です。)
データ値(列に入る)と行数が可変なものですから、Rangeの所で、":"がうまく使用
できません。列に関しては、256まで全て選択で固定させようと思っています。
説明が下手で申し訳ありませんが、うまく最小値をセルに入れる方法が
お分かりの方教えて下さい。

投稿時間:2002/11/12(Tue) 11:59
投稿者名:A221
Eメール:
URL :
タイトル:
Re: Excelの関数の使い方について
Rangeの指定は文字列ではなかったかと。セルにまんま式を入れてしまう方法です。
#動作の確認はしていません。

Dim Col As Long
Dim Row As Long
Dim MinRange As String

'Rows=データの行数
For i=0 To Rows
    Col = lngkikakugyou - 1
    minrange = "B" & i & ":" & Code2Alphabet(Col) & i
    xlSheet.Cells(i, 1).Value = "=Min(" & minrange & ")"
Next i



Public Function Code2Alphabet(ByVal X As Long) As String
Dim Lcode As String
Dim Scode As String

If (X \ 27) Then Lcode = Chr$(64 + ((X + (X \ 27)) \ 27))

X = (X Mod 27) + (X \ 27)

Scode = Chr$(64 + (X Mod 27))
Code2Alphabet = Lcode + Scode
End Function

投稿時間:2002/11/12(Tue) 13:33
投稿者名:秋風
Eメール:
URL :
タイトル:
Re^2: Excelの関数の使い方について
こんにちは。
>A221さん。
 返事が遅れてすいません。今まで、A221さんの返答を参考に作成
していました。
 Rangeに関しては、文字列は分かっていたのですが、どういうふうに
入れて良いものか分かりませんでした。なんとか変数で入れる方法を
と思って作成していたら段々深みにはまってしまいました。
 今回の返答で、セルの関数の使用法がきちんと分かるようになりました。
これからも簡単な質問が多くなると思うのですが、よろしくお願いします。