こんにちは。
さっそくですが、エクセル2000に書き込んだ「半角カタカナ」を
「全角ひらがな」にする方法はないでしょうか?
教えてください。
よろしくお願いいたします。

このQ&Aに関連する最新のQ&A

A 回答 (3件)

こんにちは



 以下の手順でいかがでしょうか?
 A1:A10に半角カタカナで入力されているとします。

1.A1:A10を選択
2.メニュー[書式]-[ふりがな]-[設定]
3.[ふりがな]タブで[ひらがな]を選択
4.[OK]ボタンをクリック
5.B1:B10を選択
→セルB1がアクティブでB1:B10を選択している状態
6. =PHONETIC(A1) をCtrl+Enter(Ctrlキーを押しながらEnter)

参考URL:http://www2.odn.ne.jp/excel/
    • good
    • 0
この回答へのお礼

ありがとうございました。
エクセルって奥が深いですね!!

お礼日時:2001/12/13 10:10

関数はなかったような気がします(多分)。

下記はユーザー定義関数ですが・・・

ツール→マクロ→Visual Vasic Editor でVBE画面に移り、挿入→標準モジュール で標準モジュールを挿入し、そこに下記コードを貼り付けます。
シートに戻り、例えば、A1の半角カタカナをひらがなにしたい場合は、

 =kata2Hira(A1)

とします。半角カタカナのみの文字を対象にしています。文字中に半角や全角の英数字がある場合、それも全角にします。文字中の半角カタカナのみを特定する場合は、もう少し長くなります。ご参考に。(Excel97です)


Public Function kata2Hira(moji As String)
  kata2Hira = StrConv(moji, vbHiragana + vbWide)
End Function
    • good
    • 0
この回答へのお礼

ありがとうございます。
半年ほど前から、全然違う部署から突然システムへ配置転換になって、苦しみ(?)もだえてます。これからも、よろしくお願いいたします。

お礼日時:2001/12/13 09:36

関数でよいのなら。



=JIS(全角かなにしたい文字が入ってるセル番地)
でできますよ。

ほかには「置換」で全部変えてしまうという手もあります。
    • good
    • 0
この回答へのお礼

灯台下暗し?????「置換」は気づきませんでした!

お礼日時:2001/12/13 10:48

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aと関連する良く見られている質問

Q半角カタカナを全角ひらがなにしたい

EXCEL2003です。
よろしくお願いします。

今c1~c200に半角のカタカナで人のふりがなが入っています。
これをC1~C200のところに全角ひらがなに直す方法は
ありますか。

どのようにしたらよいのか教えてよろしくお願いします。

全角ひらがなにする場所はD1~D200でも構いません。

Aベストアンサー

次の方法は如何でしょうか。
(1)C1:C200を選択→書式→ふりがな→設定→ふりがなにチェック→OK
(2)D1に=PHONETIC(C1)を設定→フィルハンドル(D1セル右下枠の■)をダブルクリック
(3)D1:D200を選択→コピー→C1を選択→形式を選択して貼り付け→値をチェック→OK
(4)D列を削除

Qエクセルでひらがな・漢字はそのままでカタカナを全角・英数字を半角にする方法

エクセル2000を使っています。

会社で住所録作成を引き継ぎましたが、
一つのセルにひらがな、漢字、カタカナ、英数字
が半角・全角ごちゃ混ぜで入っているので
管理がしづらくて困っています。
例えば、

あいうアジアNET株式会社
株式会社ABC123

などなど・・・・

ひらがな・漢字はそのままで、
カタカナを全角、英数字を半角にする方法は
ありませんか?
最初にASC関数を使ってみたらカタカナも半角になり、
Phonetic関数を使うと、
カタカナだけ全角になりましたが、
ひらがなまでカタカナになり・・・
JIS関数も試しましたが今度は英数字まで全角になり、
どうしたものかと困っております。

よろしくお願いします。

Aベストアンサー

No.2です。遅くなりました。修正コード、、というより別物ですがアップします。

実は、以前に類似した質問に回答したことがあります。(参考URL)
今回はBLUEPIXYのコードも参考にさせてもらい、その時のコードに手を加えました。
関数myStrFmtはワークシートでも使えますし、他のプロシージャーでも使えます。

どうでしょうか?

========== 次行からコード ==================================

'***************************************************************
' カタカナは全角化、英数字および記号を半角化するユーザー定義関数
' 引数:文字列 変換対象となる文字列を指定します
' 引数:数字  数字半角化オプション(省略可) 規定値:True
' 引数:記号  記号半角化オプション(省略可) 規定値:False
'***************************************************************
Function myStrFmt(文字列 As String, Optional 数字 As Boolean = True, Optional 記号 As Boolean = False)

  Dim ReplaceList As String
  Dim TargetStr As String
  Dim MAK As String, NUM As String, ALB As String
  Dim i As Long

  '半角化の対象とする文字を全角で定義
  MAK = "!#$%&'()*+-./:;<=>?@[¥]^_{|}。、,,"
  NUM = "01234567890"
  ALB = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  '置換リスト作成
  ReplaceList = NUM & ALB & StrConv(ALB, vbLowerCase)
  If 数字 Then ReplaceList = ReplaceList & NUM
  If 記号 Then ReplaceList = ReplaceList & MAK

  '全角化
  文字列 = StrConv(文字列, vbWide)
  '置換
  For i = 1 To Len(ReplaceList)
    TargetStr = Mid(ReplaceList, i, 1)
    文字列 = Replace(文字列, TargetStr, StrConv(TargetStr, vbNarrow))
  Next i
  myStrFmt = 文字列

End Function

'マクロで関数を使用するサンプル(セルを選択した状態で実行)
Sub サンプル()

  On Error Resume Next
  Dim rngCell As Range
  Application.ScreenUpdating = False
  For Each rngCell In Selection
    If rngCell.Value <> "" Then
      rngCell.Value = myStrFmt(rngCell.Value, True, False)
    End If
  Next rngCell
  Application.ScreenUpdating = True

End Sub

参考URL:http://oshiete1.goo.ne.jp/kotaeru.php3?q=1100627

No.2です。遅くなりました。修正コード、、というより別物ですがアップします。

実は、以前に類似した質問に回答したことがあります。(参考URL)
今回はBLUEPIXYのコードも参考にさせてもらい、その時のコードに手を加えました。
関数myStrFmtはワークシートでも使えますし、他のプロシージャーでも使えます。

どうでしょうか?

========== 次行からコード ==================================

'***************************************************************
' カタカナは全角化、英数字お...続きを読む

Qエクセルで全角ひらがなを半角カタカナにするには?

エクセルで全角ひらがなの「あいうえお」を半角カタカナの「アイウエオ」に変換するには,数式をどうすればよいですか?

Aベストアンサー

=ASC(PHONETIC(A1))
ではだめでしょうか^^

Q全角カタカナを半角カタカナへ

エクセルを使っています。

セルの中の全角カタカナの部分だけを半角カタカナへ
変えるにはどのようにしたらよいでしょうか。

例えば ”アイウエオ 青空 ” → ”アイウエオ 青空 "

複数のセルを上記のようにしたいので宜しくお願いします。

Aベストアンサー

 「アイウエオ 青空」が、b1セルにあるとします。=asc(b1)を任意のセルに入れると、ご質問のとおり、「アイウエオ 青空」(カタカナと空白が半角文字)と変換されます。
 例に挙げてあるように、空白文字を半角にしたいのでしたら、
=SUBSTITUTE(B2," "," ")←(最初の" "は全角、最後の" "は半角の空白)と入れると、「アイウエオ 青空」と、空白だけが半角に変換されます。
 変換したい文字列が、B列にずらりとあれば、列を挿入してそこに上記式を入力してコピーしておくと、一斉に揃えて変換できます。

Qエクセルで確定したひらがなをカタカナ半角にできますか?

Excel2000を使用しています。
今までひらがなで入力していた部分(氏名ふりがな)を、
半角カタカナにして欲しいと言われました。

データは500件くらいあるので、できれば手入力以外の
方法で変換したいのです。

エクセル初心者で申し訳ありませんがご教授くださいますようお願いします。

Aベストアンサー

下記などはどうでしょうか。

参考URL:http://www.officetanaka.net/excel/function/tips/tips17.htm,http://www.vector.co.jp/soft/win95/util/se253829.html


このカテゴリの人気Q&Aランキング

おすすめ情報