2022.04.19 2023.03.11

［Excel］1分でできる！星取表で評価値を見やすくする方法

しんたろ。

今日の記事はこんな方にオススメ！

この記事はこんな方にオススメ！

数値表記での評価じゃなくてポップに評価させたい
星取表の手入力がめんどくさい
ExcelVBAで★の数を自動で出したい。

会社で社員を評価するときや、小学校などで先生が星取表を使っているみたいですね！

そんな方々に朗報です。

手入力しなくてよくなります。

これであなたの作業が効率化されることを考えたら・・・うれすぃ

さっそく本題に入りましょう。

この記事の目次

LINEでExcelを気軽に学べる
使う関数は「REPT関数」
さいごに
Contact

期間限定でChatGPT✖️Googleスプレットシートのコンテンツ配布中！

LINEでExcelを気軽に学べる

使う関数は「REPT関数」

ん？こんな関数あるん？と思いましたね？

これ、結構マイナーな関数だと思います。

使い方はこちら。

=REPT(文字列、繰り返し回数）

=REPT（”★”、５）→★★★★★が出力される。

この説明を見たらとてもシンプルだということが伝わりましたね。

星取り表 — 実際に使ってみるとこんな感じ。文字列に「”　”」を入れ忘れないように！

REPT — 実際に使ってみるとこんな感じ。文字列に「”　”」を入れ忘れないように！

値が多いときの対処方法は？

５段階評価、10段階評価だとそこまで問題ありませんが

100段階評価となると話は変わります。

なぜかって？

画面からはみ出てしまうから。笑

100段階評価をしたいときは、/１０などしてあげると見栄えが良くなります。

「COUNTIF関数」を使った進捗管理もできる。

いわゆる「ネスト」ですね。

COUNTIF関数とREPT関数を組み合わせてみましょう。

COUNTIFS — こんな感じのイメージです。「進捗状況」のところが勝手に更新されるようにします。

REPT関数の引数２番めにCOUNTIF関数を使って、「進捗」にある●と○の数を数えるようにすることでできます。

REPT関数の間にある【&】を使うことで、左右「文字列」を接続することができます。

ドロップダウン — あとは「データの入力規則」でドロップリストから丸を選んであげるようにすれば入力ミスを防げますね♪

▼データの入力規則とはなんぞや？という方に、下記詳細リンク貼っておきます↓
>>入力を《リスト化で選択式へ》複数連動と自動追加の方法

ExcelVBAを使ってボタン一つで「★」の管理もできる

ExcelVBAってなんぞや？と思った方。
簡単にいうと、マクロというもので「自動化」できます。

ExcelVBAについて詳しい記事を書いていますので、詳細を知りたい人は以下のリンクをクリックください。
>>ExcelVBAの解説を見る

実際に使用するコードはこちら。

Sub AddStars()
 
    Dim LastRow As Long
    Dim i As Integer
    Dim CellValue As Integer
    Dim Stars As String
 
    LastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
 
    For i = 1 To LastRow
        CellValue = Cells(i, 1).Value
 
        If CellValue >= 0 And CellValue <= 10 Then
            Stars = "★"
        ElseIf CellValue > 10 And CellValue <= 20 Then
            Stars = "★★"
        ElseIf CellValue > 20 And CellValue <= 30 Then
            Stars = "★★★"
        Else
            Stars = ""
        End If
 
        Cells(i, 2).Value = Stars
    Next i
 
End Sub

このマクロは、1列目の数字を読み取り、それに応じて2列目に「★」の数を挿入します。このマクロでは、数字の範囲に応じて「★」の数が異なるように設定されています。

数字に応じて「stas　＝　”★”」の数を変えると、星の数を変えることができますよ。

星取表は関数だけ使うのが無難かもしれません。
が、ExcelVBAでも作ることがわかると、作業効率化がグンっと上がりますよ♪