Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


3363 / 13644 ツリー ←次へ | 前へ→

【62697】全角=>半角に一括変換するには にしもり 09/8/25(火) 11:03 質問[未読]
【62699】Re:全角=>半角に一括変換するには kanabun 09/8/25(火) 11:18 発言[未読]
【62702】Re:全角=>半角に一括変換するには にしもり 09/8/25(火) 11:39 質問[未読]
【62704】Re:全角=>半角に一括変換するには kanabun 09/8/25(火) 12:01 発言[未読]
【62705】Re:全角=>半角に一括変換するには にしもり 09/8/25(火) 12:12 お礼[未読]

【62697】全角=>半角に一括変換するには
質問  にしもり  - 09/8/25(火) 11:03 -

引用なし
パスワード
   こんにちは。
或るファイルの或る列の値を全角=>半角にしたいです。
通常ASC関数を使うのは解るのですが、
数式を他のセルに置くのっでなく、たとえばE2に入ってる「20」を、E2にて「20」に置換したいのです。
たとえば

  Columns("E:E").Select

で範囲選択した後、一括で変換することはできますでしょうか。

なお1行目のみTitleでそこには漢字が入っています。
なにとぞご教示ください。よろしくお願いします。

(同様に、関数JISで、半角=>全角にしたい列もあります。)

【62699】Re:全角=>半角に一括変換するには
発言  kanabun  - 09/8/25(火) 11:18 -

引用なし
パスワード
   ▼にしもり さん:

>或るファイルの或る列の値を全角=>半角にしたいです。
>通常ASC関数を使うのは解るのですが、

>  Columns("E:E").Select
>で範囲選択した後、一括で変換することはできますでしょうか。

試してみて?
  With Columns("E:E")
   .Value = Application.Asc(.Cells)
  End With


>(同様に、関数JISで、半角=>全角にしたい列もあります。)
試してみて?
  With Columns("F:F")
   .Value = Application.Dbcs(.Cells)
  End With

【62702】Re:全角=>半角に一括変換するには
質問  にしもり  - 09/8/25(火) 11:39 -

引用なし
パスワード
   ▼kanabun さん:
有難うございます。
ですが、全部 #NUM!になってしまいました。
元の値はですが、

半角にしたい列Eは
冊数
1
1
2
1
のように、もともと半角になっているのもあります。
半角にしたいデータは元が全角でないといけないのですか。

全角にしたい列Fは
住所
東京都千代田区1−1
東京都千代田区1−2
東京都千代田区1−3
東京都中央区1−1
のように、もともと全角もあります。
全角にしたいデータは元が半角でないといけないのですか。

【62704】Re:全角=>半角に一括変換するには
発言  kanabun  - 09/8/25(火) 12:01 -

引用なし
パスワード
   ▼にしもり さん:

>ですが、全部 #NUM!になってしまいました。

申し訳ない m(__)m
範囲を限定して、実行してください

  With Range("E2", Range("E65536").End(xlUp))
   .Value = Application.Asc(.Cells)
  End With

  With Range("F2", Range("F65536").End(xlUp))
   .Value = Application.Dbcs(.Cells)
  End With

【62705】Re:全角=>半角に一括変換するには
お礼  にしもり  - 09/8/25(火) 12:12 -

引用なし
パスワード
   ▼kanabun さん:
とんでもございません。

できました。
ありがとうございました。
言われてみればそうかと判るのですが、 自分のやりたいことが、("E2", Range("E65536").End(xlUp)というふうに直結しません。
すみません。

3363 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free