EXCELで

質問

EXCELでシート１のセルＡにあるカタカナの全角の文字をシート２のセルAにカタカナ半角で表示したいのですがどうすればいいのでしょうか？

回答No.4

Wendy02 · ベストアンサー

こんばんは。

たぶん、VBA以外は出来ないと思います。

コントロールツールのボタンをシートに貼り付けて、右クリック－コードの表示で以下を貼り付けます。

シート1に貼り付けることを前提とします。
'-------------------------------------------
Private Sub CommandButton1_Click()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Selection
　If VarType(c) = vbString Then
　　 Worksheets("Sheet2").Range(c.Address).Value = _
　　 TwoByte2OneKana(c.Value)
　End If
Next
Application.ScreenUpdating = True
End Sub
Private Function TwoByte2OneKana(TextValue As String, Optional Switch As Boolean = False)
'TwoByte2OneKana(文字列, [スイッチ: False 半角, True　全角])
Dim buf As String
　buf = StrConv(TextValue, vbKatakana)
　If Switch = False Then
　　buf = StrConv(buf, vbNarrow)
　End If
　TwoByte2OneKana = buf
End Function

回答No.3

imogasi

ユーザー関数を作ります。標準モジュールに
Function kata(a)
kata = StrConv(a, vbKatakana)
End Function
を貼り付けておきます。
Ｓｈｅｅｔ２のＡ１に
=ASC(kata(Sheet1!A1))
結果例
ああああ アアアア
アンシン アンシン
あんしんかん アンシンカン
ご安心ください ゴ安心クダサイ
テストを多数例やっていないので、よろしく。

回答No.2

noname#30830

こんにちは。
ASC関数を使えば、全角文字で半角文字にできるものは、半角文字で表示されます。
半角のまま固定したい場合は、コピー→形式を選択して貼り付け→値のオプションボタンを選択してＯＫをクリックすれば、文字列になります。

回答No.1

kamejiro

A1のセルなら
=ASC(Sheet1!A1)
でどうでしょうか。

補足

済みません。
間違えていました。
全角のひらがなを半角のカタカナにしたいです。
出来ればボタンを押したら表示されるみたいなのを
作りたいのですが・・・。