Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3384 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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に入ってる「２０」を、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は
住所
東京都千代田区１−１
東京都千代田区１−２
東京都千代田区１−３
東京都中央区１−１
のように、もともと全角もあります。
全角にしたいデータは元が半角でないといけないのですか。
【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)というふうに直結しません。
すみません。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3384 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free