エクセルでうまく数字がいきません。

07-12、08-12-15 などをそのままのカタチで表示するには、あらかじめ、その列を文字列属性にしておくべきでしょう。 ＞(7)(12)、(8)(12)(15)というふうに表示できたらなおいいのですが可能でしょうか？ 　　（○の中に数字というのを書きたかったのですがかっこになってしまいました…。） 下記で、貼り付けて日付属性になったセルを直接、丸付き数字に変換するようにしてみました。 07-12→(7)(12)、08-12-15→(8)(12)(15) と表示します。()は丸の意味です。 しかし21以上は丸付き数字がないので、[21]、[22]・・・・のように表示します。最高は32？ ツール→マクロ→Visual Basic Editor でVBE画面に移り、挿入→標準モジュール で標準モジュールを挿入します。出てきたコードウインドウに下記マクロをコピーして貼り付けます。 シートに戻り、変換したいセル範囲を選択し、ツール→マクロ→マクロでこのマクロを指定して実行します。 複数セルを選択して一括変化できます。変換できない文字（入力書式）があったら補足して下さい。 ここから ↓ Sub chgStringFormat() 　　Dim Rng As Range　　　　　'// セル 　　Dim wrk As String　　　　 '// ワーク変数 　　Dim wrk2 As String　　　　'// ワーク変数(結果) 　　Dim num As Integer　　　　'// 個々の数値 　　Dim pot As Integer　　　　'// 『-』の位置 　　 　　For Each Rng In Selection 　　　　'// 元の文字に戻す 　　　　wrk = "" 　　　　Select Case Rng.NumberFormatLocal 　　　　　　Case "m""月""d""日""" 　　　　　　　　wrk = Format(Rng.Text, "mm-dd") 　　　　　　Case "yyyy/m/d" 　　　　　　　　wrk = Format(Rng.Text, "yy-mm-dd") 　　　　　　Case Else 　　　　　　　　If InStr(Rng, "-") > 0 Then 　　　　　　　　　　wrk = Rng.Text 　　　　　　　　End If 　　　　End Select 　　　　If wrk <> "" Then 　　　　　　'// 丸付き数字に変える 　　　　　　wrk = wrk & "-": wrk2 = "": pot = InStr(wrk, "-") 　　　　　　While Len(wrk) > 0 　　　　　　　　num = (Val(Left(wrk, pot - 1)) Mod 100) 　　　　　　　　If num <= 20 Then 　　　　　　　　　　wrk2 = wrk2 & Chr(&H8740 + num - 1)　　'// 丸付き数値 　　　　　　　　Else 　　　　　　　　　　wrk2 = wrk2 & "[" & num & "]"　　　　 '// [数字] 　　　　　　　　End If 　　　　　　　　 　　　　　　　　'// 次の文字 　　　　　　　　wrk = Right(wrk, Len(wrk) - pot): pot = InStr(wrk, "-") 　　　　　　Wend 　　　　　　'// 書き込み 　　　　　　Rng = wrk2 　　　　　　Rng.NumberFormatLocal = "G/標準" 　　　　End If 　　Next End Sub