No.8ベストアンサー
- 回答日時:
再び#3です。
If Range("IV2").Value < 12321 _
Or Range("IV2").Value > 20307 Then '第一水準外だったら
の部分を
If Range("IV2").Value > 20307 Then '第一水準より大きい場合
に書き換えて下さい。
そうですよね、「ひらがな」とかもはじいていましたね。失礼しました。
文字コードは、
(1)半角文字 (! 33)
(2)記号・英数字 (、 8482)
(3)ひらがな・カタカナ(ぁ 9249)
(4)ギリシャ文字 (Α 9761)
(5)ロシア文字 (А 10017)
(6)特殊文字 (─ 10273)
(7)第一水準 (亜 12321)
(8)第二水準 (弌 20513)
(9)外字 ( 32545)
の順番で振られているようです。
( )内は、先頭の文字とCODE関数での文字コードです。
No.6
- 回答日時:
一番汎用的と思われる方法は、
(1)ALT + F11 とすると、コードの画面(VBE) になります。
(2)左にある ThisWorkbook をダブルクリックします。
(3)右の真っ白なところに、#3 や #4さんのコードを
貼り付けます。
(4)コードの画面(VBE)は、×で閉じて構いません。
(5)ALT + F8 とすると、マクロの一覧が出てきますので、
選択して、[実行]をクリックするとマクロが実行されます。
引っかかるところがありましたら、再度書き込んで下さい。ではでは。
できたぁぁ!わざわざすみません(>_<)
ちなみに、漢字以外の文字は対象外ということは可能なのでしょうか???ひらがなとか数字まじりのデータの場合は使えませんよね(^_^;)
No.5
- 回答日時:
#3 です。
すみません。今日何気なく実行してみたらExcel2003でも、問題なく実行できました。う~ん、何を勘違いしたのか、、失礼しました。
この回答への補足
ごめんなさい、ものすごい基本的なことを聞いてよいでしょうか…
私はエクセルのマクロは「新しいマクロの記録」とかでシート上で設定する方法しか知らないのを忘れていました(>_<)
教えてもらったスクリプトをどこに書いてどう実行すれば良いのか教えていただけますでしょうか?
申し訳ないです。
No.4
- 回答日時:
参考として
下記はシート1のA1からA10までのセルに入っている文字で第二水準が含まれている場合メッセージボックスをだします。
Private Sub CommandButton1_Click()
Dim StrTget, StrAll, StrLen, Moji
For i = 1 To 10
StrTget = Worksheets(1).Cells(i, 1).Value
StrAll = StrTget
StrLen = Len(StrAll)
For j = 1 To StrLen
Moji = Mid(StrAll, j, 1)
If Asc(Moji) >= -26465 Then
MsgBox "第二水準" & Chr(13) & Moji
End If
Next j
Next i
End Sub
この回答への補足
N0.6で教えてもらった方法で貼り付けて動かしてみたのですが、ちゃんと動きませんでした…Alt+F8を押しても「マクロ名」に何も表示されません(T_T)
補足日時:2005/02/15 17:33No.3
- 回答日時:
それでは、
■選択されているセルの文字列を1文字ずつ確認しています。IV1 にその1文字を入れ、IV2 の CODE関数 で文字コードを拾っています。
■第一水準外だったら文字色を[赤]にしています。
■第一水準の文字コードは、12321~20307としています。
※ Excel2000 で動作確認しています。Excel2003では、Midでエラーになります。
Sub sample_code()
Range("IV2").Formula = "=CODE(IV1)"
For Each T_C In Selection '選択セル
'1文字ずつ確認
For ii = 1 To Len(T_C.Value)
Range("IV1").Value = Mid(T_C.Value, ii, 1)
If Range("IV2").Value < 12321 _
Or Range("IV2").Value > 20307 Then '第一水準外だったら
'[赤]にします
T_C.Characters(Start:=ii, Length:=1).Font.ColorIndex = 3
End If
Next ii
Next
'クリア
Range("IV1:IV2").ClearContents
End Sub
No.1
- 回答日時:
アナログ的な手法ですが、第一水準までしかないフォントを適用して、目で見て判別。
有料フォントでは「仙草」が第一水準までの漢字しかありませんし、フリーで公開されているフォントにも第一水準までしかない(そこまでしか作っていない)物が多々あります。
特徴的なフォントであるほど判別しやすいです。
検索する対象が少なければ、これで充分かと。
でなければ、下記の様なExcelファイルの検索・置換が出来るソフトで、検索対象語句に第二水準以降の漢字を登録して使ってみてはいかがでしょうか。
参考URL:http://www.vector.co.jp/soft/winnt/business/se31 …
ご返答ありがとうございます。
やっぱりひとつずつ見るしかないんですかね…第一水準しかないフォントで表示すると、第二水準の漢字はどのように表示されるのでしょうか?何かの文字に置き換わるのであれば、またその置き換わった文字を検索できるのであれば問題は解決するのですが…
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
準・究極の選択
「年収1000万円で一生カレーライス」か 「年収180万円で毎日何でも食べ放題」 あなたはどちらを選びますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
JIS水準漢字の選別方法教えてください
その他(コンピューター・テクノロジー)
-
Excel上でどれが外字か調べたい
その他(コンピューター・テクノロジー)
-
外字をJIS水準内の文字に置き換えたい
その他(パソコン・スマホ・電化製品)
-
-
4
漢字のJIS水準をエクセルを使用して調べる方法がよくわかりません。
Excel(エクセル)
-
5
JISの第1・第2水準以外の漢字の見つけ方
フリーソフト
-
6
VBAによる第3、4水準文字の判定について
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
おすすめ情報