[[20230511090618]]　『Excel　指定範囲内の半角カナが有るセルに対し背戟x（らいおん）　ページの最後に飛ぶ

『Excel　指定範囲内の半角カナが有るセルに対し背景色を付けたい』（らいおん）

やり方がわからず困っています。是非御教示下さい。
尚、VBやマクロに関しては素人です。申し訳ありません…
どうかお力添えいただけますでしょうか、宜しくお願い致します。

 【やりたいこと】
 ・Excel（M365）の指定範囲内のセルに半角カナが入っている場合、対象セル内の背景をオレンジ色にしたい。
 （平仮名漢字英数字もごちゃ混ぜになっていても半角カナが一つでも入っていれば上記対応の対象となるようにしたい。）
 ・またオレンジ色になったセル内の半角カナを全角に打ち直したら背景のオレンジ色は消えるようにしたい。
 ・対象範囲は例としてA1～AA5000になります
 ・ExcelのBOOK内にsheetが10個あり、それぞれ別の資料になりますが、どのsheetでも同様にセルに半角カナが入っている場合、対象のセル内の背景をオレンジ色にしたいです。

＜使用 Excel：Microsoft365、使用 OS：Windows10 ＞

 Microsoft365なら「数式+条件付き書式」で、できそうですけどマクロ希望ですか？
（まる2021） 2023/05/11(木) 09:56:44

 まる2021 様
 ご回答ありがとうございます。
 「数式+条件付き書式」で可能なんですね。
 宜しければ、そちらで是非御教示頂けますか？
 （マクロは素人なため自信が無く…）

 宜しくお願い致します。

（らいおん） 2023/05/11(木) 10:07:09

 A列～AA列を選択して、条件付き書式の「数式を使用して～」で以下の数式でどうでしょう？
 書式は「塗り潰し、オレンジ色」

 =LET(_c,UNICODE(MID(A1,SEQUENCE(LEN(A1)),1)),SUM((_c>65381)*(_c<65392)+(_c>65392)*(_c<65438)))
（まる2021） 2023/05/11(木) 10:25:45

 Excel2010で条件付き書式の案をやってみました。

 =MAX((CODE(MID(A1,ROW(OFFSET($A$1,,,LEN(A1))),1))>=161)*(CODE(MID(A1,ROW(OFFSET($A$1,,,LEN(A1))),1))<=223))

（白茶） 2023/05/11(木) 10:38:08

 まる2021 様
 ご回答ありがとうございます
 頂きました数式を入れてみましたがうまく反映さえませんでした。
 私のやり方が間違っているのかもしれません…
 以下の私の作業で間違いございますでしょうか。

 ＜以下実施内容＞
 A～AA列を選択→条件付き書式クリック→新しいルール→「数式を使用して～」選択
 →頂いた数式をはり付け→書式は「塗り潰し、オレンジ色」選択→「OK」→「適用」→「OK」
 試しに半角カナを入力。→　特に背景色変わらず

 こちらの数式はクラウド上でないと反映されないなどありませでしょうか。
 試しにやってみた際はクライド上にあるExcelをダウンロードしてから頂いた情報で試してしまいました…

 申し訳ありません。宜しくお願い致します。
（らいおん） 2023/05/11(木) 10:46:10

 白茶 様
 ご回答ありがとうございます
 頂きました数式を入れてみました所、半角カナのあるセルがオレンジ色に反映されました！
 有難うございました。助かりました…！
 こちらの数式ですがもしご迷惑でありませんでしたら
 よろしければどういった命令文なのか是非ご解説お願いできますでしょうか。
 勉強させて頂きたく…。
　↓
  　=MAX((CODE(MID(A1,ROW(OFFSET($A$1,,,LEN(A1))),1))>=161)*(CODE(MID(A1,ROW(OFFSET($A$1,,,LEN(A1))),1))<=223))

 以上宜しくお願い致します。
（らいおん） 2023/05/11(木) 10:51:53

 1文字ずつCODE関数に掛けて「161以上かつ223以下」の結果になる文字があるかどうかを愚直に計算してるだけです。

（白茶） 2023/05/11(木) 10:54:47

 白茶 様
 ご回答ありがとうございます

 解説ありがとうございます。
 そういう仕組みだったんですね。例えば応用すると
 全角数字を見つけ出す場合だと、CODE関数の数値を探してきて
 先の数式に下記のような数式（161や223を全角数字のCODE関数に変更）に
 変えればよろしいということですね？

 理解出来ました。有難うございました。

（らいおん） 2023/05/11(木) 11:10:27

コメント返信：

[ 一覧(最新更新順) ]

[[20230511090618]] 『Excel 指定範囲内の半角カナが有るセルに対し背戟x（らいおん） ページの最後に飛ぶ

[[20230511090618]]　『Excel　指定範囲内の半角カナが有るセルに対し背戟x（らいおん）　ページの最後に飛ぶ