ベストアンサー

Excelマクロ

2002/03/19 17:49

Excelマクロで半角カナか全角文字かの判定をしたいのですがちょっと教えていただけるとうれしいです

jk_beck
お礼率42% (27/64)

その他(ソフトウェア)
回答数1
ありがとう数0

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

noname#1505

2002/03/19 18:59 回答No.1

mid()で文字列を一文字づつ取り出し、Asc()の戻り値で判定。 161～223（10進数）なら半角カナです。

関連するQ&A

エクセル2003でセル内の文字のうち、半角カナ文字だけを全角かなに変換

エクセル2003でセル内の文字のうち、半角カナ文字だけを全角かなに変換する方法数字や英文字は半角のまま残して、読みにくい半角カナだけを全角かなに変える方法はあるでしょうか? JIS（）ですと、すべての文字が全角に変わってしまいます。詳しい方、どうかよろしくお願い致します。
EXCEL 関数

全角カナ文字を半角英数に変換したい。例えば、＜キタノ＞⇒＜kitano＞。全角カナ文字を半角カナ文字に変換するのではなく、半角英数に変換したいのです。宜しくお願いします。
エクセルで英数のみを半角に変換するマクロ

エクセル２００３を使っていますエクセルで英数のみを半角に変換するマクロの作り方を教えてください。予め複数のセルを選択しておいて、それらに含まれる文字列の英数のみを半角に（カタカナは全角のまま）変換したいのです。以前他のサイトで同様の機能のユーザー関数の作り方は見つけたのですが、マクロにする方法がわかりません。よろしくお願いします。
マクロで全角を一括で半角に置換したいです

マクロで下記の作業を行いたいのですがよくわかりません。アドバイスお願いします。 ■作業内容『Excelでsheetにある全角の文字を一括で半角に置換したい』 ※基本的に半角にできるもの（カナ・英数字・記号）は全て半角にしたいのですが、『～』だけは半角にしたくありません。 ■画面のイメージ・sheet1にはマクロを組み込んだボタン画面・sheet2に全角のデータＡ・sheet3にデータＡを半角にしたデータＡ’が返される ■作業イメージ (1)sheet1のボタンをクリック (2)sheet2のデータを半角にしてsheet3に返す (3)『~』を『～』に置換し直す。すみませんがよろしくお願いいたします。
エクセルについて

エクセルで半角英数字と半角カナが混在したセルの半角カナのみ全角に変換したいのですが可能でしょうか。英数字は半角を維持したいです。 =JIS()でやるとどうもアルファベットや数字まで全角になってしまうようで…
エクセルで英数字を半角にするマクロ

すでにデータが入力されたエクセルで、全角の英数字を半角にするマクロを探しています。条件があり、なかなか合う物がなく、質問させて頂きました。条件は・アルファベット→半角・数字→半角・カタカナ→全角・伸ばし棒（例えば「データ」の「ー」）→全角・同一セルに上書きで変換下の2点はできたら半角になると嬉しいです。・ナカグロ→半角・＜＞→半角よろしくお願い致します。
エクセルの文字列置換について

エクセルにて、全角カナ文字を半角カナ文字に変換したいのですがどうすればいいでしょうか。前："ケラ　ムリ" 後："ケラムリ" よろしくお願いいたします。
エクセルの文字列置換について（訂正版）

エクセルのVBAにて、全角カナ文字を半角カナ文字に変換したいのですがどうすればいいでしょうか。シートを使用すればASC関数で出来るのですが。よろしくお願いいたします。
Excelのマクロでのかな変換

エクセルでかな変換ができるマクロはつくれますか？ 3台あるPCのうち1台がIBMのため、よく「半角/全角」ボタンの押し間違いをします（IBMでは通常キーボードの「半角/全角」ボタン位置に「F1」ボタンがあるため）。だれかおしえてください！
エクセル_関数_半角カナを全角にしたいのですが。

お尋ねします。半角カナを全角カナに変換しようと、エクセル関数のJISを使いました。ところが、１つのセルに２５５文字までなら正常に変換ができるのですが、２５６文字以上になると、＃VALUEでエラーとなります。昔のバージョンが低いエクセルでは、１つのセルに２５５文字までしか入らなかった記憶があるのですが、エクセル２００７では、一つのセルに２５５文字以上登録しているセルもあり、文字が途中で切れているようには見えません。関数LENを使って調べてみますと、３００文字入ったセルもあります。しかし、その３００文字入ったセルを関数の引数とした場合に上記のようなエラーになってしまいます。「２５５文字以上のセルは分割してすればいいじゃないか」とのお声もあるかとともいますが、分割はせずに半角カナの入ったセルを全角カナに置き換えることはできないでしょうか。よろしくお願いします。
エクセルでのマクロを使った特殊な文字分け

エクセルのマクロを使った処理について、初心者の小生にご教授ください。今A列に文字列（半角全角混在）が入力されています。この文字列の左から20文字までを同行のB列のセルに、21文字から40文字までを同行のC列のセルに、残りを同行のD列のセルに分割してコピーするマクロを作りたいと思っています。しかし、文字数のカウントの仕方が特殊で悩んでいます。カウントのルールは 1．半角は1文字、全角は2文字としてカウントする。 2．全角の場合はその文字の前と後ろに半角の『"』を入力し、それ自体も1文字としてカウントする。 3．全角が2個以上連続する場合は、その塊の前と後に『"』を入れる。（例:文字列が『あい』だとしたら、『"あ""い"』ではなく『"あい"』なるため、8文字ではなく6文字とカウントする。）というルールです。文字を分けるときに、分ける境目に文字が来てしまう場合（たとえば全角が20文字目と21文字目となる場合）は、右のセルに入力しなくてはいけません。また、全角の前後にある『"』は全角とひとくくりとして考えるため、分けることはできません。（例:B列の最後が『あ』となって、C列の最初の文字が、その全角の後ろの『"』となることはできない。）というややこしいルールとなっています。文字列を左から順に確認していき、パターンで条件分けする方法も考えたのですが、処理が膨大になってしまい、こんがらがってしまいました。何かすっきりとした解決方法はないものでしょうか。ややこしい条件で分かりにくくで申し訳ございませんが、お知恵をお借りしたいと思います。よろしくお願いいたします。
半角カナは全角カナに、全角英数字は半角英数字に、一気に置換したい

「半角カナは全角カナに、全角英数字は半角英数字に、一気に置換したい」と考えた時、同じ様な質問とそれに対する回答は沢山有るのですが、意外に満足出来るやり方が見つからず、大変困っています。大きな制約条件（これが難題...）として、会社が管理するWindows機なので、使って良いのはWordとExcelだけだという問題が有ります（便利なユーティリティーソフトを見つけても、インストール出来ない）。WordとExcelのマクロは、辛うじて、使用可です。 WWWでWordでのマクロの作例を探し当て、これは良いかなと思ったら、小文字の全角英数字が全部大文字の半角英数字になってしまい、これは駄目でした。また、Wordの「文字種の変換」を試用してみると、「半角」を指定してテキスト全体を選択して変換した場合、全角英数字が半角英数字になるのは良いのですが、全角カナが半角カナになってしまい、これも非常に不都合でした。尚、主なターゲットは、ワークシートとかではなくて長文のテキストなので、色々な回答例で「Excelの関数を使えば良い」と書かれている説明を読むと、ちょっと不便だなと感じました。 Wordでのマクロで、完璧なものが有れば、OKなのだと思うのですが、自分には未だそれを作る能力が有りません（これを機に、勉強したいと思っています）。良い解決策や、マクロが有れば、是非お教え下さい。
エクセル：半角カナを全角に、半角英数はそのままに。

エクセル：半角カナを全角に、半角英数はそのままに。ひらがな・漢字・半角カナ・半角英数が混じったセルが縦に沢山あります。半角カナだけを全角にし、半角英数はそのままにしたいのですが、JISでは全て全角になってしまいます。どなたか良い関数を教えてください。
エクセル上で英数のみを半角するにはどうしたらいいでしょうか？

エクセル上で、英数のみを全角から半角にするソフトはあるでしょうか？英数・カナ・記号・スペースまで一括に半角にするものや、英数でも日本文の中の英数１文字は半角にしないものなどは見つけることができたのですが、英数だけをすべて半角にするものは見つけられません。何かいいものがありましたら教えてください。
Excelでバイト数の最大数が決まったデータを作りたいんです！

上手く説明出来ないんですが・・。エクセルで、項目それぞれにバイト数の最大数が決まったデータを作りたいんです。例えば ◆職員番号・・・バイト数１２（半角）　　　　　　　　職員番号は8桁なので、その後ろに残り12バイトまでの半角パディング。 ◆氏名　・・・　バイト数１６（全角8字まで）　　　　　　　　全角8文字以内なら、その後ろに残り8文字までの全角パディング。　　　　　　　　全角8文字を超す氏名なら、8文字で切る。 ◆カナ　・・・　バイト数５８（半角）　　　　　　　　半角カナ文字で残りの58バイトまで半角パディング。＊これをｃｓｖに変換します！これを文字列だけ打ち込んだら、自動で最大バイト数まで半角・全角を埋めるようにすることは出来るでしょうか？また、氏名のところのように自動で8文字までの入力しか出来なくするようにすることは出来るでしょうか？説明が下手で申し訳ないんですが、おわかりになる方ご教授下さい。よろしくお願いします！！
eval 半角カナが文字化けする

初めて投稿させていただきます。半角カナが混ざっている文字列をevalすると、文字化けする場合があります。どうすれば文字化けしないようになりますか？ちなみに全ての半角カナを全角カナに置換してevalを行いその後、半角カナに戻すということをやったのですが、もともと全角カナ文字まで半角カナに変換されてしまいました。できれば全角カナは全角カナ、半角カナは半角カナのまま文字化けせずにevalする方法を教えてください。
マクロを使って~⇒～に置き換えたいのですが・・・

Excelシート上に　~（半角：ティルデ）が入力されていたら、～（全角：波形）に置き換えるというマクロを作成したいのです。Replaceを使ってみたのですが、駄目でした…どなたかご存知でしょうか？
エクセルで半角文字に色を付けるVBA

エクセルで半角文字を全角に変換しつつ、変換した文字には色を付けるマクロを考えています。半角→全角の変換はこの記述でできましたが、 myTEXT = StrConv(myTEXT, vbWide) 変換した文字（変換後の文字）に色を付ける、というのが分かりません・・・。そのような記述は可能でしょうか？お時間あるときにでもご教授いただけると助かります。
エクセル　全角から半角に変換　マクロ

エクセルでシートの上すべてのカタカナ、ひらがな、漢字、スペースを全角から半角に変換するマクロを教えてください。アルファベットは残したいです。
Excelで検索マクロを作りたい

Excelで検索マクロを作るのに Sub test01() Application.Dialogs(xlDialogFormulaFind).Show End Sub を記述しましたが検索画面で「半角と全角を区別する」にチェックが入ってしまっていますが、チェックがない状態で立ち上げるにはどうしたら良いでしょうか？

Excelマクロ

質問者が選んだベストアンサー

関連するQ&A

エクセル2003でセル内の文字のうち、半角カナ文字だけを全角かなに変換

EXCEL 関数

エクセルで英数のみを半角に変換するマクロ

マクロで全角を一括で半角に置換したいです

エクセルについて

エクセルで英数字を半角にするマクロ

エクセルの文字列置換について

エクセルの文字列置換について（訂正版）

Excelのマクロでのかな変換

エクセル_関数_半角カナを全角にしたいのですが。

エクセルでのマクロを使った特殊な文字分け

半角カナは全角カナに、全角英数字は半角英数字に、一気に置換したい

エクセル：半角カナを全角に、半角英数はそのままに。

エクセル上で英数のみを半角するにはどうしたらいいでしょうか？

Excelでバイト数の最大数が決まったデータを作りたいんです！

eval 半角カナが文字化けする

マクロを使って~⇒～に置き換えたいのですが・・・

エクセルで半角文字に色を付けるVBA

エクセル　全角から半角に変換　マクロ

Excelで検索マクロを作りたい

注目のQ&A

カテゴリ
一覧

専門家に質問してみよう
専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

Excelマクロ

質問者が選んだベストアンサー

関連するQ&A

エクセル2003でセル内の文字のうち、半角カナ文字だけを全角かなに変換

EXCEL 関数

エクセルで英数のみを半角に変換するマクロ

マクロで全角を一括で半角に置換したいです

エクセルについて

エクセルで英数字を半角にするマクロ

エクセルの文字列置換について

エクセルの文字列置換について（訂正版）

Excelのマクロでのかな変換

エクセル_関数_半角カナを全角にしたいのですが。

エクセルでのマクロを使った特殊な文字分け

半角カナは全角カナに、全角英数字は半角英数字に、一気に置換したい

エクセル：半角カナを全角に、半角英数はそのままに。

エクセル上で英数のみを半角するにはどうしたらいいでしょうか？

Excelでバイト数の最大数が決まったデータを作りたいんです！

eval 半角カナが文字化けする

マクロを使って~⇒～に置き換えたいのですが・・・

エクセルで半角文字に色を付けるVBA

エクセル 全角から半角に変換 マクロ

Excelで検索マクロを作りたい

注目のQ&A

カテゴリ 一覧

専門家に質問してみよう 専門家登録

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

エクセル　全角から半角に変換　マクロ

カテゴリ
一覧

専門家に質問してみよう
専門家登録