半角変換できない文字の削除
- 評価 -1
- クリップ 1
- VIEW 375
VBAで、あるセルの中に含まれた半角変換できない文字(◆、●等)を削除したいです。
特定の文字であれば
Range("A1:A100").Replace What:="◆", Replacement:="", LookAt:=xlPart
として出来ると思うのですが、「半角変換不可な文字」という条件で削除することは可能でしょうか。
ご存知の方、いらっしゃいましたらよろしくお願いします。
2019/6/17追記
上記のマクロを課題で作成する上で、「半角変換不可な文字」という指示しかもらっておらず、
細かな定義等は貰っていないのですが、半角変換不可な文字を削除する対象セルに入るのは、氏名と方書のため、
記号等以外という意味だと思われます。
-
気になる質問をクリップする
クリップした質問は、後からいつでもマイページで確認できます。
またクリップした質問に回答があった際、通知やメールを受け取ることができます。
クリップを取り消します
-
良い質問の評価を上げる
以下のような質問は評価を上げましょう
- 質問内容が明確
- 自分も答えを知りたい
- 質問者以外のユーザにも役立つ
評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。
質問の評価を上げたことを取り消します
-
評価を下げられる数の上限に達しました
評価を下げることができません
- 1日5回まで評価を下げられます
- 1日に1ユーザに対して2回まで評価を下げられます
質問の評価を下げる
teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。
- プログラミングに関係のない質問
- やってほしいことだけを記載した丸投げの質問
- 問題・課題が含まれていない質問
- 意図的に内容が抹消された質問
- 広告と受け取られるような投稿
評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。
質問の評価を下げたことを取り消します
この機能は開放されていません
評価を下げる条件を満たしてません
質問の評価を下げる機能の利用条件
この機能を利用するためには、以下の事項を行う必要があります。
- 質問回答など一定の行動
- メールアドレスの認証
メールアドレスの認証
- 質問評価に関するヘルプページの閲覧
質問評価に関するヘルプページの閲覧
+4
上の質問に対するコメントで書きましたように、なぜ、「半角変換不可な文字」の定義を明確にしてもらえないと誰も答えられないかを書いておきます。回答ではないですが、回答欄でないと画像が貼れないのでご了承ください。
IME パッドが使えたら開いて見てください。以下の画像は Unicode の文字を表示したものです。そこには半角とか全角とかの区別はありません。
以下の画像は Shift_JIS の文字を表示したものです。それには「半角」という文字が存在します。なので、例えば（あくまで例えばです・・・質問者さんのケースは違うと思います）、「半角変換できない文字」=>「Shift_JIS の 1 バイト文字以外」と言ってもらえると話が分かりやすいです。
でも、質問者さんのケースではそういう話ではなく、「(◆、●等)を削除したい」というのは、「Shift_JIS の 1 バイト文字以外」というように一くくりにはできなくて、特定の文字を言うのでは？ であれば、具体的に、その特定の文字は何なのかを明確にしてもらう必要があります。
投稿
- ASP.NET総合1位
-
回答の評価を上げる
以下のような回答は評価を上げましょう
- 正しい回答
- わかりやすい回答
- ためになる回答
評価が高い回答ほどページの上位に表示されます。
-
回答の評価を下げる
下記のような回答は推奨されていません。
- 間違っている回答
- 質問の回答になっていない投稿
- スパムや攻撃的な表現を用いた投稿
評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。
-
ありがとうございます。
相談の上、半角変換後にLenとLenBが一致しないものを削除していく方針になりましたが
大変勉強になりました。 -
それで本当に解決できているか確認したのですか。もし、それで解決できたのなら、その方法（コード）を「自己解決」として回答してください。
+3
「半角変換不可な文字」
ということなら、
StrConv(文字, vbNarrow)
で半角変換しますので、それで変換されなかったら、
「半角変換不可な文字」と判断できます。
しかし、
半角変換不可な文字を削除する対象セルに入るのは、氏名と方書のため、
記号等以外という意味だ
氏名とかだと漢字やひらがなは容認するということですよね。
単純に「半角変換不可な文字」ということでではないですね。
全角の記号とした場合、
セルにはUnicodeにある文字はすべて入力できますので、英語、日本語だけでなく世界中の言語の文字が入力できます。
SurferOnWwwさんの回答のIMEパッドの画像を見てもらえれば分かると思います。
通貨記号とか数学記号などの特殊な記号も入力できます。
これらのうち、どれを許可して、どれが削除対象なのでしょうか。
現実問題としてUnicodeにある膨大な文字のの中から、どれを許可して、どれが削除対象かを定義するのは不可能でしょう。
依頼者に削除対象になる文字の一覧をだしてもらうのが現実的な解決策かとおもいます。
投稿
score 3586
-
回答の評価を上げる
以下のような回答は評価を上げましょう
- 正しい回答
- わかりやすい回答
- ためになる回答
評価が高い回答ほどページの上位に表示されます。
-
回答の評価を下げる
下記のような回答は推奨されていません。
- 間違っている回答
- 質問の回答になっていない投稿
- スパムや攻撃的な表現を用いた投稿
評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。
+1
投稿
- C#総合1位
-
回答の評価を上げる
以下のような回答は評価を上げましょう
- 正しい回答
- わかりやすい回答
- ためになる回答
評価が高い回答ほどページの上位に表示されます。
-
回答の評価を下げる
下記のような回答は推奨されていません。
- 間違っている回答
- 質問の回答になっていない投稿
- スパムや攻撃的な表現を用いた投稿
評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。
-
藪からスティックですね~実に✨(⁼̴̀ૢ꒳⁼̴́ૢ๑)💡✨✨ - 荒らさないでください。迷惑です。
- こちらこそです。あなたが僕の回答のコメント欄で行なっていた事を、やり返したまでです。
あなたが何にそんなにイラついているのか・ただの暇人なのは知りません。人の回答に侮辱的、フザけた、無意味なコメントを連発するのはやめて下さい。僕だけでなく、スレッドに参加した皆に通知が行き、非常に迷惑です。
「された事ないから分からない」「自分さえ気持ち良ければそれで良い」「他の相手の事を想像できない」おバカさんだろうと行動から推察し、折り返したまでです。 - 「同意できない」と思う回答もあるでしょう。間違っている回答もあるでしょう。ですが、だからといって礼を欠いたり、ふざけたり、馬鹿にして良いはずがありません。そんなルールはテラテイルに規定すらされていません。個々人が交易する上での最低限のマナーだからです。テラテイルのルールを守りつつ最低限の礼儀作法で指摘すれば良いだけの事です。礼儀を欠いたり罵倒したりする必要は全くありません。もしそれが出来ないのなら、コミュニティに参加するべきではないと思います。はっきり言って迷惑です。
特に今回の私の様な場合は私自ら「低評価且つ、間違いがある場合にコメントを下さい」と言いました。しかし、それ以外は求めていません。 - あなたの場合は、「違うと思う(、だから**気にくわない**)」→侮辱的な言動、と感情が前に出すぎているのです。客観的にコメント頂ければ、私もこういう愚かな行為はしません。何の誰のためにもならないからです。周りが不快だからです。そして、自分が少しスッキリするだけだからです。
さぁ私もスッキリしました。以後ここにコメントも回答も嫌がらせも一切しません。ですが、もし、あなたが今後同じような言動を私に対して行うのであれば、この限りではありません。以上失礼致しました。 - ハウス。
- 理解してから発言して原始人さん
https://www.ecma-international.org/ecma-262/9.0/index.html#sec-
lexical-environments
そういうことしてるから嫌われるねん - 低評価入れられた腹いせに無関係のところで迷惑かけるんじゃない。
ハウス。 - おっさんと遊んでる暇ないねんw
- はいはい。暇がないんでしょ。ハウス。
- こっちでなら相手しますよw
では、何と翻訳したら良いですか?
代案をあちらで提示して下さい。 - 暇そうだな。
- これはご丁寧にどうも、ゴリラさん。リンク張れるんですね、えらいえらい笑
- はじめにも書いていますが、低評価されたからの腹いせではありません。
> 以後ここにコメントも回答も嫌がらせも一切しません。ですが、もし、あなたが今後同じような言動を私に対して行うのであれば、この限りではありません。以上失礼致しました
と書いているのに、ご丁寧にも、荒らしていただいたからです。ハウス - 少なくとも、こちらに書くのは、他の関係のない方に通知が行くのを防ぐためであり、隠したいからではありません。残念でした、低知能さん。
- このように、非生産的な回答を、脊髄反射で思慮することなく書くと、通知がアホみたいに来て非常に迷惑になります。分かりましたか? 僕だけでなく、無関係なスレッドに参加した人にもです。
- 代案はよ
-
- どうぞお好きにお使い下さい 先にやられたので、他の方に迷惑にならないよう極力注意し、やり返したまでです。「やる方は止められるまで自由に振る舞い、やられた方はやり返してはいけない」では不平等ですものね。
- 後、自分がしている事を理解もできないようなので
- 一度チャンスあげたのに…。。
checkベストアンサー
-7
VBAにはLenとLenBという関数があります。その方法を使って一文字つづ判定するしかないと思います。
ようは自作しろ。ってことですね。
For i = 1 To Len(str)
a = Mid(str, i, 1)
If Len(a) = LenB(a) Then
//OK
Else
//NG
i = i + 1
Endif
Next i
-
回答の評価を上げる
以下のような回答は評価を上げましょう
- 正しい回答
- わかりやすい回答
- ためになる回答
評価が高い回答ほどページの上位に表示されます。
-
回答の評価を下げる
下記のような回答は推奨されていません。
- 間違っている回答
- 質問の回答になっていない投稿
- スパムや攻撃的な表現を用いた投稿
評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。
- VBAの文字列はUNICODEなので、LenB は(シフトJISの)半角文字でも 2 が返ります。
シフトJISでの半角文字を判断するには、StrConv でシフトJISに変換する必要があります。
?LenB("A")
2
?LenB(StrConv("A", vbFromUnicode))
1
もっとも質問は、半角文字のみ許可するということではなさそうですが。 - 今回はこの方法で解決することにしました。
ありがとうございます。 - この方法だとすべて削除対象(NG)となりますよ。私の上のコメントや他の方の回答の内容をちゃんと読んでくださいよ。
Len(a)はすべて1が返り、LenB(a)はすべて2が返るので、Len(a) = LenB(a) となることはありえない。 - この方法で解決できるかどうかすぐに確かめて、できなければベストアンサーを外した方がいいですね。時間が経つと変更できなくなるようです。
「氏名や肩書きに使える文字」=「半角に変換できる文字」というのが意味不明なので、何が解決なのかもよくわかりませんが。 - 回答の引用先を読んでみましたが、しっかり書いてありますね。
> Excel 97以降、Excelでは文字をUnicodeで管理しています。Unicodeは、すべての文字を2バイトで表しますので、半角文字であってもバイト数は2バイトになります。そういう意味では、ワークシート関数の結果は間違っているのですが、これは旧バージョンと互換性を保つための仕様です。
つまり、Excel97 以降、マクロとワークシート関数では結果が異なり、ワークシート関数の場合はこれで全角半角を判定できるが、マクロの場合はできないということです。質問は明らかにマクロなので、これでは判定できません。
質問の意図はいまだ不明ですが、この回答は引用先と照らし合わせても間違っているので低評価しました。 - 更に言うなら
> すべての文字を2バイトで
ここは引用先の間違いです。4 バイトになる文字もあります。可能な限り公式情報を当たるよう心掛けなければいけません。 - Len(a) = LenB(a)
をそのまま使うのではなく、StrConvで一度SJISに変換してから使用しています。
その方法で解決できそうだった為、ベストアンサーに選ばせていただきました。
今回は半角カナでフリガナをふる下準備としてこのような処理が必要だったのですが、
社内で使用するツールの為、一旦この方法で運用することになりました。
この方法で対処しきれない文字が現れた場合はまた別途考慮しようと思います。
ありがとうございました。 - StrConvで半角に変換できるので二度手間ですね。
- 半角変換できない文字の削除が目的で、半角カナが欲しいわけではな無かったので
一度シフトJISに変換（Len(a) = LenB(a)を使う為）したのですが、半角に変換した方がよかったのでしょうか。
UNICODEだと半角でも2が返ってくるので、StrConvで半角変換してもLen(a) = LenB(a)の方法は使えないかなと思っていたのですが。 - 色々と突っ込むところはありますが、そもそもの仕様が意味不明なのでもうやめときます。
- 自分の質問に自分で回答できるので、OKになったコードを回答して、自己解決ということで、変更できるならそれをベストアンサーにした方が後々見た人にとって有用な情報になるでしょう。現状のままだと、不正確な情報として残ってしまいますので。
あと、結局、仕様が不明確なので、どのようなデータに対して、どのような文字を削除するのか明確になるように質問も変更すべきですね。
15分調べてもわからないことは、teratailで質問しよう！
- ただいまの回答率 90.46%
- 質問をまとめることで、思考を整理して素早く解決
- テンプレート機能で、簡単に質問をまとめられる
質問への追記・修正、ベストアンサー選択の依頼
SurferOnWww
2019/06/17 08:52 編集
質問者さんの言う「半角変換不可な文字」の定義を明確にしてもらえないと誰も答えられないと思いますが。
myut.dev3310
2019/06/17 09:01
申し訳ありません。
情報を追記しました。
SurferOnWww
2019/06/17 09:51
> 「半角変換不可な文字」という指示しかもらっておらず
では、その指示を出した方に明確にしてもらってください。
なぜ、「半角変換不可な文字」の定義を明確にしてもらえないと誰も答えられないかを回答欄に書いておきます。回答ではないですが、回答欄でないと画像が貼れないのでご了承ください。