Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1398 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【74721】最大値を太文字にしたい ﾄｷﾉﾊｼﾞﾒ 13/9/3(火) 17:05 質問[未読]
【74722】Re:最大値を太文字にしたい Blue 13/9/3(火) 17:57 回答[未読]
【74723】Re:最大値を太文字にしたい Blue 13/9/3(火) 17:59 発言[未読]
【74724】Re:最大値を太文字にしたい kanabun 13/9/3(火) 18:50 発言[未読]
【74725】Re:最大値を太文字にしたい kanabun 13/9/3(火) 20:21 発言[未読]
【74721】最大値を太文字にしたい
質問  ﾄｷﾉﾊｼﾞﾒ  - 13/9/3(火) 17:05 -
引用なし
パスワード
   いつもお世話になります。
ひとつ教えてください。

　　 A　 B　 C　 D
1　 55　85　69　38
2　 80　60　72　50
3　 30　45　81　45

上記の表でA、B、C、D 各列の３っの中で一番大きい数字を太文字で表したいのですがなにを使えばよいのかご教授お願いいたします。
【74722】Re:最大値を太文字にしたい
回答  Blue  - 13/9/3(火) 17:57 -
引用なし
パスワード
   条件付き書式じゃだめですかね？

ｈｔｔp://excel-mania.com/basic2/step8.html
を参考にして
数式欄に入れる式を「=A1=MAX(A$1:A$3)」にして
書式を太字にすればできますよ。
【74723】Re:最大値を太文字にしたい
発言  Blue  - 13/9/3(火) 17:59 -
引用なし
パスワード
   というか列バージョンもあったorz
ｈｔｔp://excel-mania.com/basic2/step9.html
【74724】Re:最大値を太文字にしたい
発言  kanabun  - 13/9/3(火) 18:50 -
引用なし
パスワード
   ▼ﾄｷﾉﾊｼﾞﾒ さん：

>上記の表でA、B、C、D 各列の３っの中で一番大きい数字を太文字で表したいのです

たぶん条件付き書式が正解かと思いますが、
Max と Match ワークシート関数を使った方法です

Sub Try1()
　　Dim r As Range
　　Dim c As Range
　　Dim m As Long
　
　　Set r = Range("A1").Resize(3, 4)
　　r.Font.Bold = False
　　For Each c In r.Rows(1).Cells
　　　　Set r = c.Resize(3)
　　　　With WorksheetFunction
　　　　　　m = .Match(.Max(r), r, 0)
　　　　　　r(m).Font.Bold = True
　　　　End With
　　Next
　　　　
End Sub
【74725】Re:最大値を太文字にしたい
発言  kanabun  - 13/9/3(火) 20:21 -
引用なし
パスワード
   Loopのしかたをちょっと修正

Sub Try2()
　　Dim r As Range
　　Dim c As Range
　　Dim m As Long
　
　　Set r = Range("A1").Resize(3, 4)
　　r.Font.Bold = False
　　For Each c In r.Columns　　　 '列でLoop
　　　　With WorksheetFunction
　　　　　　m = .Match(.Max(c), c, 0)
　　　　　　c.Cells(m).Font.Bold = True
　　　　End With
　　Next
　　　　
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1398 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free