Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

29515 / 76738

←次へ　｜　前へ→


	【52504】Re:Excel既存名簿から年齢別、所属別表を作る方法

かみちゃん

- 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