[[20080609102645]]　『列の半角を全角に』（hayatama）　ページの最後に飛ぶ

『列の半角を全角に』（hayatama）

A列の中に全角文字と半角英数が混在しているものがあり、
英数だけを全角にしたいのですが、どなたか教えてください。

 単純に =jis()ではだめなのですか？

 (yo)

(yo)さん
一度に列の全角を半角にしたいのですがどうしたらよいでしょう？

(hayatama)

 おや・・・今度は全角→半角ですか?　質問内容が変わっていますね。
 全角の漢字やひらがなには半角はありませんので、無理なご注文かと思いますが?
 ASC関数ですか?　　　　(Hatch)

すみません。

半角を全角でした。
後、全角英数を半角にしたいのですが可能でしょうか。
よろしくお願いします。
(hayatama)

 1)=JIS(A1)と他の列に書き出して、コピーする。
 2)A1を選択して、形式を選択して貼り付けで「値」にチェックして実行する。
 3)数式で書きだした列を削除する。
 の手順でいかがですか?
 全角カタカナはそのままとかいうのでしたらVBAを探してください。
[[20080510150013]] とか[[20060521222112]]　あたりが参考になると思います。
 　　　(Hatch)

(Hatch)さん

何行かまとめておこなうにはどうしたらよいでしょうか？
素人なので詳しく教えて欲しいのですが。

１行は英数の全角に成功しました。

(hayatama)

 1)=JIS(A1)と他の列に書き出して、このセルの数式を下方向へコピーする。
 これは、フィルハンドルをドラッグすることで実行できます。
 出てきた部分のセルを選択して、編集→コピー　として、以下は2)以降の手順です。　
　　(Hatch)

有り難うございました。
全角英数を半角にする方法も教えてください。

よろしくお願いします。

(hayatama)

 JIS→ASC　でどうぞ。。。　(Hatch)

  選択範囲を一括で、ってことなら、

  With Selection
      .Value = Application.Asc(.Cells)  '--- 半角に
      '.Value = Application.Dbcs(.Cells) ' --- 全角に
  End With

  (kanabun)

皆様有り難うございます。

(kanabun)さん

もう少し詳しく教えて頂けますか。
よろしくお願いします。

(hayatama)

 > もう少し詳しく教えて頂けますか。

 上のコードはマクロコードです。
 VBEメニュ-から 標準モジュールを追加し、
 そこに

 Sub 全角to半角()
   With Selection
      .Value = Application.Asc(.Cells)  '--- 半角に
   End With
 End Sub

 をコピペしてください。
 対象シートのA列 変換したい範囲を選択しておいて 上のマクロを
 実行すれば、 選択範囲の値が全角に置き換えられます。
  (kanabun)

私は以下のサイトのコードを使っています。
http://hichon.cocolog-nifty.com/blog/2011/09/

内容
現在のワークシートの値が入力されている全てのセルについて、
半角変換可能な全角文字を全て半角に変換する。
ただし、半角カナ(0xA1-0xCF)については全角に変換する。
また、可能であればカナ文字と直後の濁点・半濁点が合成される。

ただ、StrConv(Str, vbNarrow)が実行時エラー'5'になるので、
Application.Asc(Str)を試してみます。
（竹田） 2014/02/08(土) 21:56

コメント返信：

[ 一覧(最新更新順) ]

[[20080609102645]] 『列の半角を全角に』（hayatama） ページの最後に飛ぶ

[[20080609102645]]　『列の半角を全角に』（hayatama）　ページの最後に飛ぶ