Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13453 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【5315】行の最小値 くみ 03/5/6(火) 16:26 質問
【5318】Re:行の最小値 Jaka 03/5/6(火) 17:43 回答
【5320】すみません。 Jaka 03/5/6(火) 17:51 回答
【5321】Re:行の最小値 ポンタ 03/5/6(火) 18:21 回答
【5334】Re:行の最小値 くみ 03/5/7(水) 11:04 質問
【5339】Re:行の最小値 ポンタ 03/5/7(水) 13:13 回答
【5349】Re:行の最小値 くみ 03/5/7(水) 16:47 お礼
【5315】行の最小値
質問  くみ  - 03/5/6(火) 16:26 -
引用なし
パスワード
   いつもお世話になります。

Ｇ行に数値が入っていてその中で一番小さい値のセルに色をつけたいのですが、
どのように式をかけばよいでしょう。

Ｇ行には毎日一行ずつ数値が入っていきます。

よろしくお願いします。
【5318】Re:行の最小値
回答  Jaka  - 03/5/6(火) 17:43 -
引用なし
パスワード
   こんにちは。

仕事が増えちゃったんで、簡単でごめんなさい。
これで最小値が解りますから、後はFindかなんかでループして、同じ値を検索して色を塗ってください。
後で、ちゃんとした回答がつくと思うけど．．．。

MsgBox Application.Match(Application.Min(Columns("G")), Columns("G"), 0)
【5320】すみません。
回答  Jaka  - 03/5/6(火) 17:51 -
引用なし
パスワード
   ごめんなさい。
あせっていたので．．．．。

>これで最小値が解りますから、
>MsgBox Application.Match(Application.Min(Columns("G")), Columns("G"), 0)
これは、最小値が入った最初のセルの行です。

これで最小値が解るのは、こっちです。
MsgBox Application.Min(Columns("G"))
【5321】Re:行の最小値
回答  ポンタ  - 03/5/6(火) 18:21 -
引用なし
パスワード
   マクロを組まなくても、条件付き書式で可能です。

1.G1をアクティブにする
2.メニューバーから"書式"→"条件付き書式"をクリックする
3.「数式が」「=(G1=MIN(G:G))」と設定する。
4."書式"を設定する
5.G1の書式のみをコピーする

お試しください。
【5334】Re:行の最小値
質問  くみ  - 03/5/7(水) 11:04 -
引用なし
パスワード
   JAKAさん：ポンタ さん：アリガトウございます。

ポンタさんの方法（条件付書式）でやってみたところ、
たとえば
-1,-0.5,-1.3,-2,-2.5,-1と数値が入っているとして、
-2のところで指定した”書式”になってしまいます。
【5339】Re:行の最小値
回答  ポンタ  - 03/5/7(水) 13:13 -
引用なし
パスワード
   こちらでテストすると -2.5 が最小値として認識されます。

http://www11.ocn.ne.jp/~ponta73/excelvba_01.html
にサンプルを置いておきましたので、
「回答」の001を見てみてください。
【5349】Re:行の最小値
お礼  くみ  - 03/5/7(水) 16:47 -
引用なし
パスワード
   ありがとうございます！

できました。私のミスでした。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13453 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free