|
▼超1 さん:
こんばんは。
アクティブなシート以外でも動作させるには、
'==============================================
Sub test()
Dim radd As String
With Worksheets("sheet2").Range("a1:a200")
' ↑ここにシート名を指定する
'*******************************************************
.Formula = "=int(rand()*200)+1"
.Value = .Value
'ここまでは、サンプルデータ作成 ↑この2行は実際は要らない
'********************************************************
radd = .Address(, , , True)
MsgBox "最大値 : " & Application.Max(.Cells)
MsgBox "最大値の最大行 : " & Evaluate("max(if(" & radd & "=max(" & radd & "),row(" _
& radd & ")))")
' max(if($A$1:$A$200=max($A$1:$A$200),row($A$1:$A$200))) ↑こんな数式を評価します
End With
End Sub
これで試してみて下さい
|
|