Excel VBA質問箱 IV

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

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


29509 / 76732 ←次へ | 前へ→

【52504】Re:Excel既存名簿から年齢別、所属別表を作る方法
発言  かみちゃん E-MAIL  - 07/11/15(木) 22:40 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>職位コードに応じ、氏名を次の色にしたい。
>00:黒、10:黒、20:ピンク、30:ブルー、40以上:こげ茶色
>なお、できれば氏名ではなく、その人のセルを色分けしたい

どういう結果を求めておられるのかわかりません。
以下のコードを追加することにより、Sheet1の職位コードの色分けはできます。
色分けのためには、Select Case 〜 を使います。

 Set LastCell = WS1.Cells(Rows.Count, 1).End(xlUp)

 WS1.Range("A2", LastCell).Font.ColorIndex = xlAutomatic
 For Each c In WS1.Range("A2", LastCell)
  Select Case c.Offset(, 4).Value
   Case "00"
    c.Font.ColorIndex = 1
   Case "10"
    c.Font.ColorIndex = 1
   Case "20"
    c.Font.ColorIndex = 7
   Case "30"
    c.Font.ColorIndex = 5
   Case Is >= "40"
    c.Font.ColorIndex = 53
  End Select
  lngRow = 0

0 hits

【50719】Excel既存名簿から年齢別、所属別表を作る方法 marai 07/8/12(日) 22:41 質問
【50720】Re:Excel既存名簿から年齢別、所属別表を作... かみちゃん 07/8/12(日) 22:48 発言
【50724】Re:Excel既存名簿から年齢別、所属別表を作... marai 07/8/12(日) 23:38 発言
【50733】Re:Excel既存名簿から年齢別、所属別表を作... かみちゃん 07/8/13(月) 11:35 発言
【50777】Re:Excel既存名簿から年齢別、所属別表を作... marai 07/8/15(水) 6:19 お礼
【52496】Re:Excel既存名簿から年齢別、所属別表を作... marai 07/11/15(木) 19:28 質問
【52504】Re:Excel既存名簿から年齢別、所属別表を作... かみちゃん 07/11/15(木) 22:40 発言
【52519】Re:Excel既存名簿から年齢別、所属別表を作... marai 07/11/16(金) 16:11 発言
【52525】Re:Excel既存名簿から年齢別、所属別表を作... かみちゃん 07/11/17(土) 1:30 発言
【52600】Re:Excel既存名簿から年齢別、所属別表を作... marai 07/11/21(水) 5:10 発言
【52899】Re:Excel既存名簿から年齢別、所属別表を作... かみちゃん 07/12/8(土) 14:53 発言
【52902】Re:Excel既存名簿から年齢別、所属別表を作... marai 07/12/8(土) 21:16 お礼

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