EXCEL VBAがうまく動きません。

質問

指定された　rangeの中から2番目に小さい値を検索し、そのセルの行数を求めようとしていますが、えらーが出ます。いくつか試してみましたがだめでした。
初歩的な質問で恐縮ですが、教えてください。
構文は以下のように書きました。

Private Sub test()

Dim s As Double
Dim r As Range
Dim secondsmall As range
Dim smallrow as integer

r = Worksheets("sheet1").Range("a1:a4")
s = WorksheetFunction.Small(r, 2)
secondsmall = WorksheetFunction.Find(what:=s)
smallrow = secondsmall.row
MsgBox smallrow

end sub

宜しくお願いします。

回答No.3

hana-hana3 · ベストアンサー

Private Sub test()

Dim s As Double
Dim r As Range
Dim secondsmall As Range
Dim smallrow As Integer

Set r = Worksheets("sheet1").Range("a1:a4")
Set secondsmall = r.Find(WorksheetFunction.Small(r, 2))
smallrow = secondsmall.Row
MsgBox smallrow

End Sub

Set コマンドが無いのと、Find の使い方（WorksheetFunction：セル内の文字検索）の誤りですね。

お礼

おかげさまでうまく動きました。
どうもありがとうございました。

回答No.4

Wendy02

こんにちは。

ワークシート関数のFind とVBAのFindメソッドとは違います。Findメソッドは便利な部分もありますが、日にちの検索に問題が発生したはずです。その場合は、以下のようMatch関数にします。

Private Sub testR()
Dim s As Double
Dim r As Range
Dim smallrow As Long
Set r = Worksheets("sheet1").Range("a1:a4")
s = WorksheetFunction.Small(r, 2)
On Error Resume Next
smallrow = WorksheetFunction.Match(s, r, 0)
If smallrow > 0 Then
　MsgBox r.Cells(1).Row + smallrow - 1
End If
End Sub

お礼

あどばいすありがとうございます。
match関数も便利ですね。
ただ、下記の記述が何を意味しているのか、
知識にない私には理解できませんでした。
On Error Resume Next
MsgBox r.Cells(1).Row + smallrow - 1

回答No.2

noname#22222

Private Sub CommandButton1_Click()
　　Dim N As Integer
　　Dim R As Range

　　N = InputBox("何番目に小さい値を探しますか？")
　　Set R = Worksheets("Sheet1").Range("A1:A4")
　　MsgBox WorksheetFunction.Small(R, N)
End Sub

お礼

アドバイスありがとうございます。
でも、この記述だとその最小値しか求められませんでした。
しかし、hana-hana3さんの記述で解決しました。
どうもありがとうございました。

回答No.1

bin-chan

>　えらーが出ます。いくつか試してみましたがだめでした。
どんなエラーが表示されたか、を記述してください。

r = Worksheets("sheet1").Range("a1:a4")
ここで、シート1が選択された状態で始めてますか？
以下の２行に置き換えてみてください。
Worksheets("sheet1").select
set r = Worksheets("sheet1").Range("a1:a4").select

としたらどうなりますか？

お礼

range　を指定するときはsetが必要なんですね。
初歩的な質問ですみませんでした。