Excel VBA質問箱 IV

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

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


48461 / 76732 ←次へ | 前へ→

【33207】Re:最大値を調べる
回答  ちくたく WEB  - 06/1/5(木) 9:35 -

引用なし
パスワード
   いちご さん
おはようございます。

どうも、いまいちな気がしますが。

Sub test()

  Dim i As Integer
  Dim myArr As Variant
  Dim tmpMax As Integer, myMax As Integer
  
  myArr = Range("A1:C" & Range("C65536").End(xlUp).Row)
  myMax = 0: tmpMax = 0
  
  For i = 1 To UBound(myArr)
    If myArr(i, 1) = "たし算" And myArr(i, 2) = "9級" Then
      tmpMax = myArr(i, 3)
      If myMax < tmpMax Then myMax = tmpMax
    End If
  Next i
  
  MsgBox myMax
  
End Sub
0 hits

【33206】最大値を調べる いちご 06/1/5(木) 8:56 質問
【33207】Re:最大値を調べる ちくたく 06/1/5(木) 9:35 回答
【33210】Re:最大値を調べる Jaka 06/1/5(木) 10:23 回答
【33214】Re:最大値を調べる ちくたく 06/1/5(木) 11:31 発言
【33215】Re:最大値を調べる Jaka 06/1/5(木) 11:48 発言
【33241】Re:最大値を調べる いちご 06/1/5(木) 17:54 お礼
【33245】Re:最大値を調べる ichinose 06/1/5(木) 19:17 発言
【33246】Re:最大値を調べる いちご 06/1/5(木) 19:59 お礼
【33243】Re:最大値を調べる Kein 06/1/5(木) 18:53 回答
【33247】Re:最大値を調べる いちご 06/1/5(木) 20:07 お礼

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