ＥＸＣＥＬなどで、入力されている文字のＦＯＮＴや全角か半角かなど分かる？

質問

以前に作成作成された、文章に使われているＦＯＮＴが何であるか、
またその文字は、全角なのか半角なのかなど、を1文字単位で、簡単に判断することは、できますか？
　時々、全角文字に、半角文字が、混ざっていて分かりにくいことが有るのですが、みなさんは、どうされてますか？　良いやり方が、あったら教えてください。

回答No.1

FEX2053 · ベストアンサー

=ASC(A1) とすると、全角文字を半角文字に
=JIS(A1) とすると、半角文字を全角文字に　変換できますよ。

=TRIM(A1) とすると、文字列中にある余分なブランクを削除できます

私は、データベースなどに登録する場合、一旦これら処理をかけてから
登録するようにしています。

お礼

有難うございます。　よくわかりました。

回答No.2

imogasi

>良いやり方が、あったら教えてください。
無いと思うよ。全てコンピュターのことだから、誰かがソフトを作らないと、できない。フリーソフトなど探す手しかない。それにしても課題全体がスモールなことなので、発表するまでのものでナイと考えるかも。
数式バー部で１字分範囲指定したときの、反転する幅で、半角、全角は判るようだが、見難い。
ーー
VBAが判るなら安直に
Sub test01()
a = Range("A1")
K = 1
For i = 1 To Len(a)
With Range("A1")
Cells(K, "C") = .Characters(Start:=i, Length:=1).Font.Name
Cells(K, "D") = .Characters(Start:=i, Length:=1).Font.Size
Cells(K, "E") = .Characters(Start:=i, Length:=1).Font.FontStyle
Cells(K, "F") = .Characters(Start:=i, Length:=1).Font.Italic
Cells(K, "G") = .Characters(Start:=i, Length:=1).Font.ColorIndex
s = Mid(a, i, 1)
If s = StrConv(s, vbWide) Then
Cells(K, "H") = "全角"
Else
Cells(K, "H") = "半角"
End If
K = K + 1
End With
Next i
End Sub
　－－
A1セルに
大阪市城東区1１ｓaB　＜ー回答では書体等表現できないが
私の例を実行すると
ＭＳ ゴシック 12 標準 FALSE -4105 全角
ＭＳ ゴシック 16 標準 FALSE -4105 全角
ＭＳ ゴシック 12 標準 FALSE -4105 全角
HG行書体 16 メディウム FALSE -4105 全角
HG行書体 12 メディウム FALSE -4105 全角
HG行書体 12 メディウム FALSE 46 全角
ＭＳ ゴシック 12 標準 FALSE -4105 半角
ＭＳ ゴシック 12 標準 FALSE -4105 全角
ＭＳ ゴシック 12 標準 FALSE -4105 全角
ＭＳ ゴシック 12 標準 FALSE -4105 半角
ＭＳ ゴシック 12 標準 FALSE -4105 半角
のようになった。
http://www.can-chan.com/vba/henkan.html
などの知識で改造すると、カタカナとかの判別も可能かと思う。