Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8355 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【33766】最大値 TIRO 06/1/20(金) 2:05 質問[未読]
【33769】Re:最大値 ぴかる 06/1/20(金) 8:52 発言[未読]
【33794】Re:最大値 TIRO 06/1/20(金) 18:17 質問[未読]
【33797】Re:最大値 ぴかる 06/1/20(金) 19:09 発言[未読]
【33798】Re:最大値 こうちゃん 06/1/20(金) 19:35 回答[未読]
【33766】最大値
質問  TIRO  - 06/1/20(金) 2:05 -
引用なし
パスワード
   　VBAでA1からA25に値が合った場合、最大値を割り出すような
関数はないでしょうか？
【33769】Re:最大値
発言  ぴかる  - 06/1/20(金) 8:52 -
引用なし
パスワード
   TIROさん、おはようございます。

>　VBAでA1からA25に値が合った場合、最大値を割り出すような
>関数はないでしょうか？
VBAではなく一般機能の関数でやってみました。
こういう事でしょうか？
=IF(COUNT(A1:A25)>0,MAX(A1:A25),"")
【33794】Re:最大値
質問  TIRO  - 06/1/20(金) 18:17 -
引用なし
パスワード
   ▼ぴかる さん：
>TIROさん、おはようございます。
>
>>　VBAでA1からA25に値が合った場合、最大値を割り出すような
>>関数はないでしょうか？
>VBAではなく一般機能の関数でやってみました。
>こういう事でしょうか？
>=IF(COUNT(A1:A25)>0,MAX(A1:A25),"")


マクロでやることはできませんか？
【33797】Re:最大値
発言  ぴかる  - 06/1/20(金) 19:09 -
引用なし
パスワード
   ▼TIRO さん：

すんごくセンスのないマクロでよろしければこんなんです。

Sub TEST()

　　With Range("B1")
　　　　.Formula = "=IF(COUNT(A1:A25)>0,MAX(A1:A25),"""")"
　　　　.Value = .Value
　　End With
　　
End Sub

しばらく不在となりますので、何かありましたらどなた様かよろしくお願いします。
【33798】Re:最大値
回答  こうちゃん  - 06/1/20(金) 19:35 -
引用なし
パスワード
   TIROさん、ぴかるさん　こんばんは

>>こういう事でしょうか？
>>=IF(COUNT(A1:A25)>0,MAX(A1:A25),"")
>
>マクロでやることはできませんか？

ぴかるさんのをそのまま置き換えて、こんな感じ。

Sub test()
　If WorksheetFunction.Count(Range("A1:A25")) > 0 Then
　　MsgBox WorksheetFunction.Max(Range("A1:A25"))
　End If
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8355 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free