|
▼mitu さん:
こんばんは。
>1.半○作成のよい方法。
>2.氏名ごとの半○の数を数える方法をご教授願います。
円と半円とのサイズやバランスの調整が必要ですが、
新規ブックの標準モジュールに
'=====================================================
Sub test()
With Range("a1:f1")
.Value = Array(ChrW(&H25CB), ChrW(&H25D0), ChrW(&H25D1), ChrW(&H25D0), ChrW(&H25D1), ChrW(&H25D1))
.Cells(1).VerticalAlignment = xlCenter
.Cells(1).Font.Size = 11
.Range("b1:f1").Font.Size = 22
End With
With Range("a3:c3")
.Value = Array(ChrW(&H25CB), ChrW(&H25D0), ChrW(&H25D1))
.Cells(1, 1).VerticalAlignment = xlCenter
.Cells(1, 1).Font.Size = 11
.Range("b1:c1").Font.Size = 22
.Offset(1, 0).Formula = _
Array("=countif($a$1:$f$1,""" & ChrW(&H25CB) & """)", _
"=CountIf($a$1:$f$1,""" & ChrW(&H25D0) & """)", _
"=CountIf($a$1:$f$1,""" & ChrW(&H25D1) & """)")
End With
End Sub
を実行してみて下さい。
testを実行した結果を調べてみて下さい。
半円は、Unicodeだけなので工夫が必要です。
私には、これぐらいしか思いつきませんでした。
|
|