Excel VBA質問箱 IV

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

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


47307 / 76732 ←次へ | 前へ→

【34385】Re:A1からA200までの値
発言  ichinose  - 06/2/1(水) 19:36 -

引用なし
パスワード
   ▼超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

これで試してみて下さい

0 hits

【34355】A1からA200までの値 超1 06/2/1(水) 9:52 質問
【34361】Re:A1からA200までの値 じゅん 06/2/1(水) 11:00 回答
【34362】Re:A1からA200までの値 Statis 06/2/1(水) 11:13 回答
【34371】Re:A1からA200までの値 ichinose 06/2/1(水) 12:30 発言
【34384】Re:A1からA200までの値 超1 06/2/1(水) 19:26 質問
【34385】Re:A1からA200までの値 ichinose 06/2/1(水) 19:36 発言
【34386】Re:A1からA200までの値 超1 06/2/1(水) 19:57 質問
【34388】Re:A1からA200までの値 超1 06/2/1(水) 20:22 質問
【34391】Re:A1からA200までの値 ichinose 06/2/1(水) 20:54 発言
【34392】Re:A1からA200までの値 超1 06/2/1(水) 21:03 発言
【34395】Re:A1からA200までの値 ichinose 06/2/1(水) 21:31 発言

47307 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free