プログラミングの問題教えてください。(1)

質問

(1)引数として与えられた範囲のｎ番目の値を返す関数(hairetu3(範囲,ｎ) )を作りなさい。 – 例 hairetu3(A1:A5,4) ならA4の値を返す 以下に作成したプログラムのVBAを記述しなさい

回答No.2

kinta03

回答が付かない様なので・・・

Function hairetu3(rr As Range, ii As Integer) As Variant
Dim 行 As Integer
Dim 列 As Integer

行 = ii
列 = 1

hairetu3 = rr.Value(行, 列) ''配列と違い行／列は１から始まります。
End Function

あとはvbaのヘルプで調べてね。
あと、ソートはネット検索で死ぬほど出てきます。
ＢＭＩのはifなどで出来るので、まづはvbaの本でも買って１から勉強してください。
当然、PCにoffice入って居るだろうから自分でDebugして確認してください。

回答No.1

x-1919

失礼ながら、、、
なぜ命令口調で指示しているのですか？